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Introducing the MTI" line of computers. We believe in offering you 
the best in complete, low cost computing. 



MTI MOD III PLUS 140. A personal ' 
computer that has been designed 
and priced for your business, your 
department. ..yourself. MTI 
Computers offer you many 
"upgrade" features as standard. 
All MTI Computers include a 
65-key keyboard complete with a 
12-key datapad, a large 12" 
monitor and anti-glare screen, 
RS-232 printer interface, cooling 
unit and more. The memory is 48K 
and has a Z80 processor and two 
double density disk drives. 

LOW PRICE. MTI computers are 
priced from $1999. 

MOD III PLUS 140 Computer 
consists of 48K bytes of memory 
and a double density, dual disk 
drive system. The system is fully 
compatible with the Radio Shack" 
DOS and peripherals. Get 178,000 
bytes of memory storage per disk. 

OPTIONS: 

- • LETTER QUALITY 
PRINTER 
' WINCHESTER CP/M 2.2 



OTHER MODELS AVAILABLE: 
MOD III PLUS 240. Same as the 
MOD III 140 but has double 
storage capacity and dual headed 
40-track drives. 

MOD III PLUS 280. Has 1 .5 mega 
bytes storage and 2 dual headed' 
80-track double density disk 
drives. 

MOD MI/WINCHESTER. Our largest 
computer system. 8.2 megabytes 
of storage. Includes a 7.5 mega- 
byte WINCHESTER hard disk and 
80-track dual head disk head. 



CP/M 64K 

The Mod III Plus C/140 system is an 
exciting new personal and small n 
business computer that is both 
CP/M & TRS-DOS compatible. 

■ FEATURES: 

•80x24 Display for CP/M 

• 64K Bytes RAM Memory 

• Microsoft BASIC language in ROM 

• Internal Z80 ROM Diagnostic 

• Z80 processor, 2MHz 

• 64 x 16 screen-TRS^DOS-.DOS-^] 

• Cooling system 

• Parallel printer interface includec 

• Anti-glare screen 

ig 2 internal 40tk Disk Drives 
j >" Compatible with TRS-80"" Mod< I 
III— RS-232 serial interface 
option. 

Compatible with CP/M applica- ; j 
tions software such as Wordstar^ 
Datastarand Mailmerge. 
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90 Day Warranty 

• One Year Extended i 
Warranty Available 

• Local Dealer Service) 
•♦TRS-80 Compatible i 




MTI: 
INLO 






CP/M is a registered trademark ot Digital Re 
TRS-80' is a registered trademark ot Tandy 
MTI is a registered trademark ot Microcom 




ti & Prices fob santa ana 
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We're Expanding Your 

TRS-80* Model III 

With Reliable Hard-Line Thinking 

Let's cut through all the "compu-babble" about hard-disk systems with some hard-line 
thinking. 

You want a hard-disk system for your TRS-80* Model III for some fairly basic reasons: 

• More storage capacity than your present 
system 

• Faster retrieval and storage of information 
•Accurate processing with reliable hardware and 

software 
PERCOM DATA was pioneering critical, reliable data separation functions for micro 
systems long before many of today's companies even began. PERCOM DATA'S solid 
industry reputation is your promise of hard-disk performance, from a drive with speci- 
fications equal to or superior to your own system. 

PERCOM DATA 5% inch PHD's" are your easy, hard-line answer. These units are 
available in 5, 10, 15 and 30 megabyte models. The First Drive unit has a micro- 
processor-based drive controller, permitting you to add up to 3 more hard-disk PHD's. 
And PHD series prices begin at under $2500. 

So. if you're ready to expand your TRS-80 Model III. do it with PERCOM DATA'S PHD. 
Our hard-line thinking of more than half a decade means you get a reliable, high-quality 
PERCOM DATA peripheral, backed by the PERCOM DATA Performance Promise. 

Take a hard-line of your own today! Call one of our Sales Consultants for more 
information and specifications or for the name of your close-by PERCOM DATA Dealer. 

PERCOM DATA s Hard-Line Hotline is 1-800-527-1222 



PERGCM QATA 
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Expanding Your Peripheral Vision 



DRIVES 



NETWORKS 



SOFTWARE 



11220 Pagemill Road Dallas. Texas 75243 (214) 340-7081 
1-800-527-1222 



•TRSO <s B ragiwefad trademark ot Tandy Rar*o Shack Corporation 



Features 



72. Voice-Controlled Typewriter 

The physically handicapped can 
produce printed text with this 
sound-controlled program. 
Mike Rigsby 

80. The Color Computer Goes Forth 

With this new package, Color Com- 
puter owners can explore program- 
ming in a new language— Forth. 
Scott L. Norman 

150. Tracking Lobster 

Your TRS-80 can't bait a hook, but it 
can help you trap a lobster using 
maps and graphs. 
William F. Kaczor 




210. Pascal-80 

Pascal-80 provides a serious version 
of the Pascal language to TRS-80 
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users. You might find its structured 
programming rewarding. 
John B. Harrell, III 

216. TRS-80 Tongues 

Can't decide which language to 

use? Here's a simple temperature 

conversion program in six: Basic, 

Fortran, Cobol, Pascal, APL, and 

Forth 

Robert Nicholas and Philip Martel 



Articles 



88. The Calculating (.enius— Part II 

Charles Babbage's Analytical 
Engine was the modern computer's 
ancestor, but it was never built. 
Rick Cook 

94. Flaky 

A graphics program to show off the 
power of your Color Computer 
Sidney C. Garrison 

101. Bit Smitten 

This month learn how to gain access 
to string data for use in programs re- 
quiring random selection of words. 
Jay Chidsey 

104. Dp Your Mod I 

Double-density disk storage— a 
close look at all you will ever need to 
upgrade your Model I. 
Bruce Powel Douglass 

118. GRAPHTRAX Tricks 

I — I Make your MX-80 look like a magi- 
cian. 
Mark Schneider 

125. Forms Cleanup 

Eliminate drawbacks in this printer- 
driver by dropping the O. 
Jim Barbarello 

130. Inside Scripsit— Part III 

U=y How to write a spooler for Radio 
Shack's word-processing program. 
Craig A Lindley 

146. A Matter of Compatibility 

E3 Make your program submissions to 
80 Micro compatible with other 
systems with this short routine. 
Your readers will appreciate it. 
Art Huston 

166. $30 System I>esk 

Now that you've bought a computer, 



build a place to put it. 
Sanford J. Asman 

173. Hardware Hacker— Part III 

Add a disk-drive controller to your 

system. 

Philip M. Van Praag 

194. The Looking for ZS Blues 

LgD God bless the 80 that's got its own 
search function. 
J. E. Hieber 

200. CCCQ 

A Ham puts his Color Computer to 
dit-dah use. 
Michael Chuck 

228. Liberated CPU 

Free your micro with this spooler. 
Tom Shield 

236. Diskmap 

C2 Worry no more about disk file place- 
ment. 
John B Harrell. Ill 

252. Astro-Scrambler 

Transplant your rainy day high 
school gym class into space and 
play dodge ball with asteroids. 
Randy Long 

256. enrolling Craps 

If you're a gambling fool, be less 
foolish by calculating the odds 
before you roll those bones. 
Dan Robinson 

262. Search Them Strings 

| — I This utility helps you find strings in 
your Basic programs. 
John R. Gunter 

266. Certify Your Cassettes 

Eliminate bad saves and wasted 

time. 

Kenneth J. Bigelow 

276. Another Sort of Sort 

After the bubble bursts, learn about 
position and chain sorts. 
Karl L. Townsend 

280. Aulokey 

Modify Uni-Key for your Model III. 
Don Rigg 

298. Memory Map — I.evel II 

A general guide to the regions of 

ROM. 

Mark D. Goodwin 
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The left bracket, [, replaces the up arrow 
used by Radio Shack to indicate exponen- 
tiation on our printouts. When entering 
programs published in 80 Micro, you 
should make this change. 

80 formats its program listings to run 
64 characters wide, the way they look on 
your video screen. This accounts for the 
occasional wrap-around you will notice in 
our program listings. Don't let it throw 
you. particularly when entering assembly 
listings. 

Article submissions from our readers 
are welcomed and encouraged. Inquiries 
should be addressed to: Submissions 
Editor, 80 Pine Street, Peterborough, NH 
03458. Include an SASE for a copy of our 
writers' guidelines. Payment for accepted 
articles is made at a rate of approximately 
$50 per printed page; all rights are pur- 
chased. Authors of reviews should con- 
tact the Review Editor, 80 Pine Street, 
Peterborough, NH 03458. 



419. Fun House 

The 12 Days of Christmas. Dreidel, a 
Hanukkah game. Peglegs. 
Richard Ramella 



458. Copernica Mathematics 

Analysis of variance. 
Bruce Powel Douglass 





433. Feedback Loop 

Lazy Writer. Copying single density 
to double density. Printer III prob- 
lems. Disk drive buyer information. 
Disk drive problems. EDTASM prob- 
lems. Color Computer information. 
Buying a Model III keyboard. Model I 
monitor ripple. Playing Naval Wars 
on the PMC. Best chess game avail- 
able for 80. Power surge protection. 
Terry Kepner 



442. MONEY DOS 

How to play on the options market. 
J. M. Keynes 

Index to Ad\ertisers 



452. Notes from Beneath the Keyboard 

A conversation with Vernon Hester, 
including a Hester machine-lan- 
guage routine to make programs 
compatible with all DOSes. 
Paul Wiener 



464. Reload 80 

How to use Color Load 80. A new 
DOS lor the Models I and III. Anniver- 
sary Load 80. 
Art Huston 

468. Calendar 

470. New Products 

Vendor-One program authors' soft- 
ware. Mitsubishi 5.25-inch floppy 
drive, Color Computer macro assem- 
bler/editor. Farm Weather Center. 
VisiCalc consolidation system. 
Name That Song. Australian Win- 
chester drives. Graphic character 
generator for Models I and III. Two- 
mode joystick. Camp management 
program. Reading Skills Lab. Per- 
sonal Computer Owner's Directory. 
CompuGifts for Christmas. 
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312. Cybernetics— Part III 

How to interface an actuator to your 

computer. 

Stephen Davids 

320. Model III Machinc-I .anguagc 
Modifications 

When Model I software isn't Basic, 
you need to know some tricks before 
you convert the programs. 
Richard Koch 

333. Queue Up! 

A smart businessman knows analyz- 
ing waiting lines is not as arcane as 
it sounds. 
David E. Clapp 

341. Maze XIX 

y^ij] Have you ever wondered how a 
mouse feels in a maze? Here's your 
chance to find out. 
Gary Teter 

343. Open Cartridge Surgery 

Out with the bad ribbon, in with the 
cheap one. 
Bill Grout 

344. NEWDOS80 Files 

An explanation of their functions. 
Randy M. Resnick 

354. Color Diskdump 

Model I users had it. now Color Com- 
puter owners can have it. too. So ex- 
amine those files. 
Ken Knecht 

356. Forms Maker 

With USR routines and this Basic 
utility, you can create business 
forms on your Model II. 
Charles R. Perelman 

360. Screen Strings 

Make your screen routines efficient. 
Don Davidson 

366. Boolean Logic Operators 

How they work for Fortran and 

Basic. 

John Crew 

370. Scroll Your Listings 

yg Use this program to list programs on 
the screen one line at a time. 
Mark C. Paxton 

376. API. Primer— Part I 

What's the difference between mo- 
nadic and dyadic functions? Stay 



tuned for a description of system 

commands, variable names, and 

more. 

Margaret M. Grothman 

384. POKF Graphics 

y^ Speed up your Basic displays with a 
little help from some dummies. 
James Schaefer 

388. Kasy Picture Fditor 

Simple commands for art or game 
graphics on the Color Computer. 
Ron Ginger 



Departments 



8. Remarks 

With its business health depending 
increasingly on its computer sales, 
some rough water could be awaiting 
the Tandy flagship. 
Wayne Green 

16. Proof Notes 

A look at the year ahead. 

18. Input 

The amazing magazine mystery. 
Model I interface. Wayne's view of 
America rapped. Tips for Extended 
Basic. Rammer fix. More advan- 
tages of storing Assembly subrou- 
tines in Basic remark statements. 
PMC EPS-80 defended. 

34. Debug 

September MONEY DOS fix. Errors 
in Screenplay program. Model I mod 
for "Save Our Ship." A word on golf 
handicaps. 

38. Aid 

Goodwill Industries wants comput- 
ers. Business students need pro- 
grams. Green screen kluge. Quick 
Printer I for sale. More buffer for his 
music. Needs address of Indianapo- 
lis firm. VisiCalc templates. For 
Stringy Floppy owners only. Modem 
for 1200 downloads. TRS-232 news- 
letter. Color monitor question. Super 
Scripsit 

40. Reviews 

Sea Dragon. TRS-80 Assembly Lan- 
guage Wolfbug. Elementary Basic 
and Pascal with Sherlock Holmes. 
Lisp/UOLISP. Quest. LSI Soft-view 
CRT. FED File Editor. Bounceoids 



The Disk Doctor. LCA-47. Lowercase 
Adapter for CoCo. Hypergate Cen 
turian. Data O-Base Calendar Drive 
Control Unit. 




63. Review Digest 

Understanding Computer Science 
by Roger Walker. Postman. Basics 
for Business by Douglas Hergert. 
Master Control. Big Things from Lit- 
tle Computers: A Layperson's Guide 
to Personal Computers by Dale Pe- 
terson. Pro-80 Extended Basic. Mi- 
cropilot. The Tiny Compiler. Stellar 
Escort. RAM Slam. 

64. Soft Bits 

Examining the bits in binary num- 
bers. 
Roger Fuller 

68. darner's Cafe 

A call to gamers everywhere to beat 
the high scores of Winthrop and 
Mad Max. 
Rodney Gambicus 

3%. News 

Computers in the schools: boon or 
bane? Video games can weaken a 
heart. Landmark lawsuit settled. 
Poet Laureate of the Network Na- 
tion. 
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THE 
SWITH 

SWITCH TO 5 VOOUBLE DENSITY 

LNDoubler 5/S 




FEATURES 



5- and 8-inch* disk drives 

Single- & double-density 

Any size and density in any mix 

Read Model I, IP and III disks 

5- or 8-inch* system disk 

Single & double sided disk drives 

DOS+ 3.3.9 included, with Disk 

BASIC. 

6 month warranty 

Up to 3.75 megabytes online 

Easy installation - plug-in & run 

Analog phase lock loop data 

separation 

Precision write precompensation 

Regulated power supply 

Guaranteed operation at 4MHz 

All contacts gold plated 

Solder masked & silk screened 

Runs under DOS+ 3.3.9, TRSDOS 

2.3, NEWDOS 2.1, NEWDOS/80 

1.0, LDOS, NEWDOS/80 2.0, 

and ULTRADOS 

Reads 40- and 35-track disks on 
80-track drives 

FD1791 controller + your FD1771 

Fits Model I expansion interfaces 

Fits LNW expansion interfaces 

Track configurations to 80-tracks 

5 inch disk storage increased to: 

161,280 bytes - 35-track SS/DD 

322.560 bytes - 35-track DS/DD 

184,320 bytes - 40-track SS/DD 

368.640 bytes - 40-track DS/DD 

368,640 bytes - 80-track SS/DD 

737,280 bytes - 80-track DS/DD 

8 inch disk storage increased to: 



591,360 bytes - 77-track SS/DD 
1,182,720 bytes - 77-track DS/DD 
SS: single-sided DS: double-sided 
SD: single-density DD: double-density 

COMPLETE - The LNDuubler 5/8, 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's switch 
allows you to boot from 5- or 8-inch 
system disks, and it's accessible from 
outside the interface. The LNDoubler 
5/8 comes with a double-density disk 
operating system (DOS+ 3.3.9), 
complete with BASIC and utility 
programs . . . ready to run your 
software NOW! 

VERSATILE - Whether you want 
single-sided, double-sided, single- or 
double-density, 5- or 8-inch operation, 
complete versatility is here today! 
Any combination of 5- and 8-inch disk 
storage is possible with the 
LNDoubler 5/8. Each of your present 
40-track, single-sided 5-inch drives 
will store up to 184,320 bytes 
(formatted storage) - that's an 80 '7 
increase in storage capacity for only 
half the cost of just one disk drive. 
With three 8-inch double-density, 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
- that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoubler 5/8 
is the most technically advanced, 
tested and reliable double-density 



board you can buy. The LNDuubler 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

EASY TO INSTALL - The 

LNDoubler 5/8 is easy to install. 
There are no traces to cut, no wiring 
to do, just a screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-running', 
and enjoying your computer as never 
before. 

COMPARE - Compare features, 
compare quality, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 
$ 



219.95 



DEALERS - You too can 
make The Switch. 




IjNWresearch corpora tion 



2620 WALNUT Tustin, CA. 92680 (714)544-5744 (714)641-8850 

e operation require* special cable. 8" dODbfe-dcmity requ.re*, &£8MHl CPU spi-*d up .mKMk.al.on or LNW-80 4MH? emptier TRS-80 i- ■< trademark ol Tandy CorpOMtioa. 



REMARKS 



by Wayne Green 



With the virtual demise of CB, a 
serious loss of consumer interest 
in hi-fi, and the overall slowdown in the 
buying of electronic gadgets, Radio 
Shack stores have found that they are 
more and more dependent on their 
computer products. It is not much of an 
exaggeration to put this bluntly: as go 
computer sales, so goes Radio Shack. 

So how go the computer sales? 

Starting with the Color Computer, 
Radio Shack's low-end system aimed 
at the home computer market, it's bad 
news. When the Shack was up against 
small firms selling high-priced pro- 
ducts, their 6,400 stores gave them an 
unbeatable edge. Even today, with less 
than 5,000 bona fide computer stores, 
even if a rival firm managed to get 100 
percent penetration of this distribution 
system, they would still not quite 
match the Shack. 

But home computers are not de- 
pendent on computer stores. The low- 
end computer systems are being sold 
through toy stores, discount stores, de- 
partment stores, electronic stores, and 
so on. The Shack has been overwhelm- 
ingly outnumbered in sales out- 
lets—and in sales. Atari, Texas Instru- 
ments, and Commodore are all beating 
the hell out of the Shack in the home 
market. 

This volume of sales has, in turn, al- 
lowed the firms to undercut the Shack 
in price. This further is hurting the 
Shack. 

Shack is trying, belatedly, to develop 
some sales through RCA outlets for 
the CoCo, but the neglect of this sys- 
tem in many ways, as I've griped about 
before, may now have dealt them out 
of the fast-growing home-computer 
market as a major participant. 

The Shack brought out CoCo in 
August 1980 and then virtually aban- 
doned it. Either unable or reluctant to 
get enough of the right people on the 
Shack staff to handle the multiplying 
problems of changing from the Model 
I to the Model III, plus endless ag- 
gravation with the Model II, the CoCo 
and the pocket computers were an- 
nounced, put into the catalogs, and left 
to fend for themselves. 

So here we are two years later — a 
lifetime in the microcomputer in- 
dustry — with a pitiful lack of serious 
support for the system. It seems that the 
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s the Shack 

in real 

trouble? 



Shack people are at war with their sup- 
porters and potential suppliers. On the 
one hand, perhaps from a desire to 
make every possible dollar of profit, 
they try to do as much as possible in- 
house. But even when they see that this 
is pushing them further and further 
behind, they don't change their policies. 
Having worked with the Shack for 
many years, 1 get the idea that once a 
policy is made it is put into concrete and 
no amount of disasters is going to 
change policy. 

I'm sure there are at least fifty soft- 
ware firms out there that would love to 
work with the Shack to develop the 
needed software for CoCo. I know that 
our Instant Software people have at 
least 500 programs that could be con- 
verted to run on the system, and which 
they have tried to talk with the Shack 
about. I've talked with many hardware 
accessory people who have similarly 
been frustrated in trying to talk with the 
Shack. 

It is getting clearer that home com- 



puters will eventually take over the 
video game market, allowing people to 
play all of the games . . . and also run 
home programs, educational programs, 
and so on. On that basis, is there any- 
thing that the Shack can do to cope with 
this growing market, and get back into 
competition? 

Yes... and no. Yes, of course the 
Shack can do it — but no, not without 
breaking some serious concrete deci- 
sions. They've erected their own Great 
Wall between continued growth and 
gradual decline. 

As the messenger I expect that I will 
be skinned alive, as I have in the past. 
They sure don't like messengers. 

The Software 

By making the CoCo incompatible 
with all their other Shack computers, 
they set themselves up with a major 
problem — no software. The Shack's 
normal approach is to hire some pro- 
grammers and get the software written. 
But here there is a little problem. Even 
the massive Shack resources aren't 
enough to hire very many program- 
mers. These days, programmers with 
any creativity and experience can sit at 
home anywhere they want and make all 
the money they need. Who needs to 
move to Fort Worth, where for about 
half the year you either have an air con- 
ditioner handy or you melt? I lived there 
one summer, so I know! 

Most of the better programmers are 
writing programs and getting them dis- 
tributed through software houses and 
are not even remotely interested in 
sweat-shop, regimented nine-to-five 
jobs . . . jobs where one can be fired as 
soon as a temporary problem has been 
surmounted. 

The Shack has done the best it could 
to find programming talent to grind out 
software, and the results, as reviews of 
the Shack software make all too clear, 
are disappointing. It is getting time to 
face up to the failure of this system of 
trying to cut corners on costs, always 
trying to get a few pennies' more profits 
to drive up the quarterly stockholder 
reports. 

If the Shack would start dealing 
honestly and forthrightly with some of 
the software suppliers to the industry, I 
think they could get plenty of software 
to support the CoCo — and that certain- 
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CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289 7500 (COLLECT) 



jo**/ 

marketing 

services 



PARAGON 



magnetics 



DISKETTES 



MTC's 

Premium Single-Sided, Soft-Sectored 
OUBLEDENS1TY, 5 'A -inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR FREE certified. Invest in GOLD! 



PARAGON MAGNETICS GOLD 



S24.95 



Scotch 

Soft-Sectored Diskettes 

5-1/4" iS/SDen (744-0) S2895 

5-1/4" 1S/DDen(744D-0) S31.95 

5-1/4" 2S/DDen (745-0) S39.95 

8" IS/SDen (740-0) S29.95 

8" 1S/DDen (741-0) $37.95 

8" 2S/DDen (743-0) $49.95 

Hard-Sectored Diskettes 

5- 1 /4" 1 S/D Den 1 0-sector (744- 1 0) $28.95 

5 1/4" iS/DDen ir>sector(744D 10) $32.95 

5-1/4" 2S/DDen10-sector (745-10) $39.95 

5-1/4"lS/SDen16-sector(744-16) $28.95 

5-1/4" 1S/DDen16-sector(744D-16) $32.95 

5-1/4" 2S/DDen16-sector (745- 16) $39.95 

8" 1S/SDen32-sector(740 32) $33.95 

8" 1S/DDen 32 sector (741 -32) $39.95 

8" 2S/DDen 32 sector (743-32) $49.95 

Supplies 

5-1/4" Head cleaning kit $29 95 

8" Head cleaning kit $29.95 

Authorized Distributor 
Information Processing Products 



VERBATIM 

Soft-Sectored Diskettes 

5-1/4" 1S/DDen(MD525-01) $26.95 

5-1/4" 2S/DDen(MD550-01) $39.95 

5-1/4" 2S/4Den(MD557-01) $51.50 

8" 1S/DDen(FD34-8000) $43.95 

Hard-Sectored Diskettes 

5-1/4" 1 S/D Den 1 0-sector (MD525- 10) $26.95 
5-1/4" 2S/DDen10-sector(MD550-10) $39.95 

5-1/4" 2S/4Den1 0-sector (MD557-10) . $51.50 

RINGS' & THINGS 

HUB RING KIT for 5' V disks $10.95 

HUB RING KIT for 8' disks $12.95 

REFILLS (50 Hub Rhirs) $ 5.95 

5 V* inch diskette case S3. 50 

8-inch diskette case S3. 95 

5 Va -inch File Box for 

50 diskettes $24.95 

8-inch File Box for 

50 diskettes $29.95 



FILE BOX 

DISKETTE STORAGE SYSTEM 

Storing 50 to 60 diskettes, this 
durable, smoke-colored acrylic unit 
provides easy access through the 
use of index dividers and adjustable 
tabs. Unique lid design provides 
dust-free protection and doubles as a 
carrying handle. 



^ 



Reg. S24.95 NOW $17.95 

* With the purchase of ONE 
PARAGON GOLD 

SCOREPAC™ 

Isn't il time that you scored . . . 
A Great Gift Giving Idea!! 



♦/ 



SCOREPAC" 

w'20 Paragon Gold Diskettes $46.95 




MODEL l/lll SOFTWARE ACCESSORIES 

APPARATSNEWDOS/80-V2 + MTC QUE CARD™ $ 129.95 

PRACTICAL PERIPHERALS MICROBUFFER™ $ 149.95 



Michael Shrayers 

ELECTRIC PENCIL 
VERSION II 

SPECIFY MODEL I OR III 

Disk Version $79 95 

Tape Version $69 95 



APPLE >l ■ ragntarrt tr«j*m«>k 

ol Appia Computer mc 

TRS 80 Is • tradafnark ol lha 

Radio Suae* Division ot Tandy 

Corporation DATALIFE Is a 

tiadwnark ol VERBATIM. PLAIN 

JANE. PARAGON MAGNETICS 

ant trademark* ol MTC. 

1M2 fry Mela TechnoloQlee 

Corporation 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 



24 Hr Bulletin Board 

(216)289-8689 



APPLE® OWNERS 

Your first mystery is here! 

THE CUSTOM APPLE* 

& OTHER MYSTERIES $24.95 

by Hofacker & Floegel 

Make your Apple* Computer perform 
tasks you never thought possible. In- 
terface to stepping motors, fans, drive 
motors, etc. Remotely control and 
automatically monitor virtually any 
machine previously controlled by 
mechanical means. If you want to 
lower your heating costs or are just 
wondering how to hook that "new" 
printer to your Apple® you need this 
book! Volume 1 of IJG's Apple Infor- 
mation Series contains more than 180 
pages of practical information and 
tested software. 

PRICES IN EFFECT T 

THRU 

December 31, 1982 

Prices, Specifications, 

and Offerings subject to 



TRS-80™ DISK AND 
OTHER MYSTERIES" 

by Harvard C Pennington 
TRS80™DISK S19.9 5 

"OTHER MYSTERIES" 
VOLUME II 

by James Farvour 

MICROSOFT™ BASIC DECODED S26.9 5 

"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

THE CUSTOM TRS-80™ $28.95 

"OTHER MYSTERIES" 
VOLUME IV 

BASIC FASTER 
AND BETTER 

BASIC FASTER & BETTER $26.95 

BFBLIB subroutines diskette $19.95 

BFBDEM demonstration diskette $19.95 
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WE ACCEPT 

•VISA 

•MASTER CHARGE 

•CHECKS 

• MONEY ORDERS 

•C.O.D. 



• Add $3.00 for shipping 
& handling. 

•$2.00 EXTRA for U.S. 

Mail delivery. 
•$3.00 EXTRA for C.O.D. 

• Ohio residents add 6.5% 
sales tax. 



REMARKS 



ly is an important first step. They 
should have done this two years ago. 

Another cherished policy of the 
Shack that needs to be re-examined, as I 
mentioned a few months ago, is the one 
about their stores carrying only the fast- 
est selling products. In the case for soft- 
ware, this may be a self-defeating 
policy. 

In the consumer-products market, 
perception of the product is paramount . 
The computer that is backed up by a 
display of a barrage of software is going 
to be more impressive than the one with 
a dozen or two programs. Sure, over 90 
percent of book sales are made by a 
couple of dozen titles, but you never see 
a serious book store that does not have 
thousands of books. 

The consumer this Christmas is going 
to have to choose among the Atari-400, 
the TI 99/4A, the Commodore VIC-20, 
the Commodore Max, the Timex-1000, 
and the TRS-80 Color Computer. The 
Shack realizes that they are going to 
have to cut prices from the present $400 
range down to at least $300. This still is 
going to be a difficult sale for them 
against the $189 VIC-20 or the 
Atari-400 at $299 plus $60 in software 
coupons. The TI, with their $100 
rebate, is in the $200 range. 

It's far too late to do anything for this 
Christmas season, but the Shack could 
get started on a plan that would, by 
Christmas 1983, put them into a leader- 
ship position. This would call for some 
serious changes of policy and for a good 
deal of long-range planning. 



If you look through 80 Micro, you 
see how much can be developed in the 
way of supporting industry for a 
system. Well, with cooperation (a con- 
cept I don't think is in the Shack dic- 
tionary), this industry would jump at 
the chance to support the CoCo. What 
would be the impact on consumer sales 
if the Shack had a home-computer sys- 
tem with a massive amount of software 
supporting it? What would be the result 
if it was also supported by the enormous 
accessory and peripherals industry that 
has sprung up around the TRS-80 
system? 

You can bet that Atari, TI, and Com- 
modore would be scurrying fast to try to 
keep up. The Shack would have the 
edge in this case because a whole in- 
dustry has already sprung up to support 
the TRS-80 by virtue of 80 Micro, while 
there is relatively little support for the 
other home computer systems, since no 
media such as this magazine exist to 
bring on growth. The Shack would be 
starting with a good lead in this case. 

The next step, if I were working on 
the project, would be to separate the toy 
department of the Radio Shack stores 
from the home computer department. I 
would set up a separate home computer 
boutique in every Tandy-owned store 
where I would feature the CoCo, its ac- 
cessories and software, plus the Model 
III and pocket computers. I would 
relegate the Model II to the Tandy 
Computer Centers. Go with strength. 

It is at least worth a try in a few stores 
to see what impact this sort of 



marketing might have. The Shack still 
has a long way to go to convince the 
middle-income (-class) customers that 
Radio Shack stores are not primarily 
dealers in schlock for the unwary lower- 
income people. By separating the home 
computers from their flashlights, inef- 
fectual radar detectors, lo-fi audio 
systems, and so on, it might be possible 
to build some middle-income consumer 
confidence in the computer products. 

I think it would work. 

Once they've worked out a successful 
home-computer boutique formula for 
their own stores, they can start putting 
these into independent Radio Shack 
stores, thus adding another 2,000 or so 
outlets for the product. 

That still isn't going to match the 
marketing might of Atari and the 
others, but with a successful home- 
computer boutique formula, they 
would be ready to set these up in any 
discount store or department store in- 
terested in a profit center. They would 
have the whole miniature store instead 
of some shelves of products, as a unit 
ready to franchise. 

The computer and its associated pro- 
ducts would all be packaged to simplify 
selling by untrained sales personnel. 
You want a music keyboard? Here it is. 
You want the unit to talk? No problem, 
here's the box for that. You want it to 
access data over the telephone? Here's a 
box with a modem. You want it to plot 
in four colors? Here's your plotter. You 
want it to help with surveying? Here's a 
software package for that. You want to 



PRICE BREAKTHROUGH 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY - FULL WARRANTY 



MODIII48K 
2 Drives RS232 

s 1795 




m 






— <i 


VI XOQMMWP 


m 1 


r ^, 



MOD II 64K 
1 Drive 



$2499 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCONA ELECTRONICS • P.O.Box 593 • Nocona, TX 76255 



.-232 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 
CALL TOLL FREE 1 -800-321 -3552 TO ORDER 

IN OHIO, call (216) 289 7500 (COLLECT) 



participating 
organization 



ITM 



A Few Words About 

The NEW A IDS- 1 

by SofTrends, Inc. 

1. TRUSTWORTHY. A bad diskette or an undependable machine can ruin your 
whole day. The NEW AIDS-MI checks itself. If something's wrong, it tells you, in- 
stead of turning on you like a mad dog. 

2. GENEROUS. The NEW AIDS-HI doesn't use BASIC. But it does use the 
memory BASIC uses. And to make the most out of that extra memory, it selec- 
tively compresses bytes into tiny bits. It all adds up to more usable data records. 
Up to 3 times as many.' 

3. THOUGHTFUL. The NEW AIDS-HI never treats you harshly. If one keystroke 
will do, it won't ask for two. The NEW AIDS-III remembers things like report for- 
mats, search strategies and file names. So you don't have to. It even reminds you, 
gently, to save your important data. 

4. INTELLIGENT. The NEW AIDS-III is smart. It doesn't waste your time with 
questions about record sizes, field counts and other technical mumble-jumble. A 
new system can be created, or an old one modified, in a couple of minutes. Even 
if your name isn't Albert Einstein. 

5. KIND. The NEW AIDS-III is always ready to help. It says so, on every screen 
display. HINTS™ (Help INdexed To Screen) tells you on which page in the NEW 
AIDS-III manual to look for more information. The manual is easy to understand 
and easy on the eyes. 

6. QUIET, if you hit the wrong key, you won't hear any annoying buzzes, clicks 
or chirps. Instead, FLAWS™ (FLash-Annunciated Warning System) will create a 
striking visual effect. But only for an instant. And without affecting any of the 
text on the screen. Guaranteed to catch the eye of the fastest touch-typist. 

7. ALERT. |f the NEW AIDS-III is left alone, it lets you know it missed you. It wor- 
ries about your important data. After several minutes of no activity, the NEW 
AIDS-III creates a striking visual display to get your attention. Touch any key to 
let it know you're still there, and it stops. For a little while, anyway. 

8. LEAN. There's no fat in the NEW AIDS-III. That's because it uses SofTrends' 
proprietary PMX™ system architecture. Small, lightening-fast, reliable. Lean? 
Yes. Mean? Definitely not. 

9. FAST. Searches and sorts hundreds of records in seconds. Screens are 
displayed in the blink of an eye. Disk access rates approach one-thousand char- 
acters per second. No waiting for "garbage collection ". The NEW AIDS-III lives 
fast. Up to 10 times as fast.* 

10. REASONABLE. At only $79.95, the NEW AIDS-III is very reasonable. Down- 
right inexpensive, if you value your time. Join the thousands of AIDS owners 
around the world. Order yours today and put the NEW AIDS-III data management 
system to work for you. 

* As compared to MTC AIDS-III, Version 1.0 

Specify Model I or Model III $79.95 

*» CALL REGARDING UPGRADE POLICY »* 

CALCS-IV (ADVANCED CALCULATION SUBSYSTEM) has the 
following features: 

• All the capabilities of CALCS-III. 

• SAVE REPORT FORMATS on disk for lDITING. as required. 

• More than TWICE the COMPUTATIONAL POWER of CALCS-III. 

• Non-interpretive report execution for FASTER EXECUTION. 

• Reports can be run by a NOVICE. 
ONLY $20 when purchased with AIDS-lll/Version 2.0! 

Specify Model I or Model III $39.95 



NEW AIDS SUBSYSTEMS 

by. SofTrends, Inc. 

VISAPLEX™ 

Interfaces AIDS-III and VisiCalc - . Use AIDS-III 
for data entry, sorting and selection Then load 
the data into VisiCalc", perform computa- 
tions, summations, etc Like what you see? 
Change the data back into AIDS-III format for 
future processing. Remarkably easy to use. 
Comprehensive documentation complete with 
examples. 

Specify Model I or Model III $39.95 



ADEPT 



TM 



This module is ideal for entering large batches 
of data into AIDS III. Features include pre- 
defined field values, definition and expansion 
of abbreviations, transposition of entries, 
range checking, entry of data from previous 
record, expanded validation and more! Type as 
fast as you can ... no problem! Use with 
VISAPLEX'"(above) to provide a comprehen- 
sive data entry facility for VisiCalc". Complete 
documentation with examples. 
Specify Model I or Model III $29.95 



If you own Apparat's 

NEWDOS/80-Version 2.0 

you need 

BREVI-T™ 

by SofTrends, Inc. 

If you have trouble remembering command for- 
mats, want to simplify use of DOS, do a lot of 
program development or just want to be more 
effective with your TRS-80'". then BREVI-T is 
for you Abbreviations can be defined for both 
DOS and BASIC These are automatically ex 
panded as part of the command line pro- 
cessor. Optionally, parameters may be defined 
as part of an abbreviation. For example, "F 1" 
might be used to FORMAT drive 1 Change the 
1 to a 2 and FORMAT drive 2. It's that simple 
Complete with easy-to-follow instructions, ex- 
amples and a sample abbreviation file. 
Specify Model I or Model III $19.95 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I 
MODEL III THE FLOPPY DOCTOR Version 
completely checks every sector of single o 
double density 35 . 40-. 77 . or 80-track disk 
drives Tests motor speed, head positioning 
controller functions, status bits and provides 
complete error logging THE MEMORY 
DIAGNOSTIC checks for proper write/read 
refresh, executability and exclusivity of all ad 
dress locations Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
For MODEL III $29.95 



TRS-80 it a trademark of the 
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•S3.00 EXTRA for C.O.Dj 

• Ohio residents add 6.5% 
sales tax. 
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do boat navigation? No problem. All of 
the accessories and software would be 
integrated and packaged. 

But what about training salesmen? 
That's one of the weakest aspects of the 
Shack stores right now. In fact, I sus- 
pect that this problem alone has kept 
most of the independent Shack stores 
from really participating in the bonanza 
so far. You didn't think I was going to 
ignore such a key problem, did you? 
The answer is simple, once you think of it. 

Video disks. Yep! With disk players 
dropping in price, I would run, not 
walk, to my nearest video production 
organization and put together powerful 
video programs that show what the Co- 
Co, Model III, and pocket computers 
can do. They would be indexed to show 
off all the accessories and software, and 
show the use of the systems for playing 
games, for business applications, 
education, scientific, control, and so 
on. With the video disk and a control 
CoCo in the salesroom, the customer 
would be able to delve into the possibili- 
ties of the systems with no trained sales 
help needed. 

In this way the best demonstrator of 
the Shack system in the world could do 
the selling to every prospect. Further, 
the buying process in itself would be 
fun. Further, there would be no end to 
the sales to every customer. He might 
buy the basic computer and a couple of 
programs the first time around, but 
he'd be back regularly to check out 
more and more applications . . . and 
fun. . .for his system. It is fun to buy 
things . . . and fun to use them and show 
them off to friends. Who has ever 
bought a car and not started looking for 
gadgets to buy for it? Who has bought a 
camera and not looked for more lenses, 
special films, and so on? 

If the Shack can show that a 200- 
square-foot home-computer boutique 
can make more profit than other uses of 
that space, you can bet that Sears, 
Lechmere, K-Mart, and other stores 
will be putting 'em in as fast as they can. 
And if they can't make big profits in a 
fast growing field — a go-go field — on 
home computers, then the Shack needs 
better management. 

I'm reminded of the basic problem 
that Heath faced when they brought out 
their computer in 1977. They had about 
50 stores around the country and they 
had decided to make do with this distri- 
bution. I tried hard to convince them 
that in the microcomputer field it was 



marketing and distribution, not the 
magnificence of the computer, that 
would determine the winners and the 
losers. I wanted them to open up their 
sales to computer stores, electronics 
stores, and so on, so they would have a 
better chance at making their system 
available in all of the marketing areas of 
the country. 

The Shack had a considerable advan- 
tage over everyone else in the micro 
business by virtue of their thousands of 
stores. This, plus their advertising bud- 
get, helped them get into first place in 
microcomputer sales. . .shooting them 
ahead of Heath. But today, particularly 
on the low end, the Shack is falling way 
behind in sales outlets and thus in sales. 
There is a good chance that if the Shack 
does not respond fast to this deteri- 
orating situation, they will just 
have to abandon the low end and the 
CoCo. This could play hell with the 
Tandy stock prices . . . and shake up 
management. 

Well, at least the Shack is going 
strong with their main entry, the Model 
III, right? Yeah? If that is so strong, 
why do the 80 Micro reader surveys 
show that 50 percent of the readers are 
thinking of buying something other 
than a TRS-80 for their next computer? 
This indicates some very deep-rooted 
and widespread disenchantment with 
the Shack, something that the Shack 
management seems to be trying its best 
to ignore. 

Indeed, we've seen the Apple come 
along and, with fewer outlets, pass the 
TRS-80 by in sales. And while TRS-80 
owners are generally happy with their 
systems, the Apple owners are almost 
evangelical about theirs. In this I sus- 
pect that the core, if you'll pardon the 
expression, lies in the way the firms sup- 
port their systems. Where Apple has 
been very supportive of the industry 
that has sprung up around their com- 
puter, we find the Shack seeming to be- 
grudge any sale not made by them and 
them alone. 

When the Shack puts on a computer 
show, there are no supporting hardware 
firms invited ... no software firms ex- 
hibiting. . .no magazines and books. 
When Apple organizes an Applefest, 
supporting firms are not only in- 
vited to display, they are encouraged in 
many ways. 

There are many good books on the 
TRS-80 that are not permitted in the 
Shack stores. There are thousands of 



good software programs ... a wealth of 
support hardware items. In each case, 
the Shack seems to be doing its best to 
keep news of these products from its 
customers, apparently wanting to do 
everything it can to be sure to get every 
nickel spent for anything related to the 
TRS-80 for themselves. 

No matter the intent of management, 
this is the view of many users (and 
Radio Shack managers), so if there is a 
misinterpretation of intent, there is a se- 
rious lack of communication. Indeed, 
many TRS-80 owners have a sour view 
of Radio Shack, seeing the firm as the 
epitome of the big company that is con- 
temptuous of its customers and the gen- 
eral public. It is difficult to interpret 
many of their actions in any other way. 

Whether Apple pulls further ahead 
and IBM passes the Shack by depends 
on decisions made in the Tandy Towers 
this year. It is already late in the game, 
but not too late. The Shack could pull it 
together and get powered up to regain a 
strong market share of the home-com- 
puter market by the end of 1983. They 
could stop the attrition of their sales in 
the small business computer market. 
But these things are going to take some 
soul-searching, perhaps painful, deci- 
sions. They are going to call for some 
major changes of approach and the 
breaking of hardened Shack policies. 

With such a high percentage of the 
Tandy sales being involved with the 
TRS-80, and with many of the other 
products being so weak in sales, there is 
a serious question about the survival of 
Tandy should the TRS-80 sales start to 
weaken. 

In early 1977 Mits was thoroughly in 
command of the microcomputer indus- 
try. They were as far or further ahead of 
the rest of the industry as Radio Shack 
was in 1980. Then, but two years later, 
Mits had been swallowed up by Pertec 
and virtually disappeared from the 
scene. Pertec could easily have re- 
mained the top firm in the industry if 
management had not made one disas- 
trous decision after another. 

Next, it was Imsai that was on top of 
the heap. . .then Processor Tech. Each 
pulled some market miscalculations and 
major blunders that sank them. The big 
question, then, is whether the Shack can 
cure its problems and get back to its 
number one position again, or whether 
it is going to continue to lose sales and 
market share on all fronts, a process 
that can only lead to disaster. ■ 
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Our "almost wholesale" 



prices just g 
2% lower. 




lake an additional 2% off 

our listed prices, until December 24. 



Have a merry computer and a happy software. 



PRINTERS 

COMREX CR I PARA E 839 00 

COMREX CR 1 SERIAL 859 00 

C ITOH F 10 «0 CPS PARALLEL 1390 00 

C-IT0H F 10 40 CPS SERIAL 1390 00 

C ITOH 85'0 PROWRiTER PARALLEl 480 00 

C-iTOH 8510 PROWRITER SERIAL 590 00 

EPSON MX 80 III W/GRAFTRAX ♦ SCALL 

EPSON MX 80 II. F/T W/GRAF1RAX +JCALL 

EPSON MX 100 HI W/GRAFTRAX + SCALL 

IDS PRISM 80 W/COLOR 1599 00 

NEC 8023A 485 00 

NEC SPINWRITER 3530 P R0 1995 00 

NEC SPINWRITER 7710 S R0 2595 00 

NEC SP'NWRITER 7730 P R0 2595 00 



VERBATIM 

MD 625-01 '0 16 26 50 

DISKETTES STORAGE 

5'.'. PLASTIC LIBRARY CASE 2 50 

8 PLASTIC LIBRARY CASE 3 50 

PLASTIC STORAGE BINDER W/ INSERTS 9 95 
PROTECTOR 5V. 21 95 

PROTECTOR 8 24 95 

TRS-80 HARDWARE 

PERCOM DATA SEPARATOR 27 00 

PERCOM DOUBLER u W' DOS 3 4 159 00 



MODEL III DISK DRIVE KITS 

CONTROLLER KIT 'NCLUDES ALL BOARDS ASSEMBLED AND TESTED INTERNAL CONTROLLER 
MOUNTING BRACKETS SWITCHING POWEB SUPPLY j^n INSTALLATION INSTRUCTIONS 
HANDLES 4 DRIVES 360 00 



KIT »\ CONTROLLER KIT AND 2 TM100 3 
SINGLED- SIDED BO TRACK DRIVES 875 00 
KIT n CONTROLLER KIT AND 2 'M100 4 
DOUBLE SIDED 8C TRACK DRIVES 1060 00 



KIT #3 CONTROLLER KiT AND 2 TM100 1 
SINGLED SIDED 40 TRACK DRIVES 7?0 00 
KIT »4 CONTROLLER KIT AND 2 TMI00 2 
DOUBLE SIDED 40 TRACK DRIVES 850 00 



OKIDATA MlCROLINE 80 
OKIDATA MlCROLINE 8?A 
OKIDATA MlCROLINE 83A 
OKIDATA MlCROLINE 84 
OKIGRAPH 82 
OKIGRAPV 83 



389 00 

460 00 

700 00 

1170 00 

49 95 

49 95 



EPSON ACCESSORIES 

MlCROBUFFERi MBS 8K 159 00 

MICROBUFFERJ MBP-16K 159 00 

MlCROBUFFER IN LINE 32K 299 00 

MiCROBUFFER INLINE 64K 349 00 

GRAFTRAX PLUS 60 00 

MX 80 RIBBONS 8 95 

MX-80 PRlNTHEAD 40 00 

MX 100 RIBBONS 24 00 

MX-100 PRlNTHEAD 49 00 

EPSON SERVICE MANUAL 20 00 

16KRAMSPECIAL13.95 

Set ol 8 NEC 4116 200ns Guaranteed one year 

MODEL I, III 
SOFTWARE 

PROSOFT NEWSCRIPT .'LABELS MOO i. Ill 119 00 
OMNITERM SMART TERMINAL MOD I. HI 89 95 
MAXI-MANAGER MOD I. Ill 
DOS PLUS 3 4 MOD I ill 
LDOS 5 1 MOD I. Ill 
MICROSOFT EOiTOfi ASSEMBLER 
+ MOD i (DISK) 
MICROSOFT FORTRAN MOD I 



TANDON 80 TRK DISK DRIVE W/ P S 345 00 

TANDON 40 TRK DISK DRIVE W P S 289 00 

LNW OOUBLER W/ DOSPLUS 3 3 138 00 

LNW DOUBLER 5/8 W/ DOSPLUS 3 4 171 00 

ISOLATORS 

ISO 1 3-SOCKE' 53 95 

ISO ? 6 SOCKET 53 95 

MODEMS 

NOVATION CAT ACOUSTIC . 135 00 

NOVATION D CAT DIRECT CONNECT 156 00 

NOVATION AUTO-CAT AUTO ANSWER 219 00 

HAYES SMART MOOEM (300 BAUD) 227 00 

HAYES SMART MODEM (1200 BAUD) 540 00 

LEXICON LEX 11 109 00 

SIGNALMAN MODEM W/ RS-232C 85 00 



SUPPLIES 

AVERY TABULABLES 

1 000 V/i » 15/16 
3 000 3V, k 15/16 
5 0O0 3Vi x 15/16 



89 95 
89 00 
11900 

44 95 

80 00 



FAN FOLD PAPER 

(Prict* FOB. S.P.) 

9V, i 11 1816 WHITE 3 000 Ct 

14 7/8 i li 1810 WHITE 3 000 cl 



8 49 
14 95 
19 95 



29 00 
39 00 



DISKETTES 

ALPHA DISKS .21 95 

Single sided ceriitiea OouDie Density 40 Tracks 
with HuD-Rmg Bo» ol '0 Guaranteed one yea' 



SPECIALS 

SPECIAL N0.1 

TRS 80 DISK AND OTHER MYSTERIES BOX 0*- 
VERBATIM DISKS. PLASTIC LIBRARY CASE 

44 SO 



SPECIAL N0.3 

KEW00S'80 2 BOX OF VERBATIM DISKS 
PlAS'iC LIBRARY CASE 149 00 

SPECIAL N0.4 

MICROSOFT BASIC COMPILER 80X OF VER 
BATIM DISKS. PLASTIC LIBRARY CASE 

179 00 

SPECIAL N0.5 

MICROSOFT BASIC DECODED AND OTHER 
MYSTERIES. BOX OF VERBATIM OtSKS PLASTIC 
LIBRARY CASE 49 95 

DOUBLE DENSITY SPECIAL 

PERCOM DOUBLER II. NEWOOS/80. BOX Of VER 
BA'IM DISKS. PLASTIC LIBRARY CASE 

279 00 

COMMUNICATION SPECIAL 
MOD I & II 

NOVATION MODEM OMNITERM TERMINAL 

SOFTWARE 

ACOUSTIC SPECIAL (CAT) 219 00 

DIRECT CONNECT SPECIAL (D CAT| 239 00 

SERIAL CABLE 25 00 

DISK LIBRARY SPECIAL 

RACET DISKCAT CATALOGING PROGRAM. FLIP 
SORT (50 DISK CAPACITYl 50 STICK ON DISK 
LABELS 59 95 

BOOKS 

THE CUSTOM TRS 80 ?4 95 

MICROSOFT BASIC FASTER 4 BETTER 24 95 
CUSTOM i/0 MACHINE LANGUAGE 24 95 



TRS-80 GAMES 

a.i games a-e disk versions Cassette versions 

may not be available 

TEMPLE Of APSHAt 

HELLFiRE WARRIOR 

STAR WARRIOR 

RESCUE AT RlGEL 

CRUSH CRUMBLE AND CHOMP 

INVADERS FROM SPACE 

PINBALL 

MISSILE ATTACK 



2 4 3 
5 4 6 
8 4 9 



STAR FIGHTER 
Z CHESS 
AOVENTURE NO 
ADVENTURE NO 
ADVENTURE NO 
OUEl N DROiDS 
S'ARFLEET ORION 
INVASION ORION 
OLYMPIC DECATHLON 
MONTY PLAYS MONOPOLY 
SARGON II 
8LACKJACK MASTfR 

robot attack 

galaxy invasion 

super nova 

tuesday morning quarterback 

luner lander 

the mean checker machine 

<sPa;e ROCKS 

PiGSKiN 

ZOSSEO IN SPACE 

ARCADl-80 

COMBAT 

SPACE INTRUDERS 

SILVER FLASH 

MORTON S FORK 

PROJECT OMEGA 

SCARFMAN 



24 95 
24 95 
34 95 

34 95 
34 95 
17 95 

' ■ 
21 95 
24 95 
31 95 
31 95 

17 95 
17 95 

17 95 
26 95 

18 95 
21 95 
18 95 

17 95 

18 95 
21 95 
18 95 
17 95 
17 95 
26 95 
21 95 
17 95 



Call our Modem line for 
weekly specials. 




To order or for information call 

(213)706-0333 

Modem order line: (213)883-8976 

We guarantee everything we sen tor 30 days — no returns after 30 days Defective softwa'e 
will De replaced ,r ee txit all other software returns are subject to 15% restocking lee and 
must he accompanied by RMA slip No returns on game software jniess defective 
We accept VISA ana MasterCard on all orders. COD orders, up to $300 
Shipping cha'ges $3 tor all prepaid orders, actual shipping charges try non prepays S3 
for COD orders under 25ibs ($6 fry over) plus a $4 surcharge, add t5% for 'rxeign, FPO 
and APO orders Calif, add 6% sales tax. L A County add 6'A% 
Prices quoted are fry stock on hand and are sucked to change without notice 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 

^473 
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SCARFMAN ARMORED PATROL REARGUARD STRIKE FORCE 



This incredibly popular game craze 
now runs on your TRS-80' It's eat or 
De eaten. You run Scrartman around 
the maze, gobbling up everything in 
your path Try to eat it all before nasty 
monsters devour you Excellent high 
speed machine language action game 
from tne Cornsoft Group With sound 
Price A 




A realistic tank battle simulation 
Your view is a 3-D perspective ot an 
alien landscape Maneuver your T-36 
tank to locate and destroy enemy 
tanks and robots that lay hidden, 
ready to assault you. Clever graphics 
create the illusion of movement and 
dimension. From Adventure Inter- 
national With sound Price B 

BOUNCEOIDS | 

Huge boulders careen off the walls. I 
You're m the middle, in danger o f l 
being flattened. Keep your wits aboutl 
you as you blast these "bounceoids I 
from the screen. Large ones break intol 
many small ones Clear a screen, anc| 
enter a fast-paced challenge stagel 
with a chance for big bonus points I 
From the Cornsoft Group Price A 

CATERPILLAR 

An arcade favorite 1 Stop these multi-l 
sectioned crawlers before they creepl 
down through the mushrooms Zapl 
one and it splits into two smaller bugs.f 
each with its own sense of direction 
There are moths and tumble bugs too 
It all adds up to lots of fun for kids and| 
adults alike. From Soft Sector Market- 
ing With sound Price code A 

DEFENSE COMMAND 

The invaders are back' Alone, youl 
defend the all important nuclear fuel 
canisters from the repeated attacks of 
thieving aliens, repeatedly. An alien 
passes your guard, snatches a| 
canister and flys straight off. Quick 1 
You have one last chance to blast him| 
from the sky 1 With sound and voice 
Price. A 

CRAZY PAINTER 

You have to paint the floor white. We 
give you the paint and brush Sounds 
easy'' Hah 1 You'll be confounded by 
stray dogs, snakes, sloshing buckets 
of turpentine even a ravenous "paint 
eater." A crazy, imaginative new 
game with ten selectable levels ot skill 
for new or seasoned game players 
Lot's of laughs Price: A 

SUPER NOVA 

Asteroids float ominously around the 
screen. You must destroy the 
asteroids before they destroy you 1 (Big 
asteroids break into little ones). Your 
ship will respond to thrust, rotate, 
hyperspace and fire. Watch out for 
that saucer with the laser' As 
reviewed in May 1981 Byte Magazine 
Price: A 



Deadly waves of enemy Cyborg craft 
attack your fleet from the rear. You are 
the Mothership's sole defender. You 
have unlimited firepower but the 
Cyborgs are swift, nimble attackers. 
Your abilities are tested hard in this 
game or lightening fast action and 
lively sound from Adventure inter- 
ratiorai Pr ce B 



As the primary defender of a world of 
cities under deadly alien attack, your 
weaponry is the latest: rapid fire 
missiles, long range radar, and 
incendiary "star shells." Your torce 
field can absorb only a limited number 
of impacts. A complex game ot 
st r ategy skill and reflexes trom 
Me'bcu'ne Hojsp >■'■ :e a 



if you purchase Alpha's 
Joystick you get the ex 
quisite pleasure of enjoy- 
ing (action games) to the 
limit of arcade-style 
realism." 

k -80 Microcomputing 
80 Reviews. Jan 82 



POWER 



THE 

ALPHA 

JOYSTICK 



ONLY 



€ 1982 m ALPHA Products 



♦ Features the famous Aur i Joystick 

♦ Works with alt Model > or III systems 

♦ Compatible «ith any other accessories 

♦ Saves your keyboard trom abuse 

+ Experiment m BASIC <JseA = INP|0| 

♦ Complete ready to plug in and use 
+ Model I plugs into KB or E I 

♦ Model III plugs into 50 urn 1. bus 

Price includes Joystick t Alpha Interlace 

♦ Instructions + Oemo Program listing 
Please specify Model I or III. 

14 DAY MONEY BACK GUARANTEE 




METEOR MISSION II 

As you look down on your view. 
astronauts cry out for rescue You 
must maneuver through the asteroids 
and meteors (Can you get back to the 
space station?) Fire lasers to destroy 
the asteroids, but watch out, there 
could be an alien Flagship lurking 
Includes sound effects! Price A 



OUTHOUSE 

You are tne mighty protector of this 
small (bul important) wooden 
Structure Fo- 'easons unknown a 
bizarre gang oi miscreants wish io 
vandalize oot and otneiwise destroy 
tne nte half moon nouse " Your 
patioi craft has lasers and smart 
bombs to deal with this terror 
F'om SSM with sound Price A 



Toll Free Order Line 
800-221-0916 

Orders Only. NY & Info call (212)296-5916. Hours: 9 5 E.S.T. 



TAPE: For Model I + III. 16K Level II 
DISK: For Model I + III, 32K, 1 Disk 
All games are joystick compatable 
or may be played using the arrow 
keys. 



GAME PRICES 

A: TAPE: $15.95 • DISK: $19.95 
B: TAPE: $19.95 • DISK: $24.95 
C: TAPE: $24.95 • DISK: $24.95 
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PANIK 



Trapped at an enemy building site, 
your fate seems certain Your laser is 
empty and evil Mzors are closing in 
You'll have to climb ladders and think 
one step ahead of the various 
monsters. A challenging game for 
agile minds From Fantastic Software 
with voice (Disk has larger vocabulary). 
Price: B 



SEA DRAGON 

Your submarine, the USS. Sea 
Dragon, penetrates a mined enemy 
channel Armed with missiles and 
torpedos. you engage the enemy while 
navigating unknown waters Succeed 
or come to a salty end in this game 29 
screens ol horizontally scrolling sea- 
scrape and sound from Adventure 
international. Price. B 



As you can see, ail the best games from the top 
producers are joystick compatible. These 
games are fun without the joystick but we hope 
that you are one of the many thousands who 
enjoy the advantage of real joystick action. 

Now you can deduct up to 20% on the price of 
games: buy any 2 games deduct 10%, buy any 3 
games deduct 15%. buy any 4 games deduct 
20% from game prices. 

TOP TEN « 

1. SCARFMAN All time favorite 

2. ARMORED PATROL Super 3D graphics 

3. PENETRATOR Rave reviews 

4. STELLAR ESCORT Fast and Challenqmg 

5. CRAZY PAINTER Unique game concept 

6. PANIK Remarkable Voices 

7. DEFENSE COMMAND Tough struggle 

8. CATERPILLAR Good rendition 

9. ROBOT ATTACK with voice 

10. SEA DRAGON Amazing Seascape' 
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GALAXY INVASION LASER DEFENSE 



The sound of the klaxon is calling you' 
Invaders have been spotted warping 
toward Earth You shift right and left 
as you fire your lasers. A few break 
formation and fly straight at you' You 
place your finger on the fire button 
knowing that this shot must connect! 
With sound effects! Price: A 



In this game of ICBM's. high-energy 
lasers and particle beams, you control 
the U.S strategic defense satellite 
system From your viewpoint high 
above the globe, you intercept Soviet 
nuclear missiles in flight and attempt 
to destroy their scattered missile 
silos With sound from MED Systems 
Price B 



10, 15, 20% 



STELLAR ESCORT 



The latest super action game from Big 
I M As the Federation's top space 
fignter you've been chosen to escort 
what is possibly the most important 
shipment in Federation history The 
enemy will send many squadrons of 
their best fighters to intercept With 
sound Disk version has voices. 
Price A 

ROBOT ATTACK 

Talks without a voice synthesiser, 
through the cassette port With just a 
hand laser in a remote space station, 
you encounter armed robots Some 
march towards you. more wait around 
corners Careful, the walls are 
electrified. Zap as many robots as you 
dare before escaping to a new section. 
More robots await you Price: A 

LUNAR LANDER 

As a vast panoramic moonscape 
scrolls by, select one of many landing 
sights The more perilous the spot, the 
more points scored -- if you land 
safely You control LEM mam engines 
and side thrusters One of the best 
uses of TRS-80 graphics we have ever 
seen From Adventure International 
With sound Price. A 



CHICKEN 

Will the chicken cross the road' 
That's up to you. Can you guide these 
helpless little chicks across the 
perilous 10 lane super highway to 
safety 7 Or will you bumble, littering 
!he blacktop with a storm of chicken 
leathers 9 A humourous yet chal- 
lenging game of nerves from SSM with 
sound Price A 




PENETRATOR 

Soar swiftly over jagged landscape, 
swooping high and low to avoid 
obstacles and enemy missiles attacks 
With miles of wild terrain and tunnels 
to penetrate, you're well armed with 
bombs and multiple forward missile 
capability. From Melbourne House 
Features sound, trainer mode and 
customizing program. Price: C 
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ADD $2 00 PER ORDER FOR SHIPPING AND HANDLING. 

WE ACCEPT VISA. MASTERCARD. CHECKS. M O 

C O D ADD S3 00 EXTRA 

NY RESIDENTS ADD SALES TAX 

OVERSEAS. FPO. APO ADD 10% 

DEALER DISCOUNTS AVAILABLE ^ 17 
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PROOF NOTES 

The editors look at the issues 



1982 hasn't even run its course, and 
we're already well into production 
for the first half of 1983. So far, it looks 
like we're going to have another inter- 
esting year. 

January will feature one of the most 
exciting programs we've ever run — 
Bruce Tonkin's The Creator. This pro- 
gram generator originally sold for $295, 
but mayhem and misfortune led Tonkin 
to decide to virtually give his brain child 
away. This could very well be the best 
software bargain you'll ever get, com- 
mercial or otherwise. 

February's highlight will be the re- 
sults of our Young Programmer's Con- 
test. We're getting buried under entries, 
and we'll be publishing the best ones. 
We've been agog at what kids are doing 
with computers, and are looking for- 
ward to displaying the fruits of their la- 
bors. February will also concentrate on 
home education. We've lined up a Color 
Computer College Bowl, a preschool 
math program, a spelling challenger, 
and a states-and-capitols drill. 

March is our hardware construction 
issue. We've had lots of requests for 
some meaty hardware projects, so we 
went out and found some gems. For 
starters, we've got a $5 CP/M kit for 
the Models I and III. We'll also show 
you how to build a credit-card reader 
that will act as a security lock for your 
micro. We're also working on a primer 
that will tell you how to build hardware 
projects even if you don't know which 
end of a soldering iron to hold. 

April will focus on micros in sports, 
and will also feature articles on com- 
puter languages other than Basic. May's 
cover topic will be graphics — simple 
techniques for fancy graphics, and in- 
corporating graphics into applications 
programs. June will provide programs 
and articles aimed at the professional. 
July's theme will be the Color Comput- 
er, and August will, of course, be our 
annual games issue. 

Also, you Model II owners will be 
happy to know that we're working on a 
scheme to convert some of our Model 
I/III programs to your machine. And, 
of course, we'll continue our increased 



Ready to go 

for another 

big year 



coverage of the Color Computer. 

We've got several new series and col- 
umns on tap. One will be an on-going 
tutorial on cryptography, while another 
will discuss integrating machine- 
language routines into your Basic pro- 
grams. In addition, many of our regular 
columns will be back for another year, 
including J. M. Keynes' "MONEY 
DOS," Richard Ramella's "Fun 
House," Philip Mills' "Medical Opin- 
ion," and Dennis Kitsz's "80 Appli- 
cations." 

The magazine isn't all we're working 
on, either. We're putting together a new 
series of low-budget handbooks on a 
variety of themes. The first will be an 
anthology of Scripsit mods. Other sub- 
jects include home management, 
astronomy, and education. We haven't 
set a publication date yet, but look for 
these handbooks soon. 

All in all, we think it's going to be an 
exciting year. Stick around and join 
the fun. 



***** 



You might have noticed some recent 
format changes in the magazine. We're 
going to an English Times typeface, 
which we think is more attractive and 
easier to read than Helios. For a while, 
though, you're going to see the two 
typefaces mixed, as we use up articles 
that were finished before the change. 
Bear with us if we look a bit motley. ■ 

-E.M. 
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NOW MODEL I AMD MODEL III ! 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 



ir.Q?' 



2 Printers' 



PRIHTSWITCH 

Have 2 printers on line at all limes ana select printer 1 or 
2 ov means ot a conveniently located switch End me problem 
ol constantly plugging anfl unplugging printer cables PRINT 
SWITCH is a compact module mat plugs onto the pareHel printer 
port ol your TRS 80 and provides an edge connector lor each 
ot your two printers it works with any two types ot printers 
dot matrix, daisy wheel, plotters. TRS 80 converted seiectrics 
etc Assembled, tested, ready to use with connector and in- 
structions For Model I win (please specityl ONLY $59 00 
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40 P»\ 2 or 4 «. 
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SUPERIOR OUALITY REPLACEMENT & EXTENSION CABLES 

Hignest Quality cable and high torce gold plated contacts 
ensure the utmost "i connection reliability 

O KEYBOARD TO EXPANSION INTERFACE $21 

DISK DRIVE CABLE FOR t OR 2 DRIVES $32 

• DISK DRIVE CABLE FOR 3 OR 4 DRIVES $45 
e DISK DRIVE CABLE EXTENDER $22 

• PRINTER CABLE EXTENDER $24 

• 40 PIN BUS EXTENDER - 2 tt $22 4 ft $24 
Custom cable configurations are also available Call us 
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YOU ASKED FOR IT EXPANDABUS XI X2 X3 ANO X4 

CONNECT ALL VOUH IRS-80 DEVICES SIMULTANEOUSLY 

on the 40 pin TRS 80 Bus Any device that nwmaiiy plugs 

neyooaro edge connector *m also plug into the 

The X4 is shown with protective 

covers 'included I T he TRS 80 keyboard contains the bus 

OrrvWS (?4LS367i lor up to ?0 devices more than you will 

ever need Using meE/l it plugs either between KB and E'i 

-f Screen Printer port Prolessionai Quality gold 

plated contacts Compute' grade 40 conductor nooon cable 

>? S?3 13 144 X4 S59 K5 $74 

Custom configurations art also available call us 




ANALOG 80 A WORLD Of NEW APPLICATIONS POSSIBLE 

MM UML'IHS PLUGGED INTO YOUR TRS 80'" 
Measure lempe-j' . 

r 10 use 'o' enampie let's read input channel M '0 

OUT 4 SMCt] npul N and «10 Mart! the conversion 20 

Put! the resu 1 ! n wuDM » Vaiia' 

Specirica' ngt 5V to MOV Eacn channel 

can be set to a different scale 

Resolution ?0mVion'V rangei Accuracy 8 0'tS I 5%l Port 
Address lumper selectable P'ugs into keyDoaro Bus or £/l 
i screen printer port I Assembled and tested 90 day warranty 
Complete with ouwei supply conneciO' manual $139 
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I SPECIAL THIS MONTH!, 
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DISK DRIVE EXTENDER CABLE. FREE YOUR MINI-DRIVES 

End the daisy-chain mess once and tor all Fits aii mini 
drives Percom Aerocomp Shugan Micropoiis. MTI. Vista 
Pertec Siemens BASF East to install |ust remove the drive 
cover plug in the EXTENDER CABLE and replace the cover 

Now you can change ana move your drives wMhOUt Sis 
assembly Keep the cover on ana tne dust out High reliability 
g«d plated contacts compute' grade 34 conductw cable 
Tested and guaranteed 

Get one tor each drive ONLY $8 95 




TIMEDATE 80 REAL TIME CLOCK/CALENDAR MOOULE 

urate time fw 3 year; ! traceable 
ATE YR DAV m 
' ' l - AM M i 

CALF. '. AH ■ . ■ 

• rtxurd or side ol 
L»pansio'' leitace « be i ■■ - 

10 any LKJb 
(including '. 

Mrxtei i fully assembled ana 
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INTERFACER-80 tne nxist powerful Sense/Conf- 
»8 indus' ■ 

contacts ? Amp <jj 1 25 Volts TTi iatcheo outputs are also 
iternM sudd state relays 

•Sconvenent LECd 

Si'rpie 0U T commands <m basic contro' ■ 

• 8 op'ically isolated inputs lo- easy direct interfacing to 

■ switches photocells keypads sensors etc 

.inmands 'eac the status o' the 8 inputs 

Selectable po" address Clean compact enclosed design 

Assembled tested 90 days warranty Price includes power 

supply cable connector supe'buser s manual Slj9 



GREEN SCREEN 

WARNING 

IBM anc all the Piggies die using green sceen monitors 
its advantages are now widely advertised We tw' that every 
'RS 80 user should en ( oy the benefits it provides But 
WARNING ai> Green Screens a'e not created eguai Here is 
what we tounc 

•Several are |ust a Hat piece o' standard coiwed Lucite The 
green tint was not made tor this puipose and is tudged by 
many to be too dark increasing the brightness control will 
r esuit m atu«y display 

•Some are simply a piece ot thin plastic film taped onto a 
cardboard fame The cow is sanstactwy but the wobbly htm 
gives it a poor appearance 

•One optical liiter is m 'act plain acrylic sheeting 
•False claim A tew pretend to 'educe gia'e in -act then 
flat and shiny surfaces (both Mm and I ucile type ADD their 
own reflections to the screen 

•A tew laughs Une ac oaims to 'educe sceen contrast 
Sorry gentleman but it's iusi the opposite One of the Green 
Screen s maior benefits is lo increase the contrast between 
the tent and the background 

•Drawbacks Most are using adhesive strips to lasien ifeir 
screen to the monitor This method makes <\ awvward to 
'emove lor necessary periodical cleaning An eni.epl ou'S 
are tlat Light pens win not ww» reliably because o' the eg 
gap between the screen and the lube 
Many companies have been manufacturing video 'liters tor 
years We are not the Mst I some think they are i but we have 
done our homework and we mink we manufacture me Dest 
Green Sceen Hwi 

•it tits right onto the picture tube like a sun because it >s tie 
oni> CURVED sceen MOLDED Bxaetty to the picture lube 
curvature it is Cut precisely to cover tne eiposed area ot me 
picture tube The tit is sucn that the static electricity is 
sufficient to keep it m place 1 We also include some invisible 
reusable tape lor a more secure last 
•The fitter material mat we use is iust ngni not too W> nor 
too light The result is a realty eye pleasing display 
We are so sure mat you win never ta«e your Green screen oft 
>' an unconditional money back guaranty try our 
Green Screen tor '4 days it 'or any reason you are not 
delighted with it return ii lor a prompt relund 
A last wwd We think that companies, like ours who are 
selling mainly by mail should «iist their street aOdress*ave a 
phone number ito' Questions and orders weeept CODs not 
every one tikes to send checks lo a PO bowoitei the 
convenience ol charging their purchase to maior credit ca'ds 
How come we are the only green screen people doing it' 
O'der your ALPHA GREEN SCREEN loday $12 50 
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ADD S? 5U PER ORDER FOR SHIPPING AND HANDLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO 

COO ADDS? 00 EXTRA 
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Magazine Mystery 

When 80 Micro was advertised, I de- 
cided to become a charter subscriber. 
On November 20, 1979, I sent off my 
check for $36 and eagerly waited for the 
first issue and the book of 80 programs. 
They never came! 

Then, the February 1980 issue 
came. I was elated. Then the March 
issue arrived. I wrote for and received 
the book of 80 programs but still no 
January issue. I wrote to Wayne 
Green and soon the January issue ar- 
rived, but no letter of acknowledge- 
ment. I got my magazine so I didn't 
care: my problem was solved. 

Wait! 

No April issue. I wrote the subscrip- 
tion service. No reply, no magazine. I 
moved to my current address. I sent in a 
change of address. 1 wrote to the sub- 
scription service. No reply, no maga- 
zine. No big deal: I bought the maga- 
zine at the local hobby shop. No June 
issue, so I wrote the subscription service 
again. No reply, no magazine. I re- 
ceived the April issue as a forwarding 
from my prior address by the post of- 
fice. Now 1 understood — it just took a 
little time to get things unraveled. 

Wait! 

No July issue, so I wrote the subscrip- 
tion service. No reply, no magazine. In 
August, I decided that this 50-mile trip 
to the hobby shop each month was be- 
coming a pain, so I decided to send 
money for a new subscription and mark 
off the other money to experience. Any- 
way, the postage for writing letters was 
soon going to exceed my original sub- 
scription payment. 

I subscribed again on August 4, 1 980, 
at a cost of $18. I received the 
September issue in late September, and 
shortly thereafter, I received my Oc- 
tober issue. Two weeks later, I received 
the August issue. Of course, I had 
already purchased a copy from the hob- 
by shop. At last, my problems were 
solved. It was obviously my fault 
because I had moved. 

Wait! 

No November issue. I wrote the sub- 
scription service. No reply, no maga- 
zine. Since I had to go to the hobby 
shop to buy some things, I bought a 
magazine and wrote it off to experi- 
ence. Needless to say, I became ir- 
ritated. 
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No December issue. I find that my 
local Radio Shack dealer is now carry- 
ing 80 Micro so I buy my issue there. 
Now I only have to pay the retail price 
for the magazine and travel three 
miles. I gave my problem some deep 
thought and decided that 1 would just 
continue to purchase from the local 
store and forget subscription service. 
The retail price is high but it is still 
cheaper than the subscription service! 

Alas, my good fortune was limited. 
Due to the small demand for the maga- 
zine as an off-the-shelf item, the store 
was going to discontinue it. It seems 
that other TRS-80 users locally were 
having no problems with the subscrip- 
tion service. 

What do I do now? I can go back to 
driving 50 miles for my magazine or I 
can try the subscription route again. 

1 decided to try a subscription one 
more time. Of course, I'm becoming 
better educated on how to do business 
with mail order outfits, as I had also 
been stung in buying software by mail. 
Do not send money until after you re- 
ceive the product! 

I tore out one of the handy-dandy 
subscription postcards in the last issue 
of my store-bought magazine, filled it 
out, and marked it bill me. 

Success at last! 

I received the November 1981 issue. 
I received the December 1981 issue. 
Then I received another December is- 
sue. Then I got another December is- 
sue. This computer stuff was beginning 
to get to me. 

Not to worry! 

I figured it out! This was the third 
time I had subscribed, so now I was go- 
ing to get three copies each month. 
Wow! I gave away the extra copies and 
relaxed. I should have known better. 

The January 1982 issue came. Then 
the second and third issues came, just 
as I figured. 

Wait! 

I then got copy #4, and then #5. This 
is a madhouse situation! 



I received my bill for the subscrip- 
tion in the mail. I had them now. After 
spending 30 years as a detective in law 
enforcement, I knew I could solve any 
mystery. I would include a letter with 
my check. That way, if they cashed my 
check, I would know that they received 
my letter. 

I'm becoming quite crafty. 

Success! In February, the multiple 
issues stopped. In fact, everything 
stopped. No nothing! I should have 
known! 

Off to the computer store 50 miles 
away to buy the February issue. 

No March issue. Of course, I didn't 
expect one. Off to the computer store 
again. At least, I get my merchandise 
before I pay my money. 

What do I do now? 

Write another letter. Waste of time. 
Obviously, there is no actual person at 
the subscription service address — only 
a computer. That thought begins to 
bother me. Is it possible that there is no 
one at 80 Micro! 

My fellow employees are beginning 
to stare at me and ask about my health. 
They can't understand why I'm taking 
so long to complete my magazine fraud 
case, on which I have been working for 
over a year. I've been known to solve 
megabuck fraud cases in less time. 

Six-figure crimes take only three to 
six months. The old man is slipping, 
probably be going out on disability 
pension soon; mumbles to himself 
about magazines, computers, no hu- 
mans existing in New Hampshire. 

Off to the computer store for the 
April 1982 issue when I learn everyone 
in town already has received theirs. 
Soon I must find a reasonable story to 
tell my wife, as she is also looking at 
me strangely. She cannot understand 
why a grown man would drive to a 
store to buy a magazine when everyone 
knows that you can subscribe by mail. 
I just hope she doesn't find out that the 
store is 50 miles away and that I also 
subscribe to the same magazine. 

Before I've found an appropriate 
story to tell my wife, my April issue ar- 
rives in the mail. My wife asks why I re- 
ceived a copy in the mail when I had al- 
ready bought that month's issue. 

Today, I got the February issue. I 
can't believe this. I must be going in- 
sane. My wife is laughing hysterical- 
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ly. She thinks this is goofier than an 
Abbott and Costello movie. She asks 
a dumb question: Why do you have 
to buy that magazine when you al- 
ready subscribe to five others with no 
trouble? 

I ignore her, because 1 have a so- 
lution. 

I will write a mystery novel. With 
this plot, I will become world-famous. 
I have found the perfect mystery that 
no one can solve. 

With all the money I will earn, I can 
move to Peterborough, NH, and re- 
tire. If 1 look carefully, I can probably 
find an abode on Pine Street, and then 
I can walk down to 80 Micro each 
month and pick up my copy. 

Henry A. Hoover 

P.O. Box 479 

Elk Grove, CA 95624 

Just kidding around, Henry. Heh 
heh. — Eds. 



Model I Interface Worries Over 

I am writing in response to a letter in 
the June/July issue of 80 Micro entitled 
"Expansion Interface Worries." Tandy 
won't help, but Personal Micro Com- 
puters (475 Ellis St., Mountain View, 
CA 94043) can. The expansion interface 
created for the PMC, called the "Ex- 
pander," can be used with the Model I. 
Tandy's expansion interface costs $497, 
but PMC's is only $415 and the case is 
neater. 



David Heyman 
Conway, PA 



Crusade Commentary 

I would like to respond to Steven 
Gross' letter in 80 Input (September 
1982, p. 26). Had Mr. Gross bought a 
Model I and been misled into buying a 
Line Printer VIII, he would understand 
our frustrations with Radio Shack. The 
LP VIII was designed for use with the 
Color Computer and its use with the 
Model I is severely limited — and it's not 
even "foreign" hardware. 

Martin W. Whitehouse 

339 N Sellars Mills Road 

Burlington, NC 27215 

Auto- Writer Replaced 

Dan Robinson's broad review of 
word-processing products (September 
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1982) was a valuable and much-needed 
contribution. 

A new enhanced system (Data- 
Writer) has replaced the Auto- Writer 
program reviewed by Mr. Robinson. 
Mr. Robinson mentions Auto-Writer's 
selection, form letter, and report-gen- 
erating capabilities. Now with its own 
data-entry program, text editor, file 
manager, double-precision math pro- 
cedures, two-level sort, mailing-label 
program, and 4500-record capacity, 
Data-Writer has become a stand- 
alone data base manager, though it 
can also read files written with a word 
processor. 

Written for the Models I and III, 
Data-Writer is priced at $125. Further 
information is available from Software 
Options at 800-221-1624. 

J. R. White, President 

Software Options Inc. 

19 Rector St. 

New York, NY 10006 



No Losers 

I disagree with Wayne's statement 
that ". . .about 100 years ago, Europe 
found that America was a great place 
to dump all of its losers ..." ("80 Re- 
marks," September 1982). Not so; 
while many Europeans wished they 
could come to America, only the most 
resourceful and brightest made it. 
Winners, not losers, arrived. 

America's strength today is because 
of the industry of these people. 

Harry J. Cozen 

1285 West wind Circle 

Westlake Village, CA 91361 



Wayne's Wrong 

Wayne Green's "80 Remarks" col- 
umn (80 Micro, September 1982) at- 
tempts to undermine American tech- 
nology and intelligence. The Japanese 
have only one edge over the Ameri- 
cans: money. Labor is cheaper in Ja- 
pan and companies get grants from the 
Japanese government for research. Ja- 
pan doesn't have to support a large 
military, so funds can be diverted to 
business. 

There is no solid proof that the Jap- 
anese have an overall higher intelli- 
gence than Americans. Only one sur- 
vey has been done in that field yet, 
which hardly makes it a fact. The Japa- 



nese who were tested were given Japa- 
nese versions of the American IQ test. 
Because of the language and culture 
difference, the Japanese may have had 
an unfair advantage. 

Wayne also makes the observation 
that the Japanese are encouraged to 
take technical jobs through programs 
in high school while "most of our kids 
are spending their time on drugs, disco, 
and driving." That's a false statement 
(the Japanese people have a drug prob- 
lem, too) — there are still a large num- 
ber of competent and intelligent people 
who attend high school, college, and 
graduate school in this country. 

Wayne also thinks that CP/M is the 
"foot in the door" for the Japanese in- 
dustry. No matter how extensively 
CP/M is used as a system, an industry 
such as computers is marked by rapid 
change. CP/M will never be the final 
operating system, and neither will any- 
thing else. The Japanese were ready to 
enter the microcomputer market with 
or without CP/M by 1980 anyway. 

The success of the Japanese micro- 
computers will have to be seen. While 
they do produce silicon chips success- 
fully, this is no indication of their suc- 
cess with computers. They have little or 
no software support, their user-friend- 
liness is in doubt, and they enter the 
American market at a time when many 
people are saying, "Maybe we should 
buy American." 

If the Japanese have such an edge on 
the Americans, why do they feel it nec- 
essary to steal company secrets from 
American companies? No, Wayne, 
American technology is alive and well. 
America invented transistors; America 
invented integrated circuits, and 
America invented video tubes. The 
Japanese appear very skilled at recon- 
struction, but have not invented many 
new products. 

Wayne, what you wrote about the 
America of the past is utterly wrong. 
Americans are not hard workers any 
more than anyone else. If they are, it is 
not because of the minority Protestant 
work ethic or the "hard working spirit 
of the pioneers." Neither of these are 
significant enough to account for what 
you claim they do. The "losers" that 
came from Europe 100 years ago were 
not losers. They came to this country 
and found jobs, were productive, and 
contributed greatly. (Remember, Ein- 
stein was an immigrant.) 

The bosh about success in America 
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NEWSCRIPT SHOULD Bl 
ON YOUR COMPUTER." 



NEWSCRIPT'S exclusive print processor 
gives you total printer control. 

NEWSCRIPT'S exclusive print 
processor takes over where formatting 
leaves off with over 200 print processing 
and support features. NEWSCRIPT takes 
you beyond text formatting — beyond 
just printing text on paper. With NEW- 
SCRIPT'S Print processor you take full 
advantage of your printer's hardware and 
software features, creating an unsurpas- 
sed printed image. Text editing (the part 
you see), is only part of the job. printing is 
the other part — the part others will see. 

NEWSCRIPT controls over 80 popular 
printers. 

You don't even have to know how 
your printer works — only what it can do. 
NEWSCRIPT will do the rest with such 
major features as underlining, right jus- 
tified proportional printing, top and 
bottom titles, top bottom left-right-center 
page numbering, chaining and embedded 
printing of any length file with disk span- 
ning, fully formatted merging of form 
letters with selective editing, boldface, 
subsuper scripts, character substitution 1 
translation, table of contents, indexing. 



hanging indents, paragraph numbering, 
line numbering, double width characters, 
italics, hard and soft hyphens, in-memory 
spooling, and many other features." 



Start getting the printed results 
only NEWSCRIPT can give you for 
$124.95. Requires TRS-80 Model I or III 
with 48K and 1 disk (minimum — 2 rec- 
ommended) 



NEWSCRIPT'S text editor has 
sophistication to match its print 
processing. 



Buffered key entry rates to 450 
characters per second — you never drop 
characters. Windowing to 240 characters, 
block move and copy within and between 
files, definable auto save, "HELP" and 
"WHOOPS" commands, repeat and query 
last command, search and replace within 
column and line limits as well as globally, 
and an automatic interface to the ELEC- 
TRIC WEBSTER spelling checker (sold 
separately). 

NEWSCRIPT'S 277 page manual 
contains an introductory tutorial with ex- 
planations of the beginner's most common 
needs, a "How to Section" to help when 
you're stuck, a fully alphabetized descrip- 
tion of the commands with literally hun- 
dreds of examples, a topical index with 
over 1,300 entries, and a handy quick- 
reference card (naturally!). 
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is available at computer stores, selected B. 
Dalton Book Sellers, and selected inde- 
pendent book dealers. If your dealer is out 
of stock order direct. Include $3.00 
(domestic). $6.00 (Canada) for shipping 
and handling. Foreign residents add 
SIS. 00 plus purchase price, in U.S. funds 

TO ORDER. CALL NOW. TOLL-FREE: 
(800) 824-7888. Operator 422 
Calif: (800) 852-7777. Oper, 422 
Alaska Hawaii: (800) 824-7910 
For technical information call: 
•13) 764-3131. or write us. 




Oept. C, Box 560, No. Hollywood. CA 91603 



NEWSCRIPT companion programs (sold separately): MAILING LABELS $29.95. DAISY WHEEL PROPORTIONAL $49.95 
(not required for Daisy Wheel II). PENCIL & SCRIPSIT FILE CONVERSION $24.95. ELECTRIC WEBSTER (spelling checker 
and automatic correction) $149.50, GEAP (TRS-80 graphics - requires Epson MX-80) S49.95. DOTWRITER (Hi-res graphics - 
requires Epson MX-80 100 with Graftrax) $69.95. GEAP DOTWRITER combination (requires Epson M X-80 100 with Graftrax) $99.95 

Dealers: NEWSCRIPT is distributed by IJG, Inc. (714) 946-5805 
Some features work only If your printer has the mechanical capability. 

NEWSCRIPT trademark TTS Corporation PR0S0FT registered U S Pat Oft>ce TRS-80 reoisterefl trademark TANDY Corp 



INPUT 



not being related to intelligence is just 
that — bosh. 

Wayne also states (in reference to 
America) that "big business, with the 
blessing of big government, takes 
over every successful entrepreneur." 
That system is precisely what gives 
the Japanese their edge. The Japanese 
government funds the large Japanese 
companies in a situation where gov- 
ernment, business, and people 
benefit. 

Remember, Wayne, American 
society and the computer field are 
much alike. Both are diversified, and 
standards never succeed. The CP/M 
operating system might be valuable for 
a few more years. The computer field 
changes so fast, I plan to save my old 
Model I and sell it to the Smithsonian 
in 10 more years. 

Howard VII man 

3533 Amberacres Drive 

Apt. #108 E 

Cincinnati, OH 45237 



They Did It Again 

I just received my September issue of 
80 Micro and was reading the editorial 
comments and reader letters. In your 
"80 Remarks" column you chide Tan- 
dy for their lies and deception. 

Well, they did it to you again. On 
page 24 of the September issue is a sec- 
tion entitled "A Pat on the Back For 
Radio Shack." The first letter de- 
scribes the superior performance of 
Radio Shack and Tandy Corp. What 
the letter does not state is that the au- 
thor, John Von Tobel, was, during the 
time in question, an employee of Radio 
Shack. As an employee, he of course 
would have received the royal red- 
carpet treatment. Considering that his 
most recent assignment with Radio 
Shack placed him in a regular Radio 
Shack store right next door to our local 
Computer Center and repair facility 
couldn't have hurt. 

Radio Shack has turned out some 
fine products (1 am the proud owner of 
a heavily modified early 1978 Model 1, 
that I would not trade for anything). 
However, when Radio Shack runs ads 
like they did when they turned over al- 
most their entire Computer Center 
staff here, the light at the end of the 
tunnel may well be an oncoming train. 
Those ads were seeking "Bright, 
career-oriented sales people — no com- 
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puter experience required." My ques- 
tion is, "If I were a businessman, 
would I trust the implementation of a 
computer system to such people?" 

Until Radio Shack lives up to their 
word, I fully expect other makers to 
nibble away at the twin Tandy towers 
until they topple. 

Donald Stephens 

1962 Pommel A ve. 

Las Vegas, NV 89119 



Extended Basic Tips 

Here are some tips for Extended Ba- 
sic Color Computer users. If you re- 
number an extremely large program 
accidentally, never press reset to regain 
the original state. That act leaves you 
with a demolished program, and no 
way to revive it. Having wrong GOTOs 
or GOSUBs is a much better fate than 
a program full of havoc. 

If you make a mistake in the edit 
mode, and want to change it back, you 
could edit it out, or you could press re- 
set and find that the line is in its origi- 
nal state no matter what you did to it. 
An easier way is to press 'a' while still 



in the edit mode. This works the same 
as the other two, but is easier to per- 
form. Remember, once you enter an 
edited line, you can't do anything 
about it. 

Carl Huben 

6929 Lee Crest Drive 

W. Bloomfield, Ml 48033 

Rammer Fix 

I made a few modifications to Mike 
Keller's "Rammer" (p. 296, August 
1982). 

The program now allows you to fire 
missiles with the up arrow key and 
you're provided with a shield for your 
ship that protects it from debris or col- 
lision three times. The shield appears 
and falls away when the ship is struck. 

Line 20 checks to see if the Model III 
special characters are in effect and 
turns off the clock. Line 40 defines the 
missile trail (BT$) and the shield (CSS). 
In line 50 B$ is the missile and S is the 
number of shields available. Lines 270 
and 280 are the actual missile fire 
routines. 

Because I compressed the program 
(see Listing 1) and renumbered the 



10 ' Rammer Aug82 pg.296 80Micro 

20 CLS:PRINT@0,CHR$(192) : IFPEEK ( 15360) =32PRINTCHR$ ( 21) :GOTO20ELSEC 

LS:CMD"T":GOSUB200 

30 CLfcAR200:DEFINTA-Z:R=195:P«0:KB=14400:LT=32:RT«64:HM=0:TR*226 

40 BT$=CHR$U) :CS$=CHR$(176)+CHR$(32)+CHR$(176)+CHR$(26)+CHR$(24)+ 

CHR$(24)+CHR$(24)+CHR$(149)+CHR${195)+CHR$(170)+CHR$(26)+CHR$(24)+ 

CHR$(24)+CHR$(24)+CHR$(131)+CHR$(131)+CHR$(131) 

50 M=0:H=0:X=0:RP=1596 8:N=63:LE=15 93 8:RE=15996:CL$«CHR$(30) :S=3:BS 

=CHR$U53) 

60 ES$=CHR$(34)+CHR$(222)+CHR$(34) 

70 CD$=":* *:" 

80 DEFUSR=32755 

90 PRINT§960,CHR$(R) ;" - 3 Enemy Ships Hit: Enemy Ships 

Missed:"; 
100 PRINT@HM,CL$; : PRINTP1014 ,M; 

110 P=RND(N)-1:IFP>60THEN120 ELSEPRINT§P, ES$; :M«M+1 
120 POKERP,32 
130 X-USR(X) 

140 IFPEEK (KB) =RTANDRP<RETHENRP«RP+2 : POKERP+63 ,TR 
150 IFPEEK(KB) =8THENMP=RP:GOSUB270 

160 IFPEEK (KB) =LTANDRP>LETHENRP=RP-2:POKERP+65,TR 
170 IFPEEK (RP)=32ORPEEK(RP)=2THENPOKERP,R:GOTO100 

1B0 S=S-1:H=H+1:M=M-1:N=N+5:PRINT@RP-15425,CS$; : PRINTG985 ,H; : PRINT 
£964, S; 

190 IFS<0GOTO230 ELSE100 
200 FORX=32755T032766 
210 READY :POKEX,Y:NEXTX: RETURN 

220 DATA17, 191, 63, 33, 127, 63, 1,128 ,3, 237, 184, 201 

230 CLS:FORE=1TO30:PRINTSTRING$(64,(160+E)) ; :NEXT:CLS: PRINT@395, "Y 
ou scored ";H;" hits out of a posible";M 
240 PRINTe530,"Your Kill Ratio is"; (H/M) *100; "%" 
250 PRINT: INPUT'Care to play again ";Al$ 
260 IFAl$="Y-ORAlS="y"THENRUNELSECLS:END 

2/0 IFPEEK(MP)=32ORPEEK(MP)=2PRINT§MP-15360,BS;:POKEMP+64,2:MP=MP- 
64: IFMP<15360RETURNELSE270 GOTO270 

280 POKEMP+64,2:PRINT@MP-15362,CD$; :H=H+1 :M=M-1 : PRINT@985 ,H; :RETUR 
N 
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This is what we consider the most powerful word processing station available lor the 

rRMQII * I ill /.r.nn, 

6EAP Z.I used to create low resolution graphics tor the screen or tor printout GEAP 2 1 is 
also used to create the high resolution graphics, (together with Dot Writer), which you can 
integrate directly into your text 

Dat Writer 1. 5 used to create high resolution graphics lor your Epson printer (with the aid 
of GEAP 2 1) Oot Writer also includes the DoiPftMT program which will print ASCII tiles 
created by your word processor but will give you the added power ot our commands. This 
added power includes TRUE (not simulated) PROPORTIONAL print and you can use this 
feature with normal Epson style print, most ot our special tonts. or fonts that you may 
create You can intermix tonts on a line, or intermix HIRES drawings with text, underscore 
words, or words and spaces and choose multiple underlining You can expand characters 
or words and intermix them as you desire The list ot powerful commands goes on and on 1 

NewScript 70 is the word processor we recommend Its EDIT feature makes the creation of 
ASCII files ready tor DOTPWNT. a snap. NewScript is the best word processor available 
and it is fully integrated with GEAP and OOT WRITER Both GEAP and OOT WRITER can be 
entered trom the NewScripl Menu DOTPRINT allows reentry into NewScript after it 
completes a print operation 

Electric Weethr is the finishing touch also fully integrated with NewScript (or it can be 
easily integrated with your word processor) Electric Webster eliminates the spelling 
errors that plague us alt' . 

Thepertecl and complete word processing station GEAP2 1. Dot Writer 1 5, NewScript 7 
and Electric Webster More power than you could have dreamed' 



Additional Products 

In addition to oui own products we also carry the lollowing tine software 
NewScrlal 70 NewScript is the best and most powerful word processor available lor the 
TRS-80 *'M* 

Electric Weeelir • Cornucopia Sottwares top-notch spelling checker A 50000 word 
dictionary that you can customize to your needs Error tree hyphenation and unique 
grammar checking are extras that make Eleclnc Webster a must tor your work station' 
With correction feature only It* ■ 

Finer Also a fine product trom PioSott Faster opiim^es BASIC code BS ■ 

Tnttann - A utility that reduces stung compression time by as much as 95 J . H I ■ 

Quick Compress A real space saver trom ProSolt software * '■ ' * 

RPM • A real time disk motor speed analysis program Keep your disks running 
perfectly' JZ495 



GEAP The ULTIMATE m TRS-80 Graphics 6EAP21 has instant graphic letters Create 
your own screen graphics easily by Magnifying. Reversing Multiplying Rotating 
Merging and much more Then let GEAP CREATE a BASIC program to recreate your 
graphic masterpiece' Numerous EXPANSION modules give REAP limitless power EPSON 
/OKIOATA/ Radio Shack IPV/IV printer block graphics. OUICKCURSOR with 2 speed 
controllable cursors, instant line, rectangle and circle NEWSCRIPT interactive 
expansion module Much more' There is NO other graphic utility on the market that is as 
POWERFUL VERSATILE and EASY TO USE as GEAPM S«3:> 



OOT WRITER 1.5 - The UNDISPUTED lead* " * SH RESOl UTION graphics Numero. s 

Special Hi-Res Type Fonts for your Epson MX 80- 100 CREATE YOUR OWNS pi': 

RES graphics. No hardware or modulations needed 1 AND NOW TRUE PROPORTIONAL 

PRINT. UNDERLINING. EXPANDED PRINT. AND MUCH MORE US nq row Epson Printer AND 

proportional print works with almost all of oi ' SPECIAL wc- l mis 1 OOT WRITER I 5 • 

GEAP 21. turns your TRS-80and EPSON into a Hi-Res Graphic TYPESETTERI Requires 48K 

Disk and Epson MX 80/100 with Grattrax 80/PLUS GRAFTRAX available for easy home 

installation 

GEAP 2.1 ♦ DOT WRITER 1.5 MJ6 

OOT WRITER 15 BMB 

Additional Disk* with 7 tOtontteach 130.00 



JF Consulting 

West Coast 
74355 Buttonwood 
Palm Desert. Ca 92260 
mod 1,111 1714)340-5471 



PRICES END 
JAN 83 



East Coasl 
221 Hirschlield Or 
Wiliiamsville. NY 14221 
•7t6| 634-3026 
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lines, it would probably be easier to 
type it in than to change the original. 

Dan Clemens, Proprietor 

Dan 's Computer Works 

Route 1 End Road 

Summerville, OR 97876 

How popular is "MONEY DOS"? 
These four letters came in on the same 
day. — Eds. 

Just a note to let you know how 
much I enjoy "MONEY DOS" by 
J.M. Keynes. His column is fascinating 
and profitable. 

Philip Raczka 

10076 Belmeadow Drive 

Twinsburg, OH 44087 

Since the first installment of 
"MONEY DOS" by J.M. Keynes I 
have been hooked by the clear, con- 
cise, readable text. I urge you to con- 
tinue to carry "MONEY DOS" in the 
future. 

Frank Westphal 

310 E. Philadelphia St. SP. 162 

Ontario, CA 91761 

I enjoy your magazine but if it got 
down to the real nitty-gritty, I'd have 
to say "Keep the magazine and send 
me MONEY DOS." 

Ace Nace 

7105 Turner Terrace 

Fort Worth, TX 76118 



I am interested in investment pro- 
grams and feel that "MONEY DOS" 
by J.M. Keynes has had several very in- 
teresting and informative topics during 
the last several months. Please add 
more business investment articles and 
programs in future issues. 

James H. Ferris 

3328 High Vista 

Dallas, TX 75234 



Bittersweet Coverage 

The editorial coverage on our Elec- 
tric Pencil System (EPS-80) was bitter- 
sweet. The subhead that stated the 
trouble with a ROM-based word pro- 
cessor was that it could not be 
changed, did not have any qualifiers. 
Three points should be made in this 
regard. 
• The Electric Pencil program is a 
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user-proven program that has with- 
stood the test of time. There are newer, 
better programs, but none as easy to 
learn. 

• Any ROM-based program can be re- 
placed by another ROM-based pro- 
gram. 

• Since the EPS-80 is also a microcom- 
puter (Z80-based) with Basic built in, 
there are other word processor pro- 
grams available to operate in this en- 
vironment. 

Our EPS-80 is an economical, easily 
learned, and highly flexible system for 
the person who needs word processing 
primarily and computing power sec- 
ondarily. 

The EPS-80 can be upgraded to a 
disk-based system when the user is 
ready for more compatibility. Also, 
commercially available (and user in- 
stallable) kits provide for CP/M soft- 
ware compatibility. 

R. R. Troxell 

Director, Product Management 

Personal Micro Computers Inc. 

475 Ellis St. 

Mt. View, CA 94043 



Medical Software Support 

Philip Mills' ("Medical Opinion," 
August 1982) article on the Medical 
Office System by Windham Software 
is a bit too glowing. I purchased the 
MOS, and while I agree that it is a step 
in the right direction I disagree that all 
is well. 

It's slow, and the procedure fee col- 
umn would not accept a charge over 
$999.99. When I called Windham to 
discuss this glitch, I was told that Dr. 
Hayes was not available. I called back 
and was told that he was gone for the 
day. I called again and was told that he 
was gone for the week. I then wrote a 
letter and now, two months later, am 
still waiting for a reply. 

This contradicts the statement that 
"support is excellent." 

Leon M. Morrison, M.D. 

#9 Medical Park 

Morehead City, NC 28557 

Dr. Mills Replies 

The Medical Office System was writ- 
ten by an internist and is more suitable 
for an internal medicine clinic. Dr. 
Morrison 's clinic is surgically oriented 
and would find it less satisfactory. 



Percom Disk Storage 

Quality Percom products arc available from the 
following authorized Percom retailers. If a retailer 
is not listed for your area, call Percom toll free at 
1-800-527-1222 for the address of a nearby 
retailer, or to order directly from Percom. 

ARKANSAS 

MICROCOMPUTER SYSTEMS INC Hoi Springs (501 ) 623-S209 

ARIZONA 

S1MUTEK Tucson (602)323 9391 

CALIFORNIA 
ALPHA BYTE STORES Calabasw (213) 883-8594 

BERKELEY MICRO COMPUTERS Berkeley (415)848 7122 

COMPUTER INFORMATION EXCHANGE 

San Luis Rey (714)757 4849 
HOBBYWORLD Northrldge (213) 886 9200 

RAY SAND DONS COMPUTERS WhitBer (213)695 3248 

DISTRICT OF COLUMBIA 
THE PROGRAM STORE Washington (2021 363-9797 

FLORIDA 
ENTRON.INC Largo (813)586-5012 

HAWAII 
COMPUTER CENTER Honolulu 

IDAHO 
OFFICE MAGIC COMPUTERS Bone 

IDAHO MICROCOMPUTER Buhl 

KANSAS 
BESCO ELECTRONICS Shaumec 

SALES DATA Hutchinson 

DATA SERVICES. INC Wichita 

MASSACHUSETTS 



THE BIT BIX- KKT 



DAMASCUS C B 



ALTERNATF SOURCE 



THE COOF ROOM 



LEMBERGER CO 



West Newton 
MARYLAND 

Damascus 
MICHIGAN 

Lansing 
MINNESOTA 

EdenPraaie 
MISSOURI 

Vienna 



(808)488 2171 

(208)376 4613 
(208)543-6292 

(9131 268-7633 
(800) 835-0071 
(316) 838 9021 

(617)964-3080 



1517)482 8270 



(612) 934 1826 



(3141422-3353 



CL'RTROMCS 



THINK TANK 
TSE HARDSIDF 



NEBRASKA 

Lincoln 
NEW HAMPSHIRE 

r octsmou t h 

NEW JERSEY 

CHANNEL 1 RADIO SHACK Mediord 

DA A D SALES Bloom I, eld 

NEW YORK 
H & E COMPUTRONICS Spring Valey 

PROGRAMS UNLIMrTED Jericho 

STONY CLOVE New York CHy 

DATASCAN COMPUTER SYSTEMS. INC 

FarmingviHe 
NORTH CAROLINA 
HOLLIDAY MFG Greensboro 

OHIO 
FELDMAN ENTERPRISES Akron 

OKLAHOMA 
ONLINE COMPUTER CENTER Oklahoma City 

OREGON 
PIONEER ELECTRONICS Sandy 

PENNSYLVANIA 
COMPUTER ANALYSTS New Brighton 

TEXAS 
PERCOM COMPUTER CENTER Richardson 

COMPUTER TO GO Austin 

UTAH 
MICRO MNEMONICS Sunset 

VIRGINIA 
BURCO DISTRIBUTORS Richmond 

WASHINGTON 
COMPUTER SERVICES Kcnnewick 

NORTHWEST COMPUTER SERVICE Bctvuc 

WEST VIRGINIA 
BURCO DISTRIBUTORS Huntington 

WISCONSIN 

BYTE SHOP MILWAUKEE Greenfield (41 

FOREIGN DEALERS 

AUSTRALIA 

DICK SMfTH ELECTRONICS P Box 321 North Ryde 

CANADA 



1603) 431 1077 
(603) 673 5144 

(609)654 7454 
(201)751*444 

(914)425 1535 
1800)645 6038 
(212)675 1046 

(516) 698-6285 

(919) 274-6346 

(216) 724-5583 

(4051 751 2796 

(503)668-8666 

(412) 846 9323 

(214I69OO207 
(512)472-8926 

(80D82S9317 

(804) 222 1481 

(509) 582-9759 
(2061 454-4979 

(304) 453 6387 



NSW2113 



ALPHA ONE Edmonton 

VALERIOTE AND ASSOC Guerph Ontario 

DRV COMPUTERS, LTD. Surrey B. C. 

COTS MICROSYSTEMS. LTD Ottawa 

MICRO-COMP ENTERPRISES. INC Pickering 
MICRO MART Montreal 

MEXICO 
COMPUTADORAS Y ASESORAMIENTO 

RioPanvcoU 
DOMINICAN REPUBLIC 
RADIO SHACK Santo Domingo (809)565-9121 



(4031 454-8409 
(4161 624-4899 
(604)576*535 
(6131741-7937 
1416)839-4561 
(5141 731 9486 



Mexico5DF 



So Far, So Good... 




Your Model III is a fine computer. 

So why settle for less than 

a fine disk storage system? 

A fast, reliable disk storage system — no other 
device is so vital to the satisfactory performance of 
your computer At Percom we build quality, high- 
performance disk drive systems. From gold-plated 
connector contacts to goldcad metal chassis 
structures. From proven design through 100% 
reliability testing. Percom disk systems are the 
standard by which others are judged — the industry's 
"gold standard," in a sense. And since Percom is the 
^ largest independent manufacturer of disk systems 
for microcomputers, you get Percom quality 
at very competitive prices. Add-on drives for 
TRS-80* computers start as low as $399. 
Complete first-drive systems for the Model III 
start at only $599. Put a quality Percom mini-disk 
storage system in your Model III. And save. 



#1 For Your Model III 

Percom TFD floppy drives for your TRS-80' Model III computer are 
available in single- and dual-head versions, providing 180,000 and 360,000 
bytes per drive, respectively, of formatted on-line storage capacity. 

The Percom Model III disk controller handles one to four drives so you 
can have from 180,000 to over 1.4 million bytes of on-line program and file 
storage. 

You get MSS' DOSPLUS' with first-drive systems, and your first drive 
may be either internal (add-in) or external (add-on). Percom TFD drive 
units also work with TRSDOS* and other compatible disk-operating 
systems. 

First-drive systems are pre-assembled and may be installed with 
common tools. ^2 

#1 For Your Model I, Too 

Percom TFD add-on drives for the TRS-80* Model I computer are 
available with the same features and the same quality control measures 
as TFD Model III drives. As for Model III drives, all Percom Model I drives 
are double-density rated. Install Percom's popular DOUBLER II in your 
Model I Expansion Interface and upgrade your Model I to provide the 
same storage capacity as the Model III. ,-3 

Now! Low-cost Percom Winchester Disk Systems 
for Radio Shack computers. 

To order, or for the name of your authorized Percom retailer, 
call toll free 1-800-527-1222. 



The Drive People 
You get more out of 
Percom disk systems. 
Expect it! 





PERCOM DATA COMPANY, INC. 

1 1 220 Pagemill Road • Dallas. Texas 75243 
(214) 340-7061 



PRICES AND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 

"TRS-80 is a trademark of Tandy Radio Shack Corporation which has no relationship to 

Percom Data Company. Inc. 

PERCOM. DOUBLER II and OS Sttlll are trademarks of Percom Data Company, Inc 

trademark of Micro Systems Software, Inc 
^See List ol Advertisers on Page 451 



Yes I'd like to know more about 
the best for my Radio Shack 
computer Send me free literature 
about quality Percom products: 



GMdll 
:_Mdl II 



: Mdi iii 
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SenO to 

PERCOM DATA COMPANY INC Dept 8-M 

1 1220 Pagem.ll Road. Dallas. TX. 75243 
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It should also be pointed out that 
the program is brand-new. If Wind- 
ham Software is responsive to physi- 
cian feedback, in a few years they will 
be marketing a very satisfactory pro- 
gram. I suspect that they are experi- 
encing the realities of software mar- 
keting and its growth pains, and have 
had to adjust to the time demands of 
selling software. 

Philip R. Mills, M.D. 

3000 Halls Ferry Road 

Vicksburg, MS 39180 



Windham Software Replies 

We disagree that the system is slow; 
for a micro system, response time is ex- 
tremely fast. It takes an average of two 
seconds to put any one of 3, 750 patient 
records on the screen. We do not kno w 
of any other micro system that can beat 



this timing. 

The problem with fees higher than 
$999.99 has been corrected. The sys- 
tem now accepts fees up to $9999.99. 
We sincerely hope that inflation will 
not force us to increase the maximum 
fee amount for the next few years. 

John R. Hayes, M.D. 

Windham Software Inc. 

29/31 Ivanhill St. 

Willimantic, CT 06226 



Hidden Routines 

Here is another footnote to Hugo 
Jackson's fine article "Memory Size?" 
(80 Micro, April 1982). Burt Fenner 
noted that space for Z80 Assembly- 
language programs can be reserved in 
Basic remark statements as an alterna- 
tive to storing them in string variables 



1 POKE 17400,30 

2 REM 123456789012345678901234567890* 

3 REM Above REMARK is 30-byte Z80 program buffer 

6 REM Address 17400 in statement 1 is beginning of statement 2 

in a Model III. Use 17144 for Model I. 

7 REM Value 30 POKEd in statement 1 is, coincidentally , the 

length of the Z80 program area reserved in the REMARK of 
statement 2. 

8 REM It the Z80 program contains no zero-codes, statement 1 is 

not needed. Reduce the FOR arguments in statement 35 by 
15, to 17391 and 17390+length, respectively. Also reduce 
the POKE value in statement 90 by 15, from 254 to 239. 

10 DATA 33,128, 63, 62,191, 6, 64,119, 35, 16,252,201 

20 REM Above is a 12-byte Z80 program that draws a white line 
near the bottom of the screen. 

35 FOR J%=17406 TO 17417: READ 1%: POKE J%,I%: NEXT J% 

37 REM Statement 35 POKEs the DATA values into the REMARK. 

40 J%=17385 

50 I%=PEEK(J%)+256*PEEK(J%+1) : K%=PEEK ( J%+2) +256*PEEK ( J%+3) 

60 PRINT J%,K%,I% 

70 FOR L%=J%+4 TO I%-1: PRINT L% ; PEEK (L%) , : NEXT L% 

80 PRINT: PRINT: J%=I%: IF K%<2 GOTO 50 

85 REM Statements 40-80 display a byte-by-byte map of state- 
ments 1 and 2. Statement 90 executes the Z80 program 
placed in the REMARK. 

90 POKE 16526,254: POKE 16527,67: PRINT USR(0) 

95 REM Type the program and RUN it once to load the REMARK. 

Then delete every line except 1, 2 and 90. Add other 
lines if you wish, then CSAVE. The Z80 program will be 
recorded as statement 2, and will CLOAD. 

96 REM If the Z80 program contains zero-codes, it will not 

LIST properly after a CLOAD until statement 1 has been 
executed, either from the keyboard or in a RUN. 

97 REM Long Z80 programs can use a relative jump (JR) from the 

end of one REMark to the start of another. 

Program Listing 2 



1 POKE 17400,30 

2 REM !END?>USING@w# 

90 POKE 16526,254: POKE 16527,67: PRINT USR(0) 

Program Listing 3 



(80 Input, August 1982, p. 16). Mr. 
Fenner pointed out that remarks are 
not visited by the Basic "garbage col- 
lector." Mr. Fenner also noted that 
once the Z80 codes have been POKEd 
into the remark statement, the POKE 
routine may be deleted along with any 
data statements. 

There is a third advantage that Mr. 
Fenner may have overlooked: The Ba- 
sic program, shortened by removal of 
data and POKE statements, with the 
Z80 program in its remark, can be 
CSAVEd and CLOADed, even edited 
and listed! The listing of the remark 
will appear strange, since the Z80 codes 
will often refer to control and special 
characters. 

There is a slight penalty if any zero 
codes occur in the Z80 routine: 
CLOAD will end the remark at the first 
zero code in the Z80 program. The 
next-line pointer that uses the first two 
bytes of the remark in memory must be 
corrected. If the Z80 routine uses less 
than 100 bytes, then the correction val- 
ue for the Model III is the length of the 
Z80 routine. Program Listing 2 illus- 
trates this method. 

Statement 2 reserves 30 bytes for 
Z80 codes (even though the example 
routine uses only 12 bytes). Statement 
1 restores the next-line pointer for 
statement 2 as if the Z80 routine in- 
cluded a zero code. Statement 35 
copies the data values into the remark, 
while statements 40-80 display a byte- 
by-byte map of statements 1 and 2. 
Statement 90 executes the example rou- 
tine, which simply draws a white bar 
near the bottom of the screen. 

After the program has been run at 
least once, it can be reduced as shown 
in Program Listing 3 and CSAVEd. 

A tip of my hat to Burt Fenner for 
this sly way to conceal a Z80 routine in 
a Basic program! 

David B. Dillon 

Baederwood Lane 

Derwood, MD 20855 



Eds. Speak Out 

POKEing machine language into re- 
mark statements is a great idea, but in 
our opinion, if it has a zero, POKE it 
into a string, or high memory. 

Listing 2 works for a Model III un- 
der cassette Basic. The author could 
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Convert your TRS-80* 
into a World Class Computer 



F On 



B Le 



*0 



REDUCES EYE FATIGUE 
AND DOESN'T FLICKER 



n 



A* 



m.i 



*fO/v, 



"0*5 





...with LSI's new iqft-Vieu Replacement CRT. . . 



The black & white "TV Screen" CRT (picture tube) which came with your TRS-80*model II or III is an inexpensive 
rapid "P4" Phosphor CRT intended for TV use. The display is actually strobing 60 times a second. No amount of "green 



f*M 



CRT display tube with a slower 



plastic" will stop this strobing or - minate the eye fatigue it causes. But a new 
decaying, colored Phosphor will. 

• Available in slow-decay green (similar to new IBM* and APPLE I II "monitors) or medium decay "European 
Orange" (easy on the eyes, elegantly beautiful, and the standard for CRT displays in Europe) 

• Leaded glass stops X-ray emission 

• Optional Anti-Glare Frosted Glass available to reduce eye strain from glare 

• Easy installation — tube comes with pre-mounted hardware 

• 30 Day Money Back Guarantee 

• Ideal for Word-Processing &• Programming, fast enough for Games & Graphics 

• Finest quality double-dark glass and phosphor fields make the letters seem to be coming out of black space 



Try This Test: 




TM 



LSI's new CRT 



Turn the brightness control on 
your TRS-8C-'all the way up. Wave 
your hand up and down m front 
of the screen See how jerky it 
seems' Just like in front of a 
strobe light' That's because the 
screen actually is strobing at you. 
A slower phosphor CRT will 
reduce that troublesome strobe 
effect That's why most of the 
newer monitors, from IBM" to 
Apple III* are using the new 
slow phosphor CRT's. 

•IBM*, APPLE 



LSI SYSTEMS ^CRT's 

□ »GN42 Green Phosphor $79.95 

□ #GN42G Green Phosphor with anti-glare $89. 9b 

□ #OR34 Orange Phosphor $89.95 

□ #OR34G Orange Phosphor with arm glare $99.95 

ADD 57 FOR PACKAGING AND UPS SHIPPING 



BOM-ltK 



»Lan3ley-St.Clair 



To Order Call 

1-800-221-7070 

Dealer Inquiries Invited 



Instrumentation 
-462 Systems, Inc. 

_ l^J^ e iL 2 J*l!l^ r JSL ^fw Y or k ,_N Y_ 1_qm 1_ J1^989_6876 _ 

and TRS^O* are trademarks of IBM, APPLE Computer & TANDY Corp 






The Official 






The popular arcade 
game for TRS 80* 
Model I & III 



^ 



^ 



r 'l 



- srr 



G> 



^ 



■ E9 
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TRS 80 Model I & 
$19.95 Tape 
$22.95 Disk 

_ Joystick compatible. Frogger is available 
from your local software dealer or order direct. 



All orders by VISA, Ma 
check add $1 .50 shi 
residents please i"^'» 




The CoiJisoft Group 

6008 N. Keystone Ave., Indianapolis, IN 46220 (31 7) 257-3227 

^ -^-aifd '" designate trademarks of Sega Enterprises. Inc. 
" d 1981 Sega Enterprises, Inc. 
TRS 80" rs a registered trademark j)f the Tandy Corporation. 





udes exclusive challenge mode. 

Bounceoids comecrashlnT^iown from spacl^and 
rebound across the screen. Blast them or they will smash 
you. You have a shield but its lifespan is limited so use it 
sparingly. 

The commotion will attract alien natives with poison 
darts, off-world snakes and shaking bugs. Be on your 
guard. The longer you survive the harder it is to simply 
exist. Bounceoids start dropping from the sky in tiny 
clusters or with constantly changing outer dimensions. 



Reach the exclusive challenge lev frend fac e the flying 
space flock in a tense fctaflende oji gffJWBljy coordination 
and targeting skills. Joyst WfcowpaTrDie . 

$15.95 tape. $19.95 disc plus $1 .50 shipping and 
handling charges. MasterCard & Visa orders accepted. 
Available at your software dealer. 

The Cofhsoft Group 

6008 N. Keystone Ave.. Indianapolis. IN 46220 • (317) 257-3227 



Bounceoids copyright 1982 by the Cornsoft Group 



TRS 80" is a registered trade mark of the Tandy Corporation 




Become a "Crazy Painter" 

and create a masterpiece 

...if you can. 

A mischievous puppy, snakes and poisonous turpentine 
buckets force changes in your painting. In higher skill 
levels, paint eaters" start chewing up your work. 
Suddenly, everyone's a critic. Can you overcome them? 



And on top of it all, in the Exclusive Challenge Mode, 
you have to catch an army of runaway puppies. Crazy- 
Painter is Joystick compatible. 
S15.95 tape. $19.95 disc plus S1 50 shipping and 
handling charges. Indiana residents add 4% sales tax, 
Master Card or Visa orders accepted. Also available at 
your software dealer. 

The Cornsoft Group 

6008 N. Keystone Ave., Indianapolis. IN 46220 • (317) 257-3227 
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Crazy Painter copyright 1982 by The Cornsoft Group. 



TRS 80' is a registered trademark of the Tandy Corporation. 



INPUT 



have used memory locations 16548 and 
16549 to find the beginning of line 2. 
The following line will do it. 

1 MA = PEEK( 1 6548) + 256* PEEK( 1 6549): 

MA = PEEK(MA) + 256*PEEK(MA + 1 ) 

NA = PEEK(M A) + 256*PEEK(M A + 1 ):STOP 

From the command mode, type: 

?MA,NA,NA-MA 

MA is the address of the first byte of 
line 2. NA is the address of the first 
byte of line 3. NA-MA is the number 
of bytes in line 2. 

Now, for use at run time, change the 
stop statement in line 1 to: 

NA = MA +■ nnnnn:POKEMA,NA - INT 
(NA/256)*256:POKEMA + 1 ,INT(NA/256) 

Change the nnnnn to the value you got 
for NA -MA. Using this change en- 
sures that the code you write will work 
for all systems. 

Change line 35 to read: 

FOR J^o = MA + 6TO MA+ 17: READ 
lit: POKE Wt.Wt: NEXT J«7» 

Change line 40 to: 

J«7o = PEEK(16548) + 256*PEEK(16549) 

For cassette Basic change line 90 to: 

MA = MA + 6:POKE 16526.MA- 
INT(MA/256)'256:POKE16527,INT(MA/256) 

For Disk Basic change line 90 to: 

DEFUSR = MA + 6 
—80 Micro technical staff 



Straight, Not Flip-py Answers 

I believe that all floppy disks are 
coated on both sides with the same 
magnetic medium, to reduce or elimi- 
nate warpage. You can punch two new 
read holes and a write-protect slot and 
make both sides of the disk usable. 
This modification makes the disk a 
flippy and it can be read and used on 
both sides. 

The advertised price for flippy disks 
is about 25-33 percent above the cost 
for single-sided disks — why? 

If the disk jacket contains one set of 

• See List ol Advertisers on Page 451 



read holes and one write-protect notch, 
or it contains two of each of the above, 
it's all done at one punching at zero ad- 
ditional cost. 

Also, your magazine and most 
others fail to deal with the magnetic 
medium. There are variations in manu- 
facture, quality control, and so on, and 
there are standards (ANSI or others) so 
let's have some articles on the basics 
and straight answers on the disk prices. 

R.M. Sanford 

12787- 139th St. N. 

Largo, FL 33540 



My Savior 

Thanks 80 Micro and "80 Remarks" 
for saving me just in the nick of time. I 
was all set to buy a TRS-80 Model II 
when I read in your fine magazine that 
the Model 11 is obsolete. I did go out 
and buy an Apple. It's a great machine. 

Harry J. Slandish 

5216 NE Sandy Blvd. 

Portland, OR 97213 

Do we detect a now of sarcasm? 

—Eds. 



You must vaporize the pests with 
your laser and pesticide bombs. 

Pest control is a never-ending task 
in this space simulation Be quick 
about it. If you take too long to clear 
a wave of pests, the AVENGER 
appears and homes in on your 
PestiCraft. 

A random Vengence Encounter 
throws you into a world with droid- 
filled birds. You have to destroy 
them, but every time they burst, a 
myriad of droids are released 



and begin a relentless assault on 
your ship. AVENGER is joystick 
compatible. 

AVENGER is available for the TRS 
80" Color Computer at your favorite 
software dealer. MasterCard & Visa 
orders accepted. $19.95 tape, $1 .50 
shipping and handling charges. 

The Corfisoft Group 

6008 N. Keystone Avenue 
Indianapolis, IN 46220 (317) 257-3227 
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Truth in Advertising 

Firms that advertise in 80 Micro and 
other publications should live up to 
their ads. In the July issue of 80 Micro a 




Line 60060 of Kurt Leafstand's 
"QuickCalc" program (October 
1982, p. 120) is the end of the listing; it 
does not continue. 



Randy Hawkins was incorrectly 
given credit for the program "Enter 
The Dragon" in Proof Notes (August 
1982). The credit should have gone to 
Brice Hadlock. We stand corrected. 



REAL ESTATE INVESTMENT 
SOFTWARE 

FOR THS 80 SYSTEMS 

REAL PACK is a comprehensive package ol 
programs lot analyzing real estate investments 

INCOME PROPERTY ANALYSIS protects profits and 
cash Hows before and after taxes, ROI, IRR. equity 
returns, breakeven occupancy requirements property 
values, mortgage balances and results of sale for up 
to 15 years Handles multiple loans, depreciation 
methods, income and appreciation patterns 
LOAN calculates loan terms, provides amortization 
tables, and computes discounted loan values or 
yields Handles balloon payments; provides loan 
evaluations at future time periods 

WRAP provides similar computations lor wrap around 

loans 

HOUSE RENT/BUY compares cash flows and real 

costs for house purchase compared to renting 

Handles multiple mortgage and graduated payment 

loans Generates unique personalized narrative letter 

to explain the tabular output 

POLICY analyzes real estate investment strategies 
You specify investment values such as leverage, 
interest, capitalization, and appreciation rates and also 
investment strategies such as tax free exchanging, 
sale and purchase of larger properties, and physical 
improvement to increase income ala Nickerson 
Projects, lor up to 20 years, profits and cash flows, 
rales ol return, the results of projected individual buy. 
sell, and trade transactions, tax consequences, and 
accumulated property values and cash flows 

REALTOR TESTED by professionals, error tolerant 
and easy to use 

MORE THAN AN OPERATING MANUAL. The 150 

page instruction manual also includes chapters. How 
10 Use REAL PACK to Increase Your Real Estate 
Business" and "How to Operate Your Own Financial 
Analysis Business" 

$295.00 for the whole package 

Check, COO. Visa, Mastercharge 

To order, call (206) 734-4323 or write: a 

CONEX ELECTRO SYSTEMS INC. 

1602 Carolina Straat. Billing ham, WA 06226 



retailer advertises "we will not be un- 
dersold" and yet their prices are consid- 
erably higher for some hardware than 
other firms advertising the same equip- 
ment in the same issue of the magazine. 
When asked why they made such a 
statement they replied that it was an ad- 
vertising come-on to get customers. I 
advise potential customers of any firm 
to price shop for equipment and ser- 
vices before buying. 

Walter Steesy 
Interlaken, NY 14847 



UTERM Fix 

I really enjoy using Bob Hart's 
UTERM program (80 Micro, June/ 
July 1982, p. 128). However, if you 
try to use this program and have an 
early keyboard, you may run into 
some problems. 

My keyboard has the old ROMs and 
the famous "quick and dirty" audio 
fix from Radio Shack. My board con- 
tains the small XR2 mod to help the 
volume sensitivity problem using cas- 
sette tapes. This improvement will not 
allow anything above or below 500 
baud to enter the computer. 

Since UTERM uses the cassette port 
and is set for 300 baud, the program 
will transmit but not receive using 
Bob's software, the cassette port, and 
the Shack's mod. To overcome this de- 
ficiency, a small DPDT switch must be 
added to switch out the XR2 mod 
when using the UTERM program. It is 
surprising to note that Tandy sells 
Model 1 modem software that uses the 
cassette port, but their own equipment 
is not compatible when you are stuck 
with an old keyboard! 



Anyone wishing to learn more about 
the switch installation may get a copy 
of the instructions by sending an SASE 
to me. It takes about 10 minutes total 
time to have UTERM running on your 
system. 

Richard C. Walter, Jr. 
824 East Chestnut St. 
Lancaster, PA 17602 



Two Finger Typer 

I would like to point out Lazy Writ- 
er's ease of use for a handicapped per- 
son limited to the use of one hand. Just 
about all of Lazy Writer's commands, 
editing as well as print and directory 
commands, call for the entry of a 
single keystroke. Rarely are you re- 
quired to use a control key at the same 
time, and when you do, the keys are 
well within range of two fingers. 

Sidney Bloom 

114- A West Church St. 

Frederick, MD 21701 



Easier Directory 

For Model III TRSDOS users, 
Basic's CMD"D:d" produces a direc- 
tory listing that is often more conven- 
ient than DIR. The program below, 
DIREC/CMD, displays the directory 
just like Basic. This program uses the 
top fifteen bytes of memory and is writ- 
ten for a 48K Model III with TRSDOS. 
For a 32K machine (see Program List- 
ing 4) change the addresses in lines 
160 and 240. 

Carl Anderson 
Wilmington, DE 







00100 


















00110 


; 


DIREC/CMD 












0B12B 


; 


FROM 


TRSDOS READY' TYPE 


: 






BB130 


; 


DIREC 


:D 












BB14B 


; 


WHERE 


D-DRIVE 












BB15B 


; 












FFFB 




0B16B 




ORG 


BFFFBH 


;FOR 


32K 


USE BBFFBH 


4419 




BB17B 


DSPDIR 


DEFL 


4419H 


; DISPLAY 


DIRECTORY CALL 


4B2D 




BB18B 


JP2DOS 


DEFL 


402DH 


; TRSDOS 


READY ADDRESS 


FFFB 


3A2C42 


00190 




LD 


A, (4225H+7H) 




;GET 7TH BYTE 


FFF3 


DD217142 BB2BB 




LD 


IX,4271B 






; THESE TWO LINES PUT A 


FPF7 


DD7788 


00210 




LD 


(IX) ,A 






jINTO 4271H FOR DSPDIR 


FFFA 


CD1944 


0B220 




CALL 


DSPDIR 






1 DISPLAY DIRECTORY 


FFFD 


C32D4B 


BB23B 




JP 


JP2DOS 






;BACK TO TRSDOS 


FFFB 




BB24B 




END 


BFFFBH 






;FOR 32K USE BBFFBH 


BBBBB TOTAL 


ERRORS 






















Program Listing 


4 
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DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIVES DISK DRIV 



m 
go 



1 1 PRICE BREAKTHROUGH 

3 Super Sale on New Disk Drives I 

Starting at $ 199.95* complete!! | 

^ with Power Supply and Case. 3 

m 
W 

single sided 40 track — dual sided 40 track — dual sided 80 track § 

for | 

RADIO SHACK — HEATH — ZENITH — S 100 | 

IBM/PC 3 & MOST OTHER COMPUTERS | 

SPECIAL! Disk Drive Head Cleaning Kits . . .$1 2.95 § 

w Drive a Hard Bargain!!* 85 

5 M.B - 1 M.B. with Power Supply Case, Cables & Software | 
Complete Systems .... starting from $1 ,695.00 

5 TOLL FREE ORDERING GENERAL and TECHNICAL I 

1 -800-343-884 1 1-61 7-872-9090 o 

Model III Internal Disk Drive Kits $Call | 

Color Computer First Disk Drive Kit $424.95 | 

Diskettes Of all Sizes (Box of 10) starting at$1 5.95 S 

Dot Matrix Printers $Call | 

Word Processing Printers starting at $999.95 * 

§ Printer Buffers 8K to 64K starting at $1 43.00 | 

w Disk Drive Cases and Power Supplies . .starting at $49.95 8 

DOSPLUS — 3.4 — SSpecial Price § 

° Filler pieces for Basf slimline drives $4.98 * 

5 *Ask about our %RHWfe%RHWfe Warranty. | 

ffj Dealer inquiries invited. S> 

I SOFTWARE SUPPORT I 

* terms: One Framingham Centre, Framingham, MA 1 70 1 u 

5 %%££^^J^«^. (6 1 7) 8/2-9090 1 : tan D y corporat,on 2 

CO C.O.D. Piaaaa add S3.00. Hours: M-F 1 to 6 (EST) Sat by Appt 2 ZENITH DATA systems ^ 

uj Shipping: Hum call for amount. 3 ibm corporation go 

Aida *sia S3Aina xsia s3Aiaa xsia s3Aiaa xsia S3Aiaa asia $3Aiua xsia s3Aiaa xsia s3Aiaa xs2 

• See List of Aavemsers on Page 4S1 
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MONEY DOS Fix 

The programs in the September 1982 
MONEY DOS column (p. 364) con- 
tained several small errors. Listing 1 
was renumbered, correctly updating all 
GOTOs and GOSUBs but leaving ref- 
erences in remark statements un- 
changed. Listing 2 did not write an 
end-of-file marker on cassette files. 
Program Listings 1 and 2 correct these 
errors. 

In addition, lines 470-530 of Pro- 
gram Listing 2 on page 374 were acci- 
dentally printed at the end of Program 
Listing 1 on page 372. 

80 Micro regrets the errors. 



Screenplay Errors 

My article (Screenplay) in the Sep- 
tember issue contains a couple of er- 
rors. On page 208, the third paragraph 
of How to Use Screenplay states, "If 
you want to write as though using a 
typewriter, press shift down 
arrow. . ." — it should read ". . .press 
shift, down arrow, left arrow. . ." as 
Table 2 correctly indicates. 

The Loop function that flashes all 10 
pages of text on the screen in a continu- 
ous loop for animation effect contains 
an error. Line 7000 should read: 

FORP= lTO10:GOSUB9100:GOSUB5800: 
GOSUB9800: IFS = 1 THEN 1 200ELSENEXT: 
GOTO7000 

The end of line 1820 was omitted. It 
should include: 

ELSEIFI>I26THENI = I + J 




Jim Stauble of Des Moines, IA has 
shown me another way to code lines 
9900 and 9910. 

9900 F = 0:FORR=1TO1:F = NOTF:IFF = -1 
POKEV,IELSEPOKEV,PEEK(V + T) 
9910 FORW = lTOJ:I$=INKEY$: 
R= -(I$>""):IFRAND1RETURNELSE 
NEXT: NEXT 

This coding is shorter than the origi- 
nal but has no effect on the typing 
speed. Placing a subroutine immedi- 
ately following the calling section can 
help the interpreter find the subroutine 
more quickly. Unfortunately, this sub- 
routine is called by several sections of 
the program, so many references 
would have to be changed. 

For those interested in this approach 
to editing and printing memory con- 
tents, a machine-language version of 
Screenplay is available. Called Core- 
text, it runs on disk or stringy, is tai- 
lored to the MX-80/Graftrax, has 
many more features, and is faster than 
the fastest typist. The cost is $10 pre- 
paid or $5 if you provide disk or wafer 
and SASE. The same terms apply if 
you want me to send you a copy of 
Screenplay. 

If you want to know what line 7000 



170 REM DELETE 180 IP NO DISK 

550 CMD"T":REM CHANGE THIS LINE TO 550 REM IF NO DISK. 

590 REM 600-660 ARE FOR DISK USERS . TAPE ONLY USERS 

MAY DELETE. 
1140 I FD$»" SUGAR "THEN El»4: E2«10: E3=23: RETURN 

Program Listing I 



50 EN$«"EOF" 

280 IF U$«"" THEN IF SS-2 THEN PRINT#-1,EN$ 

285 IF U$="" THEN CLS:PRINT"I 'M FINISHED": END 

Program Listing 2 



does (the incorrect line 7000, that is), it 
copies all 10 pages of text memory into 
higher memory, starting at address 
32768. It's used for transferring 
Screenplay text to the text memory 
area of disk Coretext. 

Warren Merkey 

114 SE 1st St. 

Gainesville, FL 32601 

Bug Report 

To correct "Save Our Ship" (80 Mi- 
cro, August 1982, p. 174) Model 1 users 
should change the value 65535 in line 29 
of Listing 1 and line 20 of Listing 2 to 
65536. Also add a new line to Listing 1: 

31 FX = FX + 65535 * (FX>32767) 

Model HI users should change the 
value 65535 in line 29 of both listings to 
65536. Also add the same new line to 
the program as above. 

Randy Hawkins 

6214 Hidden Cove 

Corpus Christi, TX 78412 

Pronouns vs. Prepositions 

The September 1982 issue of 80 
Micro was great. Dan Robinson's com- 
prehensive report was good except for a 
slip that he or your copy editor should 
have caught. 

On page 123 of Mr. Robinson's re- 
view of Aspen Software's Grammatik 
program, he writes: "... and too many 
prepositions (especially I) may make the 
writer look like an egomaniac." A pre- 
posterous preposition if ever I've heard 
one! Don't you mean pronouns? How 
can a diddly little preposition (at, after, 
by, down, for, from, in, into, etc.) 
make a writer appear egomaniacal? 
Pronouns, especially the first-person 
singular pronoun (I), can indeed make a 
writer appear a little self-centered. 
However, the sample of Grammatik's 
text summary you cited in the article on- 
ly lists prepositions; nowhere do we see 
a mention of pronouns. You computer 
guys do understand the distinction be- 
tween a pronoun and a preposition, 
don't you? 

Jeff Shear 

46 Wiggins St. 

Princeton, NJ 08540 

Oops. — Eds. 
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And to celebrate we're publishing a special 
ANNIVERSARY ISSUE, 




3 in '83! 




That's 

That number again 

That's 



containing 

all new articles & programs. 

over 500 pages of the same high 80 MICRO quality. 

dozens of games and programs for your computer. 

exclusive articles by well-known authors. 

the most in-depth coverage of the Color Computer yet. 

* tutorials on having peripherals and software. 

* page after page of Christmas specials from 80's advertisers. 

* a 3-year 80 MICRO index— annotated and cross-referenced. 

And in every issue of 80 MICRO you'll find the 1st and only 

3-D COLOR STEREOSCOPIC 
COMPUTER GRAPHIC 

And to go with it — your very own pair of 3-D glasses will be bound y 
into every issue. This is an anniversary issue you won't want to miss! 

And this amazingly versatile Anniversary Issue can go anywhere* with 
you. Fits easily in your briefcase or your purse. Lies flat in your 
knapsack. Rolls up to fit snugly in your glove compartment. Stores oni 
any bookshelf. Looks great on any coffee table. 

You can also get the amazing Special Edition LOAD 80 Companion to- 
the Anniversary Issue. All those games and programs, just waiting for 
you to load. No more keyboarding. No more debugging. No more 
hassles. 

You'd expect special editions of this quality to cost you hundreds of 
dollars. (Well, maybe dozens.) But for a limited time only, you can get 
the 80 MICRO ANNIVERSARY ISSUE for only $5.95. That's 
right— $5.95 And the LOAD 80 Companion is just $9.95 for cassette. 
$19.95 for floppy disk. 

Note: This is an extra issue and will not be included as part of your 
regular subscription. So call today and order your very own 
Anniversary Issue and LOAD 80 Companion. Or give them as gifts. 
Just fill in the attached reply cards and drop them in the mail. Or call 
toll free— 1-800-258-5473. 






3-0 



? r *Afi 



C °<.Oft- 



A / II 







Call tociav! 



Operators are standing, by (during business hours, of course). 
MasterCard and Visa accepted. (American Express, too.) 

Please allow 6-8 weeks lor delivery. 

* Use of this product in the shower is not recommended by the publisher 
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SIMPLY 
AMAZING! 

NEW LOW PRICE— $99.50 

Mow else can you describe the Exatron Stringy Floppy system? You could 
say that it's an under $100. compact, reliable, robust, high-speed, 
computer-controlled, easy-to-use, well-supported alternative to disk 
drives, for a Model I or III TRS-80— simply amazing! 

Amazing Technology 

Based on a special endless-loop tape cartridge, called a Wafer, the 

ESF system was designed specifically for computer data storage. 

The direct-drive transport mechanism has only one moving part, 

and data is transferred to and from the tape at a rate of 7200 baud. 

Amazing System 

Thousands of ESF buyers have been amazed by I6K programs loading 
in less than 20 seconds; automatic verification of saved programs; up 
to 70K bytes, and 99 files, on a single Wafer; a ROM operating system 

(RAM based in Model III); no need for an expansion interface; and 1-year 

parts and labor warranty. 

Amazing Support 

With an ESF system you don't just get a piece of hardware, you get total 
support with hundreds of user workshops; dozens of high-quality, reason- 
ably priced programs (such as Electric Pencil 2.0, Electric Spreadsheet, 
File Management System and Technical Word Processor); access to 
hundreds of FREE public-domain programs; an ©NEWS user 
column in 80-US; @LOAD program magazine; and a 
toll-free information line. 

Amaze Yourself 

To see for yourself how amazing the ESF sys- 
tem is, or for more detailed information, call 
us toll-free at 800-538-8559 (inside Cali- 
fornia 408-737-711 1) and take advantage 
of our 30-day money-back return policy. 
Copies of the 80-page manual are available 
for $4.95 (which you can credit towards an 
ESF). and while you're on the line ask about 
our equally amazing64r\ RAM/ROM board 
for the Model I. 



i^^* 



TRS-80 is a trademark of Tandy Corporal 
Stringy Floppy is a trademark ot E«atron Corp 




excellence in electronics 

exatron 



181 Commercial Street, 
Sunnyvale, CA 94086 
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Handicapped Handicap 

If a golfer claims a handicap of eight 
it might be assumed that he is pretty 
good — unless it turns out that this 
handicap was computed using Michael 
Avery's system ("Two Strokes a 
Side," 80 Micro, May 1982) instead of 
the official USGA system. 

Any golf league, association, or club 
is free to use any system for assigning 
handicaps, just as it can adopt any set 
of rules for the play of the game. 
Scores and handicaps obtained under 
modified rules cannot legitimately be 
compared with those acquired with the 
standard rules. Articles such as Mr. 
Avery's reinforce the mistaken idea 
that handicaps are simply numbers as- 
signed arbitrarily, with poor golfers 
getting big handicaps and good golfers 
low handicaps. USGA rules regarding 
handicaps are explicit, and differ dras- 
tically from Mr. Avery's rules and 
from those he describes as the USGA 
system. 

The use of course par in place of 
course rating is simply not justified. 
Under the USGA system, a par 72 
course can have a rating anywhere 
from 62.8 to 80.6. These are extremes 
— course ratings are generally two to 
five strokes less than par. 

The look-up table that Mr. Avery 
uses (he gets the endpoints on the 
wrong side, does not reproduce the en- 
tire table, and overlooks the fact that 
SM might be equal to 358.8) is one that 
has not been used by the USGA since 
1975. It is not true that this table in- 
cludes the increased difficulty factors 
in lowering one's handicap as the hand- 
icap approaches zero; it was pub- 
lished for those who find the problem 
of taking 85 percent of a number and 
rounding to the nearest integer too 
mathematically demanding. 

Avery's system differs from the 
USGA's in using the best five of the 
last 10 scores rather than the best 10 of 
the last 20, and in using nine hole 
scores instead of complete rounds. 

It is not true that the USGA handi- 
cap system cannot be applied to those 
with fewer than five scores; while these 
handicaps are not official, they are 
computed and designated as tempo- 
rary by adding the suffix T. 

Mr. Avery asserts that his handicap- 
ping system "will do a credible job for 
a small golf league. ' ' If this is all that is 
desired, a much simpler system, not re- 



"I developed this 
program as an aid 
to golf leagues. . . " 



quiring a computer, could be devised. 

A golfer's USGA handicap is de- 
fined as 96 percent of the average of 
the lowest 10 of his last 20 differentials, 
provided at least 20 scores have been 
reported. If M (the number of reported 
scores) is less than 20, then N, the 
number of differentials to be counted, 
is determined as follows: if M <5, then 
N=l, if M = 6, then N = 2, and if M 
>6, then N = M/2, rounded to the next 
lowest integer if M is odd. Details, 
together with the current look-up 
table, can be found in the USGA 
magazine Golf Journal (No v. /Dec. 
1980, pp. 19-22). 

While the USGA system is far from 
perfect, all clubs assigning handicaps 
to their members should use a uniform 
system. Inability to adapt the standard 
system to a small computer is a poor 
reason for changing the system. 

B.J. Ball 

Rte. 3, Box 372 

Watkinsville, GA 30677 

Michael Avery Replies 

/ indicated in the article that a modi- 
fied form of the USGA system was 
used. The method I developed does not 
differ drastically, as Mr. Ball states. I 
indicated that course par could be used 
in place of a course rating because 
many small courses don't have a 
course rating. Are these courses to be 
denied handicapping? 

If Mr. Ball had checked the program 
he would see that the possibility ofSM 
being greater than 358 is taken care of 
in line 1530. 

When the program was written 
(about four years ago), it had the cor- 
rect handicap look-up table. The new 
table can be found in the latest edition 
of the golf rules, section 6. In the same 
section, the statement "Fewer than 5 
scores: no handicap" would seem to 
contradict Mr. Ball's statement. 

The data storage routines I used 
were not very efficient. Using more ef- 
ficient numeric string packing for cas- 
sette storage, as I now know, would 
greatly improve the storage perfor- 



mance. 

The rules I used for determining 
the number of differentials used are 
identical to the USGA method, but 
scaled down for a maximum of 10 
scores of course. 

I developed this program as an aid to 
golf leagues who wished a local hand- 
icap. No attempt was made to make 
this an official handicap, nor do I 
think it necessary. All that counts is 
that the calculation be fair and consis- 
tent. I believe that the program ac- 
complishes that goal. 

— Michael A very 

Golf Fix 

Helpful callers have identified a few 
errors in the coding of my "Callaway 
Golf Scoring Program" (80 Micro, 
May 1982, p. 300). The changes are as 
follows: 

1220 L = 0:L1 =0:P1 =0:IFSH<>1GOTO 1270 
2380 PRINT X + Y,T$(X + Y),T1(X + Y) 
2400 X = X + 10:IF NP>X GOTO 2370 

and delete line 2360. 

To use the program with a disk sys- 
tem do not set the memory size, and 
delete lines 10-30 and 160-200. The 
screen print routine will not work, but 
if your DOS has such a feature you can 
use that instead. 

Rodger Wells 

1008 Kehoe Drive 

St. Charles, IL 60174 



Verbatim® 
Diskettes 




Top-quality Verbatim® Diskettes 
from Tech* Data, your complete 
word and data processing supply 
center. Dealer inquiries invited. 

Call Toll Fr— N 
1-800-237-8931. 
In Florida, call 
813-577-2794. 



V 



Tach«Data Corporation 

325! Tech Drive North 
St. Petersburg. FL 33702 
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Donations Needed 

Goodwill Industries is interested in 
acquiring computer equipment. We 
are particularly interested in Model I 
hardware and software. Our organiza- 
tion is a non-profitable, charitable cor- 
poration, and contributions are tax 
deductible. 

If any reader is interested in making 
a donation to Goodwill, contact me for 
further information. 

Sidney L. Bloom 

President, Board of Directors 

Goodwill Industries 

114- A West Church St. 

Frederick, MD 21701 

Need Programs 

I am putting together a book of busi- 
ness programs for students in business 
education courses at the local technical 
institute. The accounting and business 
education students at this point only 
need to run programs. 

The technical institute has Model lis 
and Model Ills. We hope to set up a 
micro lab next year. I would appreciate 
any and all programs that your readers 
would send for student use. 

David P. Senkpiel 

Instructor, Business Education 

Guilford Technical Institute 

420 Manor Drive 

High Point, NC 27260 



Cheap Green Screen 

There are several green screens on 
the market, but being a penny-pinch- 
er, I came up with an idea that works 
very well. 

I went to the local office supply store 
and bought a dark green and a light 
yellow punchless report cover. I put the 
yellow inside the green and attached 
them to my screen with scotch tape. 
This combination gives a nice green 
color, and costs only 50 cents. 

Richard A. Little 

407- 15th Ave. 

Sterling, IL 61081 

For Sale 

1 have a new Quick Printer I for sale. 
It comes with the instruction manual 
and two rolls of paper. I am asking 
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programs; this is for personal enjoy- 
ment. 

D. Griffith 

2932 'A W. Knights Ave. 

Tampa, FL 33611 

Jake Commander recommends Or- 



$300 or best offer. 


Need Wiring Diagram 


Zacharias Beckman 


Does anyone have the address of 


Pegasus Computer Systems 


McClain and Associates Inc., Indian- 


44040-6th Ave. 


apolis, IN? They made and sold an in- 


Paw Paw, MI 49079 


terface called Selcon V and converted 




IBM 1980s to use on a TRS-80 Model 


More Music 


I. They used to advertise in 80 Micro. 
I bought a unit and need a wiring 


Has anyone written a program simi- 


diagram for the 40-pin connector that 


lar to Radio Shack's Micro Music? I'm 


connects the IBM 1980 with the inter- 


looking for a larger text buffer. I 


face. Does anyone have a wiring dia- 


would like the program to include: 


gram that tells what color wire goes to 


starting at a specified point, notes 


what pin on the connector? 


shorter than eighths, an additional two 


I have written to them but the mail is 


octaves (one higher, one lower), and a 


returned and they don't have a phone 


softer "N"atural command that re- 


listing in Indianapolis. 


turns specified options (speed, tone, 


Robert Hober 


octave) to normal. 


RR #5, Box 125 


I don't want to integrate with Basic 


Holiday Island, AR 72632 


Parameters For ESF Wafers 


START.LENGTH.ENTRY 


Galaxy Invasion MEM (23200) 


©SAVE 1,232%, 9472,32724 


Robot Attack MEM (18432) 


© SAVE 1 , 1 8432, 1 4336,32686 


Eliminator MEM (18688) 


©SAVE 1 , 1 8688, 14080,20692 


Meteor Mission 


©SAVE1, 17664,1 1777,17664 


Cosmic Fighter 


@SAVE1,21760.10753,26073 


Super Nova 


©SAVE 1,24064. 8449.25491 


Attack Force 


©SAVE 1 , 1 7 1 52, 1 3570,30453 


Lunar Lander 


©SAVE 1 .20352, 1 2290.20352 


Defense Command 


©SAVE1. 18569,14136,18750 


The Count or Adventure Sampler 


© SAVE 1 , 1 7 1 52, 1 4592, 1 7232 


Penetrator (Main or Editor) 


©SAVE 1 , 1 7408, 1 5 100, 1 7408 


Star tighter (Main or Trainer) 


©SAVEl, 16918,15100,171 16 


Pinball (Acorn) 


©SAVE 1 .20480. 1 2289,296% 


Swamp War 


©SAVEl, 17152, 5500,17520 


EDTASM Plus (Microsoft) 


©SAVEl. 17280.12035, 17280 


Z Bug (Microsoft) 


©SAVEl, 17280, 6070,17280 


TLD1S (Disassembler) 


@SAVE1,28672, 3351.28672 


COPSYS 


©SAVEl. 16969, 1012,17129 


Interlude (Over 16K) 


©SAVEl, 16640,16130,23040 


Gobbleman 


©SAVE 1 , 1 7408, 1 33 1 2, 1 7408 


Australian Programs 




Ghost Hunter 


@SAVE1,20992, 7925,21200 


Killer Beetle 


©SAVE 1,20480, 6588.26868 


Alien Cresta 


©SAVEl, 20992, 8501,23449 


Centipede Attack 


©SAVE 1.20992, 4131,21476 


Tabl 
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VisiCalc Templates? 

Are there any VisiCalc user-devel- 
oped programs for Investment Stock 
Analysis and Bond Interest Earnings, 
and so on? No doubt some experts 
have developed better programs than 
the average user and may not object to 
making them available. 

I would appreciate any suggestions. 

Robert B. Foster 

4909 Nasa Road 1 

Seabrook, TX 77586 

See Desktop Computing for an ex- 
planation of VisiCalc and its uses. — Eds. 

ESF Copies 

This information will be beneficial 
to anyone with an Exatron Stringy 
Floppy. I've enclosed a list of parame- 
ters to copy many popular machine- 
language programs onto Stringy Flop- 
py. This information is tested for use 
on the Model I, Level II TRS-80. 

From the Ready prompt type sys- 
tem. From the *? prompt type the file 
name (or first letter of the file name) of 
the machine-language program you're 
loading. After the program has loaded, 
the *? prompt reappears. Type / 12345 
to initialize the Stringy Floppy and 
return you to Basic. 

Now type @SAVE1 .start, length, en- 
try. Start is the starting address, length 
is the number of bytes to move, and en- 
try is the entry point. (See Table 1 for 
the parameters.) 

Please don't use this information to 
pirate other people's programs. 

Gobbleman will crash as soon as you 
answer the 1 or 2 player question. Af- 
ter the crash the computer reboots. 
From the Ready prompt type system. 
From the *? prompt type / 17408. Gob- 
bleman will run correctly. 

A. Tito 

103 Lauren St. 

Urangan, Queensland 4658 

A ustralia 

Missing Copy 

I am writing to see if you can help 
me obtain a copy of the November 
1981 issue of 80 Micro. When I wrote 
in January to ask the subscription de- 
partment for my missing issue, I was 
told it was no longer available and my 
subscription was extended one month. 
I then thought perhaps you kept a cer- 
tain number for back issues, so I or- 
dered a back issue, but again the reply 



was it was no longer available. Any- 
thing that you can do or suggest in ob- 
taining the November 1981 issue would 
be greatly appreciated. I value each one 
of my 80 Micro issues highly, and I 
don't want to be one short of a com- 
plete collection. 

Murray Jones 

P.O. Box 698 

Campbell River, B.C. 

Canada V9W 6J3 

The November 1981 issue is as rare 
as proverbial hen 's teeth. As a matter 
of fact, even some of our editors don 't 
have a copy. Is there a reader out there 
who can help Mr. Jones out? — Eds. 

Modem Search 

I am looking for a modem that can 
be set at 300 or 1200 baud, and soft- 
ware to enable me to download or up- 
load to disk from CompuServe or The 
Source. I was told that it's cheaper to 
download at 1200 to disk than to 
download at 300 baud to my printer. 

I own a Model III Level II, 48K, 2 
disk drives and an Epson 80 FT 
printer. 

Terry Rubin 

2928 Rockingham Circle 

Orlando, FL 32808 

See New Products, November 1982. 

—Eds. 

TRS-232 Newsletter? 

I would like to contact users of the 
Small Systems Software TRS-232 in- 
terface for the Model I. Many users of 
this clever interface could benefit from 
a newsletter; in particular, 1 am inter- 
ested in exchanging information on in- 
serting the TRS-232's printing code in- 
to machine-language programs which 
print via the parallel or possibly 
RS-232 ports only. 

Please contact me if interested, and 
let me know what programs you have 
converted to TRS-232 use. 

Sidney L. Bloom 

114- A West Church St. 

Frederick, MD 21701 

Monitor or TV Screen? 

I would like to purchase a color 
monitor that I can use with my Color 
Computer and with my next computer 
(whatever that is). 

Does Amdek, NEC, Sanyo or one of 



the other color monitor manufacturers 
have a model that doesn't use RGB 
that would be compatible with my Col- 
or Computer, or is further modifica- 
tion needed? 

Samuel Baker 

2823 Baker St. 

San Francisco, CA 94123 

More Memory? 

I recently installed 32K worth of 
memory in my Model III (from 16K to 
48K) with chips purchased from one of 
your advertisers (Computer Plus). 
Everything seems to function normally 
except that now the PEEK and POKE 
commands won't function at addresses 
greater than 32767, which is where my 
16K ended! I can load and run pro- 
grams into the new memory, the 
?MEM command gives a 48K re- 
sponse, but PEEKing and POKEing 
into the new section gives me an OV er- 
ror. I can't burn in the new chips and 
my warranty is quickly running out on 
them! Can anyone help? 

Also, does anyone know a simple 
way to send special characters such as 
control codes to a printer using cassette 
Scripsit? 

J. William McDonald 

4206 Trio Lane, Apt. #J 

Louisville, KY 40219 

Mission Aid 

Our missionary' organization (associ- 
ated with the US Center for World Mis- 
sion, Pasadena) uses a donated Model I, 
48K with tape drive. We bought the TC- 
8 operating system and an ET12 inter- 
face, linking the system to an IBM Elec- 
tronic 50 typewriter. Our main use is 
word processing, but we use a general 
ledger program adapted from 80 Micro. 

We want to manage our mailing list 
with the Radio Shack Cassette mail List, 
but there are problems. Anyone who has 
used the program knows it sorts very 
slowly. Has anyone successfully modi- 
fied this program to speed up the sorting 
process for use with the TC-8 system? Fi- 
nally, how can I get lowercase with the 
mail-list program? 

If you can help or would like to contri- 
bute equipment or software, please write 
or call (213) 797-1937. 

J. Gene Adkins, President 

Omega World Missions Inc. 

1605 Elizabeth St. 

Pasadena, CA 91104 
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Sea Dragon 

Adventure International 
Box 3435 

Longwood, FL 32750 
Model I or m 
$29.95 disk 

by Eric Maloney 
80 Micro staff 

When Sea Dragon made its debut 
here at 80 Micro, our Eliminator 
fans didn't like it, while everyone else 
did. This was curious, because at first 
blush the two games are similar. Both 
feature a horizontal scroll, and both in- 
volve destroying (or avoiding) objects 
rising from the bottom of the display. 
In fact, Sea Dragon looked like an 
Eliminator clone. 

But it didn't take too many hours be- 
neath the phosphor waves to realize that 
Sea Dragon has an aquatic rhythm that 
gives it an integrity of its own. It's as 
cool and casual as Eliminator is hot and 
furious, with enough of a kick to keep it 
challenging. 

The object of Sea Dragon is to guide 
a submarine (presumably called the Sea 
Dragon, though the documentation 
isn't clear on this) through a series of 
underwater passages and destroy a nu- 
clear reactor. During the trip (which 
covers 24 screens), you must blast or 
evade a variety of mines, stalactites, 
battleships, lasers, and enemy attack 
stations. You also must maintain your 
oxygen supply by surfacing occasional- 
ly, or risk total obliteration. 

Each direct hit is worth from 50 to 
500 points. The big banana, of course, 
is the reactor, which is worth 5,000 in 
the novice mode or 10,000 in the expert 
mode. Once you blow it away, you go 
back to the beginning, at a faster and 
more difficult pace. 

Like most arcade games, Sea Dragon 
requires digital dexterity. You must 
learn how to move your ship over, un- 
der, and around the rising mines, when 
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to speed up or slow down, when to sur- 
face for air, when to run or shoot, and 
how to avoid getting snuffed by the ene- 
my attack stations. 

When you figure all that out, you get 
to tackle the tough part — doing it while 
maneuvering through the tunnels. 
Touching the walls means complete an- 
nihilation (what else?), and the tunnels 
sometimes seem to go on forever. Find- 
ing a place to surface is cause for rau- 
cous jubilation, enemy mines or no. 
(This is definitely not a game for 
claustrophobics.) 

At first, your scores will be pitifully 
low, which is just as well, because you 
won't want anything but to get through 
the tunnels. When you're finally good 
enough where points count, AI offers 
you their familiar scoreboard, which 
lets you (if you use disks) save the top 10 
scores. This feature is terrific in places 
(such as the 80 Micro office) where a 
number of people are using the same 
disk, and will extend its playtime con- 
siderably. The permanent scoreboard 
should be standard on any quality 
game, and other manufacturers would 
do well to follow AI's lead. 

Despite Sea Dragon's many qualities, 
what sets it a notch above the pack is the 
organic nature in which it was designed. 
The authors conceived a scenario, and 
then gave it the unique contours and 
rhythms its contents suggested. Thus, 
while the pace would be excruciatingly 
slow in outer space, it is well-suited to 
Sea Dragon's underwater environment. 

(The expert mode, on the other hand, 
is frenetic enough to give your heart fib- 
rillations.) 

Sea Dragon is another example of an 
emerging aesthetic in the computer 
game world. Software authors are be- 
ginning to realize that a game needs to 
be internally consistent to stand the test 
of repeated plays. It doesn't work to 
simply state in the documentation that a 
blip on the screen is a space ship or a 
tank or a submarine. The game must in- 
vite the player to participate, to feel the 
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action, to sense the flow. The world it 
creates must be complete and self-con- 
tained. This is possible only if the shape 
of the game supports and enhances its 
premise. Authors Wayne Westmore- 
land and Terry Gilman (Armored Pa- 
trol, Eliminator, and now Sea Dragon) 
are quickly developing a track record 
that shows they have the knack. 

Sea Dragon's major drawback is the 
combination of keys it requires you to 
use. The back arrow decreases speed 
and the enter key fires missiles, and it's 
almost impossible to do both at the 
same time. Also, you use the up and 
down arrows to move vertically, and 
you won't find a position that lets you 
get to both comfortably. The result is 
that you'll often hit the wrong keys 
when you can least afford to. 

All in all, Sea Dragon is worthy of 
the AI stamp. It's not as distinctive or 
original as AI's classic Armored Pa- 
trol, but it offers more than enough 
to be a welcome addition to most 
game libraries. It might even catch on 
with Eliminator fans.B 
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TRS-80 Assembly 

Language Subroutines 

William Harden, Jr. 

Prentice-Hall 

Engtewood Cliffs, NJ 07632 

$18.95 

by G. Michael Vose 
80 Micro staff 



Bill Barden has become the guru of 
TRS-80 Assembly-language pro- 
gramming. The many thousands of 
words he has written on this tricky sub- 
ject have. endeared him to a vast au- 
dience of programmers hungry for tips 
on technique. He has even mastered 
Assembly language for the TRS-80 Col- 
or Computer. And it appears that he's 
not done yet! 

Evidence attesting to Barden's lead- 
ership pops up every day, most recently 
in a book called TRS-80 Assembly Lan- 
guage Subroutines. Inside, you'll find 
65 subroutines, all written in Z80 As- 
sembly language. They'll allow you to 
perform a multitude of difficult-to- 
program functions with speed and ease. 
The book is a veritable fountain of use- 
ful routines. 

But wait a minute. When was the last 
time you needed to implement a 16-by-16 
multiply operation in Assembly lan- 
guage? Or an ASCII-to-binary conver- 
sion? How about a multiple-precision 
BCD add? 

This is pretty heady stuff! It seems 
that most of these subroutines, because 
they are very specialized or compli- 
cated, are useful only if you're a fairly 
sophisticated programmer. This is not 
evident, though, when you casually leaf 
through the first several pages. 

Barden's attempt to make the book 
appeal to as large an audience as possi- 
ble is confusing. I felt as though I had 
taken the wrong road in an adventure. 
It is obvious that a great majority of the 
routines in the book would be useful 
only to the kind of person who needs to 
implement a random number generator 
in Assembly language, for example, not 
a beginner's task. Yet the first two 
chapters of the book are a halfhearted 
attempt at introducing newcomers to 
Assembly language, a most difficult 
subject. 

The writing in these first two chapters 
also belies the fact that Barden has been 
over this ground so many times that he 



has lost interest in this aspect of the sub- 
ject. Nevertheless, he has thrown them 
in, apparently to justify selling this 
book to an audience of beginners as well 
as seasoned Assembly-language mavens. 

In spite of this shortcoming, this is a 
useful book. Many of the subroutines 
are useful to the Basic programmer who 
wants to speed up graphics, dump 
graphics to a printer, perform some ele- 
mentary animation (moving dots), or 
implement a time delay. Other routines 
will aid the Assembly-language pro- 
grammer who hasn't yet figured out 
how to write a random number genera- 
tor, how to read/ write disk sectors or 
cassette records, or how to read RS-232 
switches. 

The best feature of the book is its for- 
mat. Each subroutine is written in relo- 
catable code, meaning it can be used 
anywhere in memory because it con- 
tains only relative memory addresses. 
Each routine is printed as an assembled 
source-code listing so that the routine 
can be entered into a machine with ei- 



ther an editor/assembler or a monitor 
like Debug. Plus, each routine is also 
listed as a Basic data statement so that 
the routine can be POKEd into mem- 
ory from Basic. Barden and his editors 
have even computed and listed the 
checksum for each routine so that the 
programmer can verify his data entry. 

The book is spiral bound so that it lies 
flat on your lap or desktop while you're 
typing in the code for a routine. There is 
an appendix summarizing the Z80 in- 
struction set so that making changes to 
specific routines will be easy for the ex- 
perienced programmer. 

Barden offers all the routines in the 
book on disk — the cost will be disclosed 
to you if you express an interest by writ- 
ing to him. 

There is no question that books like 
this one have a place in the library of in- 
formation that is now available for the 
TRS-80. Anything that makes pro- 
gramming the computer easier is appre- 
ciated. It seems that Bill Barden will 
evermore be readv to fill that need.l 
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Wolfbug 64K 

Color Computer Upgrade 

Atomic City Electronics 

3195 Arizona Ave. 

Los Alamos, NM 87544 

Wolfbug with adapter card $55 

64K RAM card without memory 

$44.95 

64K RAM card with memory $144.95 



by David L. Wasler 

Upgrading your 4K, 16K, or 32K 
Color Computer to 64K is a rela- 
tively easy modification when using 
Atomic City Electronics' 64K upgrade. 
The upgrade consists of two major 
components: a monitor called Wolf- 
bug, which has 12 single-key com- 
mands, and a 64K RAM adapter card 
that reconfigures the old RAM socket 




Photo l. Top view of the Color Computer. To the left is U29 and Ull with the jumper. Bottom 
center is the 64K RAM card with 4164 RAM. Top center is the Hot/bug adapter card. 
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Med Systems staff of programmers is 
known for producing some of the finest 
software available today. Now we an- 
nounce two arcade games worthy of the 
Med Systems name: Laser Defense and 
Star Trap. Laser Defense: a totally original 
action game, not just an arcade ripoff! 
And Star Trap: the first home arcade game 
to allow two players to compete simulta- 
neously! Both feature state of the art 
graphics, sound, one or two player op- 
tions, and high score saving. 

But don't take our word for it. See the 
review in the August, 1982 issue of '80 
Microcomputing. And remember, Med 
Systems offers to refund your money if 
you aren't satisfied. Just return the game 
within 14 days of receipt. 



Laser Defense 

Your laser satellites must defend helpless 
cities against nuclear attack while attack- 
ing and destroying the enemy's launch 
silos. Particle beam weapons, nuclear 
power stations, the eradicator, and a two- 
map graphics system combine to pro- 
duce one of the finest arcade creations 
available. 



star Trap 

The first two player arcade game! 

Bouncing between two gigantic 3-D 
hypergrids are the stars of a thousand 
worlds. Capture as many as you can, or use 
your nova to annihilate them! Simultane- 
ous two player option allows players to 
compete head-to-head in real time! 

Laser Defense and Star Trap are available 
on cassette or diskette and require 16K of 
RAM. 



Laser Defense cassette 
Diskette 



Star Trap 



cassette 
Diskette 



$15.95 
$18.95 

S15.95 
$18.95 



Please add 52.00 for first class postage, 
54.00 for overseas air mail. 




MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1 -800-334-5470 



OR SEE YOUR DEALER 
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to accept the new 4164 RAM. The 
uniqueness of this upgrade is its sim- 
plicity. Traces do not need to be cut; 
just solder in a couple of wires for 
power, address lines, and some jump- 
ers, and you have 64K of usable RAM. 
The instructions, which are very 
thorough, consist of two parts. One is 
for the EPROM adapter card, which 
holds Wolfbug in a 2716 EPROM, 
and the other is for the 64K RAM 
adapter card. 

Wolfbug Adapter Card 

The instructions for the Wolfbug 
card tell you to remove the Basic 
ROM and install the new card. Be 
careful; Radio Shack sockets are the 
type that prefer flat pins, like the ones 
on an integrated circuit, and Atomic 
City's are the round-type pin. 1 filed 
the sides of the pins slightly flat to 
solve the problem. 

Now, carefully push the Wolfbug 
adapter card. Care must be taken here 
to avoid damaging the adapter card or 
breaking the pins. If there is any resis- 
tance, check for a mismatch. Four 
wires must be soldered; one is to a 
ground wire while the other three are 
for decoding Wolfbug. 

64K RAM Adapter Card 

Installing the 64K RAM adapter 
card is as simple as the Wolfbug card. 
Remove the old RAM, U20 through 
U27, from their sockets and install the 
64K RAM card in their place. I experi- 
enced the same problem with the pins 
here as on the Wolfbug, so once again I 
filed the sides of the pins. 

Another problem I encountered was 
that the RAM sockets, which Radio 
Shack installed, were misaligned, so 
care was needed when pushing the 
RAM card into place. 

Two wires on the card require sol- 
dering: the wire on the left side of the 
RAM card to TP12 ( + 5 volt) and the 
right wire to V10, pin 35 (RASI). Two 
RAM size jumpers must be reconfig- 
ured, one by U4 to the 4K position, the 
other by U10 to the 16K position. 

The Color Computer will run with 
these modifications now, but you can- 
not use the MAP type #1 mode yet. A 
jumper must be installed to get the 
MAP #1 (that is free memory from 
$0000 to SF800). For this part of the 
upgrade 1 recommend new Ull 
(74LS1 38) and U29 (74LS02) chips, be- 
cause you can take out the MAP #1 



mode, install the Ull and U29 chips 
and take your computer in for repair — 
after, of course, you take out the RAM 
card and Wolfbug. 

On the new U 1 1 , 1 bent pin 5 straight 
out; on U29, pins 11, 12, and 13, also. 
Next, I inserted the Ull and U29 into 
their proper sockets and soldered a 
jumper from U29 pin 13 to Ul 1 pin 5, 
U29 pin 8 to U29 pin 1 1 , and from U29 
pin 12toU8 pin 21. This completed my 
64K upgrade. After double checking 
my work, I turned the power on and 
tested to see if 1 had the correct voltage 
on pins 1, 8, and 16. 



The big step came next. After turn- 
ing off the power, 1 carefully installed 
the new 4164 RAM, making sure all 
the pins were in their sockets. After 
turning the power on I requested the 
memory size. 1 got back 24871, which 
is correct for the Extended Basic com- 
puter. For owners of Standard Basic, it 
will be 31015. 

Next 1 tried Wolfbug, which has a 
memory-test routine, by holding the 
break key, pushing and releasing the 
reset button, and answering R to the 
Wolfbug prompt. This switches the 
system to all-RAM mode (MAP type 



A FULL LINE OF SEMIDISKS 




IBM Personal Computer 



Do you use your computer" Of does your computer use you" Face it, if you re using floppies your time is being wasted. 
Because a floppy is an inefficient random access storage devu e. Each time the processor wants to transfer data, it has to wait 
an eternity for the disk to rotate and the head to move. 

So what do you do? Get a SemiDisk, quick It's a large capacity semiconductor memory board that is driven by software to 
operate like a disk drive Without all the waiting Do everything you d do on a floppy or hard disk, with no modifications to your 
software or hardware Two board sues are available 512K and 1 Megabyte, (the h>ghest density microcomputer memory 
board in the worid) And you can put up to 8 megabytes in a system by adding more storage boards 

What do you need to use it? Just an S 100 system with CPM 22. Or a TRS-80 Model 2 system with 
CP M 2 2 Or an IBM Personal Computer That s it No special processors. DMA. lO. or disk controllers are required Plug K in 
and run the installation program, and you re on your way Fast' Fven better, we supply full source code to the dnver software, in 
case you d like to do your own interfacing 

Best ol all. the SemiDisk s price wont warp your wallet Compare specs, cost megabyte, storage capacity and 
compatibility with the competition You II see that the SemiDisk is a disk emulator truly worthy of the name SemiDisk has 
battery-backup capability, too. 

Consider our limited warranty: A full year, covering all parts and labor Consider our liberal 15 day return policy Price' 
5 1 995 for 5 1 2K byte SemiDisk. $2995 for I Megabyte SemiDisk Both from stock. S 1 0.00 for manual VISA, Mastercard. COD 
orders accepted Dealer and OEM inquiries welcomed (Specify system type and disk format when ordenng ) 



Someday, you'll get a SemiDisk. 

Until then, you'll just have to wait. 



SemiDisk 
SYSTEMS 



P.O. Box GG 
Beaverton. OR 97075 



(503)-642-3100 




16 MIOIoiCBBS "NW iSern. D«k equipped tomputrf butrtirv boafd 
' ■'.iden'uiliolSeni.Di&kSyitemi TRS 80 Utdcflwk ol R**o Shack 
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#1), 64K only. After being prompted a 
second time, I entered T for memory 
test. I next answered $0550 to the start- 
address query and $F7FF to the end- 
address query (which is the end of free 
memory). Immediately, characters ap- 
peared on the screen and began to 
move, indicating that the memory was 
being tested. The memory test takes 
about 15 minutes. 

What is Wolfbug? 

Wolfbug is a machine-language 
monitor that resides at $F800 to 
SFFEA. Its 12 single-key commands 
are as follows: 

• A is an ASCII dump of any memory 
location. When A is entered, you are 
prompted with a start address. After 
entering the address, a memory page 
appears ($BF or 192 decimal memory 
address equals a page). An ASCII 



character will appear on the screen if a 
value at the required address equals an 
ASCII value. Hitting enter moves you 
to the next page. 

• B enters Basic or returns you back to 
Basic. 

• D routes the output to the display. 

• F is the floppy disk boot. 

• G is a go-to-a-machine-language pro- 
gram. After entering G, you are 
prompted with a Go-To query; enter 
your hex address and off you go. 

• H is a hex dump of memory similar 
to A, except it gives you a hex value (a 
page here equals $5F or % deci- 
mal). Hitting enter advances you to 
the next page. 

• L transfers Basic to RAM in the 64K 
mode and runs it. 

• M examines or changes memory. 
When entering M, you are prompted 
with an examine-address query. Enter 



a hex address. Hit the space bar to 
advance and the back-space key to 
move back. 

• P sends everything out to the printer 
that appears on the screen. 

• T tests memory. When entering you 
are prompted with a start-address 
query and then an end-address query. 
The memory-test routine checks RAM 
by writing a pattern and then reading 
it. This pattern is altered 256 times. 

• R switches you to MAP #1 mode, 
which is the full 64K mode. 

• X allows typing text to the screen, 
like a typewriter. If the P command is 
entered before the X command, hit the 
enter key and it will send the screen in- 
formation to the printer. 

Wolfbug is an excellent upgrade 
from its installation to fine documen- 
tation. I have been using it for six 
months and have had no problems. ■ 
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Elementary Basic: Learning to Program 
Your Computer in Basic with Sherlock 
Holmes 

Elementary Pascal: Learning to Pro- 
gram Your Computer in Pascal with 
Sherlock Holmes 
Chronicled by John H. Watson 
Edited with Commentaries by Henry 
Ledgard and Andrew Singer 
Random House Inc. 
Vintage Books Division 
Softcover, 265 pp. each 
$12.95 each 

by John P. Mello Jr. 
80 Micro staff 

As the preface to these books goes, 
Ledgard and Singer were taking a 
nip of tea one day when word came a 
trunk had arrived from England for 
Ledgard 's wife Edwina. Neither man 
thought anything of the announcement 
until the next day when Singer noticed 
his friend was distraught. 

"Henry, is something wrong? You 
don't seem yourself this morning," 
Singer said. 

"It's the trunk," Ledgard replied. 

"Trunk?" 

"The trunk that came for Edwina 
from England yesterday." 

"Oh, that trunk. What about it?" 
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"It's a very strange trunk; that is, I 
mean its contents are strange. The trunk 
is full of manuscripts." 

"What's so strange about that?" 
"They all seem to have been written 



"Watson opens each 

chapter describing an 

encounter with Holmes 

and his Analytical 

Engine. " 



by a certain Dr. John Watson about a 
certain Mr. Sherlock Holmes." 

"Now really, Henry, be serious." 

"I am completely serious, but I 
haven't told you the best part of it. 
What do you suppose the manuscripts 
are about?" 

"I refuse to have my leg pulled in this 
fashion, Henry!" 

"Andrew, Holmes was an ace pro- 
grammer. According to Watson, he 
used a successor to Babbage's Analyt- 
ical Engine in his work. The manu- 
scripts are Watson's chronicles of their 
experiences. Holmes's insights are 
brilliant. His deductive powers and 
methodical nature made him a natural 
programmer." 



Even if apocryphal, Ledgard's and 
Singer's premise is intriguing. It is also 
entertaining because the authors take 
pains to capture the flavor and proper 
Victorian prose of the Holmes stories. 

Watson opens each chapter describ- 
ing an encounter with Holmes and his 
"Analytical Engine." Holmes uses the 
magical machine to solve a murder at 
the Metropolitan Club, unlock the mys- 
tery of a socialite's disappearance, iden- 
tify cigars by their ashes, find a rare Bi- 
ble, break up a burglary ring, create a 
cipher for the Foreign Office, add mo- 
lecular weights, write coroner's reports, 
uncover the handiwork of his arch foe 
Moriarty, and write a treatise on his 
methods. Each problem is analyzed by 
the master of Baker Street, displayed 
first as an "algorithm"— a shorthand 
form of the program — then as an actual 
program. 

At the end of each chronicle, there is 
a didactic commentary by the authors 
detailing the concepts used by Holmes 
to solve a problem. As you might ex- 
pect, the commentaries lack the stylistic 
charm of the chronicles, but are invalu- 
able in giving a detailed explanation of 
Holmes's methods. They also serve as 
counterweights making the books easier 
to read. When Watson showed signs of 
information overload ("Enough, 
Holmes! I can absorb no more."), 
Holmes usually suggests a diversion, a 
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night at the opera or a cold partridge 
and a bottle of Montrachet. The com- 
mentaries act like such a diversion for 
the reader. 

One disappointing feature of the 
books is the chronicles in them are 
almost identical, so if you read one of 
the books, the second one's ruined. Af- 
ter all, without the chronicles, these are 
just books on programming. However, 
reading the books together can give you 
some insights into how Pascal stacks up 
against Basic. 

Another problem a novice might en- 
counter is getting the Basic programs to 



'. . . the commentaries lack 

the stylistic charm of the 

chronicles, but are 

invaluable in giving 

a detailed explanation 

of Holmes' methods. " 



work. The authors spend a lot of ink ex- 
plaining the idea behind "pretty- 
writing" — properly spacing the ele- 
ments of a program to make it easy to 
read and understand — but ignore "user 
friendliness." For example, in the pro- 
gram for enciphering messages, you are 
told "enter message characters." I put 
in the entire message only to have the 
program bomb — only one letter could 
be enciphered at a time. 

Can you start with zero knowledge 
about these programming languages 
and become proficient in them from 
reading these books? No. I had some 
background in Basic and none in Pascal 
when I started reading the books. I 
found my Basic knowledge necessary to 
handle the later chapters in the Basic 
book. After reading the Pascal book, I 
still did not feel proficient in the 
language. 

So without prior knowledge of one of 
these languages, you could find these 
books — despite their clever approach to 
the subject — heavy sledding. Before 
you pick them up, you should have been 
puttering in the languages for awhile or 
taken a short course in the fundamen- 
tals, preferably the latter. There is no 
substitute for thinking when it comes to 
programming, Ledgard and Singer 
noted in their books. The same may be 
true of classroom teaching. ■ 

^See Utl at AOvertisers on Page 451 



^Ef^SVRRD WDRDPROCEBSDR* 

♦FEATURES 
*4 nay cursor control. Repeat key. Scroll ins. Machine lansnase operation. 
tContinovs indication of line no., cursor position and end of file. 
•Insert/delete character to end of paragraph. Insert/delete line or block. 
♦Block copy. Block aove. Global find. Co«pressed fiGCII data storage. 
*Partiai/coaPiete saves to disk or tape.Load and insert fro*, disk or tape. 
tlarse data files can be processed with nxt coand. Edit ASCII Basic files. 
♦Upper/ tower case printout. Printout separates line at nearest word. 
•Printout of specified lines to specified spacinsi Margins, line lensth. 
♦Control of printer with control characters. Headers. Pase length control. 



♦ORDERING INFORMATION 
•Send 129.95 Plus HM for handling to:- 
Check or Honey order accepted. 



For Model I or III 32K or 68K Disk or Tape 



) FGA Software 

191 Uoburn St. 
Reading. Mass. 

- ,66 (617) 9*2-1558 



11867 



7^tl_t^ - SIMSIM, INC. 

- w -^— -- ~^ 214 North Main St., Natick. MA 01760 U.S.A. 

(Lake wood Office Park: Junction of Route 9 &. 27) 

NEC Spinwriters 7700 and 3500 
klm-rifen Utter-qiuUty leader 

■JSP Serial 77xx List price $3085.00 

^^ SIMSIM's price $2390.00 

Serial 35xx List price $2290.00 

- <~ SIMSIM's price $1775.00 

V~ ^^y Two new models just introduced 

, \A/XVW Low-cost 3510 and for IBM personal computer. 3350 
M 1 Call for prices (Dealers inquiries invited) 

IN COMPUTER SYSTEMS 

1-800-343-1090 In Massachusetts Call collect (617) 655-6415 




NEW TRS-80* PROGRAM 
LETS YOU CHART STOCKS 
LIKE AWALL STREET PRO. 

The Wall Street TAP is a powerful, professional 
stock market trading tool. It employs the same 
charting methods used by successful market 
experts to buy. sell and hold stocks. 

Now, you can make these time-sensitive decisions 
yourself and make more money on the market 

Point and figure, moving average and on balance 
volume charts are at your fingertips to spot trends and 
compare the performance of two stocks instantly. 

Easy to use. the Wall Street TAP is self-documented, user 
friendly, self-prompting with virtual error-free entry and batch 
updating. You need a TRS-80 Model I or III 48K and 1 disk drive 

•TRS-80 is a trademark ol Tandy Corp 

WALL 
STREET 




TAP 



* Technical Analysis Package. 
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SPECIAL EXTRA 
INTRODUCTORY BONUS 
FREE Boc* included 
if you order today' 
Understanding Wad 
Street. One ot those 
rare publications mat 
delivers etactly what it 

promises Barron s 



Chart Stocks, Commodities a Currencies 3 Ways. 

Name 
Address 



FOR MORE PROFIT * BIGGER GAINS 
ORDER YOUR WALL STREET TAP TODAY! 



D Vm. I want to start charting stocks on my 
TRS-80 today Please send my Wall Street 
TAP tape immediately. US $199.95 is en- 
closed I understand postage, handling, 
documentation, sample printouts, help 
desk support and FREE Bonus is included 

Z Send documentation only US $29 95 plus 
$2 postage and handling ($29 95 refund- 
able if you purchase package later ) 



City State Zip 

Payment l Z Check Z Money Order 

Z Visa : : MasterCard M2 
Card No 
Expiry Signature 

Fill-ln A Mail Coupon To Think Software Inc 
572 - 810 W Broadway Vancouver B C Canada 
V5Z 4C9 Or Phone For Faster Delivery Card users 
only call 24 hours (604 261-7261 Dealer 
inquiries Welcome 
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OMNITERM 

The ULTIMATE TRS-80 
Terminal Package 

What is OMNITERM? 

OMNITERM is a professional communications 
package for the TRS-80that allows you to easily 
communicate and transfer files or programs 
with almost any other computer. We've never 
found a computer that OMNITERM can't work 
with. It's a complete package because it in- 
cludes not only the terminal program itself, but 
also conversion utilities, a text editor, special 
configuration files, serious documentation and 
serious support. 

Why do I need it? 
You need OMNITERM if you need to communicate 
efficiently with many different computers, or if 
you want to customize your TRS-80for use with 
one particular computer. You need OMNITERM to 
SOLVE your communications problems once and 
for all. 

What do I get? 
The OMNITERM package includes the OMNITERM 
terminal program, four conversion utilities, a 
text editor, and setting files for use with popular 
computers such as CompuServe, the Source, 
and Dow Jones —just as samples of what you 
can do for the computer you want to work with. 
The package includes six programs, seven data 
files, and real documentation: a 76-page manual 
that has been called the best in the industry." And 
OMNITERM comes with real user support. We 
can be reached via CompuServe. Source, phone, 
or mail to promptly answer your questions 
about using OMNITERM. 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of 
memory, one disk, and the RS-232 interface, or 
Microconnection modem. OMNITERM works with 
all ROMs and OOSes. and will work with your 
special keyboard drivers. 

What will it do? 
OMNITERM allows you to translate any char- 
acter going to any device: printer, screen, disk, 
keyboard, or communications line, giving you 
complete control and allowing you to redefine 
the character sets of all devices. It will let you 
transfer data, and run your printer while con- 
nected for a record of everything that happens. 
OMNITERM can reformat your screen so that 80. 
32. or 40 column lines are easy to read and look 
neat on your TRS-80 screen. It even lets you get 
on remote computers with just one keystroke! 
The program lets you send special characters, 
echo characters, count UART errors, configure 
your UART, send True Breaks and use lower 
case. It accepts VIDEOTEX codes, giving you full 
cursor control. It will even let you review text that 
has scrolled off the screen 1 Best of all. OMNI- 
TERM will save a special file with all your 
changes so you can quickly use OMNITERM for 
any one of many different computers by loading 
the proper file. It's easy to use since it's menu 
driven, and gives you a full status display so 
you can examine and change everything. 
"OMNITERM has my vote as the top TRS-80 
terminal program available today" Kilobaud 
Microcomputing. June 1981. pages 16-19. 

OMNITERM is $95 (plus shipping if COD) Call for 
24 hour shipment. Manual alone $15. applied 
toward complete package. Visa. M/C, and COD 
accepted MA residents add 5% tax. Dealer 
inquiries invited. 

Also available OMNITERM for the TRS-80 
Model II and IRM personal computer. 
Contact Lindbergh Systems for details. 

/Jindbergh Systems 

41 Fairhill Road, Holden. MA 01520 
(617) 852-0233 „ 199 

Source TCA818 CompuSnw TO10X7 TRS-80 is a '- af Tandy Corn 
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Lisp 

Supersoft 
P.O. Box 1628 

Champaign, II 61820 
$100 disk 
$75 cassette 



• • • • 

UOL1SP 

Far West Systems and Software 
P.O. Box 3301 
Eugene, OR 97403 
$109 



by Bruce Powel Douglass 



Lisp stands for list processor. 
Lisp is the language of choice in ar- 
tificial-intelligence programming, be- 
cause of its flexibility, power, and abili- 
ty to work with symbolic expressions. 
The two Lisps reviewed here are good 
implementations of the language; they 
do, however, take different approaches. 

Lisp 

Supersoft's Lisp is not a "tiny" Lisp, 
but a complete version allowing full re- 
cursion. It has a PROG construct to al- 
low using sequential types of programs 
written in Lisp. Lisp runs in 16K with 
cassette systems and supports single- 
precision, floating-point arithmetic and 
functions. It uses the Basic ROM rou- 
tines to do this, which accounts for con- 
siderable reduction in the size of the 
Lisp interpreter. 

The manual is fairly good. It is not a 
tutorial on Lisp, but does describe the 
Supersoft implementation well. It 
lacks an index, but does have a table of 
contents and a list of relevant refer- 
ences. It assumes little programming 
expertise on the part of the user other 
than a little familiarity with Lisp. 

The language itself is easy to use. A 
Trace debugging facility is provided so 
you can trace a function's execution. 
Also, a symbolic-differentiation pro- 
gram is supplied, as well as a Taylor- 
series expansion program. These allow 
easy entry of mathematical expressions 
and generate the derivatives or Taylor 
series, respectively. 

The package provides a few abilities 
beyond normal Lisp packages. The Ba- 
sic transcendental functions (such as 



SIN, COS, ATN, and LOG) are sup- 
ported. Explode and Implode, func- 
tions not supported by UOLISP, are 
supported. PEEK and POKE are also 
available in Supersoft Lisp, as is 
LPRINT. TRS-80 graphics commands 
are not supported. 

Disk I/O is provided so that you can 
load or save functions and programs to 
or from disk. The files are saved in 
ASCII format, so you can edit them 
with a text editor. Generally, for long 
programs, it is easier to create and edit 
them with a text editor rather than us- 
ing the Lisp environment. You can 
save property lists of atoms as well as 
functions and atoms. Tape users use 
CLOAD and CSAVE, and disk users 
use Load and Save; disk users can also 
kill disk files from within Lisp. 

Edit, a Lisp editor, lets you modify 
existing Lisp functions. To use it, load 
it from disk (with the command 
(LOAD '(EDIT/LSP)) ) or from tape 
((CLOAD) ). You enter the editor with 
the command (EDIT FN), where FN is 
some existing Lisp function. You can 
add to the editor by using it to edit it- 
self. Some of the abilities of the editor 
include moving across or down (into) a 
list, going to the top of the list, insert- 
ing text, replacing text, setting break- 
points, printing the entire function, 
and deleting an item. For simple edit- 
ing, Edit works fine, but for extensive 
editing you should use a full-screen 
editor. Incidentally, you can use The 
Alternative Source's KBE for this pur- 
pose and have a full-screen editor 
within the Lisp environment. 

Supersoft Lisp is an excellent Lisp 
for beginners and advanced program- 
mers. It is easy to use, and many 
TRS-80 functions and floating-point 
routines are supported, adding to its 
flexibility. 

UOLISP 

UOLISP is not quite as complete an 
implementation as Supersoft's Lisp, 
but it has other attractions. UOLISP 
runs in a minimum of 16K, although 
32K or 48K is recommended. The ex- 
tras that come in the UOLISP package 
include a Lisp interpreter, a Lisp com- 
piler, the Meta language writing sys- 
tem, an RLisp compiler, a Trace func- 
tion, and a small Lisp editor. UOLISP 
does not support floating-point 
numbers. 

The manual is not as easy to read as 
Supersoft's manual. If you are not an 
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Finally, a Spelling Checker that can SPELL! 



Electric 
Webster 

The "Cadillac" of Spelling Checkers! 

80 Microcomputing, 9, 82 



No other spelling checker 



• FAST and ACCURATE 

comes close! 

• INTEGRATED — Proofs and corrects from 

within all these popular word processing 
programs: Scripsit, Newscript. Lazy Writer, 
Electric Pencil, Superscript, and CopyArt. 

• SMART - Finds and displays correct spellings instantly — ~no~more clumsy dictionaries! 

• HYPHENATES automatically — inserts discretionary hyphens with 100% accuracy, (optional) 

• COMPLETE — One step proofing system with integrated Grammatical and Hyphenation 

features, (optional) 

No other program can claim even one of these features. 




EASY TO USE: Type your text using any of a number of 
popular word processing programs. When you are done, hit 
the appropriate key, and ELECTRIC WEBSTER proof- 
reads your document, displaying misspellings and typos 
on the screen. 

Then, Correcting Electric Webster can display each error 
separately, requesting you to enter the correct spellings for 
each. You are given the options of displaying errors in 
context, adding words to ELECTRIC WEBSTER's 50,000 
word dictionary, or even displaying the dictionary to find 
the correct spelling. If you think you know the correct 
spelling, Electric Webster will verify it for you. 

Finally, Electric Webster CORRECTS YOUR TEXT, 
automatically inserts discretionary HYPHENS (optional), 
and points out GRAMMATICALerrors (optional), all with 
remarkable speed! 



LOW PRICES: Standard Electric Webster is available for 
$89.50 (TRS-80™ Model I & III, or Apple™) or $149 50 
(CP/M™, TRS-80™ Model II and all others.) The optional 
Correcting Feature can be added at any time ($60) as can 
Hyphenation ($50) and Grammatical ($40). During the 
closing months of 1982 only, we are offering 6 W/P integra- 
tion programs FREE (reg. $85 each) with the purchase of 
Correcting Electric Webster. 



The Ultimate PROOFING SYSTEM 



REVIEWS OF MICROPROOF (EW's predecessor): 

"There is simply no finer program available . . ." 
Creative Computing. March 1982 

"This is a very useful product and should be obtained by anyone 

who uses a word processor." 

80 Microcomputing, August 1981 

"The summary review of this program? One word— Excellent." 
Computronics. September 1981 

"In a comparative review of proofreading programs (with smaller 

dictionaries! MICROPROOF was found to be considerably faster 

than all the others, when tested against a 400 word sample 

document." 

BYTE Magazine. November 1981 

"A 1500 word document took 26 seconds to load, process and proof 
... it is very friendly and any prson able to use a word processing 
program can master it in moments." 
InfoWorld. January 1982 

"By far, the most capable and efficient of these spelling checker 

programs." 

Microcomputing. June 1982 

AND NOW ELECTRIC WEBSTER: 

"Actually, Electric Webster is faster than its predecessor (Micro- 
proof) . and spelling corrections are immediately verified 
against the dictionary before being accepted . . ." 
Microcomputing. June 1982 

"Electric Webster is the Cadillac of vocabulary programs." 
80 Microcomputing. September 1982 




CORNUCOPIA SOFTWARE 






Post Of ice Box 6 1 1 1 Albany, California 94706 



(415) 524 8098 



►;<* 



*v 







^■See List ol Advertisers on Page 451 
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experienced Lisp user, it will be very 
difficult to get through. It does sport 
an index, but lacks a table of contents. 

UOLISP supports a large subset of 
Lisp functions. It does not, however, 
support Explode, Implode, or Expand. 
TRS-80 graphics are supported. 

Disk I/O supports the standard 
ASCII Lisp source-code format file, 
similar to that used by Supersoft and a 
Fast Load format since it contains a 
compiler in addition to the interpreter. 
This kind of file loads and saves more 
quickly, it takes up less space in memo- 
ry and on disk, and executes signifi- 
cantly faster. 

The compiler requires UOLISP to 
be resident to run the compiled pro- 
grams and is easy to use. 

LAP stands for Lisp Assembly pro- 
gram, and is a Z80 assembler resident 
with the interpreter. It allows you to 
enter Z80 op-codes (which are slightly 
different for this assembler than for 
the standard assembler since TDL 
mnemonics are used), and these codes 
will be assembled into a function. This 
is useful for creating functions that 
must run quickly. 

One of the nice features about 
UOLISP is that it contains an RLISP 
parser. RLISP is a cortex syntax for 



Lisp, and was created by A. C. Hearn 
in 1973. Lots of people are intimidated 
by the strange appearance of Lisp pro- 
grams, and RLISP provides Lisp with 
a more understandable syntax. It con- 
tains a parser that reads in RLISP syn- 
tax and parses the expressions into Lisp 
format, and then passes it over to Lisp 
to evaluate. It is easy to move back and 
forth between RLISP and Lisp. 



' 'Supersoft *s Lisp 

is not a 'tiny' Lisp, 

but a complete version 

allowing full recursion. " 



RLISP is a structured language with 
If. . .Then, Do. . . While, and For con- 
structs. The For construct lets you per- 
form actions for each element in a list, 
as well as the standard FOR i : = 1:2 
DO. The syntax is FOR EACH i IN X 
DO..., where X is the list. RLISP 
functions can be compiled by the com- 
piler as they are read in. The manual's 
chapter on RLISP is more readable 



than most, and beginners should be able 
to get through it with a minimum of 
work. RLISP is a useful addition to this 
package. 

Another addition to UOLISP is the 
Little Meta Translator Writing System, 
or Meta. It also sits on top of the Lisp 
interpreter. The intended use for Meta 
in the UOLISP package is for language- 
design experimentation. Meta supports 
BNF-like syntax, recursive-descent 
parsing schemes, lexical primitives, pat- 
tern-directed code generation, and syn- 
tax-error message generation. Examples 
are given, and a calculator-like language 
is implemented before your very eyes. If 
you've ever wanted a simple way to 
translate Fortran into Basic or Pascal 
into PL/C, this is the proper environ- 
ment. A separate manual accompanies 
Meta. Lisp is the ideal language envi- 
ronment for writing such a translator, 
and UOLISP is greatly enhanced by in- 
cluding it. 

UOLISP lacks floating point and a 
few Lisp functions, but is fairly com- 
plete and easy to use, once you figure 
out how. It also features a function 
compiler, the LAP assembler, RLISP, 
and the Meta Translator system. If you 
have experience in Lisp and like to ex- 
periment, UOLISP is a great choice. ■ 
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Quest 

Aardvark-80 
2352 S. Commerce 
Walled Lake, MI 48088 
Color Computer, 16K 
$14.95 cassette 

by Beth Ann Norman 



Quest is an adventure game written in 
Basic. Your goal is to travel 
through the lands of Alesia to Moor- 
lock's citadel and, ultimately, defeat the 
forces of evil within. What makes Quest 
unique is that it's different every time 
you play it. It also makes good use of 
the Color Computer's graphics. 

The game starts with the computer 
drawing a randomized map of Alesia. 
Certain features of the map are always 
the same; a river always runs straight 
across the middle of the screen, and 
Moorlock's citadel is always in the low- 
er right corner. Also, two cities, one on 
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each side of the river, a mountain range, 
and a swamp are always present, al- 
though randomly placed. Your charac- 
ter is represented by a colon and is 
placed randomly at the beginning of 
each game somewhere in the upper half 
of the screen. 

The bottom of the screen is the com- 
mand line. Your major commands, 
with which you answer the "What now, 
Sire?" prompt, are: N, E, W, and S for 
the directions, M for redrawing the 
map, I for taking inventory of your pos- 
sessions, and U for when you wish to 
use an item. There are other commands 
for special situations. For example, you 
might meet a band of well-armed ogres. 
The computer asks you if you want to 
attack, run, or be friendly. You reply by 
giving the first letter of your choice. 

You start each adventure with 10 
loyal companions. Your object is to 
gather the men, weapons, armor, and 
food capable of defeating the forces at 
the citadel. You gain men and money 
by fighting or coming to terms with 
bands of ogres, wizards, pilgrims, and 



soldiers. You can also find money 
in caves, ruins, castles, and towers. 
All are randomly placed with each new 
game, and do not appear on the screen 
until you approach them while explor- 
ing Alesia. You can also buy food, ar- 
mor, and weapons at the marketplace in 
each city. 

You will need certain items to gain 
entrance to many places. For instance, 
when you find a cave, the computer 
draws a picture of the entrance and tells 
you, "You're at a cave. It's too dark to 
see! What now, Sire?" Your response 
might be to type in U for a listing of 
everything your men are carrying to see 
if you've brought a light source along. 
If you have, use it to enter the cave. You 
then are given the choice of searching or 
leaving. 

I'll give you a hint: It you don't find 
anything at first, keep searching — you 
will find something eventually, even if 
it's a band of soldiers. If you re-enter a 
building after having removed the goods, 
though, you won't find anything new. 

When you buy needed items in the 
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he Evolution of Low-Cost 
Electronic Communications 

We believe AceMail is 
probably the most powerful, auto- 
mated two-way message system ava 
able for anywhere near the price. But dont 
let the price fool you. 

The Automated Computer Electronic Mail 
software offers some unprecedented clout in com- 
munications across the phone lines. From a completely 
unattended TRS-80, AceMail can look up a phone number, 
dial it, log/on to the system, upload and download ASCII files, 
log/off and wait until later to call another computer. Vbu may also 
call AceMail from a remote location and exchange information. 

A world of information is at your fingertips as AceMail offers speed and account- 
ability in accessing branch office correspondence, sales reports, data banks and time 
sharing systems nationwide. 

The multifunctional system is easy to use and comes with a complete users manual allowing even 
the inexperienced user to send and receive electronic mail in minutes! 

If your TRS-80 is due to evolve in the world of electronic mail, then choose the communications 
system with ease and power— AceMail. 

Written exclusively for the Hayes Stack Smartmodems and the TRS-80 Model l/lll 48K with disk. 
AceMail operates on NEWDOS/80 or DOSPLUS and comes supplied on 'tiny' DOSPLUS ready to run. 
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Hayes Stack Smartmodem 1200-$619.00 

Hayes Stack Smartmodem 300 -$239.00 

ACEMAIL 1200 Software-$119.00 

ACEMAIL 300 Software -$79.00 



Al» ace computer products of florida, inc. 

1640 n.w. 3rd street, deerfield beach, florida 33441 voice (305) 427-1257 data (305) 427-6300 

ORDER TOLL FREE 1-800-327-2283 
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marketplaces, you find that the list of 
what is on sale is randomized and 
changes with each visit. Some items 
have many uses, and there's one that I 
still haven't figured out. One of the fun- 
niest parts of the game is haggling with 
the merchants. 

A realistic feature of the game is the 
weight system used. Each man can carry 
only 100 pounds. The computer keeps 
track of the total weight of your items 
(plate mail — 50 pounds, broadsword — 
10 pounds, and so on) and compares it 
to the amount your men can carry. If 
the total is too high, you must drop 
items until the weight is acceptable. You 
cannot ignore these warnings, since you 
will be unable to move until enough ma- 
terial has been left behind. 

When you think you've found or 
bought everything you can in the upper 
half of the map, you're ready to cross 
the river. Beware traveler; your men 
can't swim! 

Once you have crossed the river and 
you've gathered what you consider to 
be enough men, weapons, armor, and 



food, attack the citadel. You will find it 
difficult to defeat Moorlock's forces 
unless you have a certain item, which of 
course I cannot reveal. The display for a 
fight (either at the citadel or with any- 
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one you encounter) lists everchanging 
tallies of your men, weapons, experi- 
ence level, luck, and survivors, against 
theirs. To stop the fight, hit the space 
bar when you think your luck number is 
higher than your opponent's, although 
this is just one factor in deciding the 
outcome. You can next see how many 



survivors each party has. You can fight, 
run, or come to terms whenever a fight 
has been stopped. If you run, your foes 
may catch you, and just because you 
want to come to terms doesn't mean 
that they will. 

If you kill all your enemies in a fight 
outside the citadel, salvage their equip- 
ment. If you come to terms, some will 
join you, bringing equipment, food, 
and money. If all your men are killed, 
of course, the game ends. 

Quest is a wonderful, well-thought- 
out game. It is a terrific game for begin- 
ning adventurers, because there are no 
sudden unreasonable ways to lose. For 
example, if you are losing men in a 
fight, you can always try running away. 
You can save a game on tape at any 
point (as long as the "What now, 
Sire?" prompt is on the screen), and 
return to it later. Quest is also fairly 
short for an adventure — playable in two 
to five hours. Since the game is different 
every time, you are not likely to lose in- 
terest in it the first time you defeat the 
forces of evil. ■ 
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NOW YOU CAN ENJOY THE EASE 
AND CONVENIENCE OF LOAD 80 
CASSETTES WITH 

LOAD 80 

And to start you off right, we're offering a Special First Edition of 
COLOR LOAD 80— "The Best of '82." All the best color pro- 
grams from the 1982 issues of 80 MICRO at the very special price 
of $14.97 plus $1.50 shipping and handling. 

To order your Special First Edition COLOR LOAD 80 cas- 
sette, fill out the coupon or call toll free: 

1-800-258-5473 

Order one for yourself and one for a friend. Perfect for holiday 
gift-giving. 

COLOR LOAD 80 will be offered on a quarterly 
basis (see March 83 80 MICRO for details. 

Color LOAD 80 is manufactured by Instant Software Inc., a sub 
sidiary ol Wayne Green Inc.. 80 Pine St.. Peterborough. NH 03458 
There is no warranty enpressedor implied that COLOR LOA0 80 * 
do anything other than save you typing 
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YES, I want the Special First Edition of 

COLOR LOAD 80! Send me cassettes 

@ $14.97 ea. plus $1.50 shipping & handling 
per cassette. 
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LSI Soft-view CRT 

Langley-St. Clair Instrumentation 

Systems Inc. 

132 West 24th St. 

New York, NY 10011 

$80-5100 

by Dave Smith 

Remember the night you worked into 
the wee hours coding and debug- 
ging that super adventure on your 
TRS-80? Or the time you had to turn 
out that 30-page, end-of-the-year report 
with your word processor? Remember 
how tired your eyes became? 

The reason for such fatigue stems 
from the cathode ray tube (CRT) Tandy 
uses in the manufacture of the TRS-80. 
It is basically a tv-type picture tube on 
which the display strobes 60 times per 
second. The screen is coated with rapid- 
decay white phosphors that fade quick- 
ly and are re-excited upon the next 
strobe, causing a repeated fading and 



brightening. The LSI Soft- view CRT 
combats this problem. 

These replacement CRTs are avail- 
able with either a slow-decay green 
phosphor or a medium-decay amber 
(orange) phosphor. The medium- 
decay phosphors fade at a rate nearly 
100 times slower than the white phos- 
phors. For this review I used the am- 
ber display CRT. 

The CRT comes with an eight-page 
installation instruction booklet. All the 
appropriate warnings regarding health, 
safety, and the invalidation of the Tan- 
dy warranty are prominently displayed 
in the booklet. There is also a handy list 
of the tools needed if you plan to do 
your own installation. (The alternative 
is to rely on your local computer center 
or tv repair shop for the installation.) 

The instructions include fully de- 
tailed, step-by-step procedures, loca- 
tions and types of screws to be en- 
countered, colors of wires to be 
unplugged, and so on. They do not 
include any pictures or diagrams, but 
are very easy to follow just the same. 



The hardest part of the installation is 
accepting the recommended one-hour 
wait following turning the power on be- 
fore making further internal adjust- 
ments. (My installation required only 
one such adjustment.) 

Finally, the moment of truth. It gave 
me a real lift to stand back and look at 
the familiar grey case with the totally 
unfamiliar amber letters and numbers 
on the screen. It took some time for my 
audiences' ooohing and aahing to sub- 
side, but I managed eventually to get 
down to some dispassionate assessment 
of performance. 

The amber phosphors do not glow 
with the same intensity as the white. 
(I was later informed that they are 
only 42 percent as efficient in their light- 
emitting properties.) Therefore, I spent 
some time adjusting and readjusting the 
brightness and contrast controls for ac- 
ceptable character clarity. In addition, 
the new CRT features both the double- 
dark leaded glass (standard) and the 
anti-glare surface (optional), further re- 
ducing the brightness of the screen. The 



niss:.. 

Your Source of Business Planning 
and Forecasting Software 



NISSCAST™ 

N1SSCAST is a sophisticated financial 
program and the first forecasting 
software for personal computers that 
incorporates seasonal adjustments. The 
exceptional structure of NISSCAST 
allows you to perform seasonal adjust- 
ments on the historical data and view 
results with the graphics option. 



DEALER INQUIRIES INVITED 



PERSONAL COMPUTER 
SOFTWARE SUPPORT SERVICE 

NISS offers one full year of support 
service for each program acquired from 
the company. This unique service pro- 
vides you with direct access to the NISS 
staff of professionals who will courte- 
ously help solve software problems on 
your personal computer. Support ser- 
vice agreements are also available for 
business planning and forecasting pro- 
grams acquired through other sources. 



TOLL FREE HOTLINE 



Call NISS now at 1 -800-52 5-SOFT for 
your free software catalog and for infor- 
mation on our unique support service. 
You won't be left "friendless" once you 
license software from NISS. 

NISS supports its software when it is 
used on the TRS-80 Model II personal 
computer. 

Maximize your productivity and profit 
from a relationship with NISS. 




NATIONAL INTEORATIO SOFTWARE SERVICES, INC. 

8800 East Arapahoe Road, Englewood, Colorado. 80112 



NISS i* • registered trademark of National Integrated 
Software Servicer In< 

Apple II plus ii a trademark o( Apple Computer. Inc 
IBM Personal Computer it a trademark of Interna- 
tional Business Machines. Inc 

IKS-ao Model II is a trademark of The Tandy Cor- 
poration. 

1-800-525-SOFT 

In Colorado (303) 694-1994 

MC 
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Convert to CP/M 
and Save. 

Unprecedented Sale for Model III Owners. Call for Details. 



The Trouble with TRS-DOS. 

Although TRS-DOS is an excellent operating system, it 
has one major disadvantage. When compared with CP/M, 

TKS DOS locks you into a limited and possibly dead-end 
course. When you are ready to upgrade to a new computer, 
il is likely that none of your present software will run on 
the new machine. All of the tune and monej you have 
invested in TRS DOS software will be lost. 

CP/M for the TRS-80. 

Converting to CP M offers the TRS-80 owner many advan 

tages. The TRS SO immediately becomes capable of run 
ning twice the software <>f any othei computer on the 
market Perhaps more importantly. CP M permits soft 
ware portability. I'n'ike TRS I)( )S programs, CI' M pro 
grams can be directly transferred to your next computer. 
The savings in time and software costs can be ouite sig- 
nificant. CP M conversion can easily pay for itself with the 
money saved on one or two software purchases. The sooner 
you convert to CP M. the more you stand to sa\ e 

CP/M Acquires Unprecedented Support. 

Over the pasl year, a number of powerful competitors 
have introduced new microcomputers. Most people will 
instantly recognize the names of Xerox, IBM. Hewlett- 
Packard. Digital Equipment and Zenith. The Japanese 
companies. Sony. NEC, Sanyo, Toshiba and Sharp, are 
equally well known Together, these companies have com 
mitted ovei a billion dollars to compete effectively in the 
micro market. TRS 80 owner- should be aware that every 
one of these companies has chosen CP M foi their stan- 
dard operating system. Over the next few hi se 
companies \s ill sell millions of CP M computers. Consul 
ering tin - it is clear thai CP M is the operating 
system of the future 

Apple and Commodore Offer CP/M. 

In a recent press conference, the Apple Computer 
Company stated, "The largest installed base CP M system 
in the world today is the Apple II with the Z80 card from 
Microsoft.' In a recent full page ad in the Wall Strei I 
Journal. Apple announced CP M fur the Apple III. 
mmodore, refusing lo be left behind, ha- recently 
announced then "Emulator" series of computers thai - 
port CP M. There are even rumors that the new Tandj lo' 
will support a version of CP M. 



Plan Ahead. 

The Omikron "Mapper" offers the ideal step to upgrading 
to a newer, more powerful computer. With the "Mapper, ' 
your TRS-80 can run both CP M programs and TRS-DOS. 
With CP/M, you can build a software library that's fully 
compatible with the newest CP/M business computers. 
All of the tune and money vou spend on selecting, pur- 
chasing, and learning CP/M software can be considered 
an investment in the future. In addition, your old TRS-80 
can gam a new lease on life as a fully compatible back-up 
unit. Consider all these points carefully. The Omikron 
"Works" package offers the best solution for protecting 
your investment in the TRS-80. By choosing the "Works'." 
you can purchase a "Mapper" and also receive over SI. 000 
worth of top-quality CP/M software. Value, Utility, per- 
formance -Omikron offers you more than ever before. 



COUGAR . . . OmikiWs Users Group. 

CP M has always been the standard for business and pro- 
fessional use This market has always demanded high 
quality and high performance. The high prices for CP M 
programs reflect the additional effort required to develop 
top-qualitj software products. To help our customers afford 
CP M software, Omikron has formed Cougar, our official 
users group. Through Cougar, Omikron can purchase 
software products in large volume. This allows us to offer 
our customers some of the best CP M software in the 
industry at greatly reduced prices. 



Omikron Puts It All Together. 

Omikron has sold more CP M conversions than all of our 
competitors combined. Omikron was the first in the mar- 
ket with a CP M conversion. Omikron has continued to 
lead the market for one simple reason — our total commit- 
ment to our customers. Only Omikron offers a "Works" 
type introductory package, (inly Omikron has a "Cougar" 
type users group for long term savings. Our hardware has 
always been designed with reliability first. Our software 
is well designed, complete, and bug free. Our technical 
hot line assists those with problems. Finally, our exchange 
policy has enabled our customers to upgrade to our new 
designs tor much less than the cost to new customers. 
When \(iu buy from Omikron, you buy from a company 
with a proven record of dedication and succ< - 



OMIKRON 



Products that set Precedents 

1127 Hearst Street, Berkeley, CA 94702 (415) 845-8013 



'.hock /Tandy Corporal. on 



^v Wordstar™ Micro Pro 



CBASICII. CP/M™ Digital Research 
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benefit of the leaded glass is the reduc- 
tion of x-ray emissions from the screen. 
My initial reaction was very favor- 
able, but included a twinge of disap- 
pointment, since I had been expecting 
an amber duplication of the white phos- 
phor screen. It was only after using the 
computer for an extended time that I 
fully appreciated the pleasure of fa- 
tigue-free viewing. I became accus- 



r 7 became accustomed 
to the subdued amber 
screen very quickly. " 



tomed to the subdued amber screen very 
quickly, tending to be unconscious of 



the color and of the absence of flicker 
and glare until forced to use a standard 
machine. Having used the amber CRT, 
I found the black-and-white screen 
harsh and discomforting. 

If you use your TRS-80 frequently or 
for extended periods at a single sitting, 
the improved viewing comfort and 
health features of these replacement 
CRTs are very much worth the price. ■ 
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FED File Editor for LDOS 
Galactic Software Inc. 
11520 N. Port Washington 
Mequon, Wl 53092 
$40 disk 

by Charles P. Knight 



FED is a file editor designed to run 
only under the LDOS operating 
system. It is a unique concept in zap 
programs in that it operates on the file 
level only, rather than the track/sector 
level. It is a great improvement over the 
usual zap program. 

File level only does not mean that 
files like DIR/SYS and BOOT/SYS 
cannot be examined; they must be ex- 
amined as a File rather than as a group 
of sectors. BOOT/SYS, for example, is 
a file of five sectors beginning at track 
0, sector 0. If it is accessed as a file, it 
isn't necessary to know where it is on 
the disk. The password must be sup- 
plied. If you don't know it, RS0LT0FF 
gives you access to any file anywhere 
under LDOS. Because of this approach, 
many advanced features are available 
and you can perform functions that 
would be difficult if you had to know 
which sectors on the disk contained 
the file. 

There are two display modes: One is 
a standard 256-byte mode with the 
ASCII display on the left instead of the 
usual right, and the other is an extended 
128-byte mode with the ASCII across 
the top of the screen, the hex in the 
center, and plenty of space for other in- 
formation (where the cursor is, name of 
file being worked on, hex and decimal 
value of byte under cursor, and so on). 

Pressing the T key toggles between 
these two display modes. The latter is 
particularly nice for modifying ASCII 
files. Also available on the video in the 



128-byte display mode are file name, 
relative byte under cursor, decimal and 
hex values of that byte, drive number, 
record number within the file, and the 
last command entered. 

Graphics are not displayed and are 
represented by a graphic block instead 
of the usual period — a great help when 
dealing with files that contain both peri- 
ods and graphics. I think a major im- 
provement would be an optional graph- 
ics ASCII display, though. You can 
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modify graphics by entering the appro- 
priate hex character, but you can't view 
your changes directly by looking in the 
ASCII column. 

The usual file modifications are 
available plus much more. You can 
modify in hexadecimal or ASCII, or if 
you want to know what the character 
under the cursor is in binary, press the 
equal key ( = ) and it is immediately dis- 
played at the lower right of the screen. 
The binary representation should 
display the value under the cursor all the 
time in the 128-byte mode, as there is 
enough room on the screen; however, 
this is not a serious drawback. 

If you want to know where a byte will 
load into memory, press M and the load 
address of that byte will be displayed. 
This is useful particularly when convert- 
ing X-type patches to D type. If you 
want to save the modified file, you must 
press the break key to exit the modify 



mode, and then press S followed by 
enter. By requiring that enter be pressed 
here, mistakes are more difficult to 
make and much easier to correct. 

There are three commands for 
searching through the file (the whole 
file, not just the displayed sector like 
most zap utilities). The C command 
searches through the file for an ASCII 
string up to 15 bytes long in the 256-byte 
display mode or 30 bytes long in the 
128-byte display mode. The search 
begins at the present cursor position and 
searches the rest of the file. Unlike 
many such features in other utilities, if 
the string searched for falls across sector 
boundaries, FED still finds it correctly. 

The F command performs the above 
search for a string of hex bytes up to six 
characters long if in the 256-byte display 
mode, or up to 30 characters if in the 
128-byte mode. 

The L command, unlike any I've seen 
before, searches for a load address, and 
if found, positions the cursor over the 
byte that loads at that address. This 
search starts at the beginning of the file 
and continues until the end is reached. 

The G command can be used after 
any one of the above three commands 
to go to the next occurrence of that 
byte, string, or load address in the file. 

The D command prints the entire file 
to the line printer. If the printer is off- 
line, FED waits until it is ready or until 
the break key is pressed. The format 
prints three sectors of information on a 
page. FED performs its own pagina- 
tion, so if you have a printer filter resi- 
dent for output formatting, you might 
want to disable it to prevent conflict. 
The output is well formatted and 
thoughtfully arranged. 

The P command sends the current 
edit buffer to the printer rather than 
the entire file, while the O command 
outputs a top-of-form character 
(CHR$(12)) to the printer. This is a 
clear example of programming that 
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keeps the user in mind. Another exam- 
ple of this is the Enter command. Sim- 
ply pressing the enter key displays a 
menu of available commands and their 
functions. 

For machine-language programmers, 
the Z command jumps from load block 
to load block within the file. The cursor 
must be on the type byte (usually 01) 
when the key is pressed. FED then finds 
and positions the cursor over the type 
byte of the next load module. This is 
very handy for working out patches to 
someone else's code when you don't 



have the source. 

When you are done editing the file, 
you can press E and enter to exit FED, 
or N, enter, and the file name of 
another file to be worked on. During 
the entering of any command, if you 
change your mind or make a mistake, 
simply press the break key to abort the 
command sequence. To position the 
cursor to the beginning of the file or to 
its end, press the B or E key. To position 
the cursor at the beginning of a partic- 
ular logical record (sector when 
LRL = 256), press the R key followed 



by the number of the logical record you 
want in hexadecimal. While editing, the 
arrow keys move the cursor and the 
semicolon and hyphen keys move the 
display forward or back one sector. 

For $40 you receive a disk-file editor 
that has capabilities you'll wonder how 
you got along without. I use mine al- 
most daily and keep a copy on my 
working system disk so that it is always 
available to me. If you're an LDOS user 
and have a need to modify files at the 
disk-sector level, you should have this 
program in your library. ■ 
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Bounceoids 
Cornsoft Group Inc. 
6008 N. Keystone Ave. 
Indianapolis, IN 46220 
Model I or III 
$15.95 cassette 
$19.95 disk 

by Mark E. Renne 

The scenario for Bounceoids is a 
familiar one. You move your ship, 
located in the middle of the screen, by 
using a joystick or keyboard control. 
Your mission is to destroy the large, 
floating space boulders surrounding 
your ship before they destroy you. This 
game, however, is not another version 
of asteroids. 

You can maneuver your ship in a 
variety of ways. The arrow keys, R, T, 
O, P, or a joystick can be used to turn 
the ship right or left, move it forward, 
or activate the shields. The shields pro- 
tect the ship in the event a boulder gets 
too close. 

Unlike an asteroid-type game, you 
cannot penetrate the boundaries of the 
screen. Boulders bounce off the walls of 
the screen and ricochet at 90-degree 
angles. Boulders form groups of four or 
more and move in unison. The groups 
can become very large at higher skill 
levels and form a straight line that 
crosses the entire screen. 

If these groups of boulders aren't 
enough to throw you, a snake-like 
creature periodically appears from the 
side of the screen to confront you. In 
the higher levels, this multi-segmented 
creature becomes so long it is almost 
impossible to destroy. 

If this still isn't enough trouble for 
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the advanced alien fighter, there's 
more action ahead. At points directly 
north, south, east, and west, alien ar- 
tillery posts appear. When playing in 
the lower skill levels they will wait a 
long time before firing at your ship, 
but as you move up in skill, they fire 
very rapidly. Your epitaph will be writ- 
ten quickly if you're not fast on the fire 
button. 

Just for fun, there's also a wander- 
ing alien who bounces around causing 
more problems for would-be starfleet 
heroes. With all these different bad 
guys running around, it's not easy to 
survive. Should you accumulate 10,000 
points a new ship is awarded. 

After 20,000 points you reach the 
real challenge of this arcade madness. 
A string of unique aliens descend from 



the upper-left corner and move across 
the screen, allowing you to gather extra 
bonus points. At this point you also 
change skill levels. 

Only the highest score is maintained 
on the system (and only until you turn 
off the power). You don't even get a 
chance to enter your initials. It does 
seem strange on a disk system that the 
top 10 scores aren't maintained. 

Ten levels of play are available for 
one or two players. Each player may 
start at a different level of play. For ex- 
ample, player one may play at level 9 
(expert) while player two plays at level 
(beginner). 

This game is fast and should pro- 
vide the ardent arcader with enough 
action to provide a challenge and sore 
fingertips.! 
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The Disk Doctor 
Superior Graphic Software 
406 Little Mountain Road 
Way nesville, NC 28786 
Color Computer 
$49.95 

by John Steiner 

The Disk Doctor is a Basic program 
that assists in the reconstruction of a 
damaged Color Computer disk file. 

To ensure the integrity of your files, 
the Disk Doctor manual starts off with 
this advice: Check files for accuracy by 
using the Verify On command before 
saving a file or program. Use Field com- 
mands from Basic, rather than from 
within a program. Keep your fingers, 



coffee, nail files, and so on away from 
the head opening on your disks. Don't 
put disks on top of your monitor or 
drive unit. The magnetic fields gener- 
ated by these devices make quick work 
of your files. Back up anything you 
think is important, and do it often. 

Another hint given by the Disk Doc- 
tor is to put a write-protect tab on any 
disk any time you receive an I/O error. 
Write-protecting a disk keeps the allo- 
cation table from becoming garbled and 
assists you in the reconstruction of the 
disk. The disk files that are still intact 
can be transferred to another Prefor- 
matted disk using the Copy command. 

Regardless of what the Color Com- 
puter disk manual says, Copy will work 
on a single-drive system; just enter 
COPY "FILENAME/EXT". You are 
prompted when to change disks, just as 
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3 display formats: 51/64/85 

columns x 24 lines 

True lower case characters 

User-friendly full -screen 

editor 

Right justification 

Easy hyphenation 

Drives any printer 

Embedded format and 

control codes 

Runs in 16K, 32K, or 64K 

Menu-driven disk and 

cassette I/O 

No hardware modifications 

required 
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Simply stated, Telewriter is the most powerful 
word processor you can buy for the TRS-80 
Color Computer. The original Telewriter has 
received rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
owners. And rightly so. 

The standard Color Computer display of 32 
characters by 16 lines without lower case is 
simply inadequate for serious word processing. 
The checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
TI, Vic or TRS-80 Model III. 

On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fun. With single-letter mnemonic 
commands, and menu-driven I () and 
formatting. Telewriter surpasses all others for 
user friendliness and pure power. 
Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 



. . . one ol the best programs lor the C olor 
Computer I have seen... 

Color Computer News, Jan. 1982 



TFLFWRITFR-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Telewriter -64. For two reasons. 



64K COM PAT IB IK 



Telewriter -64 runs fully in any Color Computer 
— 16K, 32K, or 64K, with or without Extended 
Basic, with disk or cassette or both. It 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telewriter -64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 * 24 and 85 x 24!! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 51 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
time. Compare this with cumbersome 
"windows" that show you only fragments at a 
time and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage of the full-width 

screen display is that you can now set the 
screen width to match the width of your 
printed page, so that "what you see is what 
you get." This makes exact alignment of 
columns possible and it makes hyphenation 
simple. 

Since short lines are the reason for the large 
spaces often found in standard right justified 
text, and since hyphenation is the most 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can get on 
the Color Computer. 



FKATURKS & SPECIFICATIONS: 



Printing and formatting: Drives any printer 
(LPVII/VIII. DMP-100 200, Epson. Okidata. 
Centronics, NEC. C. ltoh, Smith-Corona, 
Terminet. etc). 

Embedded control codes give full dynamic access to 
intelligent printer features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, etc. 

Dynamic (embedded) format controls for: top, 
bottom, and left margins; line length, lines per page. 
line spacing, new page, change page numbering, 
conditional new page, enable disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer at top speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from the keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line headers and automatic 
centering. Print or save all or any section of the text 
buffer. Chain prim any number of files from cassette 
or disk. 



File and I/O Features: ASCII format files — 
create and edit BASIC. Assembly. Pascal, and C 
programs. Smart Terminal files (for uploading or 
downloading), esen text files from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette serifs command for sure saves. Cassette auto- 
retrv means sou type a load command only once no 
matter where you are in the tape. 
Read in, save, partial save, and append Tiles with disk 
and or cassette. For disk: print directory with free 
space to screen or printer, kill and rename tiles, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full screen editor with 
wordwrap, block cops, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, fast auto-repeat cursor, fast scrolling, cursor 
up, down, right, left, begin line, end line, top ol text, 
bottom of text; page forward, page backward, align 
text. tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect, 
set line length on screen 

Insert or delete text anywhere on the screen without 
changing "modes," This fast "free form" editor 
provides maximum case of use. Fvcryihing sou do 
appears immediately on the screen in front of you. 
Commands require onlv a single key or a single ke> 
plus CLEAR. 



...truly a slate oj the an word processor, 
outstanding in every respect. 

— The RAINBOW, Jan. 1982 



PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Computer is the lowest priced micro with the 
capability for serious word processing. And 
only Telewriter-64 fully unleashes that 
capability. 

Telewriter-64 costs S49.95 on cassette. $59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tutorial will have your writing with 
Telewriter-64 in a matter of minutes.) 
To order, send check or money order to: 



Cognitec 

704 Nob Ave. 

Del Mar, CA 92014 



-121 



Or check your local software store. If you have 
questions, or would like to order by Visa or 
Mastercard, call us at (714) 755-1258 
(weekdays, 8AM -4PM PST). Dealer inquiries 
invited. 

(Add S2 (or shipping. Cahfornians add 6"o siale las Allow 2 
weeks lor personal checks. Send self-addressed stamped 
envelope tor Telewriter reviews from CCS. RAINBOW, 
80-Micro. 80-1. S. Telewriter owners: send SAST or sail for 
information on upgrading lo Iclcwnler-64. Tclewrnct 
compatible spelling checker (Spell "n I ,\i and Smari Terminal 
program (C'olorcom E) also available. Call or write (or more 
information ) 

Apple II is a iradcrnark ol Apple C omputer, Inc.; Alan is a 
irademark ol Alan. Inc., TRS-80 is a trademark ol lands 
Corp; MX-80 is a irademark ol t-pson America. Inc 



REVIEWS 



in the Backup command. Any Basic, 
ASCII, or binary file can be copied. 
Unlike Backup, programs in memory- 
are not affected. You can use Copy 
from within a program, but you may 
have to switch disks often if the pro- 
gram is in memory or the file is large. 

If you used the write-protect tab 
when you first received an I/O error, 
you only need to reconstruct that file 
containing the error. The Disk Doctor 
reads the allocation table and displays 
the locations of the files on the disk. A 
single file is easy to locate from the 
table. Just make a copy of the table that 
contains file-continuation information. 
If you have a printer, the documenta- 
tion tells you ho* to make the program 
print the table or any program output 
on your printer. 

Once you have this information, you 
can check the contents of any sector on 
the disk. The Disk Doctor transfers the 
file to graphics memory one sector at a 
time. When the file transfer is complete, 
install a formatted disk, and the menu- 
driven program transfers the file from 
graphics memory into a new disk file. 

Reconstructing an entire disk involves 
a little more work, especially if the allo- 
cation table has been destroyed. The 
Disk Doctor lets you reconstruct any 
file type including machine-language 



programs. 

The Doctor also contains a feature 
useful for good disks. If you locate the 
beginning of a binary file and read the 
first sector, you are given the start, end, 
and execute addresses. I recommend 
using the program on good binary files 
so you can find and store this informa- 



"The author has included 

a crashed disk with 

your program disk. 

If you. . . reconstruct 

the crashed disk, 

you get a back-up 

of the Disk Doctor. . . " 



tion should you ever need to reconstruct. 

Disk Doctor's written documentation 
is minimal, but the eight pages are 
packed with information on recon- 
structing a crashed disk and preven- 
tative care. 

The author has included a crashed 
disk with your program disk. If you 
successfully reconstruct the crashed 



disk, you get a back-up of the Disk Doc- 
tor and a Packer program. Packer, a 
binary routine, removes excess spaces 
from any Basic program to make the 
program run faster. On the crashed 
disk, data and graphics files are in- 
cluded to demonstrate how they can be 
reconstructed. It takes very little time to 
learn the reconstruction process, if you 
do the assigned homework. The home- 
work is an overview of the disk-alloca- 
tion information in the Color Comput- 
er's disk operating manual. 

1 found one bug when I tried to trans- 
fer a large file. If the file you are trans- 
ferring is larger than the eight graphic 
pages allocated (about 12K), the file 
must be recreated in parts. If you forget 
where you are and continue the transfer 
past the eighth page, you will overwrite 
the beginning of the Doctor and the 
program crashes. The only recovery is 
to reload the program and begin again. 
You will not encounter this bug very 
often (few files are longer than 1 2K) and 
a little care on your part easily avoids 
the problem. 

The Disk Doctor teaches you disk 
anatomy as well as preventative medical 
information, allowing your disk files to 
lead long and fulfilling lives. I feel safer 
when creating important files and pro- 
grams having the Doctor "on call."! 
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LCA-47 Lowercase Adapter 

Micro Technical Products Inc. 

814 W. Keating Ave. 

Mesa, AZ 85202 

S75 

$25 additional character generator 

ROMs 

by Scott L. Norman 

The Color Computer is maturing; we 
are beginning to see hardware add- 
ons similar to those introduced for the 
Model I. One such useful device that 
improves the appearance of text on the 
video screen is the LCA-47 Lowercase 
Adapter. 

The LCA-47 is a small printed circuit 
board that plugs into the socket normal- 
ly occupied by the Color Computer's 
MC6847 video display generator IC; the 
IC, in turn, plugs into the LCA-47. 
In an unmodified Color Computer, 
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the 6847 uses its own circuitry to form 
and synchronize the video pulses that 
produce characters on the display. 
Lowercase letters are not included in the 
repertoire of this internal circuitry. 
When the LCA-47 is in place, the 6847 
has access to an externally defined char- 
acter set — in particular, one that is con- 
tained in a fast bipolar ROM. This set is 
then displayed by all programs that nor- 
mally call upon the 6847 to perform its 
duties — the LCA-47 is invisible to such 
programs. However, Telewriter, Color- 
term, and the like (packages that use the 
CC's high-resolution graphic modes to 
define new character sets) are unaffect- 
ed, since they effectively bypass the 
6847 anyway. 

Installation of the LCA-47 requires 
that the Color Computer case and RF 
shield be opened, though, so all the 
usual precautions about the 90-day war- 
ranty apply. 

There are only a couple of other 
things that should be mentioned. One is 
the possibility that your Color Com- 



puter will have its 6847 soldered into the 
motherboard, rather than socketed. 
(This was the case with some of the ear- 
ly machines.) Recognizing the difficul- 
ties inherent in unsoldering a 40-pin IC, 
Micro Technical Products offers a re- 
fund to purchasers who meet this par- 
ticular stumbling block; they also de- 
scribe the procedure for sacrificing the 
IC and piggybacking the LCA-47 on the 
remains of the connecting pins. You 
must buy a new 6847 to make the com- 
puter operational, of course. 

The only other problem likely to arise 
is mechanical interference with a partic- 
ular electrolytic capacitor on the Revi- 
sion E motherboards. There are actually 
two versions of the LCA-47 available; 
one has a clearance hole for this 
component. 

Open the computer's case and RF 
shield before ordering. If the 6847 is 
soldered in place, you may want to re- 
think the whole affair; if not, check for 
a small tubular electrolytic mounted 
vertically behind the 6847. If it's there, 



Words are not enough. 




Experience goes beyond words. We believe adven- 
tures should too. The Asylum Series is Med Systems' 
premiere line of 3-D graphics adventures for the 
TRS-80 and IBM personal computers. What is an 
Asylum? An Asylum is a real-time simulation that 
takes place in a building with 1500 locations. Both are 
inhabited by crazed inmates, sadistic guards, and evil 
doctors. Your goal? ESCAPE! 

Our 3-D graphics are recognized throughout the in- 
dustry for their machine-language speed and clarity. 
Hallways recede into the screen as though you are ac- 
tually there. Doors open and close. Beds, desks, and 
other inmates are drawn on the screen. Instantaneously! 

Asylums understand complete sen- 
tences, not just choppy one and two word 
commands. Sentences like "Drop every- 
ing on the desk except the matches'' are 
.interpreted and acted on Instantly. Fur- 
ther, the command "VOCABULARY'' will 
show you the entire dictionary, eliminat- 
ing the need to second-guess program de- 
signers you have never met. 

But don't take our word for it. See the 
reviews in '80 Microcomputing (Feb. 1981 , 
Aug. 1981, May 1982). And remember, 
Med Systems offers to refund your money 
if you aren't satisfied. Just return the 
game within 14 days of receipt. 



Although Asylum II is the sequel to 
Asylum I, you need not have played one to 
play the other. Asylum I and Asylum II re- 
quire at least 16K of RAM, and are avail- 
able on tape or disk (please specify). Hint 
sheets are available for each Asylum for 
$1.00. 



£sylum 1 




jfc_j (cassette or diskette) . 


. $19.95 


Asylum II 




(cassette or diskette) . 


. $19.95 


Asylum I & Asylum II 




(one diskette) 


. $34.95 



MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1 -800-334-5470 

Or see your dealer. 
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BAUDY HOUSE 
COMPUTER PRODUCTS 

950 Scott Lake Road 
Pontiac, MI 48054 



FANTASTIC GAME SALE 

for 
December 



GREAT FOR CHRISTMAS GIVING! 
ORDER NOW!!! 



FORBIDDEN PLANET 

FORBIDDEN CITY 

HYPERLIGHT PATROL 

DEFIANCE 

PA NIK 

PANIK 



disk 837.95 
disk 37.95 
disk 17.95 
disk 22.95 
disk 22.95 
cassette 17.95 



ALSO 
HOW ABOUT THESE SPECIALS? 

DDS 875.00 

(disk download system, smart terminal) 

DFT 24.95 

(direct flic transfer utility) 

COLOR DFT cassette 19.95 

•New for color 
MULTIDOS 99.95 

DOSPLl'S 129.95 

OUTHOUSE 19.96 

CYBORG cassette 19.95 

CYBORG disk 24.95 

COLOR LASER COMMAND 10.95 

COLOR SPACE WAR 21.95 

COLOR SCARFMAN 19.95 

^184 



WELCOME 
VISA/MASTERCARD/CHECKS/COD 



All Software orders subject to 83.00 
shipping and handling 
313-683-8388 Order Line 
313-682-9550 Info Line 
313-683-5076 Data Line 
MI residents add 4% sales tax 



advise the vendor when ordering so he 
can supply you with the right board. 

The LCA-47's manual is excellent, 
and gives detailed instructions for re- 
moving the 6847 and installing the plug- 
in board. The procedure isn't very dif- 
ficult, but you should be cautious. 
Work slowly and carefully. When the 
board and IC are installed, you may 
find that one corner of the RF shield 
can no longer be pressed down as far as 
the others. 1 have never observed any in- 
crease in RF interference due to the 
misfit. 

The LCA-47 board contains a pair 
of DIP switches, one to enable or dis- 
able the whole unit and another to 
reverse the foreground and background 
colors. The normal operation mode 
gives dark characters on a light 
background, which is very readable. If 
you prefer the reverse, just flip the 
switch. It is inconvenient to open the 
computer's case to operate the switches, 
so instructions are included for connect- 
ing outboard switches for remote 
operation. Once the unit is set up and 
enabled, the Color Computer's key- 
board works in the usual fashion. 

The LCA-47 's output looks very fine 
indeed. Someone at Micro Technical 
Products has paid a lot of attention to 
the typographical aspects of the video 
display. You might expect that the 
lowercase characters would be good 
looking with real descenders, and so 
they are. 

What comes as a pleasant surprise is 
the uppercase character set. A number 
of subtle and not-so-subtle changes 
have been made, with the result being 
improved readability over that of the 
Color Basic characters. For example, 
the letter O is now oval instead of rec- 
tangular; the numeral zero has a slash 
through it to avoid confusion. Upper- 
case letters S, E, and F, among others, 
have been improved, and even some of 
the numerals and other symbols have 
been touched up. My elderly tv receiver 
now has a much easier time resolving 
the asterisk; it no longer resembles a 
fuzzy plus sign. 

Word Processing With the LCA-47 

These changes improve the reada- 
bility of both source listings and text 
output of Basic programs. However, 
the real value of the LCA-47 lies in 
word processing. Users of Color Scrip- 
sit, C.C. Writer, Super Color Writer, 



and other color word-processing pack- 
ages can now enjoy video output that 
looks like the printed page. This eases 
the chores of proofreading and editing. 
The LCA-47 only solves the problem 
of character shape; line length and 
number of lines per screen are un- 
changed from whatever is standard for 
a given program. The appearance of 
printed characters is unchanged as well, 
although you can get an accurate repro- 
duction of the video display with a 
screen-print routine. In fact, one of the 
pieces of literature included with the re- 
view copy of the LCA-47 was an 
electronic-circuit diagram produced on 
a Line Printer VII. The diagram includ- 
ed both uppercase and lowercase text 
and schematic symbols. 

Alternative Character Sets 

Since the LCA-47 uses a separate 
ROM to define the characters, anything 
that can be drawn within an appropriate 
area can be generated. The area within 
which the character must be defined is 
eight dots (video resolution elements) 
wide and 12 scan lines tall. At present 
you can purchase four character-gener- 
ator ROMs from the manufacturer: the 
standard upper/lowercase furnished 
with the board, upper/lowercase with 
lowercase Greek letters, upper /lower- 
case with thinline graphics and elec- 
tronic symbols, and uppercase with 
selected Japanese katakana characters. 

In each case, the English letters are 
compatible with Basic programs, while 
the special symbols are accessed by 
POKEing appropriate values into the 
display RAM. A blank bipolar PROM 
is available if you want to do your own 
programming, and additional character 
sets are promised. Custom program- 
ming is also available. 

In Summary 

The LCA-47 is a well-made product 
that is supported by the manufacturer. 
The instruction manual is also of high 
quality. 

It is interesting to speculate about 
possible enhancements. For example, I 
can imagine a larger board with at least 
two character generators, selectable by 
another DIP switch or from software. 

For the present, the LCA-47 makes 
the Color Computer a more finished 
product, and deserves the consideration 
of all Color Computer users engaged in 
text processing. ■ 
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DAISY WHEEL PRINTERS 



SMITH CORONA TPI 
COMRITER CR-1 
DAISYWRITER 2000 
DIABLO 620/630 KSR 
QUME SPRINT 9 KSR 



COMPUTER SYSTEMS.. 



EPSON HX-20 
TRS-80 MODEL 



SSS CALL FOR PRICE SSS 



You won't believe it!!! 



Rainbow 



P & P CORPORATION 

PO BOX 362 • HADDONFIELD. NJ 08033 



• 264 



800-257-6 170 m nj can 609-428-3900 



0000 




An exciting new game from the com- 
pany that is setting the standards. 
Colorful, high scoring, fast action play 
with arcade quality sound effects. 
High resolution, multi-colored charac- 
ters on a black background. Smooth 
accurate joystick control. Demonstra- 
tion mode. Pause feature. 1 or 2 
players. 100% machine language. 
Requires 16K color computer with 
joysticks. 

Cassete— $29.95 Disc— $34.95 

Add $1 50 for shipping; $3 outside US ; 4% tax 
in Mich. VISA, Mastercard or Money order. 
Please allow 2 weeks tor checks 

I DEALER INQUIRIES INVITED 

"ifitracolor 

1 COMMUNICATIONS 

SETTING THE STANDARDS 

6048 Horizon Drive. East Lansing, Ml 48823 

TRS 80 Color Computet is TM ot Tandy Corp " 




OW AND 

SAV 

THIS SPECIAL 
RODUCTORY OFFER 

Scotch DISKETTES 

I w ■ %y %J per box of 5 % 

1 side/D Density (744D-0) diskettes 

compatible with Verbatim (MD525-01) 

Limit two per order. 

Scotch Head Cleaning Kits 

5%" and 8" Kits 

$19.95 each 

►rder. 



DISKETTE-JUNCTION stocks a complete 
line of 3M magnetic media including 
96TPI Quad Density. Call now to order the 
Scotch diskette for your equipment. 



OHIO RESIDENTS CALL 



DISKETTE JUNCTION - 5 

591 8 Smith Rd. • Cleveland, Ohio 44142 

WE ACCEPT 

VISA • MASTER CHARGE • CHECKS 

MONEY ORDERS • C D 

• Add $3,00 for shipping & having 

• S? 00 EXTRA for U S Mail de'ivery. 

• S3 00 EXTRA for C O D 
• Ohio residents add 6.5 r ' i sa^es tax. 



Authorized Distributor 
Information Processing Products 



3M 



■See List of Advertisers on Page 451 
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Hypergate Centurion 

• ••* 

Hypergate Patrol 

Synergistic Solar Inc. 

Box 560595 

Miami, FL 33156 

16K 

Model 1 or 111, cassette or disk 

$39.95 

by Mark E. Renne 

Synergistic has developed two very 
sophisticated space simulations that 
require only 16K and yet are stimulating 
to even the best space cadets. They pro- 
pel you into a universe filled with mon- 
sters, exploding asteroids, marauding 
pirates, and anxious allies. 

The games, which are sold together, 
are related to each other. In Hypergate 
Patrol, you are the captain of a small 
patrol vessel wandering through the gal- 
axy at the command of the Hypergate 
Centurion. In Hypergate Centurion, 
you control several Hypergate Patrol 
ships and a plasma weapon that spans 
the universe. The inhabitants of both 
games are identical, but the strategy is 
very different. 

Hypergate Patrol is a program writ- 
ten in Basic with machine-language sub- 
routines. Each galaxy is comprised of 



GO N£ 
PIGGYBACK! 




CEnTRDniC5^^f# 

add lowercase with our 
plug-in piggyback board! 

9WX7H Dot Matrix $135 
SWX7H Dot Matrix $ 95 

TWO compWo charador Mts on board: 
96 character ASCII PLUS chok* at 
128 chartcttr API. TRS-80/H-19 Graphics or 
Scientific. (Custom* doflnod: add SSO/ttf). 
Moot pifHW c w w arttito ; afOff toftc fc— fd I 

Radix m . 
Technologies 



Sutto 400 Camyn BuMng 

10400 Eaton Ptoct -% ... -„_ 

Fairfax. VA 22030 (703) 3154900 
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nine quadrants, and five galaxies make 
up your patrol universe. The galaxies 
are all joined in the center by a Hyper- 
gate. By entering the Hypergate at dif- 
ferent angles, you can travel from one 
galaxy to another. For example, if 
you're in the Androm galaxy and re- 
ceive a distress call from the Solan 
galaxy, enter the Hypergate at a 238 - 
274 degree angle. Your destination will 
be Solan. 

Your performance is rated on a 
merit-demerit system. Killing the bad 
guys rates five merits while killing a 
friend rates five demerits. You need a 
ratio of seven to one to survive. The 
game is played in real time and you 
must complete your mission within a 
specified amount of cycles. 

Although the program is written 
mostly in Basic, it moves quickly and 
features 50 different aliens. At any giv- 
en time a certain alliance will be the ene- 
my of the guild and you must destroy 
any of that alliance's warships. Also, 
you must destroy pirates and monsters. 
Beware, though; pirates might be dis- 
guised as other ships and are only dis- 
covered by interrogation. 

The video display is divided into 



seven sections, providing all the vital 
information. Your ship features a varie- 
ty of weapons, and a call to the Hyper- 
gate Centurion is always possible in a 
tight spot. 

Hypergate Centurion is a machine- 
language, multi-level, space simulation 
of the highest degree. You are buried 
deep within an asteroid and control 15 
quadrants of space. You have a fleet of 
five seekers in the hangar bay, ready to 
be dispatched with any of five different 
orders. 

As each object enters your jurisdic- 
tional area it is assigned a number. You 
can scan the area in four different 
ways — area, quadrant, tactical, or in- 
terrogation. This gives a variety of mag- 
nification and types of information de- 
pending on the scan. 

Documentation for these two games 
consists of 45 pages of instructions in 
the form of an operations manual full 
of Centurion secrets. These are not 
arcade-type games, but simulations re- 
quiring skill, logic, and mental exper- 
tise. Even though they require only 
16K, they are first class and offer a 
challenge that won't be mastered in one 
sitting. ■ 
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Date-O-Base Calendar 
Custom Software Engineering 
807 Minutemen Causeway 
Cocoa Beach, FL 32931 
Color Computer 
$19.95 disk 
$16.95 cassette 

by Scott L. Norman 

Keeping a calendar is a worthwhile 
task for any home or business com- 
puter. Date-O-Base is an inexpensive 
program that turns the Color Computer 
into an electronic datebook able to 
search and display short memos previ- 
ously stored for a particular date. It also 
includes a calendar-page display mode 
that takes advantage of the Color Com- 
puter's high-resolution graphics 
capabilities. 

Date-O-Base, or DOB, is available 
for cassette and disk systems; disks are 
best for the file handling this type of 
program requires. 1 reviewed disk 
DOB, intended for a 32K system with a 



single drive. 

The program comes on tape, so your 
first task is to copy it onto a blank disk. 
There isn't much to this, since DOB is 
written in Basic: just CLOAD and save. 
When the program is first run, two 
ASCII files called MEMO/IND and 
MEMO/CAL are automatically creat- 
ed. These expand as the calendar fills 
with memos. A disk can hold more than 
4,000 one-line memos of up to 28 
characters each. There are restrictions, 
though: no more than 12 memos for 
any single day, no more than 300 for 
any month. This should be more than 
adequate for any household or small of- 
fice. The program even allows multiple 
lines for complicated messages. 

Although DOB's date-computation 
routine can handle any day of any 
month between the years 1700 and 
2099, the program will probably be used 
for events in the near future. The input 
routines have been fine-tuned a bit; any 
year in the 20th century can be specified 
by giving its last two digits. Months can 
be specified by a number from 1-12 or 
by a three-letter abbreviation. The 
months, days, and years required as in- 
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put must be separated by commas. 

When DOB is run (you have to enter 
the Run command twice when first start- 
ing a session), a master menu contain- 
ing six options presents itself. This is 
home base; you can get back to it by hit- 
ting enter once or twice. Here are the 
details of operation: 

• Option 0, End, must be used for all 
normal exits from DOB. Besides being 
used at the end of a session, you should 
select Option after you have entered a 
series of memos that you will later want 
to search. It closes the disk files and car- 
ries out other housekeeping chores. It 
also terminates the program and returns 
Basic's OK prompt, so that an addi- 
tional Run command is necessary to get 
back into action. 

I found this to be the only tricky 
aspect of DOB's operation. I forgot to 
use Option a few times, and wiped out 
some test files before I could check out 
the rest of the system. 

• Option 1, Display Month, prompts 
you for a month and year, and then 
draws and numbers the appropriate 
calendar page using high-resolution 
graphics. You can enter memos for any 
day during the chosen month by typing 
in the date. The numbers you type will 
not show on the screen, but hitting enter 
causes the display to switch to a text 
screen that does show the date, together 
with 12 numbered lines for memos. You 
are then prompted for a memo number. 
When you have finished your entries, a 
null line (the enter key by itself) returns 
the calendar display. Now, however, 
the box for the date in question contains 
a reminder spot for each memo. When 
you have finished your month's entries, 
another null line gets the master 
menu back. 

The data on any given page can be 
changed by overwriting. A memo can 
be deleted by specifying its number and 
entering a null line. This is fine for in- 
dividual deletions, but there are easier 
methods for handling blocks of data. 

It is possible to get a printout of the 
calendar display, but this requires an 
external screen-print routine — Radio 
Shack's, for instance, or one sold by 
Custom Software themselves. 

• Option 2, Display/Change Memos, 
bypasses Option l's calendar -drawing 
routine and saves some time. Option 2 
lets you specify a date and jump right to 
the text screen. The entry, modification, 
and deletion of memos proceeds just as 
for Option 1 . 

^S« List Of Advtrtisers on P»g* 451 



"Date-O-Base. . .fills 

a genuine 

need at a 

reasonable price. " 




• Option 3, Search Memos, displays or 
prints memos falling within a specified 
period of time. You can read all the 
memos, or use keywords and search 
logic to restrict the output. 

When you select Option 3, you are 
first prompted for start and finish dates 
for the search interval. Next, specify the 
search logic: AND, OR, or ALL. ALL 
bypasses the use of keywords and out- 
puts everything found in the interval. 
Both AND and OR allow you to specify 
up to 10 keywords. The AND option 
only displays memos containing all of 
the keywords, while OR selects memos 
containing any one of them. If you are 
interested in only one keyword, either 
option will do. 

• Option 4, Delete Memos, is a global 
delete function, eliminating all the data 
for a specified interval. The minimum 
interval is one month; both starting and 
finishing dates must be specified in 
MM/YY format, but you can specify 
the same month for both. DOB is a 
friendly program, and gives you a last 
chance by asking if you are sure before 
actually deleting memos. 

Option 4 provides an alternative to 
the one-memo-at-a-time deletion 
capability of Options 1 and 2. You can 
also use Disk Basic's Kill command 
to eliminate the MEMO/IND and 
MEMO/CAL files. Of course, this 
wipes out everything but the original 
DOB program itself. 

• Option 5, Date Computation, em- 
ploys DOB's date-computation routine 
to compute the elapsed time between 
two specified dates. The output takes 
four forms: days, weeks/days, months/ 
days, and years/months/days. There is 
one quirk: The first two display modes 
takes account of February 29 for leap 
years, while the last two do not (unless 
the elapsed time is less than one month). 

Date-O-Base has quickly become a 
member of my Color Computer's as- 
sortment of household programs. It is 
easy to use (provided that you remem- 
ber Option 0), and fills a genuine need 
at a reasonable price. If you can live 
with the short memos imposed by the 
program, it can do a good job for you. ■ 



If you use a Word 
Processor, you need 

QRAMMATik 

Beyond Spelling Checking 

Grammatik can find over 15 
different kinds of common errors 
missed by simple spelling 
checkers alone, including 
punctuation and capitalization 
errors, overworked and wordy 
phrases, and many others. Use 
Grammatik with Aspen Software's 
spelling checker Proofreader, 
featuring the Random House 
Dictionary^, or with your current 
spelling checker for a complete 
document proofreading system. 

Read what the experts say: 

"The perfect complement to a 
spelling checker." 

Alan Miller. Interlace Age 5 82 

"A surprisingly fast and easy tool for 
analyzing writing style and 
punctuation." 

Bot> Louden. intoWorld 12 81 

"Anyone involved with word 
processing in any way is encouraged 
to get this excellent program." 

A A Wicks. Compulronics 6 82 

"A dynamic tool for comprehensive 
editing beyond spelling corrections." 

Dona Z Meiiacn. interlace Age. 5 82 

"A worthy and useful addition to your 
word processing software." 

Stephen Kimmel Creative Computing 6 82 

Works with CP/M®, 
IBM-PC®, TRS-80® 



Grammatik $75.00 
Proofreader $50.00 

Order directly from Aspen 
Software, or see your local dealer. 
Specify your computer system 
configuration when ordering! 
Visa, Mastercard accepted. 



Random House is a registered trademark of Random 
House. Inc Other registered trademarks CP M Digital 
Research - TRS-80 Tandy Corp -- IBM IBM -- 
Proofreader Grammatik Aspen So<t*are Co 



Aspen Software Co. 

P O Box 339 Tijeras. NM 87059 

(505)281-1634 -k 
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Drive Control Unit 
Optronics Technology 
2990 Atlantic Ave. 
Penfield, NY 14526 
$39.95, assembled 
$29.95, kit 

by David DuPuy 



It has long bothered me that my eight- 
inch disks continue to spin in the 
drive after I have accessed the files I 
need. The wear on the disk drive, and 
shortening the life of the floppy disk, 
seems unnecessary. 

Now , eight-inch drive systems can be 
adapted to turn the drives off when they 
are not needed (see New Products, Mi- 
crocomputing, May 1982, page 140). 
Optronics Technology's Drive Control 
Unit (DCU) is available assembled and 
tested, or in kit form. The DCU can be 
installed in existing eight-inch drive en- 
closures with a minimum of effort. 

Concept and Features 

1 ordered the Drive Control Unit in 
kit form from Optronics. A six-page 
manual, with two pages of drawings 
and diagrams and a photograph show- 
ing how the unit mounts in the rear of 
an eight-inch Shugart drive comes with 
the kit. 

The DCU's concept is simple. The 
1 10 volts ac that is normally connected 
to the synchronous motor for rotating 
the disk is turned on or off by a triac 
mounted on the Optronics DCU board. 
A trigger signal from the Shugart PC 
board controls the triac, so the comput- 
er needs no extra wiring. The triac is 
opto-isolated from the logic, as you 
might expect. To minimize electrical 
switching noise, the ac voltage turns on 
or off at zero crossing. To turn a second 
drive on and off, Optronics provides a 
second control input and a second out- 
put. I could not test that option, since I 
have only one disk drive. After you ac- 
cess and release the drive (per normal 
operation before inserting the DCU in 
the ac line), the disk spins for about nine 
seconds after the LED goes out before 
shutting off. This nine-second interval 
can be changed when building the unit 
by changing one resistor. 

Construction 

The printed circuit board is about 
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2 3/8 by 3 1/2 inches in size and comes 
predrilled. There are about 20 parts to 
mount on the PC board. The instruc- 
tions are adequate, and no one who has 
any experience at the Heath kit level 
should have any problems assembling 
the board. A drawing shows the place- 
ment of parts to be mounted, and 1 
found no ambiguities in the instructions. 

1 do have a couple of suggestions for 
comments to be included in the next 
version. I saw no mention that parts 
mounted on the board should be bent 
parallel to the board (it is obvious that 
the triac should be bent over); the board 
layout is arranged so that the capacitors 
bend over to conserve vertical room, 
and the manual should mention this. 
Mechanical interference is possible be- 
tween the molded nylon socket for ac 
input and the wires to the ac output 
socket. It would be simple to move the 
leads to the ac output socket 1/4 inch 
and avoid this problem. Also, the dia- 
gram showing hookup to the trigger sig- 
nal on the Shugart PC board doesn't 
look like the PC board on my Shugart 
801. Finally, although all necessary in- 
formation has been included, the manu- 
al could use a little more organization. 

The manual slants toward wiring that 
conforms either to Shugart or Siemens 
drives. If you have either of these, every 
detail you need to build and install this 
device is in the manual. The manual 
makes clear those changes that have to 
be made for different types of drives, 
and offers several options. A few extra 
components are included (signal diodes) 
in case you have a drive that requires 
slight wiring changes on the PC board. 

Installing the PC board in the Shu- 
gart drive is easy. The molded nylon 
plugs included are identical to those 
used to connect 1 10 volts ac to the Shu- 
gart drive motor, and this PC board is 
inserted in series in the 1 10- volt ac line. 
The molded nylon plugs are mounted 
on the PC board so that the 110-volt 
leads support the board, and the cables 
in the drive need little rearrangement to 
accommodate the board. Five-volt and 
ground leads attach to the Shugart PC 
board, and the only other lead to con- 
nect is the trigger signal, which also goes 
to the Shugart PC board. For the Shu- 
gart drive, the manual instructs you to 
connect this lead to test point 1 1 (TP1 1 ) 
on the Shugart board. As I mentioned 
before, the diagram showing this con- 
nection does not resemble my Shugart 



801 PC board. However, I located a pin 
marked 11, and that evidently was the 
right connection, since the unit works as 
advertised. 

Performance 

Upon installation in my system (with 
a CCS disk controller and Shugart 801 
drive), the Drive Control Unit worked 
fine the first time without fine tuning or 
troubleshooting. The lack of drive noise 
and continual disk spinning is a delight! 

I did experience a few problems. A 
disk-error message occasionally shows 
up when I first boot up my system, and 
typing B a second time (my monitor's 
command to boot from the disk) boots 
the system from the disk. The DCU 
manual recommends you lengthen the 
delay on the disk controller's HLD sig- 
nal to about 360 ms. This did not solve 
the error message on boot-up, and I 
decided to leave the delay around 300 
ms. This particular error might not 
show up on other systems. In the auto- 
boot mode, this problem did not occur, 
although I had to press reset after turn- 
ing on the machine while the disk was 
running to boot the system. The manual 
gives suggestions for troubleshooting in 
case other disk errors occur. 

I have one problem that was prob- 
ably not anticipated by the designers, 
and that is because I'm using only one 
disk drive. In copying from one disk to 
another using a single-disk, file-transfer 
program, problems occur if the nine 
seconds expires before changing the 
disks. The error message "Drive A Not 
Ready" appears. Nothing serious hap- 
pens; you just have to reboot and try 
again. Switching disks within the nine- 
second time limit is easy (you don't have 
to rush), and then the single-drive copy 
routine performs satisfactorily. You 
can lengthen the nine-second interval 
before turnoff if desired. 

Summary 

This product serves a needed func- 
tion. The price is reasonable and the de- 
vice works with no debugging. The 
disk-drive motor now shuts down nine 
seconds after being disengaged. Disk 
and drive wear has been greatly re- 
duced. The unit mounts easily in the 
rear of a Shugart eight-inch drive with- 
out modification to the drive. You must 
solder three wires to the Shugart PC 
board to complete the installation. The 
instruction sheets are detailed enough to 
guide even a novice. ■ 



REVIEW DIGEST 

Understanding Computer Science, Roger S. Walker, 
Tandy /Radio Shack, Catalog /K62-1383, $2.95. 

"I picked up Understanding Computer Science while 
waiting in line at Radio Shack, and I couldn't put it down. 
... I'm convinced that it's a little-known treasure that belongs 
on any computer owner's bookshelf. This book is an inexpen- 
sive overview of all the major areas of computing, written at a 
level that any interested person can understand, and the infor- 
mation that it contains is perfectly packaged for home 
computerists." Compute, September, p. 100. 



Postman, Soft Sector Marketing, Garden City, MI 48135, 
Model I or II, $125, $175 (form letter option), $225 (hard-disk 
version). 

"Postman fills a variety of small -business applications that 
require large mailing lists. It is written entirely in machine 
language and is menu-driven for simplicity. . . .There is only 
one way to describe the performance of Postman: 
'Flawless!' " InfoWorld, September 20, p. 47. 



Basic For Business, Douglas Hergert, Sybex Books, Berkeley, 
CA, $12.95. 

"Basic For Business is written for the businessperson who 
wants to know how and why a program works. It approaches 
the study of Basic from a businessperson 's perspective; that is, 
it guides a reader through the development of several practical 
business programs, including a cost of goods sold inventory 
program, break-even point analysis, T-ledger accounts, 
depreciation, and basic statistical analysis programs." Per- 
sonal Computing, October, p. 149.69. 



Master Control, Soft Sector Marketing, Garden City, MI 
48135, Color Computer, $24.95. 

"Alan Schwartz is to be congratulated on an innovative and 
highly useful program. It is written in machine language and 
from the first worked as the very brief, but adequate, instruc- 
tions indicated. . . .The first few days living with Master Con- 
trol the kids and I keyed in some programs . . . Master Control 
makes that task much easier and faster." Color Computer 
News, September, p. 29. 



Pro-80 Extended Basic, Pro-80 Systems, Cedar Falls, IA, 
Model Hand 16, $195. 

"Pro-80 Basic does what it claims it can do: It expands the 
capabilities of Radio Shack's Basic interpreter. Before you 
buy, you should be aware that some of the features contain 
potential hazards, and the sort is not as fast as some I've seen. 
However, my overall recommendation is that the package is 
worth its price." two/sixteen, July-August, p. 16. 



Big Things from Little Computers: A Layperson % s Guide to 
Personal Computers, Dale Peterson, Prentice-Hall Inc., 
Englewood Cliffs, NJ, $12.95. 

"Peterson discusses a variety of unique uses for personal 
computers in education, art, music and business, in the home, 
and by the physically handicapped. . . .It is clear that Big 
Things From Little Computers is not a how-to book, but 
rather a resource book of better personal computing ideas and 
applications that can be implemented with a little effort and 
imagination." Personal Computing, September, p. 156. 

MicroPilot, Tandy/ Radio Shack, Model I and III, 32K disk 
format, $79.95. 

"The strengths of MicroPilot lie in its programming effi- 
ciency for educational/interactive programming. With 
MicroPilot you can ask a question, get an answer, evaluate the 
answer and appropriate feedback with three of four simple 
commands. . . .The features that make MicroPilot shine are 
its edit/run capability, its graphics, its sound generation 
capability, and its record keeping commands." Creative 
Computing, October, p. 34. 



The Tiny Compiler, Aardvark-80, Walled Lake, MI 48088, 
Color Computer, $24.95. 

"The name is appropriate because the Tiny Compiler does 
not pretend to be a sophisticated big-time compiler that will 
take whatever code you wish to write in Basic and generate 
machine-language instructions. Instead, and to the credit of 
Aardvark-80 which markets it, Tiny Compiler is billed as a 
limited compiler which, frankly, can speed up a lot of things 
that needed speeding up in the first place." The Rainbow, 
September, p. 89. 



Stellar Escort, Big Five Software, Van Nuys, CA 91409, 
Model I and III, $95. 

"Your job is to protect the defenseless craft you are towing 
from the vile Cretonians who are out to destroy it. It is to your 
advantage to protect your craft well, because if it is destroyed 
the disruption of the force field immediately destroys your 
escort craft. ... As compared to other games on the market in 
this price range, you will definitely get your money's worth 
from this one." 80 U.S., October, p. 102. 



RAM Slam, DSL Computer Products, Dearborn, MI 48121, 
Color Computer, $49.95. 

"At $49.95 the RAM Slam upgrade kit from DSL Com- 
puter Products is one of the least expensive kits of the 
'solderless' type I have seen advertised. . . . Not being the 
technical type I was very pleased to see how easy it was to 
upgrade to 32K. . . " The Rainbow, September, p. 88. 
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SOFT BITS 



by Roger Fuller 



Last December, I discussed bits and 
bytes. This month's column pro- 
vides a short program that lets you ex- 
amine the bits in the bytes of binary 
numbers. 

The Assembly program takes advan- 
tage of a ROM routine. When the Basic 
interpreter encounters a USR function, 
it evaluates the function's argument. 
This sets the variable type flag at 
40AFH and leaves the type in the A reg- 
ister. Therefore you need only access 
the A register to get the type, which also 
happens to be the number of bytes used 
to represent the number. 

The type flag for an integer is two; 
for a single-precision number, four; and 
for a double-precision number, eight. If 
the binary number is an integer or a 
single-precision number, the bytes rep- 
resenting the number are stored starting 
at 4121 H. A double-precision number is 
stored starting at 41 1DH. Table 1 sum- 
marizes this. 

The Assembly code that displays the 
bits on the screen's top row is shown in 
Program Listing 1 . These bits are dis- 
played as ones if they are on, zeros if 
they are off. To determine the number 
of bits, multiply the type by eight. A 
double-precision number uses the entire 
top row of 64 spaces to display its bits. 
The bits are displayed with the least sig- 
nificant bit at print position 63 on the 
screen. The more significant bytes in a 



>«: 



V 



f»t*> 



FB99 
FB9C 
F99E 
FflAl 



,*& 1 MM 
1 fba? 
I MM> 

,%*\\ FBAD 

»**rJ fb 






A3 CA3 



Cj 



Up 






Display 

bits 
from bytes 



number are displayed to the left of the 
less significant bytes, the opposite of the 
way they are stored in memory. A byte 
of value 3 would be displayed as 
0000001 1 . Since the type flag is equal to 
the number of bytes in a number, the 
Assembly program uses it to set up a 
loop. This loop determines how many 
times to call the subroutine that displays 
the bits. A DJNZ loop structure accom- 
plishes this. The HL register pair is ini- 



7FB0 
7F00 47 
7F01 212141 
7F04 FE08 
7F06 2002 
7F08 2E1D 
7F0A 113F3C 
7F0D C5 
7FBE 7E 
7FBF 23 
7F10 CD177F 
7F13 CI 
7F14 10F7 
7F16 C9 



7F17 BE01 
7F19 47 
7F1A 78 
7F1B Al 
7F1C 3E3B 
7F1E 2801 
7F20 3C 
7F21 12 
7F22 IB 
7F23 CB21 
7F25 20F3 
7F27 C9 

0000 

00000 TOTAL 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 

00190 NUMBER 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 

00280 BYTE 
00290 

00300 BITOUT 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
ERRORS 



;BIT DISPLAYER BY 

; 

7F00H 

B,A 

HL.4121H 

8 

NZ,$+4 

L,1DH 

DE,3C3FH 

BC 

A,(HL) 

HL 

BYTE 

BC 

NUMBER 



ORG 

LD 

LD 

C? 

JR 

LD 

LD 

PUSH 

LD 

INC 

CALL 

POP 

DJNZ 

RET 



I 

LD 

LD 

LD 

AND 

LD 

JR 

INC 

LD 

DEC 

SLA 

JR 

RET 

f 

END 



C,l 
B,A 
A,B 
C 

A,'0' 
Z,S+3 
A 

(DE) ,A 
DE 
C 
NZ, BITOUT 



ROGER FULLER PUBLIC DOMAIN 



SAVE NUMBER LENGTH 
POINT TO NUMBER STORAGE 
CHECK FOR DBL LENGTH 
IF NOT DBL THEN SKIP 
ELSE BACKUP 4 BYTES 
363 ON VIDIO SCREEN 
SAVE LOOP COUNTER 
GET A BYTE 
POINT TO NEXT BYTE 
DISPLAY 8 BITS 
RESTORE LOOP COUNTER 
LOOP TILL DONE 
DONE 



;MASK FOR BIT POSITIONS 

;SAVE BYTE 

; RECOVER BYTE 

•TEST FOR BIT ON 

;LOAD A ASCII ZERO 

;IF BIT IS OFF 

;IF BIT ON HAKE '0' A '1' 

; DISPLAY '0' OR '1' 

» POINT TO NEXT SPACE 

;MOVE MASK BIT LEFT ONE 

;IF NOT DONE 



Program Listing I 



tialized to the memory address where 
the argument of the USR function was 
placed after evaluation by Basic. The 
CP 8 in line 150 allows the adjustment 
for double-precision numbers to be 
made in line 170. 

The DE register pair is used to point 
to the screen. 

In line 190 the #-bits-to-display 
counter is saved by the PUSH BC. Line 
200 loads a byte from the number. 
Next, a Call is made to the display bits 
subroutine. Here a bit mask is created in 
the C register by loading it with a one in 
line 280. 

The mask works by ANDing it with 
the target byte stored in A. If the bit in 
the mask and the bit in the target byte 
are not on, the result is zero. Since the 
AND instruction destroys the value of 
the A register, the value is saved in the B 
register in line 290 and recovered each 
time it is needed in line 300. The load in 
line 320 does not alter the flags, so the 
jump in line 330 is still valid. The ASCII 
zero, or if the bit was on, the ASCII one 
is displayed on the screen. 

Next, the screen pointer, DE, is 
backed up and the mask rotated left, 
which also performs a test for zero. This 
is a convenient way to exit the sub- 
routine at line 390. 

The Basic program (Program Listing 
2) assumes you have loaded the machine 
code at address 7F00H. You will need 
to POKE the values for the USR ad- 
dress if you do not have Disk Basic. The 
program requests the type length in line 
40 and validates the answer. Then a 
subroutine is called in line 50 to set the 
variable's type appropriately. This al- 
lows the program to easily change 
variable types. 

The TYPE/2 + (TYPE = 8) expres- 
sion in line 50 evaluates to a 1 , 2, or 3 
for integer, single-precision, or double- 
precision variables respectively. When 
(TYPE = 8) is false it is evaluated as 
zero; when true, it is evaluated as -1. 
Thus, 8/2 + (-1) equals 3. This works 
with almost all Basics. (Level I is not 
one of them.) 

Line 60 requests the initial value of 
the number you wish analyzed. Line 70 
requests the step value. If you want to 
examine just one number, answer with 
a zero. 

Displaying double-precision numbers 
is impressive and demonstrates why 
processing them takes so long. ■ 
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IB ' BIT DISPLAYER BY ROGER FULLER PUBLIC DOMAIN 

2B CLS : DEFUSR1-4H7FB8 

3B PRINT01 28, "ENTER TYPE OF VARIABLE (2-INT, 4-SNG, OR 8«DBL) 

4B INPUT TYPE : IF TYPE<>2 AND TYPE<>4 AND TYPEOB THEN 30 

SB ON TYPE/2 +(TYPE-8) GOSUB 2BB ,400 , 80B 

6B PRINTS256, "ENTER INITIAL VALUE"; : INPUT NV 

78 PRINT93 84, "ENTER STEP SIZE"; : INPUT NS 

8B PRINT 512, "NUMBER - "; 

9B PRINT 52B, USRl(NV); 

IBB NV - NV + NS : GOTO 90 

2BB DEFINT N : RETURN 

4BB DEFSNG N : RETURN 

8B0 DEFDBL N : RETURN 



Program Listing 2 



MSB = Most Significant Byte 
NMSB = Next Most Significant Byte 
LSB = Least Significant Byte 
EXP = Exponent Value 
SIGN = Sign Bit 

INTEGER 

411D 

411E 

411F 

4120 

4121 

4122 

4123 

4124 



SINGLE 



DOUBLE 







LSB 






NMSB 






NMSB 






NMSB 


LSB 


LSB 


NMSB 


SIGN/MSB 


NMSB 


NMSB 




MSB 


MSB 




SIGN/EXP 


SIGN/EXP 
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NEW! From QSC . . 



RIVET RACE 



The latest arcade erase now runs, 
on your TRS-80*. Ladders and 
elevators take you from level to 
level in this fast action machine 
language game. RIVET RACE is 
Alpha Joystick* • compatible. 

For TRS-80*, Models I & 111 
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MINDWARP 



An educational game that improves 
your memory skills. 

38k Tape .. $14.85 

32k Disk $18.95 

Mo. Rea. Add 4.625% Sales Tax 

— Dealer Inquiries Invited — 

QUALITY SOFTWARE AND 

CONSULTING. INC. ^m 

P. 0. Box 11355 

Kansas City, Missouri 64112 

(816) 765-4297 

•TRS-80 Trademark Tandy Corp. 
••Trademark Alpha Products 







$ HORSERACING $ 




The KEL-CO SYSTEM, developed by Dr. A.S. Kelsey. Professor of Mathematics, and Mike Cox. an expert in horse race handicapping, has been 
available separately for Thoroughbred and Harness racing since the late 1960s and has increased in popularity as the technical presentation of 
it has improved. 

The in depth analysis of 10,000 races for each of Thoroughbred and Harness racing was conducted to determine which measurable variables 
were most predictive and which of the intangibles could be organized into a workable form. 

CANNELLA SALES CORP. NOW INTRODUCES TWO KEL-CO SOFTWARE PACKAGES FOR ANALYSING 

THOROUGHBRED AND HARNESS HORSES! 
THE PROGRAMS 

Because of Computer technology, a novice need only learn how to interpret the racing papers (clear instructions included) to operate these 
programs. You'll enjoy becoming a Railbird! 



THOROUGHBRED PROGRAM (RS-5): Horses' ratings reflect 
True Class levels. The Program takes into account the levels of 
racing at all North American racetracks so that ratings always 
remain consistent; Fitrwss of the horse is also a major element 
brought out in the analysis. Ratings may then be adjusted in 
consideration of factors like Distance. Weight, Surface etc. 



TROT PROGRAM (RS-6): Horses' ratings are derived through the 
mathematical links among S paed, Finishes. Post Positions and Track 
Lengths. Adjustments are then made for Current Form, Class 
Changes. Driver Changes etc. This method can be used at any 
Harness racetrack for which normal past performance data is avail- 
able. 



INPUT/OUTPUT — The Programs operate on the basis of prompts where the user responds with material from the racing papers, and in some 
cases personal judgement. 

Results may be produced one horse at a time or for complete races; horses are rated, ranked and qualified on a list (screen copy or hard copy). 
Wagering guidelines for Straight-Win, Place. Show and Combination Bets, eg. Daily Doubles, Ex act as - are given in the Programs. These rules 
are applied in accordance with the horses' ratings and qualifications. 

IMMEDIATE DELIVERY ON CASH AND CREDIT CARD ORDERS - Send Money Orders; Personal Cheques (must clear before delivery); 
VISA, MasterCard, (American Express-USA only) - send Acct. No., Expiry Date 
TELEPHONE CREDIT CARD ORDERSI 
IN USA: $200. Each Program STUDY 

CANNELLA SALES CORP. A formal Study using the Thoroughbred 

420 E. Genesee St. System in New York, New Jersey and Canada 

Syracuse, New York 13202 showed a profit of 24% over 372 potential 

1-800-448-5713 races. Copies of the Study may be obtained 

(NY State 315-476-1430) for $1.00 each from either our U.S. or 

NY Residents add sales tax. Canadian office. Call Now and Ordsr 

These Two Programs. 

Specifications: TRS-80V™$I & III. 48K; Apple II (™j) with DOS 3.3. 48K; enquire about othersl 



IN CANADA: $225. Cdn. Each Program 

EQUINE MANAGEMENT & INNOVATIONS 

P.O. Box 2214, Station D 

Ottawa. Ontario K1P 5W4 

Toronto 281-3568 

Ottawa 523-4202 

Vancouver 228-9091 
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THE SAD PLIGHT OF A FROG. HE FACES WILD DRIVERS AS HE 

TRIES TO CROSS THE ROAD. SINKING TURTLES, FLOATING LOGS 

AND HUNGRY ALLIGATORS STAND BETWEEN HIM AND HOME. HE 

NEEDS YOUR HELP!! ORDER SOON BEFORE ITS TOO LATE!! 

SOUND EFFECTS 

TOP TEN SCORES SAVED ON TAPE OR DISK 

TRS-80' MODEL I -III 

Disk $19.95 Tape $15.95 

Joysticks available for the above program for $39.95 

TO ORDER SEND CHECK OR MONEY ORDER OR CALL (517) 542-3280 



Visit Our Two 
RETAIL LOCATIONS: 

"111 Marshall St. 

Litchfield, MI 49252 

517-542 3280 

886 Ecorse Rd., Ypsilanti, Ml 48197 

313-482-4424 

" Authorized Radio Shack Dealership 
•62 




ISPLAYED 



IDEO 



DISTRIBUTED EXCLUSIVELY BY DISPLAYED VIDEO 

DEALER DISCOUNTS AVAILABLE 

WRITTEN BY: DuBois and McNamara 




ADD $2.00 for 

Shipping. Add 

$1.50 for COD. 

Michigan Res. Add 4 percent. 

'TRS-80 Trademark of the Tandy Corporation 



Extra! Extra! 



Volume 4 




All The News That's Fit To ZAP! 



Users vote no to the same 
OLD ARCADE GAMES 



*© ft 
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(DV 1982) Blurry eyed users have turned to DISPLAYED 
VIDEO to answer their need for new and exciting arcade 
games In response. DISPLAYED VIDEO has announced 
eight new programs for the TRS-80* Models MIL These 
arcade type games feature sound, graphics, joystick compa- 
tibility and are written in machine language for maximum 
speed! Both disk and tape versions allow the user to save 
high scores, a feature not usually found on cassette based 
games. Maze enthusiasts seem to like Ghost Hunter and Killer 
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Aim.&BRB 
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L : ■ 



JUL 'stitez* 




Beetles, while gun slingers look toward Insect Frenzy, Jungle 
Raiders, Space Shootout, Alien Cresta and Battle Stations for 
excitement. A Game that does not fall into these categories 
is Hoppy. It features wild drivers, sinking turtles, and hungry 
alligators. These programs are distributed exclusively by 
DISPLAYED VIDEO and written by Dubois and McNamara. 
Pricing for these programs is $15.95 for tape and $19.95 
for disk. Reliable sources inside the company indicate Killer 
Gorilla will be available by the time you read this. 



TO ORDER SEND CHECK OR MONEY ORDER OR CALL (517) 542-3280 



Visit Our Two 

RETAIL LOCATIONS: 

111 Marshall St.. Litchfield. MI 49252 

(517) 542 3280 

or 

886 Ecorse Rd.. Ypsilanti, MI 48197 

(313)426 5086 (313)482-4424 

•Authorized Radio Shack Dealership 



D ISPLAYE D 
IDEO 

DEALER DISCOUNTS AVAILABLE 




Joysticks for above programs $39.95 
Add $2.00 for Shipping 
Add $1.50 for COD 
Mich. res. add 4 percent tax 



' IRS 80 ii i uadrmark ..I il.r I inri\ I . 
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The GAMERS CAFE 



by Rodney Gambicus 



How 
long 
can 
you 



tread water? 




We awoke to the dull staccato of 
rain beating on the van roof, as 
we had every morning during our stay 
in Eugene, OR. The doors had rusted 
shut overnight and Winthrop started 
screaming, "We're all gonna die, we're 
all gonna die," so I strapped him to his 
bean-bag chair and cranked up Hellfire 
Warrior on the Model 1 , and he quickly 
slipped back into his coma. 

It was Winthrop's idea to come to 
Eugene because he'd heard that there 
were a lot of crunchy-granola types 
running around, and thought maybe 
we could find some New Age health 
freak who could figure out what was 
wrong with the PMC (which we affec- 
tionately call the Model '/:) we'd found 
at the Goodwill in Pocatello, ID. I 
tried to tell him that foot reflexology 
wouldn't work on a computer, but 
Winthrop is a stubborn sort. It took 
me six weeks to potty-train him. 

It sure didn't look like we'd be open- 
ing the cafe that day. So I wiped the 
green slime from my glasses and 
crawled out the window and padded on 
over to the Atrium, where I grabbed a 
cup of espresso and a Prince Puckler's 
chocolate milk shake for breakfast. I 
had Qucenie, one of our Model Ills, 
along, so I plugged her in and booted 
up Adventure International's Sea 
Dragon. 

Well, naturally several shoppers wan- 
dered over to see what was happening, 
and before I knew it they'd pushed me 
aside and were cruising along like so 
many underwater Ahabs. What with all 
of the rain perpetually dropping from 
the sky, these people seemed to have a 
particular affinity for the video deep, 
and pretty soon they'd blown Win- 
throp's high score off the board. Some 
fellow who called himself Mad Max 
wiped out the reactor five times and 
racked up 147,910 points. 

Mad Max was a hippie tree planter 
who hadn't been out of the woods since 
1976, which was when he finally got 
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back from Woodstock. He thought 
Queenie was pretty interesting (he called 
her a "souped-up tv"), and wanted to 
know if anybody 'd ever gotten a score 
higher than his. 1 had no idea. So we 
went back to the van and woke up Win- 
throp and asked him, but he had no 
idea either. 

Well, says 1, why don't we put out a 
call in Gamer's Cafe? But Winthrop 
was a bit miffed that this guy, who 
didn't know a chip from cheddar 
cheese, had cleaned his clock, and 
wasn't too receptive. Then Mad Max 
said, why not publish Winthrop's high 
scores for other games? This suggestion 
thawed Winthrop pretty quickly. 

So I started scrounging around the 
van for the bits and pieces of paper 
Winthrop filed his scores on, and typed 
them on a separate sheet of paper, 
which I imagine the guys at 80 will print 
as a table or figure or something. (See 
Something 1.) If any of you out there 
have done better, or have a super score 
for a game not on the list, send a photo 
of the screen to the Gamer's Cafe, care 
of 80 Micro. 



About the time we heard a knock on 
the window. It was the mailman. Lord 
only knows how the 80 office manages 
to track us down. Winthrop was all ex- 



cited—he loves answering mail from 
our readers — but the mail consisted of a 
flyer from the Church of Otherly Love, 
a free sample of a new fingernail remov- 
er, and a press release from Hayden 
Software. None of it interested Win- 
throp much, so when Mad Max sug- 
gested they go out for a mushroom piz- 
za, Winthrop jumped at the offer. 

Since it seemed likely that the Hayden 
release would have something to do 
with micros, I opened it up, and found 
an interesting couple pages on their 
Kamikaze Shootout. Kamikaze is a new 
arcade game for the Apple, and Hayden 
is sponsoring a contest that will culmi- 
nate (i.e., end) in a showdown in San 
Francisco for 5,000 smackers. The fi- 
nalists will be the five people who send 
in the highest scores by January 31, 
1983; they have to verify their scores 
with a photo of the screen. 

You might be wondering what's to 
stop somebody from messing around 
with the code and posting a high score 
illegally. I wonder if you're wondering 
that because I wondered it too. So I 
picked the lichen from my pants and 
headed for the nearest phone to call Jim 
Hunter, software editor at Hayden. 

Well, the honchos at Hayden are 
pretty laid back about the whole thing. 
Jim says they've got a protection 
scheme built into the program, and a 



(iame 

Himinator 
Sea Dragon 
Swamp Wars 
Armored Patrol 
Galaxy Invaders 
Cosmic Fighter 



Player 

Winthrop 
Mad Max 
Winthrop 
Winthrop 

Winthrop 
Winthrop 



Score 

59,600 
147,910* 
39.200" 
81.000 + 
1.000.000 + 
103.980 



•Nosice mode Max got 69.480 in [he expert mode 
•"Winthrop got through all nine swamps, too. 
•Method I. Winthrop racked up 281.000 points using Method II. 
•'Winthrop still had in ships left, hut he got hored 



Something I. A list of the mosl-frequently played games at the darner's Cafe anil their high scores. 




After three years of selling 
my Model I and Model m 
programs, I've earned back 
my development costs. 

So I can lower the price. 

Now I'm offering my Model I and Model III 
programs for $75 each. 

They've been checked out by thousands of 
TRS-80* users, most of whom get in touch with me, 
Irwin Taranto. Thousands of phone calls later, these 
systems are completely developed, checked out, 
glitch-free. 

When people call, we've heard all the questions 
and we can answer them right off. I don't have to 
get on the phone and work through problems like 
I used to. 

Since I'm getting off so easy, the least I can 
do is drop the price- 50% for General Ledger, 
25% for the rest. 

These are my Model I and Model III programs : 

Accounts Payable It links to the General Ledger, 

calculates and prints checks and makes reports. 

It's an invoice-linked system. 

Accounts Receivable It keeps track of billed 
and unbilled invoices, open and closed items 
and aging. It prints statements and links to 
the General Ledger. 

General Ledger It keeps track of data by month, 
quarter, year and the previous three quarters. 
It even includes a Cash Journal. 
Inventory Control It gives an immediate read- 
out on any item inquiry, including quantity and 
dollar total. 

^See List of Advertisers on Page 451 



Invoicing It prints your detailed invoices 
and links to Accounts Receivable and the 
General Ledger. 

Payroll It keeps the files, computes pay and 
deductions, prints forms and checks, figures 
taxes, overtime and piecework pay in any state 
tax routine, and prints the 941 -A and W-2 forms. 

They're all yours, for $75 each. You also need 
documentation when you run our systems. The 
Osborne books - one for Accounts Payable and 
Receivable, one for General Ledger, one for Payroll- 
cost $20 each. Our invoicing book costs $10. 

Just send me the coupon, or call us toll free. 
We'll ship within 48 hours. 



Please send me the following programs at $75 each. 



book S 



Accounts Payable 






Accounts Receivable 




General Ledger 






Inventory Control 




'mm 


Invoicing 






Payroll 














AMOUNT ENCLOSED 





If you need the books, add $20 each. The invoicing book is $10. 

Mastercharge Visa No._ Expires 

Please send me information on other Taranto business 
programs, including TRS-80 Model II accounting systems. 

Your name- 

Company name- 

Address— 

City State Zip 



Taranto 



& ASSOCIATES, INC. 
The Total System Store,'" 121 Paul Drive, San Rafael, 
CA 94903. Mail inquiries to PO. Box 6216, San Rafael, 
CA 94903. Outside California, toll free (800) 227-2868. 
In California, (415) 472-2670. | 



"A trademark of the Tandy Corporation 
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message that will flash onto the screen 
at 50,000 points. But basically they're 
relying on the integrity of the contest- 
ants. Besides, he points out, who's go- 
ing to want to get to San Francisco by 
cheating and then get humiliated at the 
national finals? (He's lucky he didn't 
ask Winthrop that question.) 

In any case, Jim and I marveled at 
what a great idea it was, and wondered 
why other companies didn't do it. Jim 
pointed out that such a contest requires 
a lot of up-front cash for advertising 
and promotion (not to mention the 
prizes), and that only the larger com- 
panies could afford to risk the loss. 
Still, it sure would be nice if somebody 
did something similar for us TRS-80 
pilots. 

Speaking of Hayden, Jim also says 
that they won't be coming out with too 
much TRS-80 software in the near fu- 
ture. It seems they've got eight or nine 
Apple and Atari games in the works 
that they need to polish off. Jim ac- 
knowledged, however, that the com- 
pany can't afford to ignore three quar- 
ters of a million of us, so maybe some 
time in the future they'll toss something 
our way. 

While I was on the phone, I decid- 
ed to make one of my rare yet infre- 



quent calls to 80 Micro headquarters. 
One of the editors answered with, 
"Casey's Bar and Grill, Casey speak- 
ing." Jeez, 1 thought, those folks at 
80 Micro sure are a pack of cards. 
Anyway, I asked about these rumors 
going around about Spectral Associ- 
ates, and the editor said sure enough, 
they're true. Spectral is coming out 
with a machine-language hi-res 
graphics adventure for the Color 
Computer called Revenge of the 
Hawk, and the people at Spectral say 
it's going to set a new standard in ad- 
venture games. We've all heard that 
one before, so we'll see. They've also 
got Omega Race ready to go on line. 
Both Hawk and Race should be out at 
any time. In addition, they have a 
machine-language hi-res Donkey 
Kong play-alike in the works for you 
weird arcade parlor bums. 

After I got all the straight dope on 
Spectral, I asked how things were going 
at 80 Micro, and the guy on the line said 
"80 what?" I thought at this point that 
the joke had gone too far, so I shouted 
at the guy for a little while, and he 
shouted back. It finally came to light 
that I really had celled Casey's Bar and 
Grill. These bartenders think they know 
everything. 



***** 



When I got back to the van, Win- 
throp and Mad Max were staring happi- 
ly at a blank VDT, giggling and passing 
a bottle of margaritas back and forth. I 
asked what was going on, and Win- 
throp said something about the hilari- 
ous ultrasonic hum. Mad Max asked me 
if I wanted a piece of mushroom pizza. 
Only thing was, they'd somehow lost 
the pizza and only the mushrooms were 
left. I politely declined. 

Well, I was getting pretty sick of 
the rain, so I figured that this was as 
good a time as any to hit the road. We 
needed some place nice and sunny 
where we could set up the cafe once 
again and sip coffee to the sounds of 
twangy Spanish guitars. So I wiped 
the moss from the windshield and 
headed for Route 5 South. 

It wasn't until Klamath that I real- 
ized we still had Max in the van. I 
thought of saying something, but he 
was asleep, and I didn't want to wake 
him. Besides, this'll be good for his 
soul. How long can a guy plant trees 
before he becomes one? 

That's it for this month. Keep 
those cards and letters pouring in.l 



NEW PRINTERS ADDED' FIND YOURS BELOW 



RIBBON SALE 



EXACT REPLACEMENTS. LONG LIFE, HEAVY INKING 



G0Od Tiv.»* o,,,h RADIO SHACKCENTRONICS-EPSONANADEXBASE 2-HEWLETT PACKARD-MALIBUIBMNECC.ITOHIDS 



PRINTER 

MAKE. MODEL NUMBER 

(Contact us il your printer is 
not listed We can probably 
RELOAD your old cartridges i 



ANADEX 9000 Series 
BASE 2 
CENTRONICS 7 meg 

702/703/70*753 
HPMALIBU 2608 2631 

RADIO SHACK 
DAISY WHEEL II 

Carbon Film (26 14191 

COLORS ^J°SZn 

Long Lite Fabric H449I 

LP I HIV 700 Zip Pack 
(1413)7307737/739/779 
LP III V (26 1414) 
LP VI-VIII (26 14181 
LP VII ,26 1424, 

EPSON MX 70-so IBM 

MX too 
C.ITOH nSSm 

DATA ROYAL moo 

NEC 8023 Series 

Spinwrilo, Febric 
MS Carbon Film 
COLORS 



RIBBON 
SIZE 

Inches 
: . 



INSERTS EZ-LOAD™ 

Exact REPLACEMENTS made .- 

ou' own s h op 'patu'e Long-Lite 

and Heavy inking. Our i-structions 

DROP IN. NO WINDING' 



': «30 
3 >20 

5/16 « 70 

'• i 60 

' « . 1 30 
'« « 130 
*«»fo* 

9/16 • 16 

': « 18 
5/16. 14 
Inker Loop 
'-J «20 
"i «30 
"i 



$21/3 
$18/3 



S76V12 
$66712 



18 



35 



K «130 



$25/6 $48712 $270/72 
$30/6 $58/12 $324/72 
$24/3 547/6 $90/12 
S13/3 $48/12 

S18/3 - s 'v°||^-; S66/12 
$17/3 $62/12 



$18/3 
$21/3 
$18/3 



$66712 
$78/12 



$66/12 



$18/3 



$18/3 



S66/1 2 
$66/12 



$18/3 



$66/12 



$25/6 $48/12 $270/72 



$30/6 $58/12 $324/72 



RELOADS 

You SEND your usea 
CARTRIDGES 10 us We 

RELOAD "iprr-'n- Y Ou 



$10/1 


$9 e»./2 or more 


$9/1 


$8 ea 72 or more 


$11/1 


$10 oa./2 or more 


$20/1 


$18ea72ormore 




$15/3 




$18/3 


$9/1 


S8ea./2 or more 


$9'1 


S8ea./2or more 


$9/1 


$8 ea./2 or more 







$9/1 $8 ea72 or more 
$10/1 S9ea.'2or more 
$9/1 S8ea./2or more 



$11/1 $1 ea72 or more 

$9/1 58ea/2ormore 

$9/1 $8 ea./2 or more 

$8/1 $7 ea./2 or more 



$15/3 
S18/3 



WORRIED ABOUT ORDERING BY MAIL" 1 Relax We ve been " business -or many years ana can please tne 
smallest and largest account You receive some ol tne finest r boons available made of our own exclusive 
IMAGE PLUS* tm fabric and carbon Mm Our nbbons fit your D'mter exactly COMPARE But BEWARE 1 We 
order all our competitor s products and are amazed at what we get Have you ever received a new fabric 
ribbon you had to unwind and dump out on the table before you could use it? We have Or carbon film in- 
serts trial had no endolribbon sensor 7 Of. ("-meg cartridges with only HALF enough nODon at full retail 7 
Our only business is RIBBON manufacturing And disl-iDution We use the latest state of the art production 
equipment and are blessed with a fine, dedicated sta" We 'ui y guarantee an ou' products because we make 
them ourselves You musl be completely satisfied, period Ou' nbbons are made t-esh daily and shipped within 
24 hours Write for our brochu'e and newsletter INK SPOTS 



&&C 



NEW CARTRIDGES 

ifrom the various 

manufacturers Subject 

to availability *i 



$30/2 
$25/2 



$87/6_ 
$72/6 



$168/12 
$140/12 



$18/3 $70/12 $408/72 

$21/3 $82/12 $480/72 

$20/2 $58/6 $112/12 

$25/2 $75/6 $150/12 

$22/2 $66/6 $132/12 

$16/2 $48/6 $96'12 

S18/2 $5276 $100/12 



' $30/2 ' 



SILVER DOLLAR 

WIND to LOAD 

WHY DC WE SElL THESE' 
This is the type ribbon you get ,t you orde r 
from our fellow advertisers We sell them 
for less smce we make them ourselves Do 
you really like the mess and inconvenience o* 
unwinding and dumping this type ribbon 
into a wastebasket or out on a newspaper 
and'or winding it mto your cartridge 7 We 
don t know why these are being sold 
Computers should simplify your lite not 
make it more complex iust to save a tew 
pennies You are welcome to order these 
it you cannol attord ou' EZ LOAD -m 
INSERTS RELOADS O' NEW CART 
RIDGES But BEWARE 1 You now know how 
to avoid disappointment One more caution 
be sure to Check the length of any ribbon 
BEFORE you buy it For instance an MX 100 
nbbon should be 30 yards long, not 20 as m 
theMX-80 



S12/3 $44/12 $252/72 
$11/3 $40/12 $228/72 



$12/3 
$18/3 



$44/12 $252/72 
$66/ 12 $360/72 



Volumel MODEL II 8" GAME DISCS Volume 2 

Biorhythms Trap Ugly. Bingo 



Rip Cord. Yacht Sea 
Concentration A 4 more 



$25 EACH 



Towers. Blackjack 
Farkle Pony A 3 more 



SEND CHECK. MONEY ORDER, or COD TO: 

BCCOMPCO 

800 South 17 Box 246 
SUMMERSVILLE, MO 65571 

(417)932-4196 '^ ? 

WE PAY UPS SHIPPING ON PREPAID ORDERS. PLEASE 
INCLUDE STREET ADDRESS FOR UPS DELIVERY. ADO 
$1.00 FOR POSTAL, APO, FPO, OR AK, AS, CM, GU, HI, 
PR. TT, VI, CANADA OR MEXICO. FOREIGN ADD 10%, 
U.S. FUNDS. 
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I've paid off 
the costs on my 

Model II TRSDOS* 
systems, too. 

So now they're 50% 
cheaper. 

A couple of months ago, I realized I'd paid 
off the development costs on my Model I and 
Model III programs. I could lower the price 
without cutting back one bit on my support. 

The response was fantastic. Enough so that 
I can do the same for the TRSDOS versions 
of my Model 11/16 programs. 

These are my systems, and my new prices. 

General Ledger 

It gives year-to-year comparisons in dollars 
and percentages. It figures budgets and even 
has a report generator. It was $299, it's now $150. 

Accounts Payable/Purchase Order 

It generates purchase orders and posts the items 
to payable when the goods come in. It calculates 
and prints checks and aged ledger reports, 
linking fully to the General Ledger. Was $349, 
now $175. 

Accounts Receivable 

You can choose either an open item system or 
a balance forward system which works on a cash 
or an accrual basis. The open item system does 
invoicing and sales analysis by product code and 



figure in salesmen's commissions. They both 
generate mailing lists by customer code and 
zip code for up to 2000 customers. Open Item/ 
Invoicing was $349, it's now $175. Balance 
Forward was $399, it's now $200. 

Payroll/Job Costing 

A huge capacity. It accommodates up to 300 
employees in multiple departments, with any 
state tax routine. It also figures piecework, 
overtime and tips. Was $299, now $150. With job 
costing option, was $399, now $200. 

Inventory Control 

It stores up to 5000 items. It reports by vendor, 
tells you when you're out of stock, or when you 
need to reorder. It updates price or cost automat- 
ically and integrates fully with my invoicing 
system. Originally $399, now $200. 

These programs all work with one, two, three 
or four-drive and hard disk systems. They're 
designed to integrate with the General Ledger, 
and, where it helps, with each other. 

They also get what I firmly believe is the 
most thorough support in the microcomputer 
industry. If you have a problem, call us and 
we'll straighten it out. Even if I have to do it 
myself, personally, right there on the phone. 

Michael Tannenbaum, the "80 Accountant" 
thought my systems were "a very impressive 
product at a very reasonable price." Even when 
they cost twice as much as they do now. 

Just call, and take advantage of me. 



-70 



Taranto 

& ASSOCIATES. INC. 



121 Pan) Drive. San Rafael CA 94903 

Outside California, toll free (8001 227 2868. In California. (41b> 472-2670. 

"A tiademark of the Tandy Corporation 
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TECHNIQUE 



• ' 



LOAD 80 



Voice-Controlled Typewriter 



by Mike Rigsby 



Some handicapped people have dis- 
abilities that prevent them from writing 
or typing, yet their intellect is normal. 
This program lets you produce printed 
text by verbal control. Required equip- 
ment includes a TRS-80 Model 1 or III, 
a cassette recorder, and a printer. You 
don't have to be able to utter words; 
controlled verbal utterances or the tap- 
ping of a pencil upon the table will suffice. 

A special feature of this software is 
the speed-control function. You can 
move the cursor (the heart of the opera- 
tion) faster or slower by verbal com- 
mand. You set your own pace. 

To start the program, load Voice- 



The physically handi- 
capped can produce 
printed text with this 
sound-controlled program. 

controlled Typewriter, type Run, and 
press enter. The program begins and in- 
dicates that the auxiliary microphone 
and plugs, as well as any tape, should be 
removed from the tape recorder. Next 
press the record and play keys while si- 
multaneously pushing in the silver inter- 
lock button in the left rear of the record- 
ing well. Press any key and the program 



will operate, under sound control. 

A cursor moves across the top of the 
screen and when it is over a row with a 
desired letter, utter a short sound and it 
will travel down that row. When the 
cursor is at the left of the desired letter, 
utter another sound and that letter will 



The Key Box 

Model I or HI 
16K, 32K RAM 
Cassette or Disk Basic 
Printer 



Program Listing 






1 GOTO 622 


20 


POKE 15364,191 


2 CLEAR 400 


21 


POKE15412,128 


3 B-0 


22 


FOR X=l TO Q 


4 DIMA$(70) 


23 


OUT255,00 


5 Ql=30 


24 


Y-INP(255) 


6 Q=50 


25 


IF Y>200THEN 70 


7 FOR A=0 TO 6 9 


26 


NEXTX 


8 A$(A)=" " 


27 


POKE 15372,191 


9 NEXT A 


28 


POKE15364,128 


10 CLS 


29 


FOR X»l TO Q 


11 PRINTg5 r "*":PRINTei3,"*":PRINT@21,"*":PRINT@29,"*":PRINTe37," 


30 


OUT255,00 


*" : PRINT845 , " * " : PRINT353 , "* " 


31 


Y-INP(255) 


12 PRINT@133 , "A" : PRINT0141 , "D" : PRINT3149 , "C" : PRINT0157 , "B" : PRINT 


32 


IF Y>200 THEN 127 


§165,"SPACE":PR1NT@173,"0":PRINT@181,"5" 


33 


NEXT X 


13 PRINTei97,"E":PRINTe205,"H":PRINTe213,"F":PRINT§221,"J":PRINT 


34 


POKE15380,191 


e229,".":PRINTe237,"l":PRINT@245,"6' 


35 


POKE 15372,128 


14 PRINT@261,"I":PRINT@269,*N":PRINTg277,"G":PRINT@285,"K":PRINT 


36 


FOR X=l TO Q 


£293, ",":PRINT8301,"2":PRINTg309,"7" 


37 


OUT255,00 


15 PRINT@325,"0":PRINT@333,"S":PRINTg341,"L":PRINT§349,"M": PRINT 


38 


Y=INP(255) 


§357, "PRINT":PRINT@365,"3":PRINT@373,"8" 


39 


IF Y>200 THEN 184 


16 PRINT@389,"U":PRINT§397,"T":PRINTe405,"P":PRINTe413,"Q": PRINT 


40 


NEXT X 


£421 , "ERASE" : PRINTg429 , "4" : PRINT3437 , "9" 


41 


POKE 15388,191 


17 PRINTe469,"R":PRINT§477,"V":PRINT@485,"X":PRINTe501, "SPEED" 


42 


POKE15380,128 


18 PRINT@533,"Y":PRINT£541,"W":PRINT@549,"Z" 


43 


FOR X-l TO Q 


19 SET(106,41) : SET (107, 41) : SET (108, 41) :SET(109,41) :SET(110,41) :S 


44 


OUT 255,00 


ET(111,41) :SET(112,41) :SET(113,41) :SET(114,41) :SET(115,41) :SET(1 


45 


Y-INP(255) 


16,41) :SET(117,41) :SET(118,41) :SET(119,41) :SET(120,41) :SET(121,4 


46 


IF Y>200 THEN 263 


1) :SET(127,41) :SET(126,41) 


47 


NEXT X 

/ Mini: continues 
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MAILING LIST 
SYSTEM $119.95 

FOR TRS-80 (Tandy Trademark) Model I and III 



WHAT SETS OUR SYSTEM APART?... 

• Our system is configured spec ific ally tor large mailing lists 
(or small] on floppy disk drives. Some other ma|or systems 
run on floppies but are really intended tor use on hard disk 
drives Such a system assumes that you have vast amounts ot 
on line disk storage capacity the continuity of the data is 
limited to what you can have on line at one time To get tin- 
real benefit of such a system, one usually has to purchase 
expanded track density floppy disk drives and even then the 
problem occurs when all the drives are filled with data We 
have neatly solved this problem h\ allowing all your data 
disks to be maintained in continuous order even though. 
due to the limitations of your drives, the list mas be too large 
to all be "on line" at one time Thus our system accomodates 
extremely large lists using your existing drives and yet avoids 
the segmented' data problems of the hard disk approac h 

• While it is fashionable to advertise all-machine-code systems 
our system is primarily written in BASK with embedded 
machine code for the speed sensitive areas What this means 
is that our system is easy to modify, yet extremely fast This 
is very important since many users like to have c ustom modi- 
fications made (either by them or us) so as to fit some unique 
requirement Our manual has a section devoted exclusively 
to such modifications Remember all-mac hine-code systems 
are extremely cliff ic ult to modify 

• Continuity of the ordered data (even ciata spanning main 
disks) is not limited to a session" but is permanent 

• Optional "backing up of your data as-you-go is an integral 
part of the system and is not restric ted to the end of a session 
This is true even tor deletions 

• The length of our data fields are more than adequate to 
accomodate even your longest names addresses 

• Adjusts to a 32K memory although full use is made of a 4HK 
memory Can be used with any DOS including TRSDOS 

• The program disk does not have to stay on line, thus freeing 
more spac e for data storage 

9 [ oacl t\nd si roll through entire entries or selec ted fields Edit 
as you sc roll or go direc tlv (takes about 2 sec I to a spec itic 
entry ,ind edit or delete 

• Our automatic repeat feature allows often used names 
addresses to be entered with a single key stroke 

• Each disk entry optionally remembers how many mailings 
have been made tor that partic ular entry Can be tied in with 
purge select 

• Continuing expert support |ust a phone call away You will be 
able to discuss your problems modifications with the authors 

• Money back guarantee if not fully satisfied. 

ADDITIONAL FEATURES: 

• Simple to use. even tor the novic e menu oriented 

• Permits 2260 names on-line with 40 track double density 
drives and almost 5000 names with HO tr.u k drives I he older 
!=> single density drives permit H ) J "> on line entries made 
possible with our unique data c compression techniques 

• Super fast sort by alph or zip order (8 sec for KKHl entries) 
Both orders can exist simultaneously on disk 

• High speed recovery ot entries trom disk speed of sort is 
meaningless if retreival from disk is slow Ours pulls in over 
1 1 per sec ' 

• Master list printout of your list in several formats (not just a 
rehash of labels) extremely useful 

• Zip order is "sub-alphabetized" 

• Less than r » digit zips have leading s appended 

• Supports 9 digit zips. Canadian zips, and foreign abbrev 

• Optional second address line 

• Optional reversal of names about commas This permits disk 
storage in last-name-tirst order to fac ilitate meaningful order- 



ing while the printout will be in "n atural" order 
Permits telephone, ac c ount. and or serial numbers, etc 
Prints on envelopes or labels 1.2, 5 or 4 across 
Can print individual labels at time of creation or editing 
Test label envelope printing allows you to make vertical and 
horizontal adjustments with ease 

I ransters old files to our system --^■■^■■l LOOK! 

Selec tive printout by spec if ic zips or zip ranges 
Plenty ot user defined fields with provisions tor simulta- 
neously purging and or selecting the printout even allows 
for inequalities Powerful and easy to use 

I diting is simply and tast direc t ac i ess or automatic 
search Batch transfer or edited entries to bac kup disks 
Optionally provides for duplicate labels 

Deleted entries have "holes" on disk tilled automatic ally and 
alph order is still maintained' 

All labels optionally support an Attn line with provisions 
tor multiple entries This permits mail to be sent to several" 
people at given addresses c onserves disk space 
All s are replaced by easier to read s in addresses 
(Ontmuous display of number of labels envelopes printed 
extensive use ot error traps even recovers from a power 
failure during a printout 

Extensive assortment ot extra cost options tor customized 
master list printout (in addition to the standard one mentioned 
above), transfer of entries between disks, summary reports. 
and "publisher's" type multiple list label printouts 
Hardware requirements iJK. printer, and 1 or 2 drives 



FORM LETTER (Use with Mail List System) $39.95 

Create letters and store on disk with provisions tor later retreival 
and additions Then print your letters using your mailing list 

• Same selec t ^nd purge features as mailing list system 

• Select either continuous t ant old or cut sheet paper 

• Selec table tabing test printing, and paging 

• Allows regular or legal size pages 

• Greetings are selectable by codes on mailing list Options 
include Mi Mrs First/Last Name, global or user defined 



SUPER CALENDAR (Supplied on tape only) $19.95 

Prints out calendars ot individual months ot years ranging trom 
1 iK < to any time in the future Standard banker's holidays are 
noted Additionally prints out large graphics type wall 
calendars with memos under each day Use as a planning 
c alendar with optional disk storage Requires 1(->K and a printer 

Loan Amortization (Supplied on tape only) $29.95 

Achieves pin point accuracy with a built in calendar This 
sophisticated program produces an exceptionally professional 
looking printout th.it inc ludes yearly summaries ,is well as 
totals -to-date" Several options for calculating interest includ- 
ing one that pushes the payment date ahead to the next business 
day it the regular pay date falls on a weekend or holiday 



FOOTBALL SCOUT 



(disk only) 



$89.95 



Charge local schools up to S1000 per season tor these sophisti 
c ated reports Analyze the tendanc les of opposing teams 
Equivalent to th.it used by the pros 

■■■■■■■■■■■1 



Mailing List System 
Form Letter 



Football Scout 



Super Calendars 



lipping A H.indli 



City state-. & Zip. 



Precision Prototypes ~* 

■ 410E.Roca Refugio, TX. 78377 (512)526-4758 



^ See List ot Advertisers on Page 45 1 
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/ 1 sung ainimued 


133 


FOR X=l TO Q 


219 


FOR X=l TO Ql 


305 


IF Y>200 THEN 543 


48 POKE 15396,191 


134 


OUT255,00 


220 


NEXT X 


306 


NEXT X 


49 POKE15388,128 


135 


Y=INP(255) 


221 


B$="L" 


307 


POKE 15772,191 


50 FOR X=l TO Q 


136 


IF Y>200 THEN 543 


222 


C=15700 


308 


POKE 15708,128 


51 OUT255,00 


137 


NEXT X 


223 


FOR X=l TO Q 


309 


FOR X=l TO Ql 


52 Y=INP(255) 


138 


POKE 15564,191 


224 


OUT255,00 


310 


NEXT X 


53 IF Y>200 THEN 342 


139 


POKE 15500,128 


225 


Y=INP(255) 


311 


B$="Q" 


54 NEXT X 


140 


FOR X=l TO Ql 


226 


IF Y>200 THEN 543 


312 


C=15772 


55 POKE 15404,191 


141 


NEXT X 


227 


NEXT X 


313 


FOR X=1T0Q 


56 P0KE15396,128 


142 


B$="H" 


228 


POKE 15764,191 


314 


OUT255,00 


57 FOR X=l TO Q 


143 


C=15564 


229 


POKE 15700,128 


315 


Y=INP{255) 


58 OUT 255,00 


144 


FOR X=l TO Q 


230 


FOR X«l TO Ql 


316 


IF Y>200 THEN 543 


59 Y=INP(255) 


145 


OUT255,00 


231 


NEXT X 


317 


NEXT X 


60 IF Y>200 THEN 419 


146 


Y=INP(255) 


232 


B$="P" 


318 


POKE 15836,191 


61 NEXT X 


147 


IF Y>200 THEN 543 


233 


C-15764 


319 


POKE 15772,128 


62 POKE 15412,191 


148 


NEXT X 


234 


FOR X=l TO Q 


320 


FOR X=l TO Ql 


63 POKE 15404,128 


149 


POKE 15628,191 


235 


OUT255,00 


321 


NEXT X 


6 4 FOR X=l TO Q 


150 


POKE 15564,128 


236 


Y=INP(255) 


322 


B$«"Q" 


65 OUT255,00 


151 


FOR X=l TO Ql 


237 


IF Y>200 THEN 543 


323 


C=15836 


66 Y=INP(255) 


152 


NEXT X 


238 


NEXT X 


324 


FOR X-l TO Q 


67 IF Y>200 THEN 476 


153 


B$=*N" 


239 


POKE 15828,191 


325 


OUT255,00 


68 NEXT X 


154 


C=15628 


240 


POKE 15764,128 


326 


Y=INP(255) 


69 GOTO 20 


155 


FOR X=l TO Q 


241 


FOR X=l TO Ql 


327 


IF Y>200 THEN 543 


70 POKE 15364, 128 


156 


OUT255,00 


242 


NEXT X 


328 


NEXT X 


71 POKE 15492,191 


157 


Y=INP(255) 


243 


BS="R" 


329 


POKE 15900,191 


72 FOR X=l TO Ql 


158 


IF Y>200 THEN 543 


244 


C=15828 


330 


POKE 15836,128 


73 NEXT X 


159 


NEXT X 


245 


FOR X-l TO Q 


331 


FOR X=l TO Ql 


74 B$-"A" 


160 


POKE 15692,191 


246 


OUT255,00 


332 


NEXT X 


75 C=15492 


161 


POKE 15628,128 


247 


Y=INP(255) 


333 


B$="W" 


76 FOR X=l TO Q 


162 


FOR X=l TO Ql 


248 


IF Y>200 THEN 543 


334 


C=15900 


77 OUT255,00 


163 


NEXT X 


249 


NEXT X 


335 


FOR X=l TO Q 


78 Y=INP(255) 


164 


B$="S" 


250 


POKE 15892,1*1 


336 


OUT255,00 


79 IF Y>200 THEN 543 


165 


C=15692 


251 


POKE 15828,128 


337 


Y=INP(255) 


80 NEXT X 


166 


FOR X=l TO Q 


252 


FOR X-l TO Ql 


338 


IF Y>200 THEN 543 


81 POKE 15556,191 


167 


OUT255,00 


253 


NEXT X 


339 


NEXT X 


82 POKE 15492,128 


168 


Y=INP(255) 


254 


B$»"Y" 


340 


POKE 15900,128 


83 FOR X=l TO Ql 


169 


IF Y>200 THEN 543 


255 


C=15892 


341 


GOTO 20 


84 NEXT X 


170 


NEXT X 


256 


FOR X=l TO Q 


342 


POKE 15524,191 


85 B$="E" 


171 


POKE 15756,191 


257 


OUT255,00 


343 


POKE 15396,128 


• 86 C=15556 


172 


POKE 15692,128 


258 


Y=INP(255) 


344 


FOR X-l TO Ql 


87 FOR X-l TO Q 


173 


FOR X=l TO Ql 


259 


IF Y>200 THEN 543 


345 


NEXT X 


88 OUT255,00 


174 


NEXT X 


260 


NEXT X 


346 


B$=CHR$(176) 


89 Y=INP(255) 


175 


B$="T" 


261 


POKE 15892,128 


347 


C-15524 


90 IF Y>200 THEN 543 


176 


C=15756 


262 


GOTO 20 


348 


FOR X=l TO Q 


91 NEXT X 


177 


FOR X=l TO Q 


263 


POKE 15388,128 


349 


OUT255,00 


92 POKE 15620,191 


178 


OUT255,00 


264 


POKE 15516,191 


350 


Y=INP(255) 


93 POKE 15556,128 


179 


Y=INP(255) 


265 


FOR X=l TO Ql 


351 


IF Y>200 THEN 543 


94 FOR X=l TO Ql 


180 


IF Y>200 THEN 543 


266 


NEXT X 


352 


NEXT X 


95 NEXT X 


181 


NEXT X 


267 


B$="B" 


353 


POKE 15588,191 


96 B$="I" 


182 


POKE 15756,128 


268 


C-15516 


354 


POKE 15524,128 


97 O15620 


183 


GOTO 20 


269 


FOR X=l TO Q 


355 


FOR X=l TO Ql 


98 FOR X=l TO Q 


184 


POKE 15380,128 


270 


OUT255,00 


356 


NEXT X 


99 OUT255,00 


185 


POKE 15508,191 


271 


Y=1NP(255) 


357 


B$«"." 


100 Y=INP(255) 


18b 


FOR X=l TO Ql 


272 


IF Y>200 THEN 543 


358 


C=15588 


101 IF Y>200 THEN 543 


18/ 


NEXT X 


273 


NEXT X 


359 


FOR X=l TO Q 


102 NEXT X 


188 


B$="C" 


274 


POKE 15580,191 


360 


OUT255,00 


103 POKE 15684,191 


189 


C=15508 


275 


POKE 15516,128 


361 


Y=INP(255) 


104 POKE 15620,128 


190 


FOR X=l TO Q 


276 


FOR X=l TO Ql 


362 


IF Y>200 THEN 543 


105 FOR X-l TO Ql 


191 


OUT255,00 


277 


NEXT X 


363 


NEXT X 


106 NEXT X 


192 


Y=INP(255) 


278 


B$="J" 


364 


POKE 15652,191 


107 B$»"0" 


193 


IF Y>200 THEN 543 


279 


C=15580 


365 


POKE 15588,128 


108 C=15684 


194 


NEXT X 


280 


FOR X-l TO Q 


366 


FOR X=l TO Ql 


109 FOR X=l TO Q 


195 


POKE 15572,191 


281 


OUT255,00 


367 


NEXT X 


110 OUT255,00 


196 


POKE 15508,128 


282 


Y=INP(255) 


368 


B$="," 


111 Y=INP(255) 


197 


FOR X=l TO Ql 


283 


IF Y>200 THEN 543 


369 


C=15652 


112 IF Y>200 THEN 543 


198 


NEXT X 


284 


NEXT X 


370 


FOR X=l TO Q 


113 NEXT X 


199 


B$="F" 


285 


POKE 15644,191 


371 


OUT255,00 


114 POKE 15748, 191 


200 


015572 


286 


POKE 15580,128 


372 


Y=INP(255) 


115 POKE 15684,128 


201 


FOR X=l TO Q 


28/ 


FOR X=l TO Ql 


373 


IF Y>200 THEN 543 


116 FOR X=l TO Ql 


202 


OUT255,00 


288 


NEXT X 


374 


NEXT X 


117 NEXT X 


203 


Y=INP(255) 


289 


B$="K" 


375 


POKE 15716,191 


118 B$«"U" 


204 


IF Y>200 THEN 543 


290 


C=15644 


376 


POKE 15652,128 


119 C=15748 


205 


NEXT X 


291 


FOR X-l TO Q 


377 


FOR X=l TO Ql 


120 FOR X=l TO Q 


206 


POKE 15636,191 


292 


OUT255,00 


378 


NEXT X 


121 OUT255,00 


207 


POKE 15572,128 


293 


Y=INP(255) 


379 


C=15716 


122 Y=INP(255) 


208 


FOR X=l TO Ql 


294 


IF Y>200 THEN 543 


380 


FOR X-l TO Q 


123 IF Y>200 THEN 543 


209 


NEXT X 


295 


NEXT X 


381 


OUT255,00 


124 NEXT X 


210 


B$="G" 


296 


POKE 15708,191 


382 


Y=INP(255) 


125 POKE 15748,128 


211 


C=15636 


297 


POKE 15644,128 


383 


IF Y>200 THEN 553 


126 GOTO 20 


212 


FOR X=l TO Q 


298 


FOR X=l TO Ql 
NEXT X 


384 


NEXT X 


127 P0KE15372,128 


213 


OUT255,00 


299 


385 


POKE 15780,191 


128 POKE15500,191 


214 


Y=INP(255) 


300 


B$="M" 


386 


POKE 15716,128 


129 FOR X=l TO Ql 


215 


IF Y>200 THEN 543 


301 


C=15708 


38/ 


FOR X=l TO Ql 


130 NEXT X 


216 


NEXT X 


302 


FOR X=l TO Q 


388 


NEXT X 


131 B$="D" 


217 


POKE 15700,191 


303 


OUT255,00 


389 


C-15780 


132 C=15500 


218 


POKE 15636,128 


304 


Y=INP(255) 




/ isime continues 
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COMPUTER CONNECTION 



New Toll Free Order Number 



□ Connection-80 BBS 



□ 



□ 



State ot the 
Art in Microcomputer Bulletin Hoard Programs 
tor the TRS-80. A\ailablc tor Mod I (10 1000) or 
Mod III (103000) SI99.95. 

Electric Pencil Ver 2.1. This is 

the easiest to use word processor tor .the 1 RS-80 
Models I III. Easy to follow instruction manual, 
full documentation. RegularU $89.95 Holidav 
Special $59.95! 

r\I«riTI~oU Security Company Ser\ice 
Maintenance Billing Package tor hoth the Model 
I & III Menu driven basic programs, handles 
central station billing on monthly . quarterh . semi- 
annual, or annual cycles. Complete sales and aging 
reports. Multi field customer listing. Interactive 
dunning program for delinquent accounts with 
letter writer. ( 1 13026) $499.95. 

Clear Disk Drive Cases — 

Give your disk drives a modern look. Clear 
Plexiglass Case gives a clean look to vour system. 
Regularly S79.95 Holiday Special $69.95!! ' 

X OWer UraW A super-easy screen display 
generator. Allows you to save screens in Basic. 
Packed String. load file, or CMD file. Give a 
professional look to sour program. Regularh 
$39.95. Holiday Special $29 95!! 

Dosplus 3.4 
Operating System 

You've read all about this incredible Operating 
System. With all its' features only the price could 
improve it. Sooo... Holiday Special $79.95!!! 

(101005) Model I Single Density 

(101006) Model I Double Densitv 
(103006) Model III 

lVl"Z^ai The most powerful Fditor 
Assembler ever written. Full screen editing, linking 
loader, full macro support and much more! 
Holiday special only ( 101007) $99.95. 



Electronic Messenger compi«eh 

automated electronic mail program tor the 
Model III Transmitts and receives mail auto- 
matically From a short note to a tull disk' I he 
standard in Electronic Mai! tor all Computers 
(103013) $149 95 (Now only 559.95!!!!!) 

Postman Mass Mailing 

System this Mass Mailing Package is 
without a doubt the most powerful mailing list 
program e\er written' Info-World ga\e it a 4 
excellent (highest) rating' Regularh $129.95. 
Holiday Special $99 95 

Manufacturing Inventory 

\_sOntrOl A complete point-of-sale order 
entry system for I RS-80 Model I 111 Includes 
Invoice Generator. Billing Record Maintenance. 
Inventory Tracking, Production of finished goods 
from raw materials, etc... Fantastic! Regular 
SI99.00. Holiday Special $14900!' 

PaSCal-80 The Fabulous Pascal-80 
Package by New Classics Software Considered to 
be the best Pascal Package a\ailable for the 
1 RS-80! Regular Price $99.95. Holidav 
Special (113008) $79.95!! 

IVllCrO \_<aSnA point-of-sale Inventory 

Cash Register, and Accounts Receivable 
System for the TRS-80 Model III Includes 
Invoice Generator and Inventory Control' 
Regularly $199.00 Holiday Special (103030) 
$149.95!! 

Super Utility A Must for all serious 
computer users. Allows :you to repair damaged 
disk directories, boot tracks, etc. A real \alue at 
579.95. but a holidav special at $39.95!! 

Uniterm A Modular Terminal program for 
both the Model I & III. Full lp and down loading 
capabilities with a 38K. butter in a 48K mackline! 
113000 579.95. 



*A1I Holiday Specials End 1-15-83!!! 

Postmarks after that date will not be accepted at these prices!! 




B.T. Enterprises ^300 

10B furlough Road p ra i rr Inquire Welcome 

Bohemia. \.Y. 1 1716 Prices Suhjeci to change 

516 567 S155 (voice) V Y 8 Residents Add lux 

516 5H8 5836 (modem) 
B I I ntcrpnses is a division ot Bi-Kvh I ntrrprises Inc 



New Toll Free Lines for 

out of New York State 

orders 

800 645 1165 

WELCOME 




■ See List ot Advertisers on Page <5? 
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Limn ft continued 

390 FOR X=l TO Q 

391 OUT255,00 

392 Y-INP(255) 

393 IF Y>200 THEN 568 

394 NEXT X 

395 POKE 15844,191 

396 POKE 15780,128 
39/ FOR X=l TO Ql 

398 NEXT X 

399 B$="X" 

400 C=15844 

401 FOR X=l TO Q 

402 OUT255,00 

403 Y=INP(255) 

404 IF Y>200 THEN 543 

405 NEXT X 

406 POKE 15908,191 

407 POKE 15844,128 

408 FOR X=l TO Ql 

409 NEXT X 

410 B$="Z" 

411 C=15908 

412 FOR X= 1 TO Q 

413 OUT255,00 

414 Y=INP(255) 

415 IF Y>200 THEN 543 

416 NEXT X 

417 POKE 15908,128 

418 GOTO 20 

419 POKE 15532,191 

420 POKE15404,128 

421 FOR X=l TO Ql 

422 NEXT X 

423 B$="0" 

424 C=15532 

425 FOR X=l TO Q 

426 OUT255,00 

427 Y=INP(255) 

428 IF Y>200 THEN 543 

429 NEXT X 

430 POKE 15596,191 

431 POKE 15532,128 

432 FOR X=l TO Ql 

433 NEXT X 

434 B$="l" 

435 C=15596 

436 FOR X=l TO Q 

437 OUT255,00 

438 Y=INP(255) 

439 IF Y>200 THEN 543 

440 NEXT X 

441 POKE 15660,191 

442 POKE 15596,128 

443 FOR X=l TO Ql 

444 NEXT X 

445 B$»"2" 

446 O15660 

447 FOR X=l TO Q 

448 OUT255,00 

449 Y=INP{255) 

450 IF Y>200 THEN 543 

451 NEXT X 

452 POKE 15724,191 

453 POKE 15660,128 

454 FOR X=l TO Ql 

455 NEXT X 

456 B$="3" 

457 C=15724 

458 FOR X=l TO Q 

459 OUT255,00 

460 Y=INP(255) 

461 IF Y>200 THEN 543 

462 NEXT X 

463 POKE 15788,191 

464 POKE 15724,128 

465 FOR X=l TO Ql 

466 NEXT X 

467 B$«"4" 

468 C=15788 

469 FOR X-l TO Q 

470 OUT255,00 

471 Y=INP(255) 

472 IF Y>200 THEN 543 

473 NEXT X 

474 POKE 15788,128 
47 5 GOTO 20 



476 POKE 15540,191 

477 POKE 15412,128 
47 8 FOR X=l TO Ql 
47 9 NEXT X 

480 B$="5" 

481 O15540 

482 FOR X=l TO Q 

483 OUT255,00 

484 Y=INP(255) 

485 IF Y>200 THEN 543 

486 NEXT X 

487 POKE 15604,191 

488 POKE 15540,128 

489 FOR X=l TO Ql 

490 NEXT X 

491 B$="6" 

492 C-15604 

493 FOR X=l TO Q 

494 OUT255,00 

495 Y=INP(255) 

496 IF Y>200 THEN 543 

497 NEXT X 

498 POKE 15668,191 

499 POKE 15604,128 

500 FOR X=l TO Ql 

501 NEXT X 

502 B$="7" 

503 C=15668 

504 FOR X=l TO Q 

505 OUT255,00 

506 Y=INP(255) 

507 IF Y>200 THEN 543 

508 NEXT X 

509 POKE 15732,191 

510 POKE 15668,128 

511 FOR X=l TO Ql 

512 NEXT X 

513 B$="8" 

514 C=15732 

515 FOR X=l TO Q 

516 OUT255,00 

517 Y=INP(255) 

518 IF Y>200 THEN 543 

519 NEXT X 

520 POKE 15796,191 

521 POKE 15732,128 

522 FOR X=l TO Ql 

523 NEXT X 

524 B$="9" 

525 C=15796 

526 FOR X=l TO Q 

527 OUT255,00 

528 Y-INP(255) 

529 IF Y>200 THEN 543 

530 NEXT X 

531 POKE 15860,191 

532 POKE 15796,128 

533 FOR X=l TO Ql 

534 NEXT X 

535 C=15860 

536 FOR X=l TO Q 

537 OUT255,00 

538 Y=INP(255) 

539 IF Y>200 THEN 573 

540 NEXT X 

541 POKE 15860,128 

542 GOTO 20 

543 GOT0544 

544 POKEC,128 

545 PRINT@(896+B) ,B$ 

546 IF B$=CHR$(176) THEN B$=" ■ 

547 A$(B)=B$ 

548 B=bfl 

549 IF B=62 THEN 553 

550 FOR X=l TO 20 

551 NEXT X 

552 GOTO 20 

553 C$=AS(0)+A$(1)+A$(2)+A$(3)+A$(4)+A$(5)+A$(6)+A$(7)+A$(8)+A$( 
9)+A$(10)+A$(ll)+A$(12)+A$(13)+A$(14)+A$(15)+A$(16)+A$(17)+A$(18 
)+A$(19) 

554 D$-A$(20)+A$(21)+A$(22)+A$(23)+A$(24)+A$(25)+A?(26)+A$(27)+A 
$(28)+A$(29)+A$(30)+A$(31)+A$(32)+A$(33)+A$(34)+A$(35)+A$(36)+A$ 
(37)+A$(38)+A$(39) 

555 E$=A$(40)+A$(41)+A$(42)+A$(43)+A$(44)+A$(45)+A${46)+A$(47)+A 
$(48)+A$(49)+A$(50)+A$(51)+A$(52)+A$(53)+A$(54)+A$(55)+A$(56)+A$ 

Listing continues 
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Listing continued 












(57)+A$(58)+A$(59) 












556 


POKE15716,128 












557 


F$=»A$(60)+A$(61)+A$(62) 












558 


G$=C$+D$+E$+F$ 












559 


LPRINTG$ 












560 


PRINT6896," 

■ 












561 


FOR A«0TO69 












562 


A$(A)»" " 












563 


NEXT A 












564 


B*M 












565 


FOR A-0 TO 500 












566 


NEXT A 












567 


GOTO 20 












56b 


B«lB-l):IF B<0 THEN B-0 


:A$(B)- H ■ 








569 


POKE 15780,128 












570 


PRINT§(896+B) ," " 












571 


GOTO 20 












572 


GOTO 628 












573 


CLS 












574 


PRINTe20,"TIME CONSTANT 


» 










575 


PRINT@35 f Q 












576 


PRINT§133 , "FASTER" 












5/7 


PRI NT gl 53, "SLOWER " 












578 


PRINT§173 , "RETURN" 












579 


POKE15492,191 












580 


POKE15532,128 












581 


FOR X=1TO20 












582 


NEXT X 












583 


FOR X-l TO 50 












584 


OUT255,00 












585 


Y-INP(255) 












586 


IF Y>200 THEN 607 












587 


NEXT X 












588 


POKE 15512,191 












589 


POKE 15492,128 












590 


FOR X=l TO 20 












591 


NEXT X 












592 


FOR X-1TO50 












593 


OUT255,00 












594 


Y-INP(255) 












595 


IF Y>200 THEN 614 












596 


NEXT X 












597 


POKE 15532,191 












598 


POKE 15512,128 












599 


POR X=l TO 20 












600 


NEXT X 












601 


FOR X-l TO 50 












602 


OUT255,00 












603 


Y»INP(255) 












604 


IF Y>200 THEN 620 












605 


NEXT X 












606 


GOT0579 












607 


Q-(Q-5) 












608 


IF Q«H THEN Q-b 












609 


POKE15492,128 












610 


PRINT§35,Q 












611 


POR X-l TO 50 












612 


NEXT X 












613 


GOTO 579 












614 


Q-(Q+5) 












615 


POKE 15512,128 












616 


PRINTS35,Q 












617 


FOR X-l TO 50 












618 


NEXT X 












619 


GOTO 579 












620 


CLS 












621 


B-0:GOTO7 












622 


CLS 












623 


PRINT"1. YOUR PRINTER 


SHOULD BE ATTACHED AND ON." 




624 


PRINT" 2. REMOVE THE 'AUX' 


AND 'MIC 


PLUGS FROM THE CASSETT 


E 


RECORDER. " 












625 


PRINT" 3. THE ROOM MUST BE 


QUIET AND 


THE 


RECORDER ON A 


HARD 


FLAT SURFACE FOR BEST RESULTS." 








626 


PRINT"4. DEPRESS 'RECORD' 


, 'PLAY', AND THE SMALL PIN AS IN 


DICATED IN THE FLASHING DRAWING." 








627 


PRINT'S. DEPRESS ANY 


<EY 


TO CONTINUE." 






628 


POKE15916,151:POKE15917 


,135 


:POKE15918 


,131 


P0KE15919,131 


POKE 


15920, 131:P0KE15921, 131 :POKE15922,131:POKEl5923 , 171 :POKE15980. 14 


9:POKE15987,170 












629 


POKE16044,149tPOKEl6045 


,191 


:POKE16047 


,191 


POKE16051,170 




630 


M$-INKEY$ 












631 


IF M$-""THEN633 












632 


GOT02 












633 


POKE15917 ,131 : POKE16045 


,128 


:POKE16047 


,128 






634 


GOTO 628 













appear at the bottom of the video 
screen. The cursor returns to the home 
position in the upper left and circulates 
again. 

The Space function makes a small 
block appear on the video display (the 
printer will print a space). The Print 
function prints the video display line, 
and Erase deletes the last character (or 
space) from the video screen. If you 
reach the end of the video line (the gap 
in the indicating bar above the line), the 
line is automatically printed. 

The Speed function produces a new 
display that has the commands Faster, 
Slower, and Return. These commands 
increase or decrease the speed at which 
the cursor moves. Return sends the pro- 
gram back to the original mode. Any- 
thing on the video display line will be 
lost upon exiting to the Speed control 
display. You can change the speed as 
often as you wish. 

This program is written in Basic and 
some delay is allowed after a Print com- 
mand so the printer noise will not be 
"heard" by the tape recorder. If your 
printer is slow, you may want to in- 
crease this delay by changing the 500 in 
line 565 to a greater number, such as 
2000. ■ 









TRS-80* 1 3 Discount 




Models (RjttESl 


Prices! 




I & III LI 








nstmas! 


Great Gift Ideas for Ch 






Your Cost 




For Little Kids (Ages 4 -101 


Tape /Disk 




Little Red Riding Hood (Adv Int.) 


11.90 - 




Old McDonald's Farm (Adv. Int.) 


11.90 - 




Twas the Night Before Xmas 






(Adv. Int.) 


11.90 - 




Ghost Hunter (Dub & McNm) 


13.50 - 




Hoppy(Dub&McNm) 

The Playful Professor (Med. Sys 


13.50 - 




11.90 14.30 




For Big Kids 






The Eliminator (Adv Int.) 


15.90 19.90 




Star Fighter (Adv. Int.) 


19.90 23 90 




Crush, Crumble & Chomp 






(Auto. Sim.) 


23 90 23.90 




Defense Command (Big Five) 


12 7015.90 




Robot Attack (Big Five) 


12.70 15.90 




Panik (Fantastic) 


15.90 19.90 




The Institute (Med Sys.) 


15.90 18.30 




Laser Defense (Med. Sys.) 


11.9014.30 




Strike Force (Melbourne) 


13.55 16.95 




For the Office 






Personal Check Mgr. (Adv. Int.) 


- 19.90 




Mail List (Precision Proto.) 


71.90 




Electric Webster (Prosoft) 


- 119.60 




Newscript 7.0 (Prosoft) 


- 99.90 




Newscript 7.0 & Labels (Prosoft) 


- 111.90 




Check reader service for our catalog. 




RIMES COMPUTER PRODUCTS 




262Tracey, Dept. 12A 




Grand Island, NY. 14072 




(716)773-2519 






Add $1 50 for shipping Add $1 


50 for COD 




For fastest service send M O o 


cert check, 




Mastercard Visa also accepted 




Allow ? weeks for persona 


checks 




New Yo'k Res dents add sales tax 




• TRS-80 is a trademark of Ta 


-oy Co'n 

• 480 
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At last count, more than a 
couple of million Americans owned 
personal computers. And that 
number is expected to triple by 
1985. 

That's a fertile environment 
for software sales. But a lot of per- 
sonal computer software organiza- 
tions are discovering it's not as 
easy as they might have thought. 

The problems boil down 
to these: 

Lack of awareness on the 
part of personal computer buyers. 
Lack of understanding on the part 
of personal computer salespeople. 
Lack of unlimited dollars to adver- 
tise in the myriad magazines that 
reach this small segment or that 
small segment of the total market. 

If any of this sounds like a 
familiar frustration to you, we've 
got good news. LIST is here. And 
its advent heralds a new era in 
cost-effective software marketing. 

LIST isn't 
another guide. 
It's not another 
directory. It's an 
informative new 
publication that 
puts software 
first. And puts 
you in touch — 
directly, inexpen- 
sively — with the 
fastest growing 
segments of 

r; 1981i Redgate Publishing Company 



the personal computer market. 

With LIST f you'll be able to 
reach business and professional 
people at a critical point in the 
purchase cycle — before they've 
bought their hardware. 

At the same time, you'll be 
able to impact another significant 
market segment — those people 
who already own personal com- 
puters, and are eager to learn how 
they can do more with them. 

To find out how LIST can 
expand the awareness of your soft- 
ware for less than $200, send us 
this coupon. (Hurry! We go to 
press December 15.) 

Or don't. And go on being 
less well known than you deserve 
to be. 

LIST is published by Redgate 
Publishing Co. , an affiliate of 
EFHutton&Co. 

1 800 327-1300 

In Florida call: 1 305 231-6904 „ 7 



I WANT TO MAKE MORE PEOPLE AWARE OF MY SOFTWARE." 

Please send me literature that explains how LIST can help. 
1 don't want to wait on the mails. Call me nght away. 
Send to LIST, Redgate Publishing Co., 3107 Ocean Drive, 
Vero Beach. PI. 32060. Or phone 1 800 327-1300. 

lnl-"l.>nd»r»ll: 1 305 I i-1 
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REVIEW 



The Color Computer Goes 

Forth 



by Scott L. Norman 



• • * 

Colorforth 

Armadillo International Software 

Austin, TX 78712 

Color Computer, 16K 

$49.95 



• • • • Vz 

Starting Forth 

Leo Brodie 

Prentice-Hall 

Englewood Cliffs, NJ 07632 

softcover, 348 pp. 

$15.95 



by Scott L. Norman 

Colorforth is an implementation for 
the Color Computer's 6809 micropro- 
cessor of FIG-Forth, the standard pro- 
moted by the Forth Interest Group 
(FIG) of San Carlos, CA. The 
documentation is a 12-page Armadillo 
Software pamphlet and a detailed FIG 
glossary. The pamphlet contains 
details on changing the memory maps 
for disk and cassette systems, as well as 
a few special features of Colorforth. 
The FIG publication includes the 
manual for the source-code text editor. 

Starting Forth 

There's no way a stranger to Forth 
could learn the language from this 
material. Armadillo Software suggests 
you purchase Leo Brodie's book. 
There are tutorial reviews, problems 
with solutions, and carefully marked 
sections for novices and relative 
experts. 
80 • 80 Micro, December 1982 



Programming in Forth 
is now possible for 
Color Computer owners; 
read on and And out how 



The pages of Starting Forth are in- 
habited by marvelous cartoon charac- 
ters who illustrate the functions of 
Forth words and features; there's a 
robed monk with a quill pen for the 
compiler, a hooded medieval execu- 
tioner for the word execute, and a 
slick-haired, mustachioed character 
who constantly refers to his dictionary. 
Naturally, he's the interpreter. My fa- 
vorite is the two-headed flying rep- 
tile responsible for exchanging the top 
two numbers on the parameter stack. 
By an amazing coincidence, the word 
he represents matches the sound of his 
wings: swap! 

None of this hides the fact that 
Brodie has produced a serious book. It 
is best read at the keyboard where you 
can test the examples interactively, 
since certain sections are geared to 
Forth Inc. products and discuss fea- 
tures not relevant to Colorforth. An 
example is the discussion of the text 
editor, for which Colorforth uses very 
different syntax. The FIG notes pro- 
vide a clear guide to this aspect of the 
software. In most respects, Starting 
Forth is excellent in both style and con- 
tent, and I recommend it. 

Colorforth 

The Colorforth software comes on 
cassette, with versions for 16K systems 
with or without disk drives. There are 
complete instructions for making cas- 
sette back-ups and for modifying and 



storing disk and cassette versions for 
32K systems. 

There is also a discussion of the sim- 
ulated disk screens used by cassette- 
based systems. Forth uses virtual stor- 
age, shuffling 1 ,024-character screens 
between disk and RAM as needed. 
Colorforth reserves RAM for the pur- 
pose of simulating such storage units: 
four of them in 16K, 12 in 32K. (A real 
disk holds about 135K.) 

By using the starting and finishing 
addresses specified in the documenta- 
tion, you can store the simulated 
screens' contents on tape so your newly 
defined text isn't lost at the end of a 
terminal session. You can also define 
new words without using a screen, al- 
though you can't use the text editor to 
correct errors. Words that compile cor- 
rectly become part of Colorforth's dic- 
tionary, at least for the duration of the 
session. The Colorforth pamphlet also 
gives the addresses used in saving a dic- 
tionary that has been extended. 

I added the word CLS to the diction- 
ary, to clear the screen as in Color 
Basic. Colorforth doesn't have a built- 
in function like this. My word was con- 
structed as a colon definition; i.e., the 
defining name, operands, and 
previously defined (stock) words out of 
which it was constructed were enclosed 
between a leading colon and trailing 
semicolon, like this: : CLS 1024 512 
143 FILL ;. Hitting enter compiles the 
word into the dictionary. 

This illustrates a number of qualities 
about typical Forth words, so let's take 
it apart slowly. It starts with the name I 
choose, which can be up to 3 1 charac- 
ters long. The use of long names makes 
programs somewhat self-document- 
ing, but remember that what's stored is 
just the first three characters plus a 



count of the word's length. This means 
that WORD1 and WORD2 are indis- 
tinguishable as names; both are five 
characters long and both begin with 
WOR. It is acceptable to use 1WORD 
and 2WORD, however. 

The definition follows the name of 
CLS; in this case, "Starting at address 
1024, fill 512 memory locations with 
the byte pattern that translates as deci- 
mal number 143." (The definition of 
the word Fill tells us which operand 
corresponds to each of these param- 
eters.) 

Fill is a general Forth word, and can 
perform this memory-stuffing op- 
eration anywhere in RAM. Recall, 
however, that in the Color Computer 
location 1024 is the start of the low -res- 
olution video screen. When you store 
numbers in such locations, the corre- 
sponding graphics character shows up 
on the video display, so that my Color- 
forth word is the equivalent of the Col- 
or Basic loop: 



100 FOR I -1024 TO 1024 * 511 
100 POKE I, 143 

120 NEXT I 



Referencing Color Computer docu- 
mentation verifies that here, 143 is a 
solid green graphics block. 

You can see the extent Colorforth 
represents a customization of Forth to 
the Color Computer. You can capital- 
ize on the memory-mapped video of 
the 6809, and use the predefined 
graphics characters at will. 

For example, here is one way to 
generalize CLS to a new word, 
YELSCRN, which clears the video dis- 
play to solid yellow instead of solid 
green: : YELSCRN 1024 512 159 FILL 
KEY ;. Here, 159 represents the solid 
yellow graphics block denoted as 
CHR$(159) in Color Basic. Another 
stock Forth word, Key, has been intro- 
duced. It causes the computer to wait 
until a key is depressed before con- 
tinuing (before signifying the complete 
execution of YELSCRN). The signal 
takes the form of OK printed on a 
green field, which spoils the appear- 
ance of the solid yellow screen. Thus 
Key is similar in function to the Basic 
statement 200 A$ = 1NKEYS : IF 
A$ = "" THEN 200, or to the indef- 
inite loop 200 GOTO 200, often used 
to freeze a video display. 

Once they are defined, invoke the 
new words by calling them; to clear the 
screen to green at any time, enter CLS 
from the keyboard or include it in a 



program statement. 

Text Screen Operations 

You can define a whole series of col- 
ored backgrounds if desired. The best 
way is to use the text editor, entering a 
whole group of definitions on a screen. 
Remember, words defined this way 
don't have to be sequential statements 
in any one program. When using a 
disk, prepare the system for screen in- 
put by entering "empty-buffers," fol- 
lowed by "disk." The command Edi- 
tor invokes the editor; screen # 1 can 
then be loaded with blanks and 
selected for editing by 1 CLEAR. 

A text screen consists of 16 lines of a 
maximum of 64 characters each. The 
lines are numbered 0-15, and you enter 
text on line #n by prefixing your mate- 
rial with n P. Thus typing the following 
two lines loads the defining words for 
blue and red backgrounds into virtual 
memory: 



2 P : BI.USCRN 1024 512 175 FILL KEY ; 

3 P : RLDSCRN 1024 512 191 FILL KEY ; 

Line numbers 2 and 3 refer only to lo- 
cations being edited within the screen; 
there are no line numbers in a Color- 
forth program itself. 

The last entry on a text screen should 
be ;S (note the lack of a space between 
semicolon and S), which stops inter- 
pretation when the screen is loaded. 
You need not devote an entire line to 
this two-character word; Colorforth 
can handle multiple-word (multiple- 
statement) lines, as long as they're less 
than 64 characters. If a single defini- 
tion is longer than this, press enter 
when nearing the end of the first 64 
characters and continue on the next 
screen line. A right square bracket, 
generated by pressing the shift and 
right arrow keys simultaneously, de- 
notes the start of a continuation line. 

The FIG documentation discusses 



What Forth Is, and Isn't 



I knew very little about Forth 
before being introduced to the 
Colorforth package, though I had 
a feeling that it was useful for 
computer control of machinery. 
The arrival of the Colorforth cas- 
sette motivated me to learn more 
about the background and capa- 
bilities of the language. 

I learned that Forth — at least in 
its original form — was largely the 
invention of Charles H. Moore, 
who now heads Forth Inc. in CA. 
Forth has become a favorite for 
computer control of instruments 
among radio astronomers, al- 
though since its inception it has 
found a wider variety of appli- 
cations. 

It's compact, and has been im- 
plemented on a range of comput- 
ers, from mainframes to micros. 
The microcomputer versions are 
not necessarily poor relations; a 
very capable Forth package can be 
written for a 16K machine. 

One of the problems in writing 
about Forth is that, strictly speak- 
ing, it isn't a language, but rather a 
complete programming environ- 
ment. A typical package includes a 
core dictionary of words, a com- 
piler, an assembler, and a text edi- 
tor for working on source code. 
For brevity, though, I'll call it a 



language in this review. It's easy to 
customize Forth for any particular 
application. Most versions, how- 
ever, start with an unusual degree 
of commonality. The Forth com- 
munity has shown a genuine inter- 
est in setting standards, which 
makes it easy to use general texts 
like Brodie's with other vendors' 
software packages. 

But what is it like to program in 
Forth? You begin with a diction- 
ary of 1 50 or so high-level words 
that act like subroutine calls. 
These can be added to. In fact, 
much of what you do when pro- 
gramming in Forth is to define 
more and more powerful words, 
combining prior definitions with 
embedded data. Ultimately, you 
define a word that, when called, 
executes the entire program. 

Languages implemented in this 
fashion are said to be threaded; 
you can visualize a thread of sub- 
routine addresses linking the pro- 
gram words together, eventually 
ending at the machine-language 
level where the most basic words 
(the ones that were in the diction- 
ary to begin with) are defined. The 
commands a programmer gener- 
ates can be tested immediately 



Continue on p N2 
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the text editor. It performs most func- 
tions you expect from an editor, al- 
though some operations aren't as con- 
venient. For example, it takes two 
commands to change one text string in- 
to another: X oldtext, C new text. 

The word Forth causes the system to 
leave the editor. All that remains is to 
compile the words defined on the 
screen into the dictionary, done easily 
with the Load command. 

Dealing With Numbers 

All the examples so far have used 
decimal numbers; Colorforth initial- 
izes in decimal, just as Basic does. It 
does have a built-in hexadecimal capa- 
bility, however, and it's easy to define 
the system you want and have Color- 
forth operate in any other base. 

You can switch between decimal and 
hexadecimal with the words Decimal 



and Hex. These are toggled com- 
mands, so exercise a little caution if 
you change bases in the middle of a 
routine. Here's a definition for a new 
word, Convert, which takes a decimal 
number from the keyboard and prints 
its hex equivalent: : CONVERT CR 
HEX . DECIMAL CR ;. This uses two 
more predefined words: CR, which 
generates a carriage return; and ".", 
the period, which causes the preceding 
number to print according to the most 
recently defined base. 

You can see how the liberal use of 
punctuation marks as words makes 
Forth hard to write about. Assume 
that you start out in the decimal sys- 
tem; you invoke the new word by en- 
tering n Convert, where n is an appro- 
priate number. The entry process puts 
n on top of the stack. Hex converts the 
top number on the stack to hexadeci- 



mal, the period prints it, and Decimal 
returns you to base 10 for the next key- 
board entry. The initial and final car- 
riage returns provide a decent display. 

From this example, you can see how 
the stack gets involved in Colorforth 
operations, including I/O. 

The next step is the definition of 
other numbering systems. This in- 
volves the predefined variable BASE, 
which stores the decimal value of the 
number used for conversions. Here are 
the definitions of two new systems: 

: TERNARY 3 BASE ! ; 
: 25-ARY 25 BASE ! ; 

These aren't especially useful, but are 
different from the Binary and Octal 
that everyone defines when writing 
about Forth. 
These definitions introduce the ex- 
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from the keyboard, since they are 
compiled as they are entered. Al- 
ternatively, you can use the text 
editor to write chunks of source 
code called blocks or screens. 
These can be stored on disk or 
tape, or even in RAM, and entered 
as a unit. 

The Forth incremental compiler 
also compiles this code as it is en- 
tered. Once compiled, new Forth 
words have the same status as 
those that came with the original 
package; there's no difference be- 
tween the original building blocks 
and any particular program state- 
ment. This lack of a fixed instruc- 
tion set has caused purists to ob- 
ject to calling Forth a language. 

The extendable dictionary is one 
of Forth's principal features. It 
takes a little getting used to the 
fact that the words are not as limit- 
ed in form as they are in Basic. A 
Forth word can begin with (or 
even be) a number. There are even 
common words that are punctua- 
tion marks. It's a little bizarre, but 
let me get ahead of myself: This is 
a valid Forth statement, defining 
one standard word in terms of 
others: : ? @ . ;. 

It's true that some of this short- 
hand makes Forth hard to read. 
There are a couple things that ini- 
tially seem strange, at least if 
you've come through the Basic 
ranks, and it is worthwhile to men- 



tion them before going into the de- 
tails of Colorforth itself. 

The first is the use of a stack. 
This is a portion of RAM set aside 
for the sequential storage and re- 
trieval of data in a last-in, first-out 
(LIFO) fashion. Forth uses the 
stack, or more properly the para- 
meter stack, to pass operands and 
data from one word or subroutine 
to another. 

When writing Forth code, it is 
convenient to keep intermediate 
results bouncing up and down on 
the stack from one operation to 
another. That doesn't mean that 
you can't name variables and call 
them as needed; but using the stack 
intelligently can speed program 
operation. You can't avoid keep- 
ing track of things on the stack 
anyway, since operands have to be 
presented to Forth words in the 
correct order. 

Finally, it can be just plain fun 
to define your own commands and 
incorporate them into the diction- 
ary; it's the easiest way I know to 
produce your own personalized 
computer language. 

Forth uses a second (or return) 
stack to keep track of procedure 
call information. Programmers 
use the return stack to test the cur- 
rent value of the running index in a 
DO loop, Forth's equivalent of the 
For... Next loop. 

Because of the parameter stack, 
Forth employs reverse Polish, or 
postfix, notation (RPN). In this 



system, arithmetic expressions are 
written with operations following 
the operands to which they apply, 
so that A + B * (C-D) / E be- 
comes CD-B * E / A +■ . Opera- 
tions are carried out immediately 
as the expression scans from left to 
right. No parentheses are needed, 
and there is no implied hierarchy 
of mathematical operations. Com- 
pilation or interpretation can be 
very fast. 

Hewlett-Packard calculator 
users will recognize this, as their 
machines use RPN. In fact, Forth- 
like languages are used in the 
ROMs of some calculators, as well 
as in scientific instruments, ma- 
chine-tool controllers, and so on. 
Still, before plunging into the Col- 
orforth version, ask what Forth 
can do for a microcomputer own- 
er, especially a Color Computer 
owner. After all, it requires a lot of 
attention to detail, the necessity to 
move numbers to and from the 
stack makes it less than ideal for 
number crunching, and its struc- 
ture and syntax are radically dif- 
ferent from those of Color Basic. 

To some extent, this difference 
is responsible for some of Forth's 
appeal. It allows the programmer 
close control over the computer 
(for I/O operations, for example) 
that you associate with Assembly 
language, but it's easier to work 
with. It's fast, and it's easy to in- 
corporate Assembly-language sub- 
routines into a Forth program for 
the most time-critical applications. 
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Of Wall Street 




Standard & Poor's STOCKPAK system 
can turn any investor into a whiz 

Whether you're an active investor, or just considering the 
best ways to invest, STOCKPAK can rum you into a Wall 
Street Wizard. 

Sophisticated software thaf s easy to use 

STOCKPAK is a sophisticated software system that 
offers you an easy and economical way to obtain and 
evaluate important investment information to help you make 
better investment decisions. In fact, in virtually no time at all, 
you can put STOCKPAK to work for you performing a wide 
range of investment functions. 

Screening power is at your command 

Our Screen and Select system lets you apply your own 
investment criteria to a 900-company database. For example, 
you can tell STOCKPAK to find 
only large companies, or only 
all ones. . .only those with 
gh earnings growth, or low 
7E's, or high dividends . . . 
only those in certain indus- 
tries, or on specific ex- 
, changes . . only those above 
or below a certain price . . . 
or only those with high 
sales, or low debt, and so on. 




In fact, you can draw from over 200 specific information 
items to compose a single screen. And, you can establish 
your own targets and cut-off points in each of these 200 areas. 
STOCKPAK will oblige by searching through the entire 
database to find only those companies that satisfy your criteria. 

More feats of wizardry with STOCKPAK 

Standard & Poor's time-tested software also lets you 
evaluate and manage actual or hypothetical portfolios of up 
to 100 stocks each. And, you can create your own customized 
reports— displayed the way you want them. 

Whether you use STOCKPAK to help improve your 
investment decisions, or just for the fun of it, it's good to 
know the source of this wizardry. Standard & Poor's, one of 
the world's leading financial publishers with a 120-year 
reputation of service to the investment community. 

Visit your local Radio Shack 
Computer Store today 

STOCKPAK is designed exclusively for use on the 
TRS-80 Models III and I computers with 32K business sys- 
tems and two disk drives. The basic software and sample 
database plus complete documentation is available from your 
Radio Shack computer store for only $49.95. The STOCK- 
PAK monthly updating service can be ordered directly from 
Standard & Poor's for only $200 annually. Visit your local 
Radio Shack today for additional information and a 
demonstration. 
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clamation point, which Forth uses to 
denote storing a number at a specified 
address. The syntax is such that you 
provide the address by specifying the 
variable BASE; variables return their 
addresses to the stack, while constants 
return their values. 

Earlier, I referred to a number n as 
an "appropriate" number. What does 
this mean? Colorforth is set up to do 
fixed-point arithmetic only, using signed 
16-bit numbers (32767 to -32768). This 
is a general property of Forth, even 
when used on 8-bit microprocessors. 
Some double-length operations are 
available, and it's possible to write 
floating-point routines, but this is one 
reason Colorforth wouldn't be the lan- 
guage of choice for scientific number 
crunching. 

To enter a double-length number, 
you punctuate it with a period; you can 
enter 100000 as 100.000, for example. 
Colorforth also has formatting com- 
mands similar to Print Using for out- 
putting large numbers. 

Although the range o\' numbers us- 
able for calculation is limited, some 
operators do interpret 16 bits as an un- 
signed number (0-65536). As you'll 
see, this is what you need to address 
memory-mapped I/O in the Color 
Computer. 

Comparison and Control Structures 

Colorforth has a fairly complete set 
of comparison operators, which are 
used to control program branching 
within If... Then... Else statements. Be- 
cause of RPN, the syntax of these com- 
mands takes some getting used to, al- 
though the ideas are familiar enough 
from Basic. Here are Color Basic and 
Colorforth program fragments that ac- 
cept a number from the keyboard, test 
it to see if it is positive or negative, and 
print the result: 

Color Basic 
100 INPUT N 

1 10 IF N > THEN PRINT "POSITIVE" 
ELSE PRINT "NEGATIVE" 

Color fori h 
:TEST0> IF . " POSITIVE " 
ELSE . " NEGATIVE " THEN ; 
(Used by eniering N TEST) 

Notice that in Colorforth, the words 
If and Then span the possible branches 
the program might take, but not the 
decision-making portion. That comes 
before the If, in the form required by 
RPN; for example, (N > 0) becomes 
(N 0>), where, in my example, N is put 
on the stack from the keyboard. This 
example also introduces dot -quote, the 
word used to print literals. Neither ex- 
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ample considers the possibility that N 
equals zero. 

In the Basic example, control passes 
to the statement following line IK) 
after a message has been printed. Simi- 
larly, Colorforth passes to whatever 
follows Then. There is a difference. o\ 
course, in that the Basic If. . .Then 
could have altered program flow by us- 
ing statement numbers (implied 
GOTOs), instead of the Print com- 
mands. Because Colorforth is a struc- 
tured language without line numbers, 
there are no GOTO statements. You 
can use other words within the 
If . . .Then to execute actions other 
than printing, however. After they are 
executed, control eventually returns to 
the word following Then. 



"Colorforth has a fairly 

complete set of 

comparison operators, 

which are used to 

control program branching 

within If. . . Then. . . 

Else statements. " 



Colorforth comparison expressions 
can be quite lengthy, as they are in 
Basic. Simple algebraic comparisons 
can be logically combined, using AND, 
OR, or XOR operators. 

Color Basic has only one kind of 
repetitive structure, the definite 
For... Next loop where the index's 
lower and upper bounds are specified. 
Colorforth has a similar construct, 
called a DO loop, plus a pair of in- 
definite forms, the Begin. . Until and 
Begin . . . While. . . Repeat loops. The 
DO loop cannot be executed interac- 
tively; it must be compiled into a word, 
although you can specify one or both 
limits from the keyboard when the 
word is executed. Typical syntax is: 
: TEST b a DO (expression) LOOP;, 
where the loop index will run from 
a to (b-l). 

For this example, b must be greater 
than a, and the index is incremented by 
one for each pass through the loop; the 
more general form is: : NEWTEST b a 
DO (expression) c + LOOP ;, where c 
is the step size, which can be negative, 
and where the loop is terminated by the 



word + LOOP. 

The current value of the loop index 
is always kept on the second (return) 
stack, from which it can be obtained by 
the Colorforth word I. Here's a simple 
example that loops 10 times, printing 
the number of each cycle as it goes 
along: : COUNT 11 1 DO CR I . 
LOOP ;. 

Loops can also be nested. Here is a 
pair that together make a software 
timer: : TIMER DO 15500 DO 
LOOP LOOP ;. To time out N sec- 
onds, enter N TIMER. N serves as the 
upper limit for the outer loop, while 
the inner loop does nothing 15,500 
times per second. This gives you an 
idea of Colorforth's relative speed. 
Color Basic's For... Next timing loop 
only executes 460 times per second. 
Notice that each nested loop termi- 
nates on its own Loop, in contrast to 
Basic, where loops can share a Next 
statement. 

The indefinite loops have no simple 
counterparts in Basic, although Pascal 
and other structured languages have 
similar constructs. These loops are 
used to repeat some action or calcula- 
tion until a particular event occurs, 
where the programmer has no control 
over how long that might take. The 
general syntax for a Begin... Until loop 
is: BEGIN (expression to be repeated) f 
UNTIL, where f represents a logical 
flag. The main expression is repeated 
as long as the flag is zero (false). The 
loop ends when the flag takes on the 
value one (true). Mathematical com- 
parisons such as N > return flags of 
this sort to the top of the stack. 

The inverse behavior, the repetition 
of an operation as long as something is 
true rather than until it is true, is ob- 
tained with the Begin... While... Repeat 
loop, where the logical test is per- 
formed part way through the cycle. 
The construction is: BEGIN (first part) 
f WHILE (second part) REPEAT. Af- 
ter the first part of the computation, 
the program tests a flag. If it is true, ex- 
ecution continues to the second part of 
the computation and the whole thing 
repeats. As soon as the flag tests false, 
execution exits from the loop. 

Constants, Variables, and Arrays 

Although Colorforth uses the stack 
for temporary storage, it also lets you 
name constants and variables for fu- 
ture reference. The naming phrases 
are: VARIABLE (name) and (value) 
CONSTANT (name). These phrases 
are not colon definitions, like those 
I used for CLS. It is not necessary 
to specify the functions of Variable 



and Constant; they're predefined 
words, and their machine code takes 
care of that. 

Earlier, I said that using the name of 
a variable in another statement puts 
that variable's address on top of the 
stack. If you use the name of a con- 
stant, its value, not its address, is 
placed there. 

Look again at the word YELSCRN. 
You can define the solid yellow graph- 
ics block this way: 159 CONSTANT 
YELBLOCK, so the word that sets the 
screen to a solid yellow becomes: 
: YELSCRN 1024 512 YELBLOCK 
FILL KEY;. This isn't very profound, 
but it's a necessity for high-level 
languages. Even Assembly language 
lets you use labels. 

If using a variable's name returns its 
address, how do you get its value? For 
that matter, how do you set its value? 
As you might expect, Forth dialects 
have other words for storing and re- 
trieving the variables' values. The bad 
news is that these particular words use 
punctuation marks, so they are diffi- 
cult to write about clearly, and their 
forms don't necessarily suggest their 



definitions. Still, Color Basic pro- 
grammers get used to a leading ques- 
tion mark for Print and an apostrophe 
for REM. 

The word that stores a 16-bit num- 
ber at any given address is an exclama- 
tion point. So, the definition of TER- 
NARY, "3 BASE !" actually consists 
of the phrase, "Store the 16-bit repre- 
sentation of the decimal number 3 in 
the address referred to by the prede- 
fined variable BASE." There is an- 
other word, " + !", that adds a num- 
ber to whatever is at a given address, 
similar to the add-to-memory key on a 
calculator. 

The operation of retrieving the value 
from a particular address and putting it 
on the stack is performed by the at 
symbol (@), pronounced fetch. A use- 
ful extension, symbolized by the ques- 
tion mark, is fetch followed by a print 
command. The operand precedes this 
word; to find out what number system 
Colorforth is in at any time, enter 
DECIMAL BASE?. A little thought 
shows you why the word Decimal is 
needed. The definition of the word 
"?" is the cryptic example I gave in the 



HEX (Square Wave Sound) 

1 FF01 CONSTANT AD1 

2 FF03 CONSTANT AD2 

3 FF23 CONSTANT AD3 

4 FF20 CONSTANT D/A 

5 : 1SEL AD1 C@ F7 AND AD1 C! ; (Puts in bit 3 of SFF01) 

6 : 2SEL AD2 C@ F7 AND AD2 C! ; 

7 : SNDENABLE AD3 C@ 8 OR AD3 C! ; (Puts 1 in bit 3 of $FF23) 

8 : TIME F DO LOOP ; (Approx. 0.001 sec. delay) 

9 : SOUNDOFF HEX 1SEL 2SEL SNDENABLE BEGIN FC D/A C! TIME 

10 1 D/A C! TIME UNTIL ; (Infinite loop) 

11 ;S 

Figure 1 



section "What Forth Is." 

These words are useful to Forth pro- 
grams running on 16-bit machines, al- 
though they also exist in the Color- 
forth dictionary. There are analogous 
words, C! and C@, that store and 
fetch 8-bit values and are more inter- 
esting to Color Computer program- 
mers. The C prefix stands for charac- 
ter, because these words are useful for 
manipulating ASCII characters (even 
on larger machines). 

Here's a routine that exercises some 
of the concepts and Colorforth words 
I've introduced so far. It displays each 
of the Color Computer's 256 distinct 
printable characters, including 
graphics blocks, in turn at the middle 
of the screen (location 1295). Each 
character shows on the screen for two 
seconds. 

1295 CONSTANT MIDSCRN 
: CHARS CLS 256 DO I 
MIDSCRN C! 2 TIMER LOOP; 

C! acts like POKE, rather than PRINT 
CHR$, as far as video memory goes; 
the table on page 21 1 of the June 1981 
80 Micro spells out the differences. 

Forth dialects also support array 
definitions. These are treated as vari- 
ables with extended memory areas set 
aside for the data values' storage. The 
equivalent of Basic's DIM statement is 
the word Allot, used this way: VARI- 
ABLE (array name) (n) ALLOT, 
where n is the number of bytes of 
storage reserved, in addition to the two 
bytes that are automatically set aside 
by the word Variable. Remember, even 
Colorforth assumes you're working 
with 16-bit numbers unless otherwise 
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RADIO SHACK! 
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include MISADVENTURE 
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the game! 

.-379 



MISADVENTURE SERIES-model I & III 16k 

#201 (#1) Madam Rosa's Massage Parlor* 
#202 (#2) Wei T-Shirt Contest* 
#203 (#3) Sewers ot Moscow'*— with sound 1 
#204 (#4) Casino of Pleasure**— with sound' 
#205 (#5) Naked Nightmare**— with sound 1 NEW! 
"not as hard "experience recommended 
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ARCADE— TYPE GAMES— model I & III 16k 
#302 Block Breaker Dy Cedar Software— with sound! 

#303 Leaper by Cedar Software- NEW!— with sound 1 

ADVENTURE DECODER— model I & III 16k 
#301 Dohne' Bugg (Adventure-decoder) 
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#401 Mystery of the Keys (4k) — with sound 1 
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Go Frog Go! 

Our MISADVENTURE SERIES consist of CHALLENGING 
and FUN "adventure-type' programs that may occasion- 
ally be a bit naughty! 

MYSTERY OF THE KEYS for the color computer is a 
graphic puzzle as addicting as "The Cuto" and similar to 
"The Link" 4k and up 

DOHNE' BUGG is our best-selling ADVENTURE-DE- 
CODER! Are you STUCK in a machine-language 
ADVENTURE GAME? This program will display on the 
screen all VERBS that interact in the game, all 
LOCATIONS & OBJECTS you will find, and all ACTIONS 
that result! A MUST FOR THE SERIOUS ADVENTURER! 

All programs are presently available in cassette form 
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informed. So to set up a 10-member 
array named Info filled with 16-bit 
numbers, specify an additional (9 x 2) 
bytes: VARIABLE INFO 18 ALLOT. 

If you use an array for 8-bit numbers 
such as graphics or ASCII codes, you 
can cut down on the amount of memo- 
ry you must reserve. Variable gives you 
space for the first two numbers, and 
you just specify one byte for every ad- 
ditional storage position. 

Storing data in an array or retrieving 
it is more complicated than in Basic, 
because Colorforth doesn't support 
subscripted variables. You specify the 
first storage location by using the array 
name (it's a variable, remember), and 
then add an offset to get to the desired 
location. For example, you can locate 
the first cell (the Forth name for a 
16-bit-wide storage location) in our ar- 
ray Info just by calling Info; offset the 
Nth cell by 2x (N-l) bytes, so you can 
find out what's in, say, the fifth cell 
with the phrase INFO 8 + ?. 

Of course, if you use an array for 
8-bit numbers, there's no need to dou- 
ble the subscript N to get the offset. 
You must use the store and fetch com- 
mands — ! and @, C! and C@ — appro- 
priate to the length of the numbers you 
are working with; Colorforth has no 
other way of knowing. 

Colorforth can also handle multidi- 
mensional arrays. You must decide on 
a convenient method for converting 
multiple subscripts to single address 
offsets. Brodie's book gives a nice ex- 
ample for two-dimensional arrays, 
which wind up being stored column- 
wise. All the elements of the first col- 
umn, starting with the uppermost, are 
stored, then all the elements of the sec- 
ond column, and so on. This is actually 
the way many high-level languages 
treat such data structures. 

Something Completely Different 

Here are a couple examples of the 
way you can use Colorforth with the 
Color Computer's I/O structure. 

Anyone who has used the Color 
Computer's joysticks knows about 
memory address 65280, which is 
PEEKed to test the status of the trigger 
buttons. You can give this address a 
name, such as Port: 65280 CON- 
STANT PORT. Colorforth interprets 
this properly (the internal representa- 
tion is treated as an unsigned 16-bit 
number). The word Looksee prints the 
contents of this location:: LOOKSEE 2 
TIMER PORTC® .;. 

Entering Looksee from the key- 
board causes the system to wait two 
seconds (assuming the previous defini- 
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tion of Timer, of course) and then 
prints the contents — 255 or 1 27 if you 
press neither joystick trigger, 254 or 
126 for the right trigger, and so on. 
Since a single memory location can on- 
ly contain an 8-bit number, the proper 
fetch command is C@. It is easy to in- 
corporate Looksee into an If . . .Then 
statement, causing a program branch, 
rather than having it print and stop. 

While Port is a constant whose value 
is put on the stack when used in 
another word, there's nothing wrong 
with this value representing the address 
of something else. Remember, if Port 
is defined as a variable, its address is 
put on the stack, not the address of the 
trigger-button sensor. 

The final example uses this sort of 
labeling, and is less trivial: a sound 
generator. This program generates a 
square wave at approximately 500 Hz 
and routes it to the Color Computer's 
composite video output. If you are in- 
terested in this sort of thing, you need 
detailed reference material. I recom- 
mend the Radio Shack reference or ser- 
vice manuals, or the Facts book from 
Spectral Associates. In any event, 
here's a rundown on the relevant as- 
pects of Color Computer operation. 

Internally synthesized sound uses 
the Color Computer's D/A converter. 
To be specific, a six-bit number loaded 
into the six high-order positions of ad- 
dress SFF20 is converted into analog 
voltage — the larger the binary number, 
the larger the voltage. The D/A is also 
used for joystick input and for the cas- 
sette interface. 

To ensure that signals are routed 
properly, a few addresses associated 
with the computer's peripheral inter- 
face adapter (PIA) circuits have to be 
properly programmed (SFF20 also be- 
longs to a PIA). Briefly, you need 
zeros in bit 3 of SFF01 and SFF03 (ana- 
log multiplexer), and a one in bit 3 of 
SFF23 (six-bit sound enable). To set 1 
bit at an address, logically AND or OR 
the address's contents with an appro- 
priate binary mask, and the program 
takes care of that. Then you need a 
loop to load those six bits of D/A input 
at an audio rate. 

The Program Listing has the line 
numbers you might see if you com- 
posed it on a screen. (The parenthetical 
expressions are Forth 's version of 
REM statements; they can appear any- 
where, even within another statement.) 

Line tells the Colorforth interpret- 
er that hex numbers are coming in at 
compilation time. Lines 1-4 label the 
addresses of interest to us, in hex. 
Lines 5-7 each fetch an eight-bit 



number from one of the locations, set 
bit 3 to what you need for sound out- 
put, and store the new number in the 
old number's location. The mnemon- 
ics represent select 1, select 2, and 
sound enable. You can verify that 
ANDing and ORing with these operands 
affects only bit 3 of the appropriate 
word. Just remember that the right- 
most position is bit 0. 

Line 8 defines a one-millisecond tim- 
ing loop, with the upper limit in hex. 
Lines 9 and 10 contain the definition of 
Soundoff, which is the whole program. 
Two screen lines were used because of 
the definition's length. The square 
bracket that begins line 10 signals the 
interpreter that this is a continua- 
tion. Finally, line 1 1 contains the word 
that terminates compilation when the 
screen is loaded. 

A few things about the colon defini- 
tion of Soundoff: The definition in- 
cludes hex so that it works properly 
even if called when the system has been 
operating in another base. Then it calls 
the words that set the software latches 
for sound output and enters an infinite 
Begin . . . Until loop. (The loop is guar- 
anteed infinite because the logical flag 
tested to terminate the loop is defined 
to be 0, rather than being set as the 
result of any other process.) 

The operations within the loop con- 
sist of setting the six high-order bits of 
SFF20 to ones and zeros, holding each 
setting for about one millisecond. The 
reason that you use $FC, and not SFF, 
for the high value is that the two low- 
order bits of this address are held at 
zero when you use the D/A in the six- 
bit sound output mode. ANDing and 
ORing are used to set $FF20. 

Summary 

Colorforth may seem complex when 
compared with Color Basic, but it's 
closer to Assembly language in the 
level of detail required. Remember, 
with Colorforth you get a higher 
degree of control over machine opera- 
tions than Basic offers, coupled with 
high speed. I have not covered text 
manipulation, but the words for 
sophisticated text I/O are present in 
the starting vocabulary. This is where I 
should encourage you to get the soft- 
ware and the book and find out for 
yourselves. 

Just one more thing: You can apply 
the bit twiddling used in the definition 
of Soundoff to program the SAM and 
VDG circuits for graphics. ■ 

Scott Norman lives at 8 Doris Road, 
Framingham, MA 01701. 
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L DOS!! 
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thousands of dollars on your computer, why limit yourself by using an 
inferior operating system? 



Order Today! 



RADIO SHACK SOFTWARE 



MODEL I, III 

Cassette Scripsit 26-1505 $34.95 

Cassette Portfolio 26-1506 $24.95 

Stock Pack 26-1507 $44.95 

Disk Mailing List 26 1551 $34.95 

General Ledger I 26-1552 $87.95 

Inventory Control I 26 1553 $87.95 

Accts Payable 26-1554 $138.00 

Accts Receivable 26-1555 $138.00 

Disk Payroll 26 1556 $175.00 

Business Mailing List 26-1558 $8/95 

Profile 26-1562 $69.95 

Scripsit 26-1563 $87.95 

Visicalc-Mod I 26-1566 $87.95 

Visicalc-Mod III 26-1569 $175.00 

Project Manager 26-1580 $87.95 

Checkwriter 26-1584 $87.95 

Super Scripsit 26 1590 $175.00 



Scripsit Dictionary 
Profile III Plus 
Desktop Plan-80 
Budget Mgmt 
Advanced Stat Analysis 



MODEL II 

Gen Ledger 1 Disk 
Inventory Mgmt System 
Mod II Visicalc 
Profile II 
Profile II Plus 
Mod II Scripsit 2 
Scripsit Dictionary 
Inventory Mod II 
Order Lntry ICS 



26-1591 
26-1592 
26-1594 
26-1603 
26-1705 



26-4501 
26-4502 
26-4511 
26-4512 
26-4515 
26-4531 
26-4534 
26-4602 
26-4607 



$131.00 

$175.00 

$175.00 

$22.00 

$39.95 



$175.00 
$175.00 
$263.00 
$170.00 
$275.00 
$375.00 
$175.00 
$275.00 
$465.00 



GAMES FOR THE COLOR COMPUTER 



CHRISTMAS SPECIAL!! 

COSMIC DOGFIGHT, OFFENDER, PACKETMAN 

GET ALL THREE OF OUR NEWEST 

COLOR COMPUTER GAMES ON EITHER 

DISK OR CASSETTE 



DISK $99 



00 



CASSETTE $44 



00 



LAZY WRITER 

ALCOR PASCAL 

MICRO CLINIC 

CHEXTEXT MICROSOFT 

LEVEL III BASIC 

TYPING TUTOR 

EDITOR ASSEMBLER + 

ADVENTURE 

MOD I FORTRAN 

A.L.D.S. 

MOD I BASIC COMPILER 

MOD I MuMATH 

OLYMPIC DECATHLON 

EDITOR ASSEMBLER (Disk) 

CP/MFORTRAN-80 

CP/M BASIC COMPILER 

CP/M MuMATH-MuSIMP-80 

CP/ M COBOL COMPILER 

CP/MBASIC-80 

BASIC COMPILER II 

COBOL-80MODII 

M/SORT 

ASPEN: 
GRAMMATIKI/III 
GRAMMATIKII 

PICKLES & TROUT: 
RANDOM HOUSE PROOF READER 
CP/M FOR MODEL II 
CP/M FOR MODEL 16 

MISC: 
BOOKKEEPER l/lll 

Cassette $49.95 Disk 

MICRO SEABATTLE 

Cassette $19.95 Disk 

LIST: 1 (Telephone List) 

Cassette $9.95 Disk 

COMPUTER BASEBALL 

Cassette $14.95 Disk 



$175 

$199 

$24.95 

$34.96 

$50 

$15 

$30 

$30 

$87.95 

$85 

$195 

$75 

$24.95 

$49.95 

$475 

$375 

$250 

$699 

$350 

$395 

$699 

,$195 

$75 
$99 

$50 
$185 
$220 



$59.95 
$24.95 
$14.95 
$19.95 



* • NEW RELEASES* * 

COSMIC DOGFIGHT CASSETTE 14.95 

DISK 19.95 

CASSETTE 29.95 

DISK 34.95 



OFFENDER 



OTHER FAVORITES 



PACKETMAN 
MOONLANDER 



CASSETTE 24.95 

DISK 29.95 

CASSETTE 14.95 

DISK 19.95 

METEROIDS cassette 21.95 

SPACE INVADERS cassette 21.95 



THESE ARE OUR CASH DISCOUNTED PRICES. CO.D. AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES. INC TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 
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GENERAL 



The Calculating 
Genius— Part II 



by Rick Cook 



c 



harles Babb age's Analytical Engine was the 
ancestor of the modern computer. It was 
designed to run with punched-card control. 



Ed. note: This is the second of a two- 
part series on Charles Babbage, inven- 
tor of the modern-day computer. The 
first part covered the development of 
the Difference Engine. This part fo- 
cuses on the Analytical Engine. 

From 1834 on, Babbage's main con- 
cern was his Analytical Engine, a me- 
chanical digital computer capable of 
performing elaborate mathematical 
analysis more or less automatically. 

The idea of the Analytical Engine 
seems to have taken firm hold in 1833 
when he took the small calculating de- 
vice he had built from parts of the Dif- 
ference Engine and hooked it up to 
feed the number appearing in the result 
column back into the machine as a dif- 
ference, calculating a whole new series. 

By the 1830s, mechanical methods 
of doing arithmetic had been known 
for a long time. Since multiplication 
can be accomplished by repeated addi- 
tions, and division is the inverse of mul- 
tiplication, theoretically any machine 
that could add could be made to do the 
other operations as well. But Babbage 
was looking for something more so- 
phisticated. He wanted a machine that 
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could perform these operations on 
large numbers at reasonable speed with 
a minimum of human intervention. 

Babbage realized the major problem 
with this conception was not arithme- 
tic, but control. The earlier machines 
had shown ways to handle arithmetic 
and the Difference Engine showed how 
to store numbers, but no one had ever 
tackled the control problem. To be 
useful, the machine would have to be 
able to perform operations in whatever 
sequence might be appropriate to the 
problem at hand. 

The solution lay in two things: the 
use of punched cards to supply data 
and instructions and the use of a chain 
— a mechanical AND circuit. 

Punched-card control was familiar 
to Babbage from the Jaequard looms 
that were busy by the hundreds in Eu- 
rope weaving elaborate textiles. Jae- 
quard hadn't invented the punched- 
card loom, but he had come up with a 
way of feeding cards into the loom so 
that a large number of cards could be 
used to control the pattern. By 1835 the 
French were using steam-powered Jae- 
quard looms to weave very fine tapes- 
tries. On his travels, Babbage acquired 



a portrait of Jaequard woven to such 
size and complexity that it took 24,000 
cards to program the loom. 

The essence of Babbage's chain was 
the same as the plug boards that were 
used to program the earliest electronic 
computers. The Analytical Engine was 
actually a mass of separate mecha- 
nisms that could be coupled or uncou- 
pled at the command of the instruction 
cards. Only those parts needed for a 
particular instruction would be cou- 
pled at any one time. 

Since the machine was completely 
modular, wear and waste motion were 
held to a minimum. The mass in mo- 
tion at any instant would be low and 
the chains of driven parts would be 
short. What's more, the Analytical En- 
gine could be built and tested a piece at 
a time, and a component that failed 
could be taken out of service without 
shutting down the rest of the machine. 

Clearly, Babbage had learned from 
his experiences with the Difference En- 
gine. But in the end flexibility was a 
mixed blessing since it encouraged 
Babbage to keep tinkering with the de- 
sign for the rest of his life. Babbage 
kept adding new features to enlarge its 
capacity, even though the basic outline 
was fixed by about 1840. 

If the Analytical Engine had ever 
been built, it would have been even 
more impressive than the Difference 
Engine. Babbage's ultimate design 
called for it to be able to store 1,000 
50-digit signed numbers, each in a col- 
umn of disks like those used for the 



WE STOCK DISK DRIVES! 



TEAC 



TANDON 



BARE 



COMPLETE 

WITH POWER SUPPLY & CABINET 



BARE 



COMPLETE 

WITH POWER SUPPLY & CABINET 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$209 
$289 
$289 
$349 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$239 
$340 
$340 
$399 



40 Track, Single 
40 Track, Double 
80 Track. Single 
80 Track, Double 



$209 
$269 
$269 
$319 



40 Track, Single 
40 Track, Double 
80 Track, Single 
80 Track, Double 



$239 
$319 
$319 
$369 



We sell two brands of disk drives for the TRS-80: the TEAC and the Tandon. The TEAC disk drive has a 1 year warranty, the Tandon 
has a 90 day warranty. The TEAC uses a lead screw actuator, the Tandon uses a split band type actuator. The track to track access 
rate for the Tandon is 5 milliseconds, as opposed to 25 milliseconds for the TEAC. The TRS-80 Model III requires a faster drive speed 
than the Model I, therefore the Tandon works better with the Model III. With the slower drive speed requirements of the Model I, the 
TEAC is a more reliable drive. We have both 40 track and 80 track drives with either single or dual head. All drives are capable of 
double density. These drives are available either bare or complete with power supply and cabinet. A cable is required to hook up the 
drives. We have both two-drive and four-drive cables. All drives come with complete instructions for hooking up a system. TEACs 
and Tandons can be intermixed with other drives on the same system . 



DISK DRIVES 

For ThE TRS-80 MODEL III 
DRIVE O DRIVE 1 



Single Side, 40 Track $595 



Double Side, 40 Track $729 



Single Side, 40 Track 



Double Side, 80 Track 



Single Side, 80 Track $729 Single Side, 40 Track 



Double Side, 80 Track 



$819 



Double Side, 80 Track 



$219 



$279 



$279 



$329 



The disk drives we sell for the Model III are the Tandon drives. 
Drive includes the controller board, power supply, cables and all 
mounting hardware. Complete instructions are included for 
installation. It takes 30 minutes to an hour to install disk drives in 
a Model III. No soldering is required. TRSDOS operating system 
is not included in this low price. 



IBM 

PERSONAL COMPUTER 

DISK DRIVES 

SINGLE SIDE, 40 TRACK $209 

DOUBLE SIDE, 40 TRACK $269 



These drives are fully compatible with the IBM Personal Compu- 
ter. They can be used as the first or second drive and come with 
our exclusive 90 day warranty. DOS and Drive Adapters required. 
Our disk drives adhere to the high quality standards that IBM 
demands. 




16K LEVEL I 
NOW ONLY $279 



COLOR COMPUTERS 



ALSO AVAILABLE: 

16K OR 72K EXTENDED BASIC 

COLOR COMPUTER DISK DRIVES 

CALL NOW FOR 

SPECIAL CHRISTMAS 



THESE ARE OUR CASH DISCOUNTED PRICES. COD AND CHARGE ORDERS ARE 3% HIGHER. ALL COMPUTERS ARE 
SHIPPED FREIGHT"*CLLECT. PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 
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Difference Engine. Numbers would be 
read into and out of memory by rack- 
and-pinion gears. The memory area 
was called the store and the collection 
of mechanisms that did the computing 
was called the mill. 

Programming the Analytical Engine 

The machine was programmed with 
three sets of punched cards. Each set 
was tied together to form a chain that 
could be pulled through the machine in 
the manner of the cards controlling a 
Jacquard loom. The machine could 
move the cards back and forth through 
the reader so that a set of instructions 
could be repeated — the equivalent of a 
Do. . .Until statement. 

The first set of cards, the number 
cards, contained the data to be acted 
on. The second set, the operations 
cards, directed the operations to be 
performed. The third set, the directive 
cards, told the machine where to store 
the numbers and where to store the re- 
sults. In effect, they acted like the stack 
register in a microprocessor. 

Programming the Analytical Engine 
was done the same way a machine-lan- 
guage program is written today. Mem- 
ory was at a premium, so a high-level 
language like Basic was out of the 
question. On the other hand, the 
speeds for reading a card and reading a 
number from memory were roughly 
comparable, so the distinction we 
make between main and auxiliary 
memory didn't exist. 

This makes it hard to compare the 
Analytical Engine's storage capacity 
meaningfully with a modern comput- 
er. The memory locations probably 
would have only been used for inter- 
mediate results in calculations. The 
data being operated on would not have 
been read into memory first. 

When it came to operation, the ma- 
chine was not as automatic as a mod- 
ern computer. A number of cases re- 
quired the operator's intervention. The 
Analytical Engine would not normally 
calculate trig functions in the course of 
a program. Instead, it would signal the 
operator what it needed. The operator 
would take the card bearing the needed 
function out of the precalculated li- 
brary and feed it into the machine. The 
engine would verify that the card it had 
been given was the right one and then 
go on with its calculations. 

The machine also had a provision 
for indicating a variety of errors, in- 
cluding overflow and underflow. 

On the whole, the Analytical Engine 
would probably have been about as 
flexible and powerful as such first-gen- 
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eration machines as ENIAC, although 
very much slower. 

The Later Years 

After his experiences with the Dif- 
ference Engine, Babbage was not in- 
clined to go to the government for 
money again. He told the government 
what he was up to, but the officials re- 
sponded scathingly to what they con- 
sidered another request for money. For 
the rest of his life Babbage bore a 
grudge against officialdom. He went 
ahead with the work at his home in 
London, concentrating on perfecting 
the design and only building those 



"Time and again 
Babbage was balked 
by bad 
management practices. 



parts he needed to make sure they 
would work. 

In 1842, L.F, Menabrea, an Italian 
mathematician and engineer, pub- 
lished an article in a Swiss magazine 
describing the Analytical Engine and 
how it worked. Babbage had talked to 
Menabrea about the engine when he 
went to Italy in 1839. In 1842 the paper 
was translated into English by Ada 
Agusta, Countess Lovelace, another 
friend of Babbage's and a considerable 
mathematical talent in her own right. 
With Babbage's encouragement, she 
prepared a series of extensive notes on 
the Analytical Engine which she at- 
tached to Menabrea's paper. Those 
notes included a description of ma- 
chine-language programming that can 
still serve as a nontechnical introduc- 
tion to the subject. 

The paper and the generally posi- 
tive reaction to it were the closest 
things Babbage got to support for his 
work. Once again there was wide ad- 
miration for his genius, but this was 
tempered by a near-total lack of com- 
prehension of what the Analytical 
Engine was and how it would oper- 
ate. For every General Menabrea or 
Lady Lovelace, a hundred scientists 
or mathematicians found the Analyti- 
cal Engine foolish, impossible or 
merely incomprehensible. 

This was especially true in En- 
gland. On the Continent and in the 
United States, Babbage's stock stood 
considerably higher. In his later 
years, Babbage received and cher- 



ished many letters from Americans, 
including requests from the U.S. 
Government for advice on cryptogra- 
phy and calculating machines. 

Babbage kept himself busy with 
many projects besides the Analytical 
Engine. At one point he conceived the 
idea of building a machine to play tic- 
tac-toe and exhibiting it to raise money 
to finance the Analytical Engine. He 
got as far as outlining the basic rules 
for teaching a machine to play any 
game and devising a tic-tac-toe strategy 
based on the magic square before he 
discovered that the public preferred 
General Tom Thumb to even the clev- 
erest automata. In addition, he invent- 
ed an occulting light for lighthouses, 
the opthalmoscope, published a book 
on ciphers, papers on statistics and 
geology, and pamphlets advocating 
life peerages and the income tax. 

However, as time went on his lite 
tended to become more and more cir- 
cumscribed. His friends died off and 
the bitterness he felt over his disap- 
pointments deepened. Still he labored 
over his Analytical Engine, refining 
and redesigning it, although he knew 
by now it would probably never be 
built. 

In his book on the history of com- 
puting, Herman H. Goldstine quotes 
Lord Moulton recounting a visit to 
Babbage in his last years: 

"One of the sad memories o( my life is a 
visit to ihe celebrated mathematician and 
inventor, Mr. Babbage. He was far ad- 
vanced in age but his mind was still as vigor- 
ous as ever. He took me through his work- 
room. In the first room I saw parts of his 
original Calculating Engine [the Difference 
Engine), which had been shown in an in- 
complete state manv years before and had 
even been put to some use. I asked him 
about its present form. 

"'I have not finished it because in work- 
ing at it. I came on the idea of mv Analytical 
Engine, which would do all that it was capa- 
ble of doing and much more. Indeed, the 
idea was so much simpler that it would have 
taken more work to complete the Calculat- 
ing Machine than to design and construct 
the other in its entirety , so 1 turned my at- 
tention to the Analytical Machine.' i asked 
if I could see it. 'I have never completed it.' 
he said, "because I have hit upon a different 
and far more effective method and this ren- 
dered it useless to proceed on the old lines.' 
Then we went into the third room. There 
lav scattered bits of mechanism, but I saw 
no trace ot 'any working machine. Very cau- 
tiously I approached the subject and re- 
ceived the dreaded answer. "It is not con- 
structed yet, but I am working on it and it 
will take less time to construct it altogether 
than it would to complete the Analytical 
Machine in the state that 1 left it." 



TRS-80 
MODEL 1 6 







■ Kb] 9b 1 I 
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TRS-80 
MODEL II 



MODEL 16-1 DRIVE 
MODEL 16-2 DRIVE 



$4499 
$4999 



DT-1 VIDEO DATA TERMINAL $620 

For use with Model 16 or Mainframe Computer 




Now Only $2899 



j& HARD DISK DRIVES 

^ CAMEO SUBSYSTEMS 

HARD DISK SYSTEM F <> R ™ E model ii 

FOR THE MODEL III 

6 MEG $1795 

12 MEG $1999 

19 MEG $2199 

COMPLETE, READY TO RUN. NOW AVAILABLE! ! 

LDOS REQUIRED — $129 

'unformatted capacity 



THESE ARE OUR CASH DISCOUNTED PRICES. COD. AND CHARGE ORDERS ARE 3% HIGHER ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES. SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE 
IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADEMARKS OF TANDY CORPORATION. 



DRIVE MOUNT ONE 


$4995- 


• Western Dy no, D6222 Drive 






(5 mb Fixed/5 mb Removable) 






Controller, Adaptor and Cables 






1010 SUBSYSTEM 




$4995— 


• Data Peripheral Lynx Onve, 






(10 mb Removable Winchester) 






Controller, Adaptor and Cables 






1040 SUBSYSTEM 




$5995— 


• Data Peripheral Puma Drive 






(40 mb Fined Winchester) 






Controller. Adaptor and Cables 






1020 SUBSYSTEM 




$7995— 


• 2 Data Peripheral Lynx Drives 






(20 mb Removable Winchester) 






Controller. Adaptor and Cables 






1090 SUBSYSTEM 




$8995— 


• Data Peripheral Lynx and Puma Dr 


• t 




(40 mb Fixed' 10 mb Removable) 






Controller, Adaptor and Cables 




MULTIPLEXORS 


-EXTRA DRIVES- 
WESTERN DYNEX D622 


$4495 


MX200-2 PORT 

MULTIPLEXOR S49J 


DATA PERIPHERAL LYNX 


$»»»> 


MX400-4 PORT 


DATA PERIPHERAL PUMA 


S499> 


MULTIPLEXOR J/50 



*~JZ*f*u 
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"1 look my leave of the old man with a 
heavy heart. When he died a few years later, 
not only had he constructed no machine, 
but the verdict of a jury of kind and sympa- 
thetic scientific men who were deputed to 
pronounce upon what he had left behind 
him, either in papers or in mechanism, was 
that it was too incomplete to be capable of 
being put to any useful purpose." 

Lord Moulton's last statement is 
somewhat inaccurate. Seven years af- 
ter Babbage's death, the Royal Society 
appointed a committee to look at the 
Analytical Engine and decide whether 
it should be completed. The committee 
reported that all, or almost all, of the 
basic design work was done, but the 
cost of translating the design to work- 
ing drawings and actually building the 
machine would be enormous. For this 
reason the committee recommended 
letting the Analytical Engine lie. 

Charles Babbage died on October 
18, 1871, at the age of 79 without ever 
seeing an Analytical Engine. After his 
death, his son, Henry, published a 
book on the engines that included 
many Analytical Engine details. Henry 
also commissioned the building of the 
Analytical Engine's mill and presented 
it to the Science Museum in London. 

Probably the best epitaph that 
Charles Babbage could have comes 
from his autobiography, Passages 
in the Life of a Philosopher, writ- 
ten in 1864: 

"The great principles on which the Ana- 
lytical Engine rests have been examined, ad- 
mitted, recorded, and demonstrated. The 
mechanism has now been reduced to unex- 
pected simplicity. Halt a century may elapse 
before anyone without these aids, which I 
leave behind me, will attempt so unpromis- 
ing a task. If, unwarned by my example, 
any man should undertake and shall suc- 
ceed in really constructing an engine em- 
bodying in itself the whole of the executive 
department of mathematical analysis upon 
different principles or by simpler mechani- 
cal means, I have no fear of leaving my rep- 
utation in his charge, for he alone will be 
fully able to appreciate the nature of my ef- 
forts and the value of their results." 

The Final Questions 

In any event, it was nearly 70 years 
after Charles Babbage's death before 
his dreams were to be realized. In re- 
sponse to the need for new kinds of 
tables — firing tables for artillery — 
other men built machines like the one 
he had envisioned. These new analyti- 
cal engines were far faster than Bab- 
bage's and used electronics rather 
than mechanics, but the first genera- 
tion was remarkably similar in size 
and general structure to what Bab- 
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bage had tried to build. 

With the invention of these ma- 
chines, Babbage was lifted out of ob- 
scurity and his memory honored for 
his ideas and attempts. 

But still the questions remain. Could 
his calculating machines have worked? 
If so, why did Babbage fail? 

The usual answer is that they could 
not have worked. Babbage was too far 
ahead of his time; the materials and 
techniques for shaping the parts 
weren't available; the designs were too 
complex. Yet the evidence doesn't sup- 
port any of these conclusions. 

Granted that the machines were 
complex and that Babbage was push- 
ing the state of the art, but the designs 
were exceedingly clever and Babbage 
took great pains to see that they could 
be manufactured and would function 
in spite of their complexity. 

Certainly the Difference Engine 
should have worked. By the time work 
stopped, all the technical problems had 
been solved and its complexity was the 
complexity of a single, fairly simple as- 
sembly repeated many times over. 

The Analytical Engine is not as cer- 
tain since.it was more complicated and 
never got beyond the design stage. 
Still, it displays the same ingenuity of 
design and attention to reliability that 
marked the Difference Engine. In ad- 
dition, the Analytical Engine was actu- 
ally a collection of separate mecha- 
nisms that only joined to become a 
larger mechanism on command. Given 
the modular principles on which it was 
designed, it should have been possible 
to build a basic Analytical Engine out 
of the best-proved various mechanisms 
and then modify it as the more elabo- 
rate and troublesome parts were built 



and tested. This is essentially the way 
EN I AC and a great many homebrew 
microcomputer systems were built. 

Then, if the machines could have 
been constructed and if they would 
have worked, why did Babbage fail? I 
think the answer lies in what he could 
not invent. 

Babbage pioneered in cybernetic 
theory, machine and tool design, op- 
erations research, and a number of 
other engineering fields. But he was 
less advanced than many of his con- 
temporaries in what we now know as 
project engineering. It was this lack 
that doomed his efforts. Babbage was 
capable of inventing the machines, 
but he could not invent the proce- 
dures needed to make their construc- 
tion go smoothly. 

Time and again, Babbage was 
balked by bad management practices. 
His failure to get the original agree- 
ment with the government in writing, 
his failure to set up an adequate system 
of progress payments, his inability to 
realistically estimate costs and con- 
struction times, his failure to secure 
ownership of crucial tools and fixtures, 
and his inability to stop designing and 
get on with the building all contributed 
to the failure of his projects. 

To us these procedures are as com- 
monplace as the idea of a digital com- 
puter. To Babbage and his contempo- 
raries, both concepts were blindingly 
original. It was the genius of Charles 
Babbage that he was able to grasp one 
idea and his downfall that he did not 
understand the other. ■ 



Rick Cook can be reached at Box 
15193, Phoenix, AZ 85060. 
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TRS-80 
MODEL 





BRAND NEW, 180 DAY WARRANTY 

• 16K $825°°* *48k, 1 DR $1499* 

• 48K $849°°* *48K, 2 DR $1749* 

• CASSETTE RECORDER $55»°* * RS-252 (INSTALLED) $92* 

DUAL SIDED DISK DRIVES ALSO AVAILABLE 

IBM P. C 

THESE ARE BRAND NEW 
IBM PERSONAL COMPUTERS 




64k WITH 2 INTERNAL DUAL SIDE DISK DRIVES 



DISCOUNT PRICE!!! ONLY $2699 
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THESE ARE OUR CASH DISCOUNTED PRICES COD AND CHARGE ORDERS ARE 3% HIGHER ALL COMPU- 
TERS ARE SHIPPED FREIGHT COLLECT PRICES, SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO 
CHANGE WITHOUT NOTICE. IBM & IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL 
BUSINESS MA?HINES. INC 



?V«GU 




fc 918/825-4844 S MaII 

AMERICAN Business 

1 "W u.ia.SSSJ!., COMPUTERS 



TECHNIQUE 



A graphics program for your Color Computer 



Flaky 



Sidney C. Garrison 
1406 Sunny Court 
College Station, TX 77840 



This graphics program shows off the 
power of the Extended Basic Color 
Computer. The three-dimensional and 
moire pattern effects which appear from 



the strict geometric shapes can mesmerize 
an audience. 

The designs produced depend on two pa- 
rameters, K>0 and (K J<(K - 2)/2, both inte- 
gers. On running the program a random pat- 
tern is shown and then the menu appears. 
Menu option one constructs and displays, 
for a short time, a previously selected list of 
patterns. You are then returned to the 
menu. Menu option two increments K and J 
in turn so that all possible patterns are 
seen; press Break to stop. Menu Option 
three lets you input a K and J value of your 
choice. The design is constructed and dis- 
played until you press any key except break; 



and then you're returned to the menu. 
Before you enter the program, do not 
PCLEAR since it is assumed the graphics 
variables are at their default settings. 

In mathematical terms the program adds 
a certain complex K ,h root of unity to a run- 



The Key Box 



Color Computer 

16K RAM 

Extended Color Basic 




Fig. 1. Stages in the construction of the design with K = 15 and J = 6 
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WE STOCK PRINTERS! 



EPSON •OKIDATA'C. ITOH*RADIO SHACK*SMITH CORONA 



•EPSON • 

MX-80 $499 

MX-80 F/T $525 
MX-100 S685 

We STOCK A COMPLETE LINE 

OF EPSON ACCESSORIES 

CALL FOR PRICES!! 




>OKIDATA< 

ML 80 $550 
ML-82A $42? 
ML 85 A $699 
ML-84P $1049 
ML-84S $1299 

OKICRAPH $99 



•C. ITOH* 

PROWRITER 




RADIO SHACK PRINTERS 

DMP-100 26253, $779" 

50 CPS, UPPER & LOWER CASE, 10" CARRIAGE 

DMP-200 ,26,254, $679" 

120CPS. BIDIRECTIONAL, ADJUSTABLE TRACTOR. 



1CT CARRIAGE 



(26-1251) 

140 C PS, ADJUSTABLE, REMOVABLE TRACTOR 
FEED. 15" CARRIAGE 



$1015 



DMP-400 

140 CPS. ADJUST/ 
FEED. 15" CARRI/ 

DMP-500 

220CPS, HEAVY DUTY DESIGN. REMOVABLE ADJUSTABLE 
TRACTOR, 15" CARRIAGE 

DWP-410 

300 WORDS PER MINUTE. 15" PLATEN 



OO 



$1525°° 

DJUSTABLE 

$1269" 



DAISYWHEEL II (2 ..„ 58) $i 6 9S 

TRACTOR FEED (26-1447) $275 



00 



8510PARALLEL-10" 
8510SERIAL 10" 
1550PARALLEL-15" 
1550 SERIAL 15" 



$489 

$639 

$719 

$1295 



STARWRITER 

F 10 40 CPS, PARALLEL $1450 

F-1040CPS. SERIAL $1599 

F-10 55 CPS, PARALLEL $1699 

F 10 55 CPS, SERIAL $1850 




DAISY WHEEL PRINTER 




£5 0000 

SMITH CORONA TP-I 



(35-001) 



THESE ARE OUR CASH DISCOUNTED PRICES. COD. AND CHARGE ORDERS ARE 3% HIGHER ALL COMPUTERS ARE 
SHIPPED FREIGHT COLLECT. PRICES. SPECIFICATIONS AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
IBM * IBM PERSONAL COMPUTERS ARE TRADEMARKS OF INTERNATIONAL BUSINESS MACHINES, INC. TRS-80 AND RADIO 
SHACK ARE TRADtwIARKS OF TANDY CORPORATION. 




^ 918/825-4844 $MaII 

AMERICAN Bigness 
±k^ HMfcSftS., COMPUTERS 




Fig. 2. K = 5 and J = 1 



Fig. 3. K=16 and J = 



ning sum. Successive values of this sum are 
multiplied by a scaling factor and connect- 
ed by a line on the screen which represents 
the complex plane. The root added at each 
stage depends on the J value. The se- 
quence of pictures in Fig. 1 show stages in 
plotting the design with K equals 15 and J 
equals 6. The final graph is 15 copies of the 
first, each with the center rotated at an 
angle of 24 degrees ( = 360/15). The calcula- 
tion of the scaling factor is the only difficult 
mathematics involved, which is necessary 
so the pattern fills the screen for any value 



of the parameters. For a more detailed dis- 
cussion of the mathematics involved see 
"Picturesque Exponential Sums, I" by D. H. 
and Emma Lehmer in the November 1979 is- 
sue of the American Mathematical Monthly. 
Another very striking pattern can be 
formed with this program. I call these 
medallions; the effect depends on the eye's 
ability to pick out regularity from complex 
data. If K is large, say 6(KK<400, and J 
equals (K-2)/2, then a series of equally 
spaced rays from center screen outward 
are formed. These rays are actually stair 



steps. The eye organizes the steps from ad- 
jacent lines into curves. Use the program to 
experiment and find other patterns. The 
program organization is parallel to the de- 
scription given in paragraph two. I added 
spaces and comments to make the struc- 
ture clear. Copy the print statements exact- 
ly to avoid split words. The A$ equals IN- 
KEY$ at line 3050 allows you to temporarily 
stop execution using Shift® without omit- 
ting the pause after construction of the 
design in menu option three. At line 10030 a 
procedure for calculating the greatest com- 
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Fig. 4. K = 8andJ = 2 
80 Micro, December 1982 



Fig. 5. K=18 and J = 2 



A Computer That 
Writes Programs 
For You. 

What will they think of next..? 



Your computer is fantastically fast oner it knows what 
to do. You probably realize that a computer is really 
the combination of hardware and software, working 
together smoothly, to give you what you want Either 
one alone is useless Software is really the key the 
"mind" of a computer system bvery project or task 
you want to do requires a new specific software ap- 
plication to make it behave exactly the way you desire 

Of course, you may be able to "force-fit" an application 
into some existing canned program you have, but to 
really get results, you need a separate application 
program to run on your computer 

Until now, that meant you were forced to pay money 
for application software off the shelf, or if you could 
afford it, have it custom written for you, or, if you are 
qualified, do it yourself, spending endless hours 
figuring it out and writing it Now, your computer can 
write individual application programs for you These 
programs are each separate, unique software programs 
that run in standard Basic on your computer 

A company named FutureSoft has developed this ex- 
citing and long awaited remarkable working tool for 
you. There are two versions called Quikpro + Plus and 
standard Quikpro Both of them create unique separate 
Basic programs for you. to do exactly, precisely, what 
you want to do. And listen to this you create a new 
program in minutes instead of hours 

You can quickly generate a new program when you 
want it You can generate thousands of different 
unique programs, each one standing alone as a com- 
plete program that runs in Basic Best of all, you do not 
have to be a programmer to do it The Quikpro soft- 
ware becomes your personal programmer, waiting to 
do your work for you any time of day or night you 
choose to use it. 

The custom programs you generate from this software 
provide for: Data Entry, Additions, Changes, Record 
Locating & Searches, great variety of Computations. 
and Report Printing (if you have a printer). It lets you 
decide what data to manipulate and how to manipulate 
it. It lets you decide the formats you want to appear on 
your screen and/or to print out in a report. It lets you 
use differing formats on the same data base. It lets you 
make calculations from data within records without 
altering the data base. It lets you report results with or 
without including the base data from which results 
were calculated 

All this is included in the ability/power of the program 
you create. You do it by simply answering questions 
that appear on your screen. Instantly, the Quikpro soft- 
ware 'instructs the computer to perform complex and 




error free instructional sequences. You get the im- 
mediate benefits of professionally written software for 
your applic ation 

The resulting custom program is truly a separate Basic 
program You can list it, you can modify it, you can ac- 
tually see what makes it tick You can even ask it to 
print out its own operating instruction manual so others 
can run it for you Hnally, you can really tap the speed 
and power of your computer the way you really want 
You can create new programs for every use you have in 
Business, Science, Education, and Hobby areas And 
you can start now 

1 he software is available immediately from the 
creators It comes in two versions. If you want to 
generate separate Basic programs with all the data 
handling plus Calculations and Report Printing 
features, you want Quikpro + Plus Specify to run on 
IRS80 Model I and Model III at only $149; to run on 
IRS80 Model II at $18<i 

If you do not need Calculation ability or Report Print- 
ing in the separate Basic programs you will create from 
this program generating software, then standard Quik- 
pro will do the job for you Standard Quikpro to run on 
TRS80 Model I or Model III is $89; to run on TRS80 
Model II is $129 (Later on you can always trade up to 
the Plus Versions for only the cost difference between 
the two) 

Both programs are available to run on many other 
computers besides TRS80 Details are available by 
calling or writing 

You can order right now by phone or mail. If you have 
Visa,Mastercard. call toll-free from: 

All States except CA-AL-HI 1-800-824-7888 OP# 441 

From California call 1-800-852-7777 Op# 441 

From Alaska. Hawaii call 1-800-824-7919 Op# 441 

Operators on duty 24 hours daily. Operators can not 
answer technical questions. If you need technical in- 
formation or want to order from Canada or other 
nations, call 1-904-269-1918 during office hours, Eastern 
Time, Mon.-Fri. 

Send mail orders with check, money order or credit 
card information to: FutureSoft, P.O. Box 1446-D, 
Orange Park , Florida 32073. FutureSoft gives you a 
satisfaction or your money refunded guarantee for 10 
days from delivery. You can run the software yourself 
on your own computer and see with your own eyes 
what it can do for you. Order now. ^66 
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(ItaritaMfeKik 



& Inventory 
at Check-out 



NEW SYSTEM MAKES 
TRS-80 m A TOTAL 
CASH REGISTER & 
POINT-OF-SALE 
COMPUTER 

Which performs all the normal 
functions ot a computer and is 
specially programmed to 



■ COMPUTE Sales Taxes, Discounts, 
Special Sales and Promotions 

■ TRACKS Sales by Type, such as Visa. 
Mastercard, Check, Charge, etc. and by 
Employee I Operator tor up to 30 people 

■ SELF-PROMPTING to Cashiers 

■ Produces Audit Trails and ACCOUNTING 
DATA lor entire operation 

■ CONTROLS up to 20.000 INVENTORY 
LINE ITEMS on our Hard Disk Drive 

■ CONTROLS up to 1.500 INVENTORY 
LINE ITEMS on your Floppy Drive 

■ Complete. Ready to-Run SOFTWARE 
comes with Cash Control Drawer Unit 

■ AUDIBLE SIGNAL produced when any 
key is depressed by any operator 

■ DRAWER operates automatically or by 
manual override anytime 

■ Generates RECEIPTS on Printer 

■ Available to display in English, French. 
Spanish, or German Languages 

■ Operates on 11 OAC or 220AC lust plug 
it in 

■ NO INTERFERENCE with of modification 
of regular TRS-80 Mod III plugs right 
into computer 

FREE Specifications and Data Package or 
order complete Operating manual for $15 
from 

ICRfFutureSoft 

Box 1448 • Orange Parti. Florida 32073 

(904) 269-1918 lor technical aaalstance 

and Dealer Information 

Integrated Cash Register Systems from 
as low as $449 




mon divisor of integers TK and TJ is used in 
the scaling mentioned above and to avoid 
retracing lines. The examples in Figs. 1-5 
were done on an HP7225A plotter, but Ex- 
tended Basic Color Computer's PMODE4 



resolution (256 by 192) gives a clean display 
for reasonable values of K and J ■ 

Sidney Garrison is employed by Texas 
A&M University. 



100 
110 

120 



BY S. GARRISON 



12/81 
* * * 



200 



300 



HALF*. 5 
HW=128 



99,8,2,5,1,13,5,8,0,9,1,6,0, 



READ K,J 

GOSUB 10000 
RESTORE 



'FLAKY 
i* * * 

130 PI=3. 14159265 

HH=95 

UNIT-1 

• GREETING ******** 
210 DATA 15,1,5,0,7,2,16,0,200, 

120,39,9,3 
220 UL=RND(12) 
230 FOR 1=1 TO UL 

: NEXT I 
240 READ K,J 

GOSUB 10500 

1 MENU **********i 
310 CLS 

320 PRINT§39, "FLAKY: SNOW FLAKES" 

330 PRINT896," GIVEN PROPER VALUES OF K AND J THE COMPUTER PLO 
TS A DESICN. VALUES MAY BE PICKED AUTOMATICLYOR BY THE USER:" 
340 PRINT" l.AUTOMATIC-A FEW NICE VALUES. 2. AUTOMATIC- SHOWS AL 
L FLAKES. 3.MANUAL-YOU PICK K AND J. 4. END PROGRAM." 
350 PRINT"HIT 1,2,3 OR 4." 
360 A$«INKEY$ 
370 V-VAL(A$) 

380 ON V GOSUB 1000,2000,3000, 
390 GOTO 300 

1000 ' A FEW NICE FLAKES * * * 
1010 FOR N=l TO 13 



IF A$="" THEN 360 

IF V*(5-V)<1 THEN 300 

4000 



GOSUB 10000 

: NEXT N 
1020 RESTORE 

2000 • SHOWS ALL FLAKES * * * * 
2010 K=3 
2020 FOR J=0 TO (K-2)/2 

: GOSUB 10500 
2030 K=K+1 

3000 ' PICK YOUR DESIGN * * * * 
3010 CLS 

3020 INPUT" INPUT PARAMETERS K 
<=2J<=K-2). ";K,J 
3030 CLS 

K<3 OR J<0 OR J>(K-2)/2 THEN 



READ K,J 
GOSUB 10500 

RETURN 



GOSUB 10000 
NEXT J 
GOTO 2020 



; PRINT 
(INTEGER 



K>2) AND J (INTEGER 



PRINT "ILLEGAL K OR J, READ DIRECTIONS 



;IF INT(K)OK OR INT(J)OJ OR 
PRINT 



: PRINT 
3040 GOSUB 10000 
3050 A$=INKEY$ 
3060 A$=INKEY$ 
3070 RETURN 
4000 END 
10000 "SUBROUTINE PLOT * * * 

OUTPUT: GRAPH 
10010 ASTEP=2*PI/K 
10020 S=1/SIN(PI*(J+1)/K) 

: TJ-J+1 •* S=SCALE FACTOR* 
10030 TK*TK-INT(TK/TJ)*TJ 

: TJ=TK 

: GOTO 10030 '* TJ=(K f J+l)* 
10040 TJ=INT(TJ+HALF) 

: IF TK-INT(TK/2)*2 > HALF 
10050 UI-K+HALF 
10060 PMODE4,! 

: SCREEN 1,1 
10070 • DRAW II ******* 
10080 FOR I=UNIT TO UI 

: CV=ZER0 
10090 FOR L-UNIT TO UL 

: CV=CV+SIN(A)/S 

HH+INT(HH*CV+HALF) ) ,PSET 

: NEXT L 
10100 LINE -(HW,HH) ,PSET 
10110 RETURN 

10500 ■ DELAY ******** 
10510 FOR 1=1 TO 800 

: RETURN 



GOTO 3020 



IF A$="" THEN 3060 



INPUT: LEGAL K,J 

BSTEP=ASTEP*(J+1) 
TK=K 

IF ABS(TK)>HALF THEN TT=TJ 
TK=TT 

TK=K/TJ 

THEN S=S*COS(PI*TJ/(2*K) ) 

UL=TK-HALF 

PCLS 

•INTIALIZE SCREEN * * * * i 

CH=ZER0 

A=(I-1)*ASTEP 

CH=CH+COS(A)/S 

LINE -(HW+INT(HH*CH+HALF) , 

A=A+BSTEP 

NEXT I 



NEXT I 
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FORBIDDEN 

FRUIT? 




Not Anymore. 



It's no sin to want to learn as much as 

" possible about your Apple*. And now 

- there's a magazine which places all the 

: Apple Computer's hidden potential at 

your fingertips— inCider. 

inCider promises to expand the limits of 

your Apple like its sister publication 80 

Micro has blown the lid off the TRS-80**. 

Not just another Apple magazine— but 

a comprehensive monthly filled with . . . 

• programs 

• software applications 

• hardware modifications 

• reviews 

• new product announcements 

• advertising 

• tutorials 

• games 
Want to know the easiest way to get the 

kinks out of your programs? inCider will 
show you. Want to know which peripher- 
als have the best history and the brightest 
future? inCider will tell you. 



Want to expand your knowledge of 
hardware? Or become an expert program- 
mer? Want to discover which word proces- 
sors give you the most for your money? Or 
how your Apple can better manage your fi- 
nancial affairs? inCider will answer these 
and many other questions each month. 

No matter what you use your Apple for 
— no matter where your machine is — 
you'll want the latest copy of inCider 
propped up beside it each month. 

You get a full year's subscription to 
inCider— 12 monthly issues for only 
$19.97. And if you send your money now 
you will receive a 13lh issue free! 

Simply send in the subscription coupon 
to: 

Wayne Green Inc. 
P.O. Box 911 
Farmingdale, NY 11737 

or call toll free: 

1-800-258-5473 
Be an inCider. Subscribe today. 



• Apple !■■ .i trademark k! \ppfc Computet Inc 



YES, / want a charter subscription to inCider for one year at $19.97 

I understand that with payment enclosed or credit card order I will receive a 13th issue FREE. 
□ Check Enclosed □ MC □ VISA DAE □ Bill ME $19.97 for 12 issues 



Signature 
Card# 



Exp. Date_ 

Name 

Address _ 

City 

Zip 



Interbank t_ 



State. 



Canada & Mexico $22 97. 1 year only, U.S. Kunds 

Foreign J39.97. I year only. 
U.S. Funds drawn on U.S. Bank 
32DC5 Your first issue will arrive bv mid-December 

Box 911«Farmin K dale; NY 11737 
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IDS MICROPRISM 



Lynx TRS-80 Modem 



Dosplus 




$689.88 

UPS Delivered 



110 cps bi-directional, logic-seeking 
Single pass correspondance quality print 
10, 12. & 16 cpi with extended mode (24 x 9 dpi) 
84 x 84 dpi Dotplot graphics; 1/48" line space 



Okidata Printers 

MICROUNE 82A . , 439" 

ML82A TRACTOR W" 

MICROUNE 83A «6»4" 

OKIGRAPH ROM "M" 

MICROUNE 84 Parallel 

200 cps »1044" 

MICROUNE 84 RS-232C 

200 cps *1 169" 

Anadex Printers 

DP-9500A M474«* 

DP-9510A *1474" 

DP-9620A »1569 M 

Brother Printers 

DAISyWRITER 2000 . '1089* 

TRACTOR W 

CABLE M49" 



IDS Printers 



PRISM 80 W/4-colors, Sprint 
Mode, Dot Plot, & Cut 

Sheet Guide »1329» 

PRISM 80 w/o color »1 174" 
PRISM 132 W/4-colors, Sprint 
Mode, Dot Plot, & Cut 

Sheet Guide M699" 

PRISM 132 w/o color »1«54 M 

TEC Printers 




DMP85 »469«» 

The generic version of NEC & 
Prownter printers Features 120 
cps, bi-directional, logic-seeking, 
1 3K buffer. 5 fonts, 8 sizes on 
9x9 matrix, w/ proportional print, 
true descenders, & Greek/Math 
font 160 x 144 dots/ inch HHtes 
graphics matrix, 1 / 1 44" line feed 
Fnction & tractor standard, rear 
paper path. 



C. Itoh Printers 



C. ITOH PROWRITER 


•499 M 


CJTOH PROWRrTER 




Parallel & RS-232C .... 


«619" 


C. ITOH PROWRITER 2 . 


»734- 


CJTOH PROMOTER 2 




Parallel & RS-232C .... 


*799" 


C ITOH F-10/40 STARWRITER 


Parallel, 40 cps 


•1499 M 


C. ITOH F-10/55 PRINTMASTER 


Parallel, 55 ops 


M799 M 


F-10 TRACTOR 


•289" 



NEC Printers 



NEC PC 8023A-C »509" 

NEC 3530 (35cps) »1809" 

NEC 7730 (55 cps) . . '5579" 

Centronics Printers 

CENTRONICS 122-1 *979~ 

CENTRONICS 352 M614" 

CENTRONICS 353 «M74" 

CENTRONICS 739-1 *659 M 

Smith-Corona 

SMITH CORONA TP-1 . ' 599" 

Specify 10 or 12 cpi 

Specify Parallel or RS-232C 

Call For Prices 



On QUME & DIABLO Dais/wheels 
QUANTEX, 0ATASOUTH, Dtf>, 
MPI, & other printers available 



"229 unoarvwo 

■ MOdCl i » ii competiwe modem tyntm 

■ Auto Oilt/tutO answer 

■ Wo<** w*h St 80 * tnr other software 

■ WorU with or wttfiout »S-fi J«C 

MicroTerm 

An excellent terminal program 
from Micro-Systems Software 
Microterm features simultaneous 
input while at menu, auto dial 
support (including pre-pro- 
gramed dialing and trans- 
mission without operator 
intervention), direct file transfer, 
34K of capture buffer, and a high 
operational baud rate (near 
9600) Well-suited to both the 
Lynx & Hayes Smartmodem's 
auto dial 4 auto answer features 
Specify Model I or III when 
ordenng 

MICROTERM *89 M 

MODEMS 

HAYES SMARTMODEM t M9» 
HAYES 1 200 8AUD 
SMARTMODEM '574- 

RS-239C CABLE W 

SIGNALMAN MARK I , 89 M 

NOVATION AUTO CAT 'M4" 
NOVATION 1200 BAUD 

AUTO CAT '549" 

Model 3 

Model 3 with 48K RAM and two 
single sided, double density 
drives, delivered ready to run 
Fully compatible with all hard 
ware/ software RS-232C port 
optional. Non-Radio Shack 
warranty, but full 90 days on 
parts & labor 

MODEL 3 M799- 

Disk Drives 



40 TRACK SS 



w23 9 m 



The finest DOS available features 
a BASIC array sort (mult-- key, muitf- 
array), input (? (controlled screen 
input), random access and ASCn 
modification, BASIC checks for 
actrve "DO", repeat of last DOS 
command, device routing smgie 
file conversion from Model in 
TRSDOS, reading 40-track disks 
m 80 track drives, etc Specify 
Model l or III, single or double 
density, 40 or 80 track disk drive 
DOSPLUS 3,4 '104- 



Quic-N-Easi 



Quic-N-Lasi lets anyone write 
custom business application 
programs without BASIC — and 
you do it faster Now you can try 
Quic-N-Easi for 15 days FREE 
You're satisfied or your 1195 
refunded— no auestions ashed 
Non-programmers A experts 
alike can write sophisticated 
business programs with Quic-N- 
Easi inventory, records, sales 
tracking budgeting— and you'll 
program faster, with greater 
flexibility, like a pro -or your 
money back. 
'RS-80 Model l/m 
Quic-N-Easi M95 M 

Model n/16 (CP/M required; 

N Easi M9 5 M 

NEWSCRIPT 7.0 

ProSoft's NEWSCRFT supports 
most printers (including Pie new 
Microlme 84), and features true 
right-justified proportional 
printing single and double width 
type withm text, suosenpts, 
superscripts, underlining 
boldfaces, multiple character 
pitch, fullscreen editing giooai 
search/replace, customized 
"form" letters, plain englisn 
commands, typeahead/ print 
ahead buffers for speed, a 
professional manual, & customer 
support from the author himself 



Newscript 

Options (below) are not 

available separately 

Mail Labels 

File Convertor 

Proportional Driver 

Electric Webster 



'10V 



'15° 
MS" 

. 49 . 
'150° 



Orders & Information: CALL (603)-673-8857 

Orders Only: CALL (800)343-0726 



No Hidden Charges 

No surcharge for credit cards— No charge for 
UPS shipping— Stock shipments next day 
All equipment shipped factory fresh with 
manufacturer's warranty— We accept CODs 
Open PO's not accepted— $50 minimum 
order— No foreign orders accepted 

Prices tuOiect to charge c*i tor cuotet 



HIGH TECHNOLOGY AT AFFORDABLE PRICES 

HE BOTTOM 

LINE 

Milford NH 03055-0423 



SERIES 



Bit Smitten— Part V 



by Jay Chidsey 



T 



his month Jay Chidsey shows you how to gain 
access to string data for use in programs 
which require random selection of words. 



This month I will discuss the array 
capabilities of TRS-80 Level II Basic 
with particular attention to gaining ran- 
dom access to string data for use in 
something like a poetry generating pro- 
gram. Many game programs require 
similar random selection of words or 
phrases out of a large number of words 
contained in data statements. 

Arrays are very easy to use, once you 
understand what they are and how 
they work. 

An array is an ordered series or ar- 
rangement of alphanumeric (alphabetic 
and numeric) items presented in a logi- 
cally related and useful pattern. 

The simplest kind of array is one di- 
mensional; it's a list of items. A one-di- 
mensional array is called a vector. A list 
can be as long as you want and have 
need for (and have memory space to ac- 
commodate), and it can be made up of 
either words or numbers. 

An array can also be multi-dimen- 
sional. If, for example, you were the 
franchise holder on five McDonald's or 
Mister Donut or Frostee Freeze places, 
you might want to keep a record of 12 
different categories of expenses for each 
of the five locations. Such a two-dimen- 
sional (or any multi-dimensional) repre- 
sentation is called a matrix or a table. 

If you kept such records every day, 
then the day of the month could be a 
third dimension, the month (1-12) 
might be a fourth, and the year (82, 83 
and so on) might be a fifth dimension. 
This would form a five-dimensional 
matrix in which each expense item entry 
was uniquely tagged, and recoverable 
from your data files through appropri- 
ate programmed inquiry. Item A(4,2, 



17,9,2), for example, would be the 
fourth expense item listed for location 
two on the 17th day of the ninth month 
(September) in 1982. 

Level II Basic's array capability 
makes it possible to take information 
out of dead storage and put it into 
dynamic and usable memory. The in- 
formation put into an array might come 
from input statements contained in 
your program, but most commonly it 
will come from data statements. I will 
deal only with data storage in this 
month's column. I will show you how 
to get words out of storage in data lines 
and into memory for manipulation and 
use. I'll use a scaled-down version of my 
poetry generating program (see the 
listing) as an example. 

It's useful to think of the data in your 
TRS-80 as a huge high stack of infor- 
mation, with the first data entry as the 
item on the very top of that stack, and 
the last item in the last data line as the 
one on the very bottom of the stack. 
When you read that data into memory, 
the item at the top of the stack is read 
first, and assigned to the variable you 
name following the Read command. In 
this case, the variables to be subscripted 
are N, V, and A; N(l), N(2) and so on. 

If you want to read down only so far, 
or to find a particular item and stop 
there, you can then insert the Restore 
command into your program, and the 
next Read will begin at the very top of 
the stack again. You can't start over 
part way down the stack, but you can 
start again at the top and peel off the 
data you want to discard quite simply. 

In this poetry program I want to read 
three categories of words: nouns, verbs 



and adjectives. I will then randomly 
select among those words to con- 
struct poems. 

Notes on the Program 

In a program that uses words rather 
than numbers in its data lines, you must 
first clear space for string variables. 
This is done at line 90 with a CLEAR 
10000. If no number of bytes are cleared 
by such a statement, the TRS-80 de- 
faults to an automatic Clear of 50 bytes. 
If you are hard pressed for memory in a 
program and are using no string vari- 
ables, you can free 50 additional bytes 
of memory by executing a CLEAR at 
the beginning of your program. 

There are four ways to use clear. The 
CLS (Clear Screen) command in a pro- 
gram and the clear key on your key- 
board wipe the monitor screen of all 
content. Neither affect variables in stor- 
age, but both terminate the double- 
width print mode initiated by 
CHR$(23). The clear command used in 
a program by itself, with no number 
following, wipes out the content of all 
variables returning them to zero for 
numeric variables and to null (" ") for 
all string variables. Clear followed by a 
number reserves that number of bytes 
of string space for your program and 
zeros all variables. If you are using 
many strings, you should CLEAR n 
bytes early in a program, before any 
variables are introduced. Unless you do 
so, you will face the OS (Out of String 
Space) error message. 

Clearing 10000 bytes will accommo- 
date nearly 250 each of nouns, verbs, 
and adjectives. Since the program itself 
occupies little space, you need not be 
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overly concerned about reserving a 
large amount of string space in this 
program. 

Lines 100-150 count the words in 
each data category, first nouns, then 
verbs, and then adjectives. Nouns are 
stored in data lines 2000-2998, verbs in 
lines 3000-3998, and adjectives in lines 
4000-4998. The data entries of End at 
lines 2999, 3999, and 4999 halt the 
counting of nouns and switch to the 
counting of verbs and then to the count- 
ing of adjectives. Line 160, by subtract- 
ing the Ends from each count of words, 
places the actual number entered by the 
user in the variables N, V, and A. Line 
170 sets the string variables N$, V$, and 
A$ to null, or blank. This is good pro- 
gramming practice unless you are hard 
pressed for memory space. 

Line 180 dimensions the arrays we 
are about to create. The Basic operator 
is DIM. TRS-80 Level II Basic's default 
value for any array is 1 1 (0-10), so the 
dimension command must be used only 
if and when, as in this case, a larger 
number of elements are to be antici- 



pated. How many of each? Line 160 has 
given us that count. We dimension N$ 
to N, V$ to V, and A$ to A. 

Line 190 restores the data stack for 
reading again. The first time we went 
through it, in lines 100-150, we were 
merely counting the words. Now we 
must restore the stack so we can actually 
read it, word by word, into usable mem- 
ory. Line 210 presents screen material to 
entertain the user while the data is being 
read into arrays N$(x), V$(x), and 
A$(x) by the read function. 

Lines 240-280 are the heart of this 
program. A$ was one word (or se- 
quence of words) when we were count- 
ing and replacing previous content with 
new content at each count, but not 
now! This is where we spin data into 
one-dimensional arrays. N$ is as many 
different words as you have dimen- 
sioned for and have in data to put into 
the prepared slots. N$(l) will be the first 
noun in your data, N$(2) the second, 
and so on up to N$(150) or N$(306) or 
whatever. 

You could read these nouns into 



10 CLS: PRINT 3276, "POETRY GENERATING PROGRAM" 

20 PRINT §344, "(MINIMUM VERSION)" 

30 PRINT §601, "BY JAY CHIDSEY" 

40 PRINT §725, "GREEN SPRINGS OH 44836" 

50 PRINT §980, "";: INPUT "PRESS ENTER TO CONTINUE"; YY 

90 CLS: CLEAR 10000 

100 READ N$: N-N+l 

110 IF N$-"END" THEN 120 ELSE 100 

120 READ V$: V-V+l 

130 IF V$-"END" THEN 140 ELSE 120 

140 READ A$: A=A+1 

IF A$="END" THEN 160 ELSE 



150 

160 N=N-1: V=V-1: A-A-l : REM 

170 N$="": V$-"" : A$«"": REM 



140 

SETS N,V,A TO ACTUAL COUNT 
SETS STRINGS TO BLANK 



180 DIM N$(N) , V$(V) , A$(A) 

190 RESTORE: REM DATA NOW READY TO BE REREAD FOR CONTENT 
200 : PRINT: PRINT TAB (18) "POETRY GENERATING PROGRAM" 
210 PRINT: PRINT: PRINT 

PRINT'WORDS IN STORAGE:": PRINT: PRINT 

PRINT"NOUNS "N 

PRINT'VERBS "V 

PRINT" ADJECTIVES "A 

240 FOR X=l TO N: READ N$(X): NEXT 



250 READ ENS: 
260 FOR Y=l TO V: 
270 READ ENS 
280 FOR Z = l TO A: 
290 PRINT: PRINT: 



500 CLS: GOSUB 5000: PRINT: PRINT 



REM PEELS OFF 'END' 
READ V$(Y) : NEXT 

READ A$(Z) s NEXT 

INPUT "PRESS >ENTER< TO CONTINUE"; YY 



i : PRINT: PRINT 
V$(Y) "S THE " N$(X) "! 
" V$(Y) "." 



N$(X) "S," 



PRINT TAB(25) "THE " N$(X] 

PRINT, "HOW " A$(Z) "LY " 

PRINT, "" N$(X) "S SELDOM 
510 GOSUB 5000: PRINT 

: PRINT, "MORE "A$(Z) " ARE THE 
: PRINT, "AS THEY " V$(Y) "." 

1999 PRINT: PRINT: PRINT 
PRINT "PRESS ENTER FOR ANOTHER POEM" 
INPUT "PRESS BREAK KEY TO EXIT PROGRAM"; YY 
GOTO 500 

2000 DATA STONE, RING, CLOUD, BARN, DOG, CAT, MOUNTAIN, RIVER 

2999 DATA END 

3000 DATA RUN, JUMP, FLY, SEE, PLAY, THROW, SING, SHOUT, CLIMB 

3999 DATA END 

4000 DATA BEAUTIFUL, SORROWFUL, GOOD, SCENIC, PURPLE, SWEET 

4999 DATA END 

5000 RANDOM: X = RND(N) : Y = RND(V): Z » RND(A): RETURN 

Program Listing 



memory by programming something 
like READ N$(l): READ N$(2): 
READ N$(3) and so on. This takes lots 
of typing and lots of memory space. 
Lines 240, 260, and 280 spin those same 
words into memory, using For . . . Next 
loops, in a few seconds. At each pass 
through the For . . . Next loop they are 
incremented by one, going up from one 
to whatever total value N and V and A 
hold. Each pass through the loop, 
therefore, produces a different sub- 
scripted variable— N$(l), N$(2), and 
so on. 

Lines 250 and 270 read and eliminate 
the End entries that separate nouns, 
verbs and adjectives. Now we have all 
the data in usable memory. You can 
check this by inserting a line: 

285 FOR Q ■ 1 TO N: PRINT N$(Q): NEXT 
: FOR Q= 1 TO V: PRINT V$(Q): NEXT 
: FOR Q= 1 TO A: PRINT A$(Q): NEXT 

Your nouns, then your verbs, and 
then your adjectives will cascade down 
the monitor screen, and then stream up 
as the bottom line fills and bumps them 
upward. Remember to cancel line 285 
by typing in 285 and hitting enter before 
you run the program. 

Line 500 first sends us to the random 
number generator planted at line 5000, 
and then to a poem format (there are 
more than a dozen in the actual pro- 
gram) to create a poem. The random 
number generator makes it likely that 
each poem will be different. The more 
words in data storage, the more likely it 
is that each poem will be different. Line 

1999 provides an easy way to punch up 
another poem; you simply hit enter. 

To use this program, enter as many 
words as you wish beginning on line 

2000 for nouns, line 3000 for verbs, and 
line 4000 for adjectives. Each new line 
must begin with data and each word 
must be separated by a comma from the 
next. If you wish, write your own addi- 
tional poem formats, using the listing's 
format in lines 500 and 5 10 as an exam- 
ple. If you do this, change the GOTO in 
line 1999 to GOTO 490 and add: 

490 F - RND(6): ON F GOTO 500. 550. 600, 650 
700, 750 

For eight formats you would substi- 
tute RND(8) and add 800, 850 to line 
490. Place a GOTO 1999 at the end of 
each format. ■ 

Writer and businessman Chidsey uses 
his Model HI in both activities. He can 
be reached at 205 E. Adams St., Green 
Springs, OH 44836. 
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QWERTY 

DAISYWHEEL II 




At last! QWERTY 3.0 is available for the 
DAISY WHEEL II! Finally, owners of the 
Daisy Wheel II can make their printers do 
what they were designed to do. Pro- 
duce scores of special symbols and ac- 
cents! Add footnotes and borders to 
text! Bold print, double underline, even 
underline spaces! Print superscripts and 
subscripts, simultaneously! Print a sinsle 
page of text without resorting to copy- 
markers! Stop printing to change wheels 
or insert text! 

Once you use DAISY, you'll wonder how 
you worked without it. We guarantee you 
will agree! If not, return DAISY within 
fourteen days for a prompt refund. That's 
how confident we are! 

DAISY FEATURES 

Easy transition between the three print 
pitches. One command changes pitch 
and resets formats for optimum appear- 
ance in that pitch. 

Over 1 00 new symbols, including foreign 
language accents, Greek letters, and math- 
ematical symbols, all using the standard 
Courier wheel. Allows tildes, carats, and 
overbars to be placed over any character. 

Any character can be used as a super- 
script or subscript, singly or simultaneously. 
Extra high superscripts for integrals. Fine 
space controls to make superscripts and 
subscripts look perfect. 

Underlining, double underlining, and bold 
printing, with our without underlining of 
spaces. 



Special provision for printing ratios of 
one long expression over another (as in 
algebra). 

Provision for putting FOOTNOTES on a 
page in such a way that they remain on 
that page despite later editing. 

TABLE and MABLE commands enable exact 
positioning of the print head anywhere 
on the line. Invaluable in printing neat 
data tables, columnar material, etc. 

PRETTY command enables one to print 
repetitions of a chosen character; com- 
bined with TABLE or MABLE, it becomes 
easy to produce attractive borders, even 
in headers and footers. 

PAGE END allows the user to discover 
where pages will end, when they are 
printed, without actually printing. 




Special commands allow the printing of a 
single page anywhere in the text, with 
correct page number, footer, and head- 
er, without the use of copy-markers. A 
special command will reset the default 
format parameters, to allow use of 
copymarkers without having to insert a 
format line to adjust for format changes. 

FOLIO format enables one to produce 
print-outs in two or three columns per 
page, as for newsletters, indices, etc. 
FOOTNOTES, footers, headers, and PAGE 
END will work correctly. 

Access to disk directory and ability to kill 
files from within DAISY, without losing any 
text. 



Special code in the text will stop printing 
until user restarts it; use it to change print 
wheels. One can insert up to 60 charac- 
ters of text at this point, as for form 
letters. 

Special print-outs allow one to keep re- 
cords of DAISY commands used to create 
a certain effect. 

Flaws in SCRIPTSIT's widow supress are 
corrected. SCRIPSIT's problem with typ- 
ing two spaces after a period is fixed. 
SCRIPSIT's scrolling speed is doubled, with 
instructions for user modification. 

CAUTIOUS BUYERS: We invite you to buy 
the DAISY manual. This is without a doubt 
one of the clearest, most well-written 
manuals ever produced for any piece of 
software. Over 110 pages. Indexed. In a 
custom 3-ring binder. We will credit the 
full $10.00 price when you decide to 
buy DAISY. 

DAISY REQUIRES: A TRS-80 Model I or 
Model III with 48K, at least one disk drive, 
and a copy of Model I SCRIPSIT. Please 
specify which machine and how many 
drives in your system. 

QWERTY 3.0 is also available for the 
Centronics 737, 739, and Lineprinter IV. 

DAISY complete package $74.95 

DAISY manual alone 10.00 

QWERTY 3.0 complete package 74.95 

QWERTY 3.0 manual alone 10.00 

Please add $2.00 for shipping and han- 
dling. Add $4.00 for first class postage or 
UPS. Overseas orders add $4.00 for sur- 
face mail, $1 2.00 for air mail. 
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MED SYSTEMS SOFTWARE 

P.O. BOX 3558 CHAPEL HILL, NC 2751 4 
TO ORDER, CALL 1 -800-334-5470 .*, 



REVIEW 



Up Your Mod 



by Bruce Powel Douglass 



Percom Doubler II 
Percom Data Corp. 
11220 Pagemill Road 
Dallas, TX 75243 
$169.95 

LN Doubler 5/8 
LNW Research Corp. 
2620 Walnut 
Tustin, CA 92680 
$219.95 

MULTIDOS 

Cosmopolitan Electronics Corp. 

Box 234 

Plymouth, MI 48170 

$79.95 

NEWDOS80 Version 2.0 

Apparat Inc. 

4401 S. Tamarac Way 

Denver, CO 80237 

$149 

DOSPLUS 3.4 

Micro-System Software 
5846 Funston St. 
Hollywood, FL 33023 
$149.95 

LDOS 5.1 

Logical Systems Inc. 

11520 North Port Washington Road 

Mequon, WI 53092 

$129 

Percom TFD 100-1 
Percom Data Corp. 
11220 Pagemill Rd. 
Dallas, TX 75243 
$305 

PMC SFD-51-A 

Personal Microcomputers, Inc. 

475 Ellis St. 

Mt. View, CA 94043 

$355 
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Double density disk 
storage — a close look 
at all you will ever need 
to upgrade your Model I. 



Model I users have always been 
plagued by a problem called data sepa- 
ration, when the disk controller has 
trouble separating data from other bit 
streams of information, such as the 
clock cycle. This problem can become 
severe particularly when you are for- 
matting or writing to the innermost 
tracks of a disk. With double density 
(since the current double-density disk 
controllers all use a built-in data sepa- 
rator), disk I/O is actually more reli- 
able than single density. My old drives 
reported fewer disk read/write errors 
from single-density I/O with the Radio 
Shack disk controller when I moved up 
to double density. You can store more 
information on a double-density disk 
as well — 184,000 bytes on a formatted 
disk. With a four-drive system, single- 
density users are limited to a meager 
332,000 bytes of on-line storage, 
whereas double-density users can have 
up to 700,000 bytes on-line. 

How do you get double density? 
Which disk controller and DOS should 
you choose? There are a wide variety. I 
contacted many manufacturers of dou- 
ble-density products, and those that re- 
sponded are represented here. 

Two double-density disk controllers, 
five DOSes, and four disk drives are re- 



viewed. Although most of this infor- 
mation is applicable to Model I users 
only, four of the DOSes have Model 
III versions. 

Indispensable in my testing of the 
disk drives and disk controllers was the 
Floppy Doctor, a product of the Micro 
Clinic in Fountain Valley, CA. The util- 
ity comes on a self-booting disk and has 
a memory test and nine disk-drive tests. 

The Disk Controller 

The disk controller is the circuit in 
the expansion interface that lets the 
computer talk to the disk drive. The 
Western Digital disk controller that ac- 
companies the Radio Shack Expansion 
Interface is a single-density disk con- 
troller, but it can write several kinds of 
DAMs (data address marks). To allow 
cpmpatibility, both the Percom and 
LNW disk controllers allow your com- 
puter to use the original disk controller 
as well as the double-density disk con- 
troller. 

You install both in the same manner. 
First, dismantle the Expansion Inter- 
face and remove the disk-controller 
chip from its socket. Next, plug the old 
disk controller onto your new disk- 
controller circuit board (which houses 
an additional, double-density disk con- 
troller) and plug the new circuit board 
into the disk-controller slot. It will take 
about 5-15 minutes to install, depend- 
ing on your familiarity with the parts 
involved. It requires no soldering, 
trace cutting, or any modification to 
existing circuits. 

I reviewed the Percom Doubler II 
and the I.N Doubler 5/8. The Percom 
Doubler comes with easy-to-follow in- 
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At last... a computer word game that 
entertains, challenges, educates! 
Pandemonium is thoroughly fascinat- 
ing, stimulating, and highly addictive. 
Features include a built-in 6000 word 
dictionary, scoring display and a 
player selectable clock. 
Play it alone! Play it with your kids! 
Play it at a party! 

The word is out . . . Pandemonium is in. 
Available now for only $39.95 at 
computer stores. 



To order by phone, call 800-526-9042 
and use your Visa or MasterCard. All 
shipments made the same day in 
which orders are received. To order 
by mail, add $1 for shipping charges 
and send your check to: 
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TRS-BO MOD l/lll 48K TRS DOS 

TRS-80" Radio Shack/ Tandy Corp. 
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structions and Percom's own 
DBLDOS; essentially a TRSDOS 
patched to run double density with a 
few corrected flaws. It sells for $169. 

The LN Doubler 5/8 comes with 
better instructions and an even easier 
installation manual. The manual in- 
cludes the Western Digital technical 
manual for their disk controllers. The 
LN Doubler 5/8 also supports eight- 
inch floppy drives (if you have the nec- 
essary speedup enhancement to your 
Model I), and comes with DOSPLUS, 
a much better disk operating system. 
The LN Doubler 5/8 sells for $220. 

Are they different in performance? 
No. I was unable to demonstrate a 
significant difference in any disk-con- 
troller functions between the Percom 
Doubler II and the LN Doubler 5/8. 
Reliability testing showed no signifi- 
cant differences in granules locked out 
or in read/write errors. This was using 
the brand new drives I received for this 
review and older Pertec drives. New 
Maxell disks were used and were for- 
matted to 40 tracks using double 
density. 

The DOSes 

A disk operating system is a pro- 
gram that controls computer operation 
in a disk-based computer system. The 
aspects of a DOS that I consider im- 
portant are: ease of use; speed of oper- 
ation; accompanying utilities, such as 
editor/assemblers, file utilities, debug- 
gers, monitors, and languages; read- 
ability and completeness of documen- 
tation; compatibility with other disk 
formats; and cost. 

The DOSes reviewed here all sup- 
port double density and are avail- 
able for the Model III. They are 
MULTIDOS, NEWDOS80 2.0, 
DOSPLUS, and LDOS. 

MULTIDOS 

MULTIDOS, written by Vernon 
Hester, is the most inexpensive of these 
DOSes and has many features its more 
expensive competitors don't have. It is 
the only totally compatible DOS 
around. It will read any of the other 
disk formats, including DBLDOS 
(none of the others will). It is also a 
"no-hang" DOS, meaning that even if 
you remove the operating system from 
drive and the DOS tries to access the 
system utilities on the DOS disk, it 
won't up and quit, as will the other 
DOSes. It won't do what you wanted, 
but it will remain in control of your 
computer. One useful, although per- 
haps minor, convenience is that press- 
ing the enter key without input will re- 
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execute the last DOS command. 
MULTIDOS is a fast DOS as well. 

The only major problem with 
MULTIDOS is that it only checks four 
times on a read/write. My old Pertecs 
show many more "Data Record Not 
Found" errors with MULTIDOS than 
the other DOSes, which check 10 times 
before returning an error. 

The manual is a terse 66 pages (not 
including a few pages of errata and ad- 
ditional information). It lacks an in- 
dex, but covers the features of 
MULTIDOS adequately, provided 
that you already have the TRSDOS 
manual. This complaint is true of 
NEWDOS80 as well. DOSPLUS and 
LDOS have manuals that don't require 
that you have read the TRSDOS man- 
ual to understand them. 

MULTIDOS has many useful li- 
brary commands besides those provid- 
ed in TRSDOS. You can disable the 
break key from DOS, and build and 
execute DO files (although you cannot 
run a Basic program and pass input to 
the Basic program from the DO file). 
Some of MULTIDOS's commands in- 
clude: Forms, which lets you specify 
lines per page and line length for print- 
ed output; Hash, which returns the 
hash code of a file ID; and KEYBRD, 
which sets the keyboard parameters. 
MULTIDOS has a default keyboard 
driver that provides a repeating, flash- 
ing block cursor, but this can be 
changed with the KEYBRD command. 
Link and Route control the I/O of data 
to the video and printer. You can send 
everything that goes to the printer to 
the video too (or instead) and vice ver- 
sa. Topmem allows you to set the top- 
of-memory pointer from DOS. 

MULTIDOS has a number of useful 
system utilities. Backup lets you make 
speedy backups on a single drive and 
alter the number of tracks on it at the 
same time. Copy allows single-drive 
copying of single files, including to and 
from non-MULTIDOS disk formats. 
Format formats disks in single, dou- 
ble, or P (DBLDOS) density formats. 

Other utilities include a disk-based 
version of Radio Shack's Editor/As- 
sembler, a RAM Scanner to locate a 
one or two-byte word in memory, a 
graphics utility to allow direct key- 
board entry of graphics characters, a 
printer spooler, and best of all, 
MULTIDOS's Versatile File Util- 
ity (VFU). 

VFU is a utility for frequently need- 
ed disk operations, including purging 
files, printing a disk directory, multi- 
plying file copies, and executing menu- 



based programs. The Purge option 
gives a screen of the available files, as 
do the Copy and Execute commands. 
MULTIDOS has the best Basic 
around, SuperBasic. It also has a pro- 
gramming and debugging Basic called 
BBasic with Boss built into it. Super- 
Basic is the smallest Basic available 
since it uses extensive overlays for vari- 
ous operations — SuperBasic leaves 
40,000 bytes free after loading. Basic- 
can be loaded directly, recovered (with 
BASIC*), and it provides two more 
options: BASIC! loads Basic and re- 
covers a program left there by a non- 
MULTIDOS Basic. This means you 
can recover a Basic program left from 
running DOSPLUS or NEWDOS80 
and recover it by inserting a MULTI- 
DOS disk in drive 0, pressing the reset 
key, and typing BASIC!. BASIC* re- 
covers a Level II program in memory. 
The recover utilities allow direct con- 
tinuation of a program. SuperBasic 
provides a special form of Level II to 
provide even more memory when 
needed. 

BBasic incorporates Boss into Basic, 
and allows single stepping of Basic 
programs, reviewing the current values 
of any set of variables at any time, 
breakpoints, and an improved trace 
function. Other than this, BBasic is 
just like SuperBasic, except it takes up 
more room. 

SuperBasic allows you to use single- 
key abbreviations for some com- 
mands. It also has a Pn command to 
display a requested page of a program. 
Several additions to Basic are provided 
with CMD"xxx" commands. CMD 
"C" compresses your program with- 
out eliminating remark statements. 
CMD"E" displays an error message 
associated with the last disk error. 
CMD"K" zeros all elements of an ar- 
ray. CMD"L" deletes an array. 
CMD"M" moves a program line. 
CMD"N" duplicates a program line. 
CMD"0" opens an additional file 
buffer. CMD"Q" performs a string 
sort of a single or double-dimension 
string array, and CMD"V" displays 
all current scalar variables and their 
values. 

SuperBasic has overlay utilities to re- 
number parts of your Basic program, 
search for ASCII strings within pro- 
gram text, change all or part of vari- 
able names, change graphics codes 
(CHR$(X)") into packed strings and it 
provides a cross-reference utility that 
shows all line numbers that contain 
specified variables. SuperBasic uses 
Name to chain programs without los- 
ing variables. I think SuperBasic is the 



At last... a better 
way to find that article 
on computing! 



An indexing service to 
locate source material in 
specific subject areas. 

LAMP is a bi-monthly index to 
approximately 100 computer publi- 
cations. An outstanding feature is the 
Subje ct index , cross-referenced to 
provide the most comprehensive listing 
and ease of retrieval. All articles are 
read for subject content and then 
listed with as many cross references 
as required to retrieve the article. 

An Author index lists individual names 
as well as each contributor in jointly 
written articles. Another section is 
the Review index which covers book 
reviews, hardware, software and 
educational courseware. It lists the 
source of the review and 
translates the written review 
into a One-Star to Five-Star rating. 

LAMP eliminates the hit or miss 
method of finding articles of 
interest to you. Each bi-monthly 
issue contains approximately 
200 pages 



A year-end issue is cumulative and in- 
cludes the information from the previous 
5 issues. Send for your subscription 
today 

BONUS FOR CHARTER SUBSCRIBERS 

Subscribe now for the inaugural issue 
to be published in January 1983 and 
receive the LAMP pilot program which 
indexed periodicals from June through 
October, 1982. in effect, 5 months of 
LAMP free for ordering now. 

To order by phone, call 800-526-9042 
and use your Visa or MasterCard. 
To order by mail, send your check for 
$69.95 to Soft images, 200 Route 17 
Mahwah, N.J. 07430. 
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i A LITTLE 

BIT OF "GREEN" 
CiOLS A LONG WAY!!! 
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COMPARE OUR PRICES. . Call (216) 481-1600 



DISKIT Hf 

MODEL III DISK UPGRADE 
i ires 

• Us' 'est Disk C 

• Gold Piated Edge Connectors 

• Switching Power Supply 

• Supports 5" or 8 Drives 

• 40/80 Track Supported 

• Single Dual Head Supported 

• Metal Disk Drive Brackets 

• All Hardware and Cables for Two Disk | 

• 1 Hour or Less tor Installation 

• 100% Compatible 

• No Soldering Needed 

• 180 Days Warranty on Controller 

DISKIT III W/O Drives . .... S279 00 

DISKIT III W/ONE Tandon 

100-1 40 Track Drive $479.00 

DISKIT III W TWO Tandon 

100-1 40 Track Drive S 699 00 

DEALER INQUIRIES WELCOME 
DISKIT in is a trademarn of MOS 

PRINTERS 
NEW LOWER PRICES 

Epson MX-80 SCALL 

Epson MX-80FT wGral' . .. SCALL 

Epson MX-100 w'Gradrax SCALL 

IDS Prism 80 SCALL 

IDS Prism 132 SCALL 

Okioa:a Microime 80 SCALL 

Okidata Microline 82A SCALL 

Okidata Microline 83A SCALL 

Okidata Microime 84 SCALL 

Prownter 8510 SCALL 

Smith Corona TP-1 $629 00 



TRS-80, HEATH, IBM, APPLE, ZENITH 

DISK DRIVES 

AT OR BELOW DEALER S COST! 

TRAXX-Model I & III Complete 

Tandon 40 Track $279.00 

Tandor 8C Track . SCALL 

* * * * * SPECIAL * * • * • 

Tandon 80/80 Track $429 00 

************* 

BAPE TANDON 

T100-1 40 Track S 209 00 

T100-2 40.40 Track SCALL 

T100-3 80 Track SCALL 

* * . * * SPECIAL * * « * * 

T100-4 80/80 Track $359 00 

************* 

TRAXX 8 INCH MODELS 

Seaman 77 Track s/s $339.00 

NEW TANDON THIN LINE 8 INCH 

848-1 Single Side . $ 399 00 

848-2 Dual Side S 499 00 

APPLE Add-On Disk Drive $359.00 



MODEMS 

UDS 103 LP Direct Corr 
UDS 103 JLP AUTO ANS 
Hayes Micromodem II |AI 
Hayes 100 Model |S 100 

■ 



$249 . 



MICROBUFFER 

i 1 49 00 

MBS-8K Senai 

RFACE CARDS 

. i 
8150 (2K B 

i-EE 4881 $55 00 

Apple Card) 

. • i '■■; . . ! 

8220 (TRS-aC 



DISKETTES 

PARAGON MAGNETICS GOi tored. 

ich diskettes 

J3-RINGS $23 95 

VERBATIM-Soft-S- 
5'. 1S DDen IMD525-01.I . 
■'■-. ■ODen .MD550-0ii . 

. . S5 1 50 

8' iS'DDen (FD34-8000) S43 95 

VERBATIM-Hard-Sectored Dis> 

5 . IS DDen 10-Sector (MD52S 10) S26 95 

I0-& ■/ - - 

• 'tor (MD557-I0i $51 50 



SUPPLIES 
HUB RING •■ licks S10 95 

HUB RING N :i<ks S12 95 

REFILLS (50 Hub Rings. S 5 95 

CLEANING K Irives 

5 '." Diskette Case . 
8" Diskette Case 

S24 95 
AVERY TABULABLES 

1 000 3 ." x 15 16 . S 5 49 

3.000 3 . x. 15 16 

5.000 3 S15 95 

FAN FOLD PAPER 

(Prices FOB S P ) 

• 18 lb WHITE 3 000 CI . . S27 95 

14 ■ 11 18 lb WHITE3 00Cct S3 7 95 



BOOKS 

OTHER MYSTERIES 

TRS-80 DISK . S19 95 

Microso't Basic Decnof ! $24 96 

The Custom TRS-80 $28 95 

aster 4 Better . S29 95 

The Custom Apple $28.95 

1001 Things To Do With 

Your Personal Computer . SiO 95 

Choosing A Word Processor $15 95 

CP'M Prima $15 95 

il Basic TRS-80 . $12 95 



TRS-80 

'don 48K . . $1795 00 
Model III w 1 Tandon 48K $1599 00 

1 1 , warranty (<oin MOS 
ana usr ou> MEMORY arte I 

LNW " 

LNW-80 Computer .$1595.00 

LNW-80-II Computer w/cpm 96K $1995.00 

SYSTEM EXPANSION II $ 34900 

LNOOUBLER 5/8 Board S 149 00 



SOFTWARE 

TRS-80 Model I & III 

• * * . * SPECIAL ***** 

FREE Floppy Doctor with the purchase of 
any DISKIT III $30.00 VALUE! 

• ************ 

NEWDOS80 2 S 139.95 

DOSPLUS 3 4 Model l S 89.00 

DOSPLUS 3 3 Model I S 69 95 

• NEW* Electric Pencil $79 95 

ELECTRIC WEBSTER 

50.000 Word Spelling Checker S 79 95 

Correcting Feature S 59.95 

When purchased together $129 95 

UNITERM Terminal ... $ 79.95 

UNITERM/80 Terminal S 89 95 

ACE MAIL for Hayes Smart Modem S 69.95 

I ABELMAKER lor MX80 $ 19 50 

AIDS III Data Management . . $ 49 95 

Maxi Manager S 89.00 

Floppy Doctor I III S 24 95 

Inventory • $ 29.95 

Cash Reg ster 30 $ 29 95 



TRS-80 • 
141-001 



221-001 
221-002 
221-003 
221-004 
221-006 
221-008 
351-001 
351-500 
351-501 
391-001 
391-002 
431-001 
431-101 
511-003 
021-004 
060-601 
060-604 
060-607 
060-611 
061-066 



GAMES 

SAVE • MOST GAMES AVAILABLE 

Introductory 3-Pack DISK 
Rescue, Morloc's and 
Datestones 

Super Nova DISK 

Galaxy Invasion DISK . 

Attack Force DISK . 

Cosmic Fighter DISK . 

Robot Attack DISK 

Stellar Escort DISK . 

Scarfman (Mod l/lll) DISK . 

Scarfman (color) CASS 

New Bounceoids DISK . 

Math-Pak-1 CASS 

Math-Pak-2 CASS 

Sargon II (Mod I) DISK . 

Sargon II (Mod III) DISK . 

Adventure DISK . 

Pigskin DISK . 

Adventure *1,2&3 DISK . 

Adventure #4,546 DISK . 

Adventure "7.849 DISK . 

Adventure "10.11412 DISK 
The Mean Checker 
Machine 



FOR APPLE 
. $49 95 



S17 95 
$17 95 
$17 95 
$17 95 
$1795 
$17 95 
$17 95 
$1795 
S19 95 
$14 95 
$14 95 
$29.95 
$34 95 
$29 95 
S17 95 
S34 95 
S34 95 
$34 95 
$34 95 



DISK .. $17 95 




'MICRO DATA SUPPLIES 



-459 



22295 EUCLID AVE. 

6UCLID.OHIO 44II7 

(216)481-1600 



FPT 

■ 

• Money Order 
•COD 



Ai L PRICES 

ARE FOR 

MAIL ORDER ONLY 

and Ottering:, 



AOD $3 00 FOR 

SHIPPING 
A HANDLING 
S6 00 Extra tor 
COD Orders 
Ohio Residents 
add 6 5% Sales Tax 



best Basic to accompany any DOS 
available. 

NEWDOS80 2.0 

NEWDOS80 2.0 is a double-density 
DOS that writes and reads a specific 
disk format differently from the other 
DOSes. The familiar gran for granule 
has been replaced by lumps. What's a 
lump? NEWDOS80's documentation 
doesn't go out of its way to tell you. It 
is definable with the PDRIVE GPL pa- 
rameter, so that there are between two 
and eight granules per lump. You can 
define the granules-per-lump (GPL) 
parameter as eight. Once you do so, 
the DOS's features are about the same 
as in the others. 

NEWDOS80 2.0 will read other 
formats, but they must be configured 
with the PDRIVE (similar to 
MULTIDOS's CONFIG) each time a 
different disk is used, particularly if 
the disks are in different densities. To 
get around this problem, The Alter- 
nate Source sells a program that gives 
NEWDOS80 2.0 automatic density 
recognition. This program is called 
DDSD and costs $19.95. 

One of the examples in the 
PDRIVE section implied that 1 could 
read the directory of a Model III disk. 
I was unable to read the Model III 
disk's directory with NEWDOS80 
2.0. You can, however, copy from a 
Model III TRSDOS disk on a Model I 
with this DOS. 

It will take you longer to get started 
with NEWDOS80 than with the other 
operating systems presented here. This 
is partially due to the manual's techni- 
cal approach, and partially to the ap- 
proach taken by the DOS in its perfor- 
mance of the various functions. All the 
other DOSes allow you to back up a 
disk with the familiar Backup com- 
mand, but NEWDOS80 requires using 
the Copy format. Once learned, 
NEWDOS80's approach is quite use- 
able and powerful. 

NEWDOS80 has a large number 
of library commands. The most not- 
able are: 

• Break — enables and disables the 
break key; 

• Chain and DO— shifts to the disk 
file for command input; 

• JKL — sends the current screen con- 
tents to the printer; 

• HIMEM — sets the top of memory 
from DOS; 

• LC and LCDR — toggles the lower- 
case driver (Model I only); 

• Pause — displays the message and 
pause until enter (for use in DO files); 

• PDRIVE— assigns the default attri- 



butes to a physical disk drive; 

• Print— outputs a text file to the 
printer; 

• R— repeats the last DOS com- 
mand; and 

• Route — routes one device to 
another. 

NEWDOS80 also sports a miniDOS 
not found in the other DOSes. The 
miniDOS allows the execution of DOS 
library commands except Append, 
Chain, Copy, or Format. Since it is in- 
terrupt driven, it can be used from al- 
most any program that keeps inter- 
rupts active and uses the NEWDOS80 
keyboard driver. 

The utilities provided by NEW- 
DOS80 include the ever-popular 
Superzap. It also supplies a patched 
version of Radio Shack's Editor/As- 
sembler and a disassembler. The 
disassembler writes disassembled code 
to disk from where it is loaded by the 
patched assembler. It will also send the 
disassembly to the printer or screen 
and display a cross-reference table. 

LMOffset is a program used primar- 
ily for loading system tapes that over- 
lay the DOS and store them on disk. 
Chainbld is used for the creation and 
editing of Chain or DO files. ASpool is 
a printer spooler. 

NEWDOS80 also sports an en- 
hanced Basic. Enhancements include 
toggling the break key, abbreviated 
line listing and editing commands 
similar to MULTIDOS's SuperBasic. 
Chaining is allowed and the Merge 
command merges non-ASCII files. 
REF displays a reference list of 
variables and line numbers, and can 
specify different outputs in a number 
of ways. 

CMD"F = ERASE" and CMD"F 
= KEEP" allow selective clearing of 
Basic variables, like the MULT1DOS 
SuperBasic CMD"L", only more 
powerful. The first format selectively 
clears a number of variables in a sin- 
gle statement, while the second for- 
mat clears all except the declared vari- 
ables. Some other CMD enhance- 
ments include clearing all Returns 
and For . . . Next loops from the 
stack, dynamic deletion of text lines, 
swapping of variable contents, single- 
stepping Basic, recovering a deleted 
program (providing it hasn't been 
overwritten in memory), and sorting 
arrays. CMD"0" sorts a multidi- 
mensioned array. 

NEWDOS80 has some extensive 
disk I/O enhancements to Basic as 
well. The manual spends 20 pages dis- 
cussing these disk I/O enhancements in 
chapter 8 alone; appendices A and B 



feature 65 more pages on the topic. 

NEWDOS80 handles the standard 
sequential (which they call print/input) 
and random (which they call field 
item). It also handles marked item 
(which has three subtypes) and fixed 
item (which has two subtypes). Ran- 
dom-access files can be of 1-256 bytes 
in fixed length. The fixed time and 
marked item files have a maximum rec- 
ord length of 4,095 bytes. 

Sequential files can only be accessed 
sequentially. That is, if you want to 
read item number 200, you must wade 
through the first 199 items. Random- 
access files can access record number 
200 directly and are more useful and 
powerful. 

In fixed and marked item files, Get 
and Put are used to access data in the 
I/O buffers. The type and length of 
each item is determined by the IGEL 
(item group expression list) of the Get 
and Put for fixed-item files, but in 
marked-item files, the item always be- 
gins with marker bytes, specifying the 
format of the item. Although they are 
initially hard to understand, these new 
file types are quite useful. 

NEWDOS80 is a good DOS. The 
Basic is not as good as MULTIDOS's, 
but it operates well. It has a disassem- 
bler, Superzap, and other powerful 
utilities. Apparat supplies zaps free to 
registered owners and has provided 
good customer support in the past. Un- 
fortunately, it does not have automatic 
density recognition. 

DOSPLUS 3.4 

DOSPLUS comes with the LN Dou- 
bler 5/8. It has automatic density rec- 
ognition, although it cannot read 
DBLDOS format. 

The approach to operating system 
functions took a departure from 
TRSDOS with DOSPLUS. The DIR 
command automatically displays the 
information normally supplied with 
DIR (A) in TRSDOS, and a new com- 
mand, CAT, displays the abbreviated 
directory normally retrieved with DIR 
in TRSDOS. It would be nice if the 
DIR command displayed the number 
of granules left. 

DOSPLUS has an automatic repeat- 
ing, lowercase keyboard driver and 
DO- file capability. The Format com- 
mand works quickly and verifies the 
tracks backwards rather than forwards 
to save time (since the drive head is al- 
ready at the highest track, it needn't 
move back to track 0). DOSPLUS 
Model I and III double-density ver- 
sions are directly compatible, meaning 
that a Model I DOSPLUS disk can be 
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read by a Model III DOSPLUS. This 
does not mean that a Model I 
DOSPLUS can read a Model III 
TRSDOS disk. DOSPLUS does come 
with a Convert command to transfer 
files from a Model III disk to a 
DOSPLUS disk, somewhat like 
NEWDOS80. 

Although DOSPLUS does not have 
a VFU command similar to 
MULTIDOS, Picotrin Technology of 
Lantana, FL markets a DOSPLUS- 
compatible program that provides cur- 
sor-oriented functions. 

The DOSPLUS manual is reason- 
ably well done except for the omission 
of an index. The technical section is 
particularly good in how it describes 
the entry and exit points for the various 
DOS routines and DCB (device control 
blocks). 

The library functions are similar to 
the DOSes previously described. The 
DO construct works well and lets you 
specify in the command the reserved 
high memory for the DO file. 

The DOSPLUS utilities include a 
printer spooler, single-drive copy, 
Crunch (a program that compresses 
Basic programs saved on disk), Disk- 
dump and Diskzap (floppy-disk edi- 
tors similar to Superzap), Map (shows 
file locations on a disk). Restore 
(recovers killed files), Sysgen (creates 
nonstandard system disks). Tape 
(similar to NEWDOS80's LMOffset), 
and Transfer (for multiple file copies 
from one disk to another). 

DOSPLUS enters Basic differently 
than MULTIDOS or NEVYDOS80. 
The Basic is enhanced as well. TRON 
allows you to single-step Basic, and 
Tab tabs on a line printer beyond 64 
columns. You can move and copy Ba- 
sic program lines, and DOSPLUS Ba- 
sic has a large number of abbreviates. 

DOSPLUS also comes with a tiny 
Basic called TBasic. TBasic occupies 
slightly more space than MUL- 
TIDOS's SuperBasic, but has no file 
space allocated. TBasic lacks many of 
the enhancements found in regular 
DOSPLUS Basic, but is useful because 
it will still run the full set of Basic com- 
mands. TBasic displays abbreviated er- 
ror messages in a further attempt to 
free up memory. 

LDOS5.1 

LDOS recently reduced its price 
from $ 169 to $ 1 29, due to the large vol- 
ume of sales. Registered LDOS users 
receive a quarterly magazine called, 
appropriately enough, The LDOS 
Quarterly, support hard to match. 

LDOS comes with a rather imposing 
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300-plus-page, well-written manual. 
The LDOS manual is the best of the 
DOSes reviewed here. 

In order to make LDOS run with 
double density, you must use the 
PDUBL disk-driver program, which 
sits at the top of memory. This creates 
some real hassles with programs in 
high memory at times. You can use the 
Sysgen command to save the driver 
configuration so it automatically loads 
on boot. Model I users cannot boot up 
on a double-density LDOS disk — it 
must be single density, although you 
may change it to double density after 
the boot, a minor inconvenience. 

LDOS on the Model I will not read a 
Model III TRSDOS disk, although the 
library command CONV can be used 
to transfer files from a Model III 
TRSDOS disk. 

The library commands in LDOS are 
similar to those available in the other 
DOSes. Trace supports and displays 
the PC register in the upper right cor- 
ner of the display, and Filter is similar 
to the Route command on other 
DOSes but better. It establishes a pro- 
gram to filter the I/O path of some de- 
vice. Several filter programs are sup- 
plied with the LDOS disk. 

MINIDOS/FLT is a filter similar to 
NEWDOS80's miniDOS. In it, you 
can toggle the clock on and off, enter 
Debug, display free space, kill files, 
and so on. A filter for the line printer is 
also provided. 

One of the most powerful features 
of the LDOS operating system is its job 
control language (JCL). A DO or 
Chain option is available for all the 
other DOSes, but a true JCL is lacking. 
The LDOS JCL is actually a compiled 
language. It can handle conditional 
statements and support variables. 
LDOS allows concatenation of vari- 
ables (which they refer to as tokens) 
and logic expressions using NOT, 
AND, and OR. LDOS JCL allows 
macros in its programs. This means 
that you can specify a macro name and 
some complex function will be per- 
formed. 

The JCL feature is a powerful one, 
although it could be made more power- 
ful by adding the ability to direct exe- 
cution of the JCL program on the basis 
of the results of some program. An in- 
teractive control language (ICL) is 
available for NEWDOS80 version I 
and it allows this flexibility. 

One of the utilities includes 
CMDFILE. Similar to NEWDOS80's 
LMOffset but more powerful, this 
program allows appending patches to 
machine code, appending machine- 



code programs together, saving them 
to disk or tape, moving them around in 
memory, and so on. CONV moves files 
from a Model III TRSDOS disk to an 
LDOS disk. Since this program can be 
used by a Model I running double den- 
sity, this provides the only utility to 
move programs from a Model III disk 
to a Model I disk. LCOMM is a com- 
munications program that allows your 
TRS-80 to talk to other TRS-80 com- 
puters or to bulletin board systems, 
such as Forum 80. Repair updates and 
corrects information on certain types 
of disks to make them useable to 
LDOS. This utility is more useful for 
Model III users than for Model I folks. 

LDOS's enhanced Basic, LBasic, 
has some abbreviations and allows sin- 
gle-stepping of Basic programs. Re- 
store has been updated to allow you to 
specify a line number to start the Re- 
store at. LBasic allows chaining of Ba- 
sic programs without loss of variables. 
LBasic can also sort arrays and provide 
reference information on Basic pro- 
grams. LBasic is good, but in my opin- 
ion, not as good as the Basics in the 
other operating systems. 

LDOS is a good DOS, but there are 
a few minor inconveniences. The Basic 
could be more powerful, and it would 
be helpful if the top of memory was 
free. (PDUBL sits at the top of memo- 
ry if you're using double density.) The 
manual is quite good, and the Filter 
and JCL features make this the 
most powerful microcomputer DOS 
around. Finally, the LDOS support is 
unprecedented in quality and ease for 
the registered user. 

In Summary 

As you can see, all these DOSes have 
their good points. MULTIDOS has its 
low price tag, versatile file utility, no- 
hang ability, virtually total compatibil- 
ity, and the excellent SuperBasic. The 
manual is a bit terse and MULTIDOS 
only checks a read/write four times. 

NEWDOS80 has good utility pro- 
grams like LMOffset, a disassembler, 
and Superzap. The manual, however, 
is lacking a tutorial and NEWDOS80 
needs automatic density recognition. 
DOSPLUS has Diskdiimp, Diskzap 
and automatic density recognition. 
LDOS has its excellent manual, great 
customer support, very flexible filter- 
ing of I/O, and a powerful JCL. 
Which you choose depends very much 
on your applications. 

The Drives 

A disk drive must be able to move a 
read/write head very precisely to any 



SUPERVENTURE IS HERE! 

An incredible journey awaits you in — 

feuls 
fupat 

A NEW EXPERIENCE 
IN TEXT ADVENTURE! 

As BAZUL, the Royal Runner, you will 
journey through enchanted torests, hidden 
caves, dismal swamps, and magical lands. 
Your mission? To recover 26 rare ingredi- 
ents for a healing potion— the only cure for 
the deathly ill King Rifraf. Can you save the 
Kingdom, or will it fall under the control of 
the Evil Jester? Machine Language, Save- 
a-Game Feature, Over 400 Word Vocab- 
ulary. Will boot on Model III. Requires 1 
disk drive and 32K. 

(Soon available for Model I) 



$29.95 




P. O. Box 502 
Florence, Alabama 35631 
(205) 766-0030 ^94 



TRS — SO — > I BM F»C ! 

TRIX is an 8086 program which 
read* TRS-S0 Modal III disks 
and writes any -file to an IBM 
PC disk while operating under 
PC-DOS on an IBM PC. Juat put 
your Mod III diskette into an 
IBM PC and copy your {ilea. 
Many TRS-80 BASIC programs 
Mill run immediately on the 
PC! 
TRIX on PC DOS Disk »99.93 



Bl_ Z NK I NO F" I ELDS ! 

BLINKS-IT ia a BASIC program 
which can easily ba mar gad 
into any TRS-80 Mod I or 1 1 1 
BASIC program. Using machine 
language it will blink any 
-field or combination o-f fields 
on tha TRS-SO scraan at any 
rata from 1 to 30 times par 
sacond. BLINKS- IT on Mod I or 
III disk *49.93 

LAST CHANCE SALE ! CLOSE OUT ! : 

•90,000 WORDS ! 

WORD GRINDER is an ASCII dic- 
tionary in alphabetical order 
of 90,000 words. Great for 
proof-readers, word games, 
ate. Over 1 Magabyta of ASCII 
filaa. Distributed on varioua 
madia. Supplied on 14 Mod I 
Disks or 7 Mod III disks. WORD 
GRINDER. From 6125.00 

VISA JOE COMPUTER M/C 
22458 VENTURA BLVD. St a. E 
WOODLAND HILLS CALIF. 913A4 ^ 256 



******* IrS HERE! ******* 
* » 

i COLOR COMPUTER * 



* 


BUSINESS & HOME 


* 
* 


« 
* 


SOFTWARE 




* 
* 


* 


50 CASSETTES ONLY $8.95-$29.95 


* 


♦ 


that will knock your 




* 


* 


•MAINFRAME" out 




* 




FREE CATALOG 




* 
* 
* 


+ 


(Specify for TRS-80 Color Com 


puter) 


* 


Including- 




* 


« 


THE ACCOUNTANT 


$29.95 




* 


THE BILLING SOLVER 


$19.95 


* 


* 
* 


THE CLIENT TICKLER 


$19.95 


* 


BUSINESS INVENTORY 


$18.95 




* 


THE BIDDER 


$14.95 


* 


* 
* 


DEAR DIARY 


$12.95 


* 


THE TICKER TAPE 


$16.95 




« 


THE MAILMAN 


$13.95 


* 


* 


VICKY-CALC 


$12.95 


* 




THE INVESTMENT ANALYST 


$12.95 


» 


* 


THE PHONE DIRECTORY 


$9.95 


* 


CHECKBOOK BOOKY 


$12.95 


* 




THEBUDGETER 


$15.95 


* 




SUPER SHOPPER 


$12.95 


* 


JOGGERS LOGGER 


$12.95 


* 


* 


LIGHTENING SORT 


$14.95 


* 




THE INCOME AND EXPENSER 


$14.95 




« 


MEDICAL RECORDS 


$14.95 


* 


* 
* 


and many more . 




* 
* 



* 
* 
* 
* 
* 
* 

t (609) 346-3063 „ 449 J 

J "MIGHTY T TO THE RESCUE" J 

************************* * 



TSASA, INC. 

2 CHIPLEY RUN 
WEST BERLIN, N.J. 08091 
(609) 346-3063 



UNITED SOFTWARE ASSOCIATES 

734 FLAMINGO WAY 

NO. PALM BEACH, FL 33408 

(305) 845-4606 (305) 965-3496 



ULTRA TERM 

COMMUNICATIONS SYSTEM 

Ultra Term includes both a full fea- 
tured intelligent terminal program, 
and a self relocating host program, 
at prices one half to one third of 
the competitors'. 

* Exclusive direct to disk file 
transfer capability permits full 
control from the transmitting 
computer, so no one is required 
at the receiving computer. 

* Unique split screen featjre allow: 
simultaneous two way communicatio 
eliminating the confusion caused 
by incoming text mixing with what 
you are typing. 

* Supports auto dial modems with an 
easy to use telephone directory. 

Requires Model 1 or 3 with 16K, one 
disk drive, RS-232 port, and modem. 

Regular price: $79.95 
USA Special price: S59.95 



^M 



CO-DIR 

CURSOR ORIENTED DIRECTORY 

YOUR DOS CONTROLS YOUR FILES, 
LET CO-DIR CONTROL YOUR DOS! 

CO-DIR 2.0 is a utility that 
allows file manipulation and DOS 
command execution from a directory 
display with only one or two key 
strokes. You can scroll through 
the directory with the arrow keys 
like a word processor. CO-DIR 2.0 
is not a program you will use only 
once, since any DOS command can be 
entered faster and easier using 
CO-DIR. Dos commands available 
from CO-DIR include Execute 
program. Copy, Chain/Do, 
Directory, Free, Kill, List, Load, 
Print and Rename. 

CO-DIR requires Newdos-80 or 
DOSPLUS with Cat command. 
(Specify DOS and Model) 

Regular price: $49.95 
USA special price: $39.95 





INFOEX-80 

BULLETIN BOARD SYSTEM 

This package contains all the 
software necessary to setup and 
operate a Bulletin Board System 
(BBS). The system will auto- 
matically answer phone calls, 
print a welcome message, ask for 
the callers name and location, and 
prints bulletins or advertise- 
ments. The system then allows the 
caller to leave messages for other 
callers, and read or delete 
messages addressed to them. The 
system supports downloading of 
program and text files, and has a 
chat mode to allow the caller to 
type directly to the System 
Operator (SYSOP ) . 

Requires TRS-80 Model 3 (or Model 
1 with a double density adapter), 
two disk drives, 32K RAM, an 
RS-232 interface, and any auto 
answer modem. 

Regular price: $149.95 
USA special price: $99.95 



DEALER INQUIRIES INVITED - ACCEPTING SOFTWARE FOR REVIEW 



24 HOUR BBS ON LINE AT 305-965-1044 



• See List of Advertisers on Page 451 
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location and rotate the disk within pre- 
cise limits so that address marks and 
data can be accurately located. The 
drive speed is supposed to be 300 rpm. 
Most drive manufacturers say that a 
one-percent variation in drive speed is 
tolerable, and often a precisely adjust- 
ed drive will still vary within ± one per- 
cent of 300 rpm. 

Older minifloppy disk drives had 
35 tracks and wrote only in single 
density. Technology has improved, 
and now 80 and even 96-track 
minifloppy drives are available in 
single or in double density. 

I was hoping to find differences in 
reliability of the brand new drives un- 
der severe stress- testing conditions. As 
long as I kept below the upper limit of 
the speed of the stepping motor of the 
drive, I was unable, generally, to get 
any errors in these drives. 1 could find 
no clear-cut reliability differences 
among the various drives, so it was im- 
possible to statistically investigate the 
presence or absence of an interaction 
of effects due to the disk controller 
used. I did, however, discover dif- 
ferences in their operation. The 
drives I reviewed are: Percom model 
TFD 100-1, PMC model SFD-51-A, 
Teac, and Trak model 5410-121. 



The Percom is the only one of these 
drives that is flippy, meaning that you 
can remove the disk from the drive, 
flip it over, and reinsert it into the drive 
and write to the other side of the disk. 
This effectively doubles the amount of 
storage you have in your disk library. 
The Percom drive also has the drive- 
cable card extending out from the rear 
of the machine, so it is easily accessible 
without removing the case, a nice fea- 
ture. It has a stepping-motor speed that 
allows you to seek tracks at 12 millisec- 
onds. This is faster than the Teac (at 30 
ms) and my Pertecs (at 20 ms), but 
slower than the PMC and the Trak 
(both at 5 ms). The list price of the Per- 
com drive is $305. 

The PMC drive also has the drive- 
cable card extending out the rear of the 
drive. It has a fast-stepping motor with 
5-ms track seeking. It allows writing 
only to one side of the disk. 

The Teac drive was the slowest of 
the bunch, requiring a minimum of 30 
ms to seek a track. In order to change 
the drive cable, you must remove the 
cover. The card for the drive is incon- 
veniently spaced, meaning the drives 
must be slightly closer than recom- 
mended by Radio Shack when using 
their four-drive cable. The Teac drive I 



used was loaned to me by American 
Business Computers. They give their 
Teac drives a one-year warranty. All 
the other disk drives were loaned by the 
manufacturer. 

The Trak drive was another fast 
drive, requiring only 5 ms to seek a 
track. The card for the drive cable was 
even more inaccessible than the Teac 
drive, and to use it with the four-drive 
cable, it requires you to run the drive 
with the cover removed, use the last 
connector on the cable, or use a disk- 
drive extender cable, which costs about 
$10. It came with a single-drive cable 
already connected to it, so single-drive 
users won't need to get a cable when 
purchasing this drive. A nice feature of 
this drive is the disks are spring loaded. 
When you wish to remove a disk, you 
open the drive door and the disk 
springs out a half inch or so for easy 
removal. This is also the only drive 
with a power-on light as well as a drive- 
busy light. 

The disk drives all worked reliably. I 
prefer the Percom drives because of 
the easy cable hook-up and relatively 
fast operation, but primarily because it 
was flippy. Nonetheless, all the drives 
worked well and deserve a recommen- 
dation. ■ 




LEVEL IV PRDDULT5. INC. 
PREMIUM GRADE TR5-BO® 

LEVEL IV WEflNB, I VALUE I QUALITY I SERVICE I SUPPORT 




BUILDINS A PREMIUM BRASS COMPUTER II A CLAIM FEW COMPANIES CAN MAKE, 
AMD EVEN FEWER CAN PACK UP. ME BO IT BVEPV DAT. EACH LEVEL IV NOD III 
10 CANEPULLV ABSEMOLEB FROM PRS-TESTED COMPONENTS OF THE HIOMEflT 
OUALITV. AMD TESTED FOR PERFORMANCE TO A LEVEL FAN ABOVE THAT FOR 
NMICH IT MAS ORIOIMALLV DEBIONED. AFTER BURN-IN, EACH UNIT IB 
DELIVERED WITH THE FANOU8 LEVEL IV III MONTH L INI TED PARTB AND LABOR 
WARRANTY (COPIES ARE AVAILABLE ON REOUESTI. 



A LEVEL IV NOD III IB 
MOUNTAIN OF BOPTWARE AN 
THAT WORKS ON 
OURS. 



DEBIBMBD TO BE COMPLETELV COMPATIBLE WITH THE 
TWARE AND HARDWARE READILY AVAILABLE FOR IT. ANY ITER 
OR ATTACHES TO, A STANDARD HOD III WILL FUNCTION WITH 



CONSIDER THE FOLLOW I NO OPTIONS TO ENHANCE YOUR MOD III 
D...BINBLE OR DOUBLE HEAD, 40 OR BO TRACK BR1VEB 
2I...EIBHT INCH 81NBLE OR DOUBLE HEAD DRIVES 
3).. .WINCHESTER A. 4 OR 14. S MSB DRIVES 

4I...B.1 MEBAHERTZ CPU CLOCK SPEED (SUPER PAST COMPUTIHB) 
S>.. .NULT1-UBER/NULTI-TABKINS CAPABILITY, (44 TERMINALS) 
*)...BO COLUMN BY 24 LINE DISPLAY, A4K RAH 
7>...CP/N CAPABILITY, RUMS STANDARD CP/N PROBRAHB 

■Ul LOINS A NOD III CAPABLE OF THE ABOVE CERTAINLY HAKES IT A PREH1UH 
SRADE UNIT. BUT THE MOST IMPORTANT THINS WE OPPER IS AFTER-THS-SALE 
SERVICE AND SUPPORT. 



STORE LOCWTIRRS 



NRIL RH» PRONE OOOER EENTER 
SZ4Z4 SCROOLERRTT ROM 
LIVOHXR. PtXEHXBRR 41150 

EOtfMITER 5RLES CENTER 
IK BMTH ZOTH STREET 
1PJTTLE EREEK. HI 4*015 

FULL LIRE 1/5 5RLE5 CENTEI 
114 SMITH FRONT STREET 
IMC. HIENISRO •14047 



DESK TOP 

COMPUTER 

SYSTEMS 



NOW FOR THE SURPRISE, OUR 4BK 2-BRIVE UNIT, SELLS FOR ONL 
REMEMBER LEVEL IV MEANS. 'VALUE 'QUALITY 'SERVICE 'SUPPER 
SOME NAY BET CLOSE TO OUR PRICEB, BUT NOME HILL HATCH OUR 



t$1699 



1 




CULL FOR OUR CURRENT LOW PRICEB 0111 313-525-6200 0TNER8 B00-S21-3305 
ME ACCEPT CVTOjC-Qrog-CTPl jDWmEjBOUTO^ 
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The Easy MANHATTAN Way To Handle 
EXPENSES, LISTS & MAILINGS 

EXPENSE LEDGER — Rles entries and generates 
reports on business or personal expenses. Sorts by date, 
finds and displays on-screen or prints out all expenses, 
month summary, or selection by payee, purpose or 
category. 15 categories assigned by user, displayed on 
screen when entering, editing or deleting. 48K version 
holds 470 entries. 32K holds 200 — use for year, 
quarter or month. $35. 

MAIL LIST MANAGER — Holds 1 ,000 names and 
addresses in 48K two-disk version or 400 in one-disk 
32K version. Sorts by zip code or name [lightning fast in 
machine code], prints labels one-up or two-up, selectable 
by any combination of user-entered Print Key or 
geographic area. Prints full list in notebook format. Two- 
disk version $50, one-disk $45. 

DISK LISTMAKER — User-friendly simple database, 
holds 1 ,000 names or items plus 5-digit codes in 48K, 
500 in 32K. Displays on-screen and prints out lists and 
sub-lists. Full editing, sorts by name. Disk version of 
original cassette program in use by schools, real estate 
firms, many individuals. $20. 

For Models I or III [with DOS conversion] 

Write for full catalog of disk & cassette programs 

California residents add 6% tax 

MANHATTAN SOFTWARE 

Box 1 063, Woodland Hills, CA 91 365 ^ "9 
24-hour Visa/MC Order Line [21 3] 704-8495 



MICRO 

MOONLIGHTER 

NEWSLETTER 

The ONLY publication devoted exclusive- 
ly to helping you create, build, and main- 
tain a home-based business using your 
micro-system. SUBSCRIBE NOW to what 
may be the most important publication in 
YOUR FUTURE! 

1 Year (12 issues) only $25 U.S., $29 
Canada, $35 World Wide 

J. Norman Goode, Publisher 
Micro Moonlighter Newsletter 

21 15-D Bernard Avenue • Nashville. TN 37212 
Visa and Mastercard welcome. Send account 
number and expiration date. 615-297-5106. 

D Visa Acct # Exp 

D M/C Acct # Exp 

Name 



Address. 
City 



St. 



Zip 



-270 



Communicate ! 

FILE TRANSFERS 

8c TERMINAL EMULATION 

LYNC is THE choice of professionals for communications between com- 
puters. They choose LYNC because of its many powerful capabilities, its ease 
of use, and it works on many different computers. They use LYNC to transfer 
program or data files between computers, and to take advantage of the many 
features offered by the Source and other large-data base systems. LYNC's 
unique closed-loop error detection and correction protocol gives profes- 
sionals the assurance that their data is getting across without being lost or 
garbled. Computer communications is the wave of the future, and if you are 
ready for the future, LYNC is here NOW. 

E/LYNC: $45 

Send and receive ANY type of files between your computer and another 
computer running LYNC or E/LYNC. File transfers are done using the 
exclusive LYNC closed-loop protocol. E/LYNC also has a Terminal Emula- 
tion mode for connecting with large time-sharing database systems or re- 
mote bulletin board services. E/LYNC can be upgraded to LYNC for $30. 

LYNC: $75 

This version of LYNC is exclusively for owners of the TRS-80 Model I 8c III. 
In addition to the features of E/LYNC. LYNC allows the user to fetch files 
from the remote computer and use multiple file names when sending or 
fetching. In the Terminal Mode you can send data files to the remote com- 
puter and store received data to disk files. 

LYNC is also available for CP/M systems and IBM PC systems for $125. 




LICENSING: E/LYNC and LYNC are licensed on a per user 
basis. If you intend to use E/LYNC or LYNC to communicate 
with another person, they must also purchase E/LYNC or LYNC. 
Versions for CPM are written in Z-80 assembly language. Ver- 
sions for IBM PC are written in IBM 8088 assembly language, 
and require PC DOS. 

AVAILABLE DISK FORMATS: TRS-80 Mod I Ic III. TRS-80 
Mod II with CPM. 8" standard. IBM PC Vector Graphic. 
Cromenco. North Star. Osborne. Xerox 820 (8" & 5"). NLS 
KayPro. SuperBrain, TeleVideo. 

TERMS: Money Order. Check. C.O.D., MC or Visa. First Class 
Shipping Included. LPS Blue add $3. C.O.D. add $5. CA res. add 
6V Overseas Airmail add $6. Manual Only. $10 (Specify Com- 
puter). 

PHONE ORDER DESK 

TECHNICAL HOT LINE 

(805) 966-3077 

10 am-4 pm PST Monday - Friday 

(805) 966-3077 



INTERNATIONAL SOFTWARE ALLIANCE = 

1835 Mission Ridge Road Santa Barbara, CA 93103 

idemarks "t Midnight Software CP/M i- J trademark <•! Distal Resear.h 



IYM fc r.l.Y\< 



• 516 
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Fun For The Holidays With 



DEMISE 




By Case from Acorn 
Shoot down the enemy ships which are coming— and 
firing — at you. After obliterating them all. you must 
carefully navigate a tunnel before you are in the clear. 
You can move your ship left, right, up. down and 
diagonally, your weapons include a laser cannon and 
"smart bombs" that render til ships on the screen im- 
potent You start with 5 ships and get another ship 
and "smart bomb" for each 10,000 points. 3 levels of 
play; great sound effects. 
16K Tape or Disk, $19.95 




SPACE ROCKS 

By Steven Kearns from Acorn 

Gigantic antimatter rocks appear on the Tactical 

Display Screen of your spacecraft. You blast away 

with lasers and they just explode into smaller chunks. 

To score m this fast arcade game with sound , you 

must destroy the rocks. To stay in the game at all. you 

must avoid them! 

16K Tape or Disk. $19.95 



KING 
OF THE 
JUNGLE 

By Vandewalle from Acorn 

An unusual combination of fast pinball action plus 

the challenges and dangers of an arcade game. 

Keep the ball in play, scoring points as it caroms 

from obstacle to obstacle, while wandering through 

the |ungle searching for the hidden crown. And try to 

avoid the deadly Cobra. Lots of action, sound and 

fun! Choice of 3 screens. Can be used with Trisstick 

joystick. 

16K Tape or Disk, $19.95 




EVADE 




By Knight from Acorn 
You're in charge of the USS Krestan, an interstellar 
tn-ship. If you defeat the enemy aliens you en- 
counter, you get a chance to earn extra points by 
successfully docking with a larger ship. Then come 
the evil Maliclans and dangerous meteor showers. 
Never a dull moment with this one! 

16K Tape or Disk, $19.95 




ENEMY 
EVASION 

By Raul Rivera from Acorn 

An original fast-paced arcade style game requiring 

quick mental and physical reflexes. You must control 

your Rover to avoid oncoming Rovelan Ramcraft You 

gain points for each successful pass through the 

"death lanes", but the Ramcraft speed increases as 

you play. If you reach the double bonus mode, watch 

out for the land pellets they drop! Joystick 

compatible. 

32K Disk, $19.95 




ASTROBALL 



By John Allen from Acorn 

Once you load ASTROBALL into your TRS-80. the ar- 
row keys become flipper buttons, the screen becomes 
the play board, and you become the "Pinball Wizard'" 
A flying saucer, spaceships, meteors, and black holes 
add to the fun as your ball realistically zings around 
the board. Five skill levels. 
16K Tape or Disk, $19.95 



Also a vallabla: 




PINBALL: The all-time favorite 

16K Tape, $14.95 
16K Disk, $20.95 




TENPINS 

By John Allen from Acorn 

TENPINS brings you all the thrills of championship 
bowling. Up to 4 players participate, and the program 
automatically senses the skill of each. Beginners can 
position the ball and "roil" it, while more skilled 
players can vary the force, roll a curve and cause the 
ball to spin as it heads for the pins. PLUS 3-D graphics 
and sound effects— realistic and challenging.! 
16K Tape, $14.95 
32K Disk, $20.95 




Also available: 

BASKETBALL: You'll hare to be tost/ 

16K Tape, $14.95 32K Disk, $20.95 



CATERPILLAR 




From Soft Sector Marketing 
This is the fast-action arcade game you've been 
waiting to play at home' You must hit mushrooms and 
caterpillars— segment by segment— moths and tum- 
ble bugs The challenges: they are all moving; when hit 
they split into additional segments or metamorphose 
into different shapes; when you destroy a caterpillar, 
the new one that replaces it is a segment long** than 
the original! 
16K Tape, $15.95XX 32K Disk, $19.95 




OUTHOUSE 



From Soft Sector 
Isn't there anywhere that's safe these days? Now 
they're invading the OUTHOUSE, trying to steal the 
paper supply. But watch out . . when the paper Is 
gone, so am you/.'/ If that's not enough, they're fir- 
ing at you from the sky! With sound; disk version 
"talks". Joystick compatible. 
16K Tape, $15.95 
32K Disk, $19.95 



SKY SWEEP 




By Mark Barlow from Soft Sector 
You are flying above an ever-changing terrain, with 
only your skill, speed, and maybe a little luck to help 
you avoid the missiles and gunfire coming at you. If 
you succeed, you must enter an ominous cave 
where mon danger awaits you. Not for the timid. 

16K Tape, $15.95 
32K Disk, $19.95 



FORTRESS 




By Larry Ashmun from Soft Sector 
You are in charge of a massive fortress. Your main 
priority is to defend it against alien attackers. With 
your protection and firepower, fending off the first 
attackers is like swatting flies— but lust wall! 
16K Tape. $15.95 32K Disk, $19.95 

Coming Soon: 

CHICKEN: Fast actton,' tots of squawking/ 

16K Tape, $29.95 



Over 1 500 Programs for TRS-80, 



For Information Call 
202-363-9797 

Visit our other stores: 

829 Bethel Rd., Columbus OH 

Seven Corners Center. Falls Church, VA 

W. Bell Plaza. 6600 Security Blvd.. Baltimore MD 



PROGftflm 
JT0R6. 



ATARI 400/800, APPLE & IBM. 



To O rder Call Toll- Free 

^E 800-424-2738&g§ 



MAIL ORDERS: Send check or MO. for total purchase 
price, plus S2.00 postage & handling. D.C.. MD. & VA.. add 
sales tax. Charge cards; include all embossed information 
on the card. 



4200 Wisconsin Avenue, NW, Dept. 8E212 Box 9609 Washington, D.C. 20016 
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ARMORED 
PATROL 




By Westmoreland & Gilman Iron Adventure 
As commander of a lumbenng T-36 tank you have the 
firepower to destroy the enemy— it you can find them 
They may be hiding behind the houses scattered about, 
the bleak terrain and your only view is thru the drivers 
port (your screen* Impressive animation in this arcade 



16K Tape, $19.95 



32K Disk, $24.95 




STARFIGHTER 



By Sparky Starks from Adventure Int 
As mercenary and galactic police officer, you must 
maintain the condition and control of all parts of your 
spacecraft You sit at the controls while peering out of 
the digital spaceview port Suddenly something appears 
on your screen: is it a Starpirate or a friendly merchant 
ship? You can't tell yet. and at this speed you may have 
only a fraction of a second to maKe an attack/no attack 
decision. 

16K Tape, $24.95 32K Disk, $29.95 



SEA 

DRAGON 




By Westmoreland & Gilman from Adventure 
Underwater adventure is yours as you command a 
nuclear sub armed with deadly missiles and 
torpedoes Guide it carefully through sea mines and 
underwater mountains, watch out for depth charges 
being fired by overhead ships . . . and don't nin out of 
air! Scrolling sea bottom for added excitement 
Joystick compatible 
16K Tape. $19.95 
32K Disk, $24.95 



ELIMINATOR 




By Westmoreland 4 Gilman from A.I. 
You'll need all your keyboard manipulative skills to keep 
up with the action m this arcade game You travel across 
the planet's tow-altitude airspace in an effort to prevent 
the marauding enemy from capturing your energizer 
cells. All manner of alien craft await your arrival with 
destructive forces. For i or 2 players, with sound. 
16K Tape, $19.95 32K Disk, $24.95 



STRIKE 
FORCE 




From Melbourne House 
You are the warrior-savior of cities under relentless 
alien attack. You're armed with rapid-fire missiles, 
radar and Incendiary star-shells; but you'll need your 
fastest thinking and Instantaneous response to pro- 
tect yourself and your people Great real-time 
graphics' 

16K Tape, $15.95 32K Disk, $19.95 



PENETRATOR 




From Melbourne House 
Armed with missiles and bombs you must fly your 
fighter to the enemy s cache of neutron bombs and 
destroy them Your mission is in lour stages, involving 
rugged terrain, caverns and manmade obstacles— not 
to mention enemy radar missiles and paratroopers This 
new departure m arcade gaming allows you to set up 
your own terrain and enemy emplacements then save 
them tor future use Make your mission as hard or easy 
as you like Joystick compatible 

16K Tape or 32K Disk, $24.95 



PANIK 




By Demas from Fantastic 

An arcade style game of a fascinating future world 
with high-res graphics and voice Filled with action 
and excitement; in machine language. 

1 6K Tape, $1 9.95 32K Disk, $24.95 



VENTURE 




By Phillip Case from Horizons 

Set off on a journey Into the stronghold of an ancient 

wizard Danger Is everywhere, and the penalty for a 

mistake may be complete destruction! The ultimate 

challenge lies in the forbidden Riddle Room— are you 

ready for the VENTURE? With sound effects; loystick 

compatible. 

16K Tape, $14.95 16K Disk, $19.95 



DEFENSE 
COMMAND 




By Hogue & Konyu from Big Five 
You are the tone defender of 10 Krotnium fuel colls 
essential tor the survival of the planet Aliens swoop 
down trom above to steal the fuel, it's your job to destroy 
them You can still save the cells after a raid, but you 
must shoot the alien and simultaneously move under 
the cell to catch it If thmgs took bad you can set oft one 
of your 4 antimatter bombs and destroy all enemies on 
the screen' Arcade tun with action and sound. Joystick 
compatible 

1 6K Tape, $lfe95~ 32K Disk, &»*£ 

Now Thru Doc. 10: Tape $14.36; Disk $17.96 



STELLAR 
ESCORT 




By Jeff Zinn from 8<g Five 

This new arcade game from Big Five continues their 
tradition of bringing you the most exciting action in 
innovative space games Your fighting spacecraft must 
run the gauntlet of the attacking alien's weaponry in 
order to accomplish your defense mission You'll use all 
your skill and dexterity |ust to survive! Joystick 
compatible. 

16K Tape, SJJJ^S" 32K Disk, &&& 

Now Thru Dec. 10: Tape $14.36; Disk $17.96 



ROBOT 

ATTACK 




By Hogue & Konyu from Big-Five 

One of the top names in TRS-80 arcade games adds a 

new dimension: voice sound effects! It s you against the 

robots in this fast-moving shoot-errHjp Electrified 

Mazes and the "Flagship" complicate things as you 

stalk the evil androids 

The innovations built into ROBOT ATTACK take your 

TRS«) near the limits of Its capabilities. You MUST see 

and hear it* Joystick compatible. 

16K Tape. $46*5 32K Disk, $4*95 

Now Thru Dec. 10: Tape S14.36; Disk $17.96 

Four From Big-Five 

By Hogue & Konyu 

COSMIC FIGHTER 

GALAXY INVASION 

METEOR MISSION 2 

ATTACK FORCE! 

Each: 

16K Tape, $l**y 32K Disk, %i&*f 

Now Thru Dec. 10: Tape $14.36; Disk $17.96 
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Adventures in Learning, 




LANGUAGE 
TEACHER 

By Cindy and Andrew Bartorillo from Acorn 
Learn the basics of a foreign language. LANGUAGE 
TEACHER offers hundreds of word combinations, verb 
conjugations and phrases There is an option for hav- 
ing multiple-choice answers and for being retested on 
missed items. Full printer capability and a great deal 
of "human engineering" further enhance the programs. 
Teachers will appreciate the ample documentation 
and the ability to get printouts of quizzes. Currently 
available languages are: French, Spanish, Italian and 
German. 

32K Disk, $29.95 for each program. 



YOUR 
FAMILY TREE 




By Chuck Acree from Acorn 

This comprehensive genealogical program sets up a 
database to display/print a complete "pedigree" for 
any family member or feneration chart. Includes 
name, date and place of birth, marriage and death 
Information, and comment line for each. Also displays 
a US outline map showing migration across the 
country. 

16K Tape or Disk, $29.95 



MONEY 
MANAGER 



u 



By Andrew P Bartorillo from Acorn 

A complete management tool for the home budget, it 

keeps track of your checkbook and provides for easy 

budget allocation. You can store information on up 

to 100 checkbook entries per month (250 with 48K). 

specify automatic withdrawals, keep records of tax 

deductibles, record expenses by category, even 

break up charge account payments into the proper 

categories. 

32K Disk, $39.95 

VISICALC HOME AND 
OFFICE COMPANION 

By Castlewitz and Chisausky from 

Osborne/McGraw Hill 
Fifty VisiCalc models for home and office, including 
investments, inventory, sales forecasts, payroll, per 
sonal net worth, home budget planning, family in 
surance needs Each comes with model listings. 
sample printed reports and narrative 
A must for every VisiCalc owiwrl 

Softcover, $15.99 



TYPING 
TUTOR 




By Ainsworth & Baker from Microsoft 
Speed up your programming and word processing with 
this excellent touch-typing instructional program. 
Divided into two sections, the program first teaches 
proper finger positioning. You practice keying various 
characters, the program adding new ones as you 
progress In the practice paragraph section, you are 
evaluated for accuracy and rated in words per minute. 
The program continuously adjusts to your increasing 
skill, telling you which characters you miss and where 
you are slow. One of the most practical programs we 
know of for TRS-80. 

16K Tape, $19.95 (Model I only) 



POWER 
DRAW 




By Kim Watt from Powersoft 
A graphic screen editor that works with all major 
operating systems Special features: graphics and 
text may be intermixed, screen may be saved to 
available memory buffers, buffers may be saved to 
tape or disk in 6 formats; single and double width 
video are supported. With trace mode to constantly 
display cursor positioning; grid mode to aid in cen- 
tering figures on screen Alpha joystick compatible. 
Disk, $39.95 

INSTANT 

SORT/SEARCH 

DATABASE 

By G. Hatton From Acorn 

A database program that allows the user to store a 
large number of files in the form of lists, and pro- 
vides the user a means to retrieve specific items of 
information from the file. Written in machine lan- 
guage. ISS can provide a multitude of sorts, sub- 
sorts, searches and categorizations in seconds. Be- 
cause the processing is done in memory, it is ex- 
tremely fast, and you can manipulate the data at will 
without risk to your database on tape or disk. (If fur- 
ther information is required, please call or write.) 

16K Tape or 32 K Disk, $49.95 



The 

Program. 

Store 

NOW 

OPEN 

in 

Columbus, 

Ohio s-' 

Olerrtangy Plaza 



us*o 




/•Ohio- 



LDOS 



From Lobo 

An advanced operating system that offers benefits to 
everyone from novice to advanced system program- 
mers. LDOS comes with one of the most complete and 
well written documentation books ever, with easy-to 
follow instructions to get started plus a wealth of 
advanced information for when you need it. 
Completely device independent. LDOS provides for 
routing, linking, setting, and filtering of the 
inpuVOutput of a number of peripherals Up to eight 
disk drives are supported in almost any mixture: 5', 8", 
single/double density, up to 80 tracks, even hard disks. 

Endorsed by Radio Shack. 
Disk with Manual, $129.00 
Please specify Model I or III. 



Cqfp, Box of 10 Diskettes 
ntti with each LDOS order! 



Please state choice of: 

Memorex, BASF, Nashua, Leading Edge, Athena, 3M. 
Ofler ends Dec. 25, 1982. 



FINEFONT 



By Vincent Bly from Acorn 

Now Epson owners can have Uu» Ittfr-qutlity print 

ing with FINEFONT at 10. 11, or 12 characters per 



inch: 



Fine^ont and Epson 



With boldface, underlining and incremental spacing 
(for proportional right justification). 32 special char- 
acters Including those needed for mathematics, 
plus a graphic editor to create or edit character sets. 
It supports all Epson print modes, and is compatible 
with word processors including Model I SCRIPSIT 
with SUPERSCRIPT, Model III SCRIPSIT, and Lazy 
Writer (Model I, III). Print speed is approx. 20 CPS, 
unidirectionally. It's compatible with most DOS's in- 
cluding LDOS 5.1. TRSDOS, NEWDOS/80 Ver 2.0. 
Requires following Epson printers: MX-80; MX-80 
F/T with Graftrax-80 or Graftrax-plus; MX-100 with 
Graftrax-plus only 

Requires 48K Disk, $49.95 




By Richard Wilkes from Acorn 

Using your Superscript modified Scripsit Word Pro 

cessor and a compatible printer, you can now 

underline, boldface, insert text during printout, slash 

zeros, set type pitch, subscript and, of course, 

superscript! You can even read your directory and kill 

files without ever leaving Scripsit. 

Superscript comes with drivers for popular serial and 

parallel printers (now including Centronics 737 and 

RS Daisy II), and easy instructions for patching to 

your Scripsit program (does not include Scripsit) 

32K Disk, $49.95 Use Model I Scripsit 



Over 1 500 Programs for TRS-80, 



For Information Call 
202-363-9797 

Visit our other stores: 

829 Bethel Rd.. Columbus OH 

Seven Corners Center. Falls Church, VA 

W. Bell Plaza. 6600 Security Blvd., Baltimore MD 




ATARI 400/800, APPLE & IBM. 



PROGRflm 
/T0ft€™ 



To O rder Call Toil- Free 

m ^T 800-424-2738 ^^ 



MAIL ORDERS: Send check or MO lor total purchase 
price, plus $2.00 postage & handling. D.C.. MD. & VA.: add 
sales tax. Charge cards: include all embossed information 
on the card. 



4200 Wisconsin Avenue, NW, Dept.8E21 2 Box 9609 Washington, D.C. 20016 
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Excitement and Fantasy 



PROGftflfTI 



HELLFIRE 
WARRIOR 




From Epyx 

This sequel to TEMPLE OF APSHAI gives you 4 new 
levels of dunjons with $0 rooms each! You'll find 
giant Insects, skeletons, ghouls, mummies, dragons 
and bottomless pits. Can you conquer them and res- 
cue the Warrior Maid Brunhild to break the spell that 
binds her? 
16K Tape or 32K Disk, $39.95 

Expansion Modules for HELLFIRE WARRIOR (You 
must have HELLFIRE WARRIOR to play): 
THE KEYS OF ACHERON: Find the 4 jewels 
with the help of a friendly unicorn. 
DANGER IN DRINDISTI: Defeat the king's ene- 
mies in over 100 caverns and chambers. 

Each Module: 
16K Tape or 
32K Disk, $19.95 



Warriors 
of RAS 




By Masteller from Med Systems 
In this adventure/role playing series, you create the 
characters, and can save them for future games, or use 
them in other volumes of the series. 

DUNZHIN, Vol. 1 

You're in a many-level dungeon filled with demons and 
goblins. 

KAIV, Vol. 2 

Can you find the treasure buried deep within the 
catacombs of the KAIV? 

THE WYLDE, Vol. 3 

The newest in this fascinating series. 

Each Volume: 

48K Tape or Disk; $29.95 




ASYLUM 

From Med Systems •• 

You are sitting alone at 2 AM. Your eyes are bloodshot 

as you peer into your computer's screen and cry, "I 

must be CRAZY 1 " If this has never happened to you, 

you've never tried ASYLUM It's Med Systems most 

ambitious 3-D graphics adventure yet' 

ASYLUM places you on a cot in a small (padded?) 

room Periodically the janitor lobs a hand grenade 

through the window What you do next could mean 

escape— or disaster. 

16K Tape, $19.95 32K Disk, $22.95 



ASYLUM II Nov 
16K Tape, $19.95 



abla: 

32K Disk, $22.95 



Also order DEATHMAZE 5000, 

Med System's challenging 3-0 maze game. 

16K Tape, $14.95 32K Disk, $19.95 



TANK 
ARCADE 




From Avalon HIM 

Fast-paced 1 or 2 player game with classic arcade 
action and battlefield strategy. You must predetermine 
how many hits it will take to wipe out your opponents, 
and then do HI The battlefield changes randomly after 
each game. 

16K Tape, $14.95 



SHOOTOUT 

AT THE 

OK GALAXY 




From Avalon Hill 

This exciting new game requires last arcade response 

and well Ihoughtout strategy Thirty alien warships 

have entered your Patrol Zone— can you handle your 

defense? Are your shields up 7 Have you checked your 

energy level? Is your azimuth set? OK then Good 

Luck.' 

16K Tape, $19.95 



VOYAGER I 




From Avalon Hill 
You're on board a spaceship infested with killer 
robots in this graphic science fiction game. You must 
clear the 4-level 144-location ship of robots and arm it 
to self-destruct. Can you do It and escape before you, 
too. are blown up? High-speed graphics are repre- 
sented In 3-D perspective representing your eye's 
view; with instant switching to floor plan maps. 

16K Tape, $19.95 



DNIEPER 
RIVER LINE 



From Avalon Hill 

It's 1943; you're the German Commander defending the 
DNEIPER RIVER UNE against the Soviet units, 
controlled by the computer. Can you hold your 
position? 4 levels of difficulty, with over 300 illustrated 
counters and mounted mapboard. 
48K Disk, $29.95 
Also available: 

TANKTICS: Computerlboard game of German* 
against Russians in WWII. 

16K Tape including wargame board, 
$23.95 



FROGGER 




From Cornsoft 
One of the most popular arcade games ever now 
available for your home computer! Just as in the 
arcade game, you must dodge heavy traffic and |ump 
the moving logs in the stream to get home. Fantastic 
graphics' Requires joystick 

16K Tape or 
32K Disk, $34.95 




BOUNCEOIDS 

From Cornsoft 
We're not sure what they are. but they're hug* and 
dangerous! BOUNCEOIDS bounce off walls, and can 
kill with one touch. Your mission Is to destroy them 
with your new class 4 annihilate. Then there are the 
terrible bugs coming out of null space to crunch you 
to smithereens. You'll need coordination, strategy 
and courage! Joystick-compatible. 

16K Tape, $15.95 
16K Disk, $19.95 



SCARFMAN 




From Cornsoft 

Action-filled arcade game that pits you against the 

monsters. Race your Scarfman around a maze, 

gobbling up scoring dots. You are pursued by five 

monsters: if you eat a " + " they'll lower their eyes and 

you can eat them, otherwise they'll eat you! 

With exciting graphics and sound, SCARFMAN may be 

played using the keyboard or Joystick. 

WARNING: MAY BE HABIT-FORMING! 

16K Tape, $15.95 
16K Disk, $19.95 

While they lasf.' 



CRAZY 
PAINTER 




From Cornsoft 
Your assignment Is to paint the maze, avoiding 
everyone who tries to stop you If anyone walks in 
the paint, It's ruined, and you must go back and re- 
paint it. With sound, great graphics. . -truly 
"a-maze-ing". . ,. 

16K Tape, $15.95 
16K Disk, $19.95 




))} 



SPACE CASTLE 

From Cornsoft 
Ahead of you lies the menacing castle, floating in 
space amidst its layers of orbiting shields. At Intervals, 
smart mines spin off the shields and head for your 
ship. Dodging the mines and destroying the shields 
isn't your only problem, though: once you penetrate the 
innermost shield. The evil Yugdab will unleash all his 
fury in an attack! A fast-paced and challenging arcade 
game, indeed. 

16K Tape, $15.95 16K Disk, $19.95 
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GRAPHICS 



LOAD 80 



Make your MX-80 look like a magician. 



GRAPHTRAX Tricks 



Mark Schneider 
3109 Karen Avenue 
Long Beach, CA 90808 



The GRAFTRAX option for my 
Epson printer has bit-plot 
graphics; a new italic print font; 
a backspace feature to help 
overcome the TRS-80 quirk of in- 
cluding a line feed with every 



carriage return; and a TRS-80 
mode which accepts graphics in 
the 128-191 ASCII range of the 
computer without losing any 
printer features. These features 
alone were worth the price, but 
what kind of characters could I 
create? 

As a math teacher, I used my 
printer to create worksheets and 
exams. I had to add many sym- 
bols by hand after printing, such 
as greater than or equal to, less 
than or equal to. not equal to, 
square root, divided by, degree, 
integral, delta and many more. I 
wanted more than math sym- 



bols so I created a whole new 
alphabet. I designed an alpha- 
bet for Hebrew, which does not 
duplicate any English letters. 

Letter Size 

The standard character font 
on the printer is five across by 
seven down, with an extra two 
dots for lowercase descenders. 
However, the printer plays tricks 
with some letters, printing be- 
tween dots. I wanted my letters 
to be 10 dots wide. GRAFTRAX 
can print the dots twice as close; 
my characters print normal width 
with twice as much detail. 



— EdJI 



The maximum height allowed 
is eight, so I used all eight dots: 
six for normal letters and two for 
letters with descenders. Each 
dot is assigned a power of two 
for a value. The bottom dot is 
two raised to the zero power, or 
one. The second is worth two, 
and so on to the top dot (two to 
the eighth, or 128). By adding the 
value of those dots required in 
each column, you arrive at a 
number between and 255. 
LPRINTing that code fires the 
correct pins and prints the col- 
umn. The calling sequence 
LPRINTCHR$(27)"L" ;CHR$(n1) 
; CHR$(n2) tells the printer that 
the next n1 + (n2 x 256) charac- 
ters it receives should be printed 
as bit image graphics. You may 
print up to 960 dots on a line. 

To print one solid column of 
dots use LPRINT CHR$<27)"L" I 
CHR$(1) ; CHR$(0) ; CHR$(255). 
To underline an entire line (960 



Fig. 1. Screen Display 



The Key Box 

Basic Level II 
Model I 
16KRAM 
Epson Printer 
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THE ULTIMATE IN COLORCOMPUTING 

For the TRS-80 Color Computer and TDP System 100 Personal Computer 

Super "Color" Writer II Super "Color" Terminal 

By Tim Nelson By Dan Nelson 

The Rolls Royce of Word Processors The Ultimate in Smart Terminals 



The Super "Color" Writer is a FAST, machine code, full featured, 
character (screen) oriented word processing system for the TRS-80'" 
Color Computer and ANY printer. The video display is styled after a 
professional phosphor (green characters on black background) display 
for hours of use without eye fatigue (optional orange on black). The 
unique print WINDOW frees you from 32, 51 or 64 character lines 
FOREVER! This window can be moved anywhere in the text file, up, 
down, left or right to display the text as it will be printed without wasting 
paper You can create or edit Super "Color" Terminal files, ASCII files, 
BASIC programs or Editor/Assembler source listings. It's simple enough 
for beginners with 4K and ... for the professional writer with a 32K disk 
system and a lot to say, there's plenty of room to say it! 

COMPARISON CHART SUPER COLOR WRITER THE COMPETITION 

System Size 4K 16K 32K 4K 16K 32K 

TAPE: Text space N/A 7K 23K N/A 2K 18K 

ROMPAK: Text space 2.5K 16K 31 K N/A N/A N/A 

DISK: Text space N/A 5.5K 21. 5K N/A 0.5K 16.5K 

Right Justify YES NO 

Video Window YES NO 

Edit any ASCII File YES NO 

Programmable Function YES NO 

The figures speak for themselves and with professional features like 
PROGRAMMABLE function string commands to perform up to 28 
commands automatically. PROGRAMMABLE text file chaining, 
PROGRAMMABLE column insert & delete, and right hand 
JUSTIFICATION with punctuation precedence, the choice is clear but 
there's still more! In their September '82 issue, "80 MICRO" says, "The 
Color Computer has finally come of age. Nothing illustrates that coming 
of age better than this offering (SUPER "COLOR" WRITER) by Nelson 
Software". The Super "Color" Writer takes full advantage of the new 
breed of "smart printers" with Control codes 1-31, 20 Programmable 
control codes 0-255 for special needs. Works perfectly with all Epson, 
Radio Shack, Okidata, NEC, IDS, Centronics, Citoh, Smith Corona, 
Diablo Etc., Matrix, or Letter Quality Printers. 

CHECK THESE FEATURES!! 

User friendly • Easy commands • 32K Compatible • Window • Key beep • 
HELP table • 128 character ASCII & graphics • Mem left and Mem used • 
Full cursor control • Quick paging • Scrolling • Word wrap around • Tabs 
• Repeat all functions • Repeat last command • Insert character & line • 
Delete character, delete to end of line, line to cursor, line & block • Block 
move, copy & delete "Global Search. Exchange & Delete • Merge or 
Append files • Imbed Control Codes in text • Underline • Superscripts • 
Subscripts • Headers, Footers & 2 Auxiliary footnotes on odd, even or all 
pages definable position • Flush right • Non-breakable space • 4 
centering modes: 5, 8.3, 10 & 16.7 (CPI) • Full page & print formatting in 
text • Single sheet pause • Set Page length • Line length, Line spacing, 
Margins, Page numbers • Title pages • Printer baud: 110, 300, 600, 1200, 
2400 • Linefeeds after CR • Soft & hard formfeed • Works with 8 bit 
printer fix • and more! 

Super "Color" Writer II Disk 

The Disk version of the Super "Color" Writer works with the TRS-80C 
Disk System and has all the features listed above plus many more! Use 
with up to four Disk Drives. Includes an extended HELP table you can 
access at any time. Call a directory, print FREE space. Kill disk files and 
SAVE and LOAD text files you've created all from the Super "Color" 
Writer. Print, merge or append any Super "Color" Terminal file, ASCII 
file, BASIC program or Editor/Assembler source listing stored on the 
Disk or tape. The Super "Color" Writer Disk version has additional for- 
matting and print features for more control over your printer and 
PROGRAMMABLE chaining of disk files for "hands off" operation. Print 
an entire BOOK without ever touching a thing! Includes comprehensive 
90 plus page Tutorial manual. 

TAPE $49.95 ROMPAK $74.95 DISK $99.95 

Tutorial only $15.00 (Refundable with purchase) 

ORDERING INCLUDE $3.00 for shipping In the U.S. & Canada, 
$6.00 for Foreign orders. C.O.D. add $2.00. 



The Super "Color" Terminal turns the Color Computer into a Super-smart 
terminal with all the features of VIDEOTEX'" plus much more. 
COMMUNICATE with Dow Jones & CompuServe and with computers like 
the TRS-80'" MODEL I, II, III, APPLE etc., via moden or RS-232 direct! 
Save the data to tape or print it! Reduces ON-LINE cost to a minimum! 

FEATURES 

10 buffer size settings from 2-30K • Buffer full indicator • Prints buffer 
contents • Full 128 ASCII keyboard • Compatible with Super "Color" 
Writer files • UPLOAD & DOWNLOAD ASCII files, Machine Language & 
Basic programs • Set RS-232 parameters • Duplex: Half/Full • Baud Rate: 
110, 300. 600, 1200, 2400, 4800 • Word Lengths 5, 6, 7 or 8 • Parity: Odd, 
Even or None • Stop Bits: 1-9 • Local linefeeds to screen • Tape save & 
load for ASCII files, Machine code & Basic programs • Unique clone 
feature for copying any tape. 

Super "Color" Terminal Disk 

The disk version of the Super "Color" Terminal works with the TRS-80C 
Disk system and has all the features listed above plus many more! Use 
with up to four Disk Drives • Call a directory, print FREE space, kill disk 
files, save and load text files or BASIC programs • Echo ability in full 
duplex • Lower case masking • 10 Keystroke Multiplier (MACRO) buffers 
that can be saved on disk to perform repetitive log-on tasks and send 
short messages (up to 250 characters each) • Programmable prompt or 
delay for send next line • Selectable character trapping • Set printer 
Baud rate to 110, 300, 600, 1200, & 2400 • Operators Manual. 
TAPE $39.95 ROMPAK $49.95 DISK $69.95 

Operators manual only $10.00 (Refundable with purchase) 

etltt Super "Color" Mailer 

** Correspondence-Mailmerge 

The Super "Color" Mailer is a powerful multi-purpose file merging 
program that uses files created by the Super "Color" Writer II. One of 
Super "Color" Mailer's most popular uses is producing customized form 
letters — at a fraction of the time and expense of individually typed 
letters With Super "Color" Mailer you can combine a Super "Color" Writer 

11 file containg a form letter with a file containing a list of names and 
addresses. You can even insert special words and phrases — unique to 
each addressee — into the body of the letter. Other Super "Color" Mailer 
uses include creating invoices, printing mailing labels, addressing 
envelopes, and producing "boiler plate" legal documents out of many 
different paragraphs. Features include: the ability to selectively print 
mailing lists by any of up to 10 user definable fields • automatically prints 
current date • address • salutation • closing • PS. etc. • prints any ASCII 
file • justification. 

TAPE $39.95 DISK $59.95 

e>H w Super "Color" Disk-ZAP 

" The Ultimate in Disk Repair Utilities 

A must for ALL Color Computer Disk system owners. A high-speed 
machine code Disk Utility that can copy sectors and tracks • repair 
directory tracks and smashed disks, etc Super "Color" Disk-ZAP has a 
special screen display that displays sector, track and memory contents in 
HEXADECIMAL and ASCII at the same time with double cursors that can 
be moved in any direction. With Super "Color Disk-ZAP you are able 
to verify or modify disk sectors at will. You can even type right onto the 
Disk! You can send sector contents to the printer or any other RS-232 
device in either ASCII or HEXADECIMAL listing. Search the entire 
Diskette for any ASCII or HEXADECIMAL string. Comes complete with 
comprehensive manual. 

DISK ONLY $69.95 



OOjjgjS Super "Color" Calc 

S° Electronic Spread Sheet 



NELSON 

SOFTWARE 

SYSTEMS 



lefundable with purchase) The ' mest electronic spread sheet and financial modeling program 

available for the Color Computer — A sophisticated yet easy to use, 
for shipping in the U.S. & Canada, calculating and planning tool. Project figures into the future to answer 

i orders. C.O.D. add $2.00. tne .. What jf? .. questJons you face Create files compatible with the 

Super "Color" Writer II. Combine spread sheet tables with your 
documents to create ledgers, proiections. statistical & financial reports 
& budgets. 

9072 Lyndale Avenue So 612/881 2777 AVAILABLE AT DEALERS EVERYWHERE. IF NOT, ASK WHY!! 



A Division of Sottlaw Corporation Minneapolis. Minnesota 55420 U.S.A. 



TRS-80 It a registered trademark of the Tandy Corp. 



dots) use LPRINT CHR$(27)"L" ; 
CHR$(192) ; CHR$(3) ; : FOR X = 
1 TO 960 : LPRINT CHR$<1); : 
NEXT X . The Basic interpreter 
does not correctly LPRINT 
CHR$s 0, 10. 1 1 or 12. The man- 



ual suggests POKEing these 
va lues d i rect ly to t he pri nter port 
(at address 14312), bypassing 
the Basic interpreter. The first 
example in this paragraph does 
not work as written; change it to 



Program Listing 1. Create File 

100 DIM. ( 121) :CLS: PRINT" 

MX88 Graftrax Worksheet 
from DATAWARE by Hack Schneider 

This program will aid you in creating bit-graphic characters 

for ua« with an Epson printer equiped with the 'GRAFTRAX' 

option." 

118 PRINT: PRI NT "Would you like instructions printed out on your 

printer? 

(None will appear on the screen) 1 

y or N "; 

121 I$«lNKEYS:IFIS«*N*ORIS-*n*THEN220 

ELSEIPI$-*y"ORI$-"Y"THEN138 

ELSEPRINT0711,"?"s:FORCC-lTO58:NEXTCC:PRINT0711," ";: 

FORCO 1 T05 : NEXTCC : GOT01 2 8 
138 LPRINT" GRAFTRAX Worksheet from DATAWARE by Hark S 

chneider* 

148 LPRINT: LPRINT" CONTROL KEYS FOR DRAWING GRAPH 

ICS 

4 arrow keys move flashing cursor around box" 

158 LPRINT" 

<enter> and arrow key draw a dot and move cursor' 

168 LPRINT* 

<clear> and right arrow stove cursor to upper left of next 

box 

<clear> and left arrow move cursor to upper left of prev- 
ious box" 
17* LPRINT" 

<cleac> and <enter> erase borders in this box after a 

rrival* 
188 LPRINT" 

<space> and right arrow leave a dot at the cursor, then ra 

ova to next box" 
190 LPRINT" 

<space> and <ent«r> build file containing bit pattern 

a 

<space> and <cl«ar> build alternate file* 

288 LPRINT" 

<clear> and up arrow begin drawing again 

<space> and up arrow exit program* 

211 LPRINT:LPRINT:LPRINT* 

After all characters have been created: 

1... stove the cursor to the next box. 

2... Press <space> and <enter> to build the file naaed in line 38 

3... Press < space > and <clear> to build a file with /ALT extensio 
n, 

228 CLSiPRINT'Do you wish to <B>uild or <E>dit a drawing? 

B or E *| 

238 I8-mKEYStIPI8»"B*ORI8-"b*THENMODES-*build" 

BLSEiri$-"E , ORIS-*e'THEN! , ODES-"edlt* 

ELS«P»IKT8135,"?"jjPORCC"lT058:NEXTCCiPRINTgl35," *>i 

FORCC-1 T05 « NEXTCC I GOTO 2 3 8 
248 PRINTCHRS(27) sPRINT'Nans for file you wish to "iHODESi'i 
"jiINPUTTS 
258 PRINT* 

Besides "iT$i" you stay also build the file *iT$(*/ALT": 
FORCC-1T08BB : NEXTCC 

268 CLSiF0RX-18TOll8STEPlfl:F0RY-8TO47:SET(X,Y) :NEXTY,X 
278 FORY-BTO40STBP8:FORX-0TO119:SET(X,Y) jNEXTX.Y 
288 ' 

Initialize cursor (XX, YY) is upper left point of box 

298 XX-6:YY-8:X-B:Y=e:I-8:J«8 
388 IPHODES-*edifTHEN2B18 
1880 ' 

Begin Loop for Keyboard Entry 

1010 X»XX+li Y»YY+J 'increment from upper 
left of box 

1020 SET(X,Y) :FORCO=1T025: NEXT: RESET (X,Y) 'flash cursor 

1038 P-PEEK( 14400) 'read keyboard 

1840 IFP-BTHEN1820 'no key pressed 

1050 IPP-1BTHEN24B 'begin again 

1868 IPP-8TH6NIFJ>0THENJ*J-1 'move cursor up 

1078 IPP-16THENIFJ<7THENJ«J+1 'move cursor down 

1888 IPP«32THENIFI>8THENI-I-1 'move cursor left 

1898 IPP-64THENIFK9THENW+1 'stove cursor right 

1188 IFP>9THENIFJ>0THENSET(X,Y) jj-j-l 'draw and move up 

1118 IFP-17THENIPJ<7THENSET(X,Y) :J=J+1 'draw and move down 

1128 IFP"33THENIPI>8THENSET(X,Y) : 1=1-1 'draw and stove left 

1138 IFP-65THENIFK9THENSET(X,Y) : 1 = 1+1 'draw and move right 

1148 IFP-34THEN122B 'move back one box 

1158 IFP-192THENZ=l:GOT01258 "draw and move to next 
box 

1160 IFP-66THENZ«B:GOT012S8 'move to next box 

1178 IPP-3THBN1298 'erase borders 

1188 IPP-129THEHTT$-T$:GOT0381B 'build file 

1198 IFP-130TBENTT$«T$**/ALT*:GOTO3010 'build alternate file 

1288 IFP-136THENCLS.-END 'exit program 

1211 G0T01II8 'return to begin loop 

1220 IFXX>0THENXX=XX-10ELSEXX-118:YY-YY-8 'back one box 

Program continues 



Program continued 




1238 


I F Y Y < 0THENY Y» YY ♦ 8 


'check if off screen 


1248 


I«8:J=i:GOTOHB8 


'no inct extent in box 


125S 


IPXX<110THBNXX»XX+10ELSEXX 


■0:YY«YY+8 'next box 


1268 


I FY Y >47TB ENY Y- YY - 8 


'check if off screen 


1278 


I«0:J=0:IFZ-1THENSET(X,Y) 


'draw point if 1-1 


1288 


GOT018BB 




1298 


FORII=0TO9 : RESET(XX+II ,YY) 


NEXT 'erase border 


1388 


FORJ J=8T07 : RES ET ( XX , Y Y+J J ) 


NEXT:GOT01B8B 


2888 


• 








rst build array j 




th 


en print characters 


2018 


OPBN"I",l,T$ 




2828 


X-BiY-7 


'first character bottom left 


2838 


INPUT* 1,K 


"number of characters 


2040 


DIHX(M,18) 


'store binary codes 


2050 


FORN-1TOM : F0RA-1TO1 




2068 


INPUT#1,X(N,A) 


'get binary codes 


2878 


NEXTA,N 




2888 


FORN-1TOK : FORNN- 1T01 8 




2898 


A-X(N,NN) 




2188 


PORV=7TO0STBP- 1 


'powers of 2 


2118 


U»INT(A/21V) 


'binary factor? 


2128 


A"A-U*2|V 


'remainder 


2138 


IPU-1THENSET ( X , Y-V) 






ELSER£SET(X,Y-V) 


'set if a factor 


2148 


NEXTV 




2158 


X -X+l : I FX-1 2 BTH ENX » B : Y= Y+ 8 


'next box 


2168 


NEXTNN.N 




2178 


CLOSE 




2188 


NODES'** 




2198 


GOT0298 




3000 


• 






Create file... first print 


number of characters 




then build binary totals for each 




character co 


lumn and add to file 


3010 


OPEN"O*,1,TTS:D»0 




3828 


PRINTtl , (YY/B) •12+XX/10 


■t of characters 


3838 


PORA=7 TOYY+ 7 STEP8 


'increment rows 


3848 


P0RB=8T0119 


'move along bo ton of boxes 


3858 


FORC=0TO7 


'move up each column of charact 


ers 






3868 


I FPOI NT ( B , A-C ) TH END-D+ 2 [ C 


'if point set, increment by tha 


t power of 2 




3070 


NEXTC 




3088 


L(B)-D 


'build array for each row 


3898 


D-B 


'reset binary counter 


3188 


NEXTB 




3118 


PORH=0TO119 




3128 


PRINTtl, L(H)| 


'add binary bit totals for thiB 


row 


to file 




3138 


NEXTH,A 




3148 


CLOSE 




31S8 


GOTO1030 


'back to loop 



Sample program to read in file of bit column codes 
and store them in array T( character t , column t) 

110 CLS: INPUT' Name of file containing bit graphics" jK$ 

120 CLS 

130 OPEN"I",l,H$ 

140 IHPUTtl,M 

158 DIMT(M,10) 



'H is t of characters 

'H characters , 10 columns per characte 



'increment characters 

'increment columns 

'read binary bit total for each column 



168 F0RA-1TOM 
170 FORAA-1TO10 
180 INPOTtl,T(A,AA) 
198 NEXTAA 
200 NEXTA 
210 CLOSE 
300 • 

Print characters by calling a subroutine 
W • 2 prints each column twice for double width 

310 F0RW°1T02 'once normal, then double width 

320 FORA=27TOlSTEP-ltGOSUB410sNEXTA: 

LPRINT* is the Hebrew alphabet.* 
330 LPRINT* 

Thank you very much *;: 

A»5 : GOSUB400 t A" 2 : GOSUB400 j A»25 : GOSUB400 t 

LPRINTSTRINGS(W,32);: 

A»5:GOSUB400xA"4:GOSUB408:A»6:GOSUB400:A»27:GOSUB40B 
340 LPRINT" 

Peace be upon you. *>: 

A»15:GOSUB400iA-ll:GOSUB400:A-10lGOSUB400s 
A»13:GOSUB400»A«19:GOSUB400»LPRINTSTRINC$(W,32) ;: 
A-15:GOSUB400:A"6:GOSUB400:A"13:GOSUB40B: 
A=26:GOSUB400: LPRINT: LPRINT: LPRINT 

350 NEXTW 

360 END 

400 ' 

Subroutine to print a bit-plot graphic character 



410 LPRINTCBRSI27) *L*> 

420 POKE14312,W*lfl 

438 LPRINTCBR$(25S); 

6 columns 

448 PORAAelTOle 

458 POKE14312,T(A,AA) 

468 IFW-2 

THENPOKB14312,T(A,AA) 'if double width then repeat 

470 NEXTAA 
488 RETURN 



'set printer to bit graphics mode 

■W columns per character 

'second argument since fewer than 25 

'10 columns per character 

'poke binary total to printer port 



Program Listing 2. Read File 



120 • 80 Micro, December 1982 



LECXONNAZRi: 




t 



i RISING 
STARS 




romeda 

ST 



y 



What some have called "the best kept 

secret in the game software industry". 

Unleashed here are six new software 

games blending advanced graphics with precise elements of 

playability. challenge and intense fun for every gamer's tastes. 

Beyond these six new games are 26 more for you to consider . . . 

all we believe are the best software values for your money! 



LEGIONNAIRE- Real time simulation of 
tactical combat in Caesar's time. YOU as Caesar 
command up to ten legions Finest full-color 
graphics plus playability way beyond the state 
of the art' Cassette . $35.00 

V. C— Faithfully recreates unconventional 
conflict in Viet Nam. YOU command chopper 
and artillery units, and face task of protecting 
civilian population where the enemy hides 
among the people. Cassette $20 00 

Diskette . . $25 00 



G.F.S. SORCERESS Sd Fi adventure game. 
YOU are Joe Justin trying to clear yourself of a 
false charge of mutiny and get back to the 
Galactic Federation Starship "Sor. i 
Beautiful full color manuals provide useful clues 
Cassette . $30 00 Diskette . $35 00 

ANDROMEDA CONQUEST -Vast scale 
space strategy game of galactic colonizing and 
conquest among unique star systems with 
strange life forms and alien technologies that 
provide exciting exploration and battle. 
Cassette . $18.00 Diskette . . . $2A 00 



' Trademarks for Apple Computer. Warner I MOM Tandv Corp 

International Business Machines am! Commodore International Ltd. 

Available at finer 
computer stores everywhere! 



Mii| 
illll 



MOON PATROL Arcade Pak™ game of 
lunar invasion. Beats any quarter gobbling game 
around' Four levels of increasing difficulty 
present new attackers to battle Fast furious and 
fun! Cassette $25.00 

TELENGARD — Dungeon adventure i 
mysterious underworld with 50 levels ot 
more complex mazes to explore Real time 
fantasy and role playing game Using wits 
magic and fast thinking, gamers fight monsters 
and reap valuable rewards. Cassette . $23.00 
Diskette . $28.00 

If your favorite dealer fails to have 
the games you want, call us toll free 



'830 



1-800-638-9292 



microcomputer games 
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The AVALON HILL Game Company 



Avalon Hill MICROCOMPUTER GAMES 
are compatible with the following computer systems 
App 
Atari 4 .'800' 
TRS 80 Models I III & Color- 
IBM P 
Commodore VIC-20. CBM PET & 200 r 



VL/VFi 



For specific information, such as 
machine compatibility, memory requirements. 

cassette or diskette availability and n 

call us toll-free 1 800 638 9292 and ask for 

Operator 10 or write to: 

Avalon Hill Microcomputer Games. Dept C 10 

4517 Harford Road. Baltimore. MD 21214 




LPRINT CHR$(27)"L" ; CHR$(1) ; 
: POKE 14312,0 : LPRINT 
CHR$(255). My program POKEs 
all values to 14312 to avoid 
these problems. 

Bit-Graphic File 

The first program sketches a 
giant model of each character 
desired. Using the arrow keys, 
space, Enter, and Clear In vari- 
ous combinations, you can 
move the cursor within each 
character, draw lines and dots, 
and move to a new box. Memory 
location 14400 scans all these 
keys; by PEEKing this location, 
the keys, individually or in com- 
bination, are sensed. 

To fit as many characters on 
the screen as possible, the 
border lines are part of the char- 
acter box. As the cursor moves to 
each box, erase the border lines 
by entering and clearing to avoid 
interference. Also to save space, 
the Instructions are produced on 
the printer. When forming 
characters, decide whether to 
draw a dot where the cursor sits 
before moving it to the next box. 



Pressing Clear and right arrow 
does not draw a dot before mov- 
ing, while pressing space and 
right arrow leaves a dot (see lines 
1150,1160,1270). 

When the characters are com- 
plete (see Fig. 2), a scanning rou- 
tine determines the bit-plot 
codes and prints them out to a 
disk file. Sometimes you cannot 
decide on the best form for a let- 
ter by looking at a giant model; 
an option builds two files. The file 
name asked for at the beginning 
of the program is used if you 
press space and Enter. Then 
modify the drawing and save an 
alternate version by pressing 
space and Clear. This file has 
the same name and /ALT as an 
extension (lines 1 180, 1 190). You 
can edit from one file and save 
the revised version to the alter- 
nate file. 

The file building portion of the 
program (lines 3000-3140) writes 
the number of characters to the 
file. Then the program scans the 
screen one line at a time, and 
computes the binary bit code for 



each column (lines 3030-3100). 
Because the Point command 
works rather slowly, the disk 
spins for several minutes if each 
code is written as it is computed. 
By storing the codes in an array 
(line 3080), an entire line of 12 
characters is written to disk at 
once (lines 3110-3130). 

Bit-Plot Graphic Characters 

The second program reads the 
file created in the first program to 
build an array containing the 10 
column bit codes for each char- 
acter (lines 160-200). A subrou- 
tine at lines 410-470 prints each 
character. The calling sequence 
Is as I stated at the beginning of 
this article: control L, and two 
arguments sent to the printer. 
The first argument Is POKEd, as 



it may be 10. The second should 
be a zero, but since you cannot 
LPRINT CHR$(0), the printer 
allows substituting CHR$(255) 
for CHR$(0). You could also 
POKE this value to the printer 
port. The variable W (lines 310, 
420, 460) allows double width let- 
ters by printing each column 
twice. You could form triple-size 
letters similarly, although they 
would look grotesque. 

The sample printing routines 
(lines 310-350) demonstrate 
ways to call the subroutine. 
First, every character is printed 
(here in reverse order, as He- 
brew Is read from right to left); 
then selected letters are chosen 
using the number order in which 
they were read from the disk 
(see Fig. 2). ■ 



.no-iin jrraye I jo:r»i:3'on> ■ v» zh i* tn« HtbrtM #]p*«b*t. 

riijmfc you v»r y «uch ~-~ " n 

P»*c» b« upon you E3"*-' D1"*B 

nuj nT?v^"~133^i^i j d a-r» 13- un> i n~i ' a » 

Th«nt you v»» y Much, .""~1 Z3 ~t ."" 1 ~T 1 n 

P»«c» b» upon you C3^3 ~ -^-* U l -*L1 



I'tlir *M «lp>>«b*t. 



Fig. 2. Sample Printout 







Raider* 

Not just another invaders type game 
We think this one is the best- 
great action, great sound, you'll love it" 

CASSETTE (16K) .... $24 95 
DISK (32K) . ... $29 95 ^^^ 




Outsmart the DISC (32K) 
creatures that pursue 
you as you hunt for 
treasure m a maze of 
cave passages Lots of 
• colors and sounds' 
CASSETTE (16K) $24 95 
DISC (32K) $29 95 



HAyWfflE 



They recalling 
this one a classic ' You'll * 
have hours of fast-paced fun 
zapping robots Super hi-res action 
CASSETTE (16K) $24 95 
$29 95 



A new super hi-res space game 
Wave after wave of alien attackers 
each one a different and unique challenge 
to your skills 
CASSETTE 1 16K) $24 95 
DISC |32K| S29 95 




& 



& 



^ 



Q>» 



w> 



1$^ 




OS' 



.0* 



10< 



US' 



»yo*: 



^^^*& *&m. ^IL Elie Slack *anctum 

^^^ *\.^l^* 4t_^ ^^"**43/2^Z>"-^ Fc " ,he P"'V er *ho enjoys suspense 

^^^%" \?3 A challenging puzzle You'll encounter the forces of black 

f»^ with an occasional twist of humor magic in this spooky adventure 

^^ There s a treasure waitina to he fli«-.r««>rMli .-..i-.-r-.Tr ,.r^, r.r»r.r 



v» 



For the player who enjoys suspense 
You'll encounter the forces of black 
magic in this spooky adventure 

CASSETTE (16KI $1995 



IARK DATA PRODUCTS 23802 BARQUILLA, MISSION VIE JO, CA 92691* (714) 768-1551 



We pay shipping on all orders in the continental U.S. and Canada Overseas add $3 00 California residents 
please add 6% sales tax. We are always looking tor quality machine language programs Contact us for details. 



\ MASTER CHARGE r^ 
" OR VISA ACCEPTED t _' 
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Circle 250 on Reader Service card 



the ultimate games 



and 



llNCREDIBLI 
REAL-TIME! 
GRAPHICS' 



STATE 
OF THE 
ZARTCAME^i 



T~ A 



STRIKE FORCE 

STRIKE FORCE is the ultimate challenge in arcade action - bent on 

destroying your concepts about game software! Skill, cunning and 

lightning fast response and a keen sense of strategy are not just 

important -they're imperative to your life and the lives of millions 

of city dwellers' 

Armed with rapid-fire missiles, long range radar and incendiary star-shells 

you'll need breathless speed Just to survive. 

STRIKE FORCE, stretching your skills and imagination beyond this planet. 

is undoubtedly the fastest and most complex game you will ever seel 

Strike Force is joystick compatible and includes a 

color booklet Available as 

16K IRS Model l III cassette 26542 $15 95 

32K TRS Model I III protected diskette 26734 $19.95 




PENETRATOR 

"Penetrator is a state-ot-the-art game. You are the sole survivor of a fighter 

squadron whose mission is to make It through four defense rings and 

blow up an illegal cache of neutron bombs. The landscape is as 

treacherous as your enemies .. this is where the best feature of Penetrator 

comes In: You make custom landscapes to suit your ability. . remove 

difficult areas and add or subtract missiles and radar bases. 

"Another good feature is the training mode... The sound is great... 

Penetrator is a very well done game program and worth the 

asking price." Review. BO Micro September 1982. 

Penetrator is joystick compatible and Includes a 

color booklet. Available CM: 

16K TRS Model I, III, two-cassette pack 26518 $24 95 

32K TRS Model l/lll protected diskette 26710 $24 95 



W 



Please add $2 per order tor shipping, foreign orders add $6 Residents of AR, CA. KY. MD. NC, TN, please add applicable sales taxes 
visa Mastercard accepted -write In with card no and expiration date or order by phone (615) 361 3738 
Dealer oraers only coll TOLL FREE (800) 251 5900 -ask for a Melbourne House operator 



MGlbOlirnG HOUSe SOftWare llIC, Dept.CS.;M7ReechvoodDrive,Nashville.TN37217 



t IPS i* o trademark of the lanoy Corporation 



• 250 



*r 







^v:.^ 



*° v o<*v* 
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The Black Hole. Apple Panic, Bable Terror, and Mad Mines, copyright 1982 by Funsoft TRS-80 is a trademark of TANDY/RADIO SHACK. 



UTILITY 



Eliminate unnecessary Model II forms messages. 

Forms Cleanup 



Jim Barbarello 
RD #7 Box 241 H 
Tennent Road 
Englishtown, NJ 07726 

The current Model II Disk 
Operating System (TRSDOS 



The Key Box 
Model M Basic 
64KRAM 
Model II 
TRSDOS 2.0a 
One Disk Drive 
Printer required 



2.0a) contains a commonly used 
library command called Forms. 
Forms initializes the printer- 
driver software, and skips a 
preset number of lines after a 
specified number of lines have 
been printed. 

A printer-driver initialization 
such as Forms should always 
be executed immediately before 
printing a report to ensure that 
the printer starts at the top of 
Forms. Unfortunately, Forms 
automatically prints a series of 
messages on the screen which 
the operator must answer in a 
specific manner. 

Aside from messing up an 



T98-88 


nod.i II DEBUG PfMrj. 




28M 


CS 7F 2E 50 


44 70 44 £3 43 10 43 5B 47 DB 5E 58 


. . . -DlD^C.EPC. •« 


281* 


61 F8 30 09 


4E C8 4F 83 41 Si W 3C 58 41 SB CF 


». :.N. Q.O»0<PB». 


282* 


■ itaa 


61 C! 61 C6 61 33 £5 86 65 99 65 B7 


e> . P. 4. 4. »I#. *. 4. 


283* 


ei oo si oo 


61 50 44 91 44 »0 44 00 45 EI 5C 08 


«. 4. 4*0. D-D. E. •. 


2MB 


an eb so E5 


SO 01 5D EF 5C FF 5C 2E 3D 47 5D " 


1. 1. 1. •. *. *. *-G»w 


2BM 


ansa 


4E 44 C6 4F 52 CI 4C 51 0; 41 4E 44 


». *.N0.OB.LS. OND 


2 868 


4F 4D CE 45 


38 54 C4 41 54 41 C9 4£ 58 35 54 C4 


on. eit. oio. nP'jt. 


2870 


49 4D D2 45 


41 44 CC 45 54 C7 4F 54 4F D2 SS 4E 


in. EBD. ET.OTO. UN 


PC 


8P S7.HPNC 


OF K DE ML II 11 OF' BC" 


DC' ML" 


28M 

1 r 

DEMO 


21 FE BB— OB 


BBBB Beee MM MM MM MM MM MM 


Beee bbbb 


* no- ON 






TRSDOS 


WEOOY 






DEBUG 












Figure 1 
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Figure 2 



otherwise meticulous screen 
presentation, the Forms mes- 
sages can confuse the operator. 
Fortunately, there is a much 
simpler way of performing the 
required initialization function 
while also eliminating Forms' 
drawbacks. 

FRMS 

FRMS is a short machine-lan- 
guage program that allows you 
to set the number of printed lines 
on a page and maximum charac- 
ters per line (the maximum page 
length is preset at 66). FRMS is 
simple to use and completely 
eliminates the annoying and 
sometimes confusing Forms 
messages. No operator interven- 
tion is required to use FRMS. 
Since FRMS acts instantaneous- 
ly, the operator has no indication 
that a Forms Set is required or 
being performed. 

FRMS initializes the printer- 
driver parameters indicated 
above but does not check the 
printer's status. The line printer 
need not be on-line when FRMS 
is executed. Before you can use 
FRMS, you must perform three 
one-time tasks: 

• Create the machine language 
program (FRMS). 

• Save the created program 
on disk. 

• Incorporate the necessary 



—Circle 391 on Header Service card 



Basic statements in the target 
Basic program. 

Creating the Program 

We will use Debug (see pages 
86-92 of the TRS-80 Model II 
Disk Operating System Refer- 
ence Manual) to place the pro- 
gram into memory. Begin by 
starting up the Model II with a 
System disk. After entering the 
date (required) and time (option- 
al) you will be in the TRSDOS 
Ready mode (unless the disk 
contains an auto startup pro- 
cedure. If you automatically 
enter Basic, simply type 
SYSTEM and press enter and 
you will return to the TRSDOS 
Ready mode). 

Enter Debug On and then enter 
Debug. The screen will appear 
similar to Fig. 1. Press M (to ex- 
amine and change memory). The 
question mark prompt on the 
screen will be replaced with "M 
A = ....". Type FOOD. The first line 
on the screen will be similar to 
Fig. 2. Now press the F1 key. The 
cursor will move to the first dis- 
played number on the FOOO line. 
Type in the following 18 char- 
acters exactly (do not press enter 
or the space bar): 

56234E06083ET1CFC9 

Review the screen. If any 
80 Micro, December 1982 • 125 



character is incorrect, use the 
right or left arrow keys as nec- 
essary to position the cursor 
over the incorrect character. 
Then retype the correct char- 
acter. When all characters are 
correct, press the F2 key to 
enter this program into memory. 
Now press O (not zero) to turn 
Debug off. The FRMS program 
is now stored in memory. (This is 
a demonstration version which 
we will change later.) 

Saving the Program 

Next we will use the library 
utility Dump (see page 102 of the 
TRSDOS manual). Enter DUMP 
FRMStSTART = F000,END- 
= F008|. After some time, you 
will see "TRSDOS Ready." Type 
DIR and press enter. Your direc- 
tory listing will now include a 
new file named FRMS. 

Using FRMS in a Basic Program 

Type BASIC and press enter. 
When you see Ready, type AUTO 
and press enter and then enter 
the program shown in Listing 1. 

Enter SAVE"FRMSTST". Af- 



ter the test program has been 
saved and you have turned on 
your printer and put it on line, 
run the program. Enter 2 as the 
number of lines, and 3 as the 
number of characters per line. 
Enter 123456789 as the test line. 
Your printed output will show: 

123 
456 



Now enter 2 as the number of 
lines and 9 as the number of 
characters per line. Again, enter 
123456789 as the test line. Your 
printed output will now be: 



No top of form was performed 
as before. 

Now that we know the FRMS 
program is working properly, we 
must modify it. When we per- 
formed the first test above, six 
blank lines were printed be- 



5© 




Color Com., 



v 



tween the 456 and 789 because 
we set our page length at eight 
lines for demonstration pur- 
poses. We will now use Debug 
to modify FRMS for a 66-line 
page length. 

Changing the Demo 

Enter SYSTEM to return to the 
TRSDOS Ready mode. Type 
DEBUG ON and press enter and 
then type DEBUG and press enter. 
Type MF004 to go to the memory 
location of the byte that must be 
changed. Press F1 to move the 
cursor to the F004 presentation 
line. Now type 42 (since 66 
decimal equals 42 hex) and then 
press the F2 key to store the 
modified information into 
memory. Press O (not zero) to turn 
Debug off. Finally, enter DUMP 
FRMS|START= F000,END = 
F008I to save the modified FRMS 
program. 

Using FRMS in 
Your Basic Programs 

You may use the current ver- 
sion of FRMS in any Basic pro- 
gram that does not require the 
use of any TRSDOS high memory 
modules or other machine-lan- 
guage programs. If this is a re- 
quirement of your Basic pro- 
gram, I will discuss later how to 



2 



Are you tired of searching the latest magazine for articles about 
your new Color Computer? When was the last time you saw a 
great sounding program listing only to discover that it's for the 
Model I and it's too complex to translate? Do you feel that you are 
all alone in a sea of Z-80's 9 On finding an ad tor a Color Computer 
program did you mail your hard earned cash only to receive a 
turkey because the magazine the ad appeared in doesn't review 
Color Computer Software? If you have any of these symptoms 
you're suffering from Color Computer Blues! 

But take heart there is a cure! 
Its COLOR COMPUTER NEWS. 

The monthly magazine for Color Computer owners and only Color 
Computer owners. CCN contains the full range of essential 
elements for relief of CC Blues. Ingredients include: comments to 
the ROMS, games, program listings, product reviews, and general 
interest articles on such goodies as games, personal finances, a 
Kid's page and other subjects. 

The price for 12 monthly treatments is only $21.00 and is available 

from: 



fffi 



mt 






\ 



RKMarkable Software 

P.O Box 1192 
Muskegon. Ml 49443 s 145 



NAME 

ADDRESS 

CITY 



State 



Zip 



Allow 8-10 weeks for 1st issue 
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relocate FRMS and reserve a 
memory area for it. 

The FRMS program must be 
on the same disk as the Basic 
program which will use it. Use 
the TRSDOS library command 
Move (see pages 120-121 of the 
DOS Reference Manual) to 
move FRMS to the disk which 
will contain the Basic program. 

Next, you must select three 
variables (one must be an in- 
teger variable) that will not be 
used in the remainder of your 
Basic program. Our demonstra- 
tion program used FL, FC and 
A%, but you can use any 
variables. As an example, we 
will specify Z1 %, ZL and ZC. 

The first required statement 
for your Basic program is 
DEFUSR0 = &HFOOO (the "zero" 
in DEFUSR0 is optional). This 
should appear early in your pro- 
gram. This statement tells the 
computer that you plan to call a 
machine-language program us- 
ing the command X = USR0 
(variable), and that this machine- 
language program will reside in 
memory starting at location F000 
hex (the "zero" in USR0 is also 
optional). Next, load this pro- 
gram into memory. The Basic 
program must include SYSTEM 
"LOAD FRMS". This statement 



10 


DEFUSR = &HF000ON ERROR GOTO 90 






20 


SYSTEM"LOAD FRMS'' 






30 


INPUT'Enter Number ot Lines per Page 


:FL 




40 


INPUT 'Enter Number of Characters/Line. 


":FC 




50 


A% = FL-256 + FC 






60 


X = USR(A%) 






70 


PRINTLINE INPUT'Enter Test Line tor Printing... 


;TL$ 


80 


LPRINT TLS PRINT:PRINT:GOTO 30 






90 


RESUME 30 






100 


(press the break key when 100 appears} 
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i-SOGPfWMER: J. hOBBQRE ll 




ooe^e 




LO'EST UPDATE: • 0. 6 NOV 1981 




00et.11 








ece'j 


lOHS 


HOC": •" * Brotra* oBli.ru •_*» ■ Char. p»r 




jaece 




lie* I'd*. bV.» nto re«<«t*r 0> ana th« 




00090 


: k 


•*.*. p*-r r>aq-~< '..9>i .-.td»f t»rt? into '*• vt#f C 1 




aoioo 


w rwi 


•.*• KASir P. :.».«.. ul.'i USO ' - r USR0 ■ . It -r~»r 




00: 10 


: p»> 


CM • FORMS SET K.twjt 1W l»TO„M O-OKOU 




iv i -e 


: t<>* 


mutt be a*%w*'»d by In« .b#'ator. Na*.r*u« 




00170 


1 . r « 


S o*r Dlft <>»*.**.•' B> S P'*S»t *t 66. 










FMC 


.vi-,< 


ORG 


0FB00H :PRO&«0" 'jIOStc, ui b | Ui ,B DECIMAL 


r eee 5£ 


001 60 


. D 


0. IHI ■ :* CHOR/LIN£-->D i LOU ORDE» BYTE' 


F0*1 27 


001 '0 


: mc 


HL JPQINT "0 NEi' MEMORY ADDRESS 


r i»: oe 


00180 


D 


C. 'Ml. :• ,_INES<PAGE-->r i"1GM ORDER BYTE' 


Fee', e&a? 


001S0 


ID 


661 :E,6 _INES PER ^AGE 


F0»r3 JEl! 


0P2BO 


L0 


0.1' :SVC • 1» 'PRINTER lNITIQl!7P.'lmi 


F007 CF 


00210 


RSI 


Ei IFXECU'E SVC • IT 


FB0fl C9 


.V. . .1 


«£T 


IRtTuRN T FtQSIC PROGRQ>- 


PMC 


00270 


[MO 


0I-000H 


0B000 'OI c*. 


ERRORS 






Program Listing 2. Assembly language version of FRMS 
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STOCK MARKET DATA 
over 20 YEARS on 
DISK or TAPE 

NOW AVAILABLE - 

OVER 2 YEARS OF WEEKLY OR DAILY 
CLOSING PRICE DATA ON DISK OR TAPE 
FOR Tt-ESE PROVEN MARKET INDICATORS 



I 9 62 



I 982 



• DOW JONES irOUSTRIAL 

• DOW JONES TRANSPORTATION 

• DOW JONES UTILITY 

• ST AMD ARD AW POOR S 3 

ALSO INCLUDES- 

PROGRAMS TO MAINTAIN THESE FILES, 
CREATE FILES FOR YOUR OWN STOCKS, 
AND SAMPLE P ROG RA MS ILLUSTRATING 
RUNNING AVERAGE AND CYCLIC MARKET 
ANALYSIS TECHNIQUES. 

WEEKLY DATA 

- 101 MODEL l/lll CASSETTE. f 3 4. tt 
O 102 MODEL III DISKETTE. .$)*.%» 

□ 101 HARDCOPY PRINTOUT. . . . f 2 2 . M 

DAILY DATA 

□ 104 MODEL l/lll CASSETTE. $44. ft 

- 103 MODEL III DISKETTE. . «44. 91 
Q 10 4 HARDCOPY PR I NTOUT . . . . S ] 2 . • • 

FREE SHIPPING WITHIN CONTINENTAL USA 
(ADD 10% FOR SHIPPING ELSEWHERE) 
24 -HOUR TOLL-FREE ORDER LINE 
(HPB | -800-227-3800 EXT . S 4 2 



YOUNG IDEAS, INC. 

** 172 

)■( N. NEW BALLAS • SUITE J10 
ST. LOUIS. MO 11141 



This Smart Little Rogram Lets 
YouTalk Backlo Big Computers. 



Scripsit,™ Pencil/* 

BASIC and source 

code files. 



Continuous 
status display. 



User-defined sign-on _ 

Handy menu and communications Transmits 

of commands. settings. special and control 

characters. 

-friendly 
operation. 




computers and a variety of bulletin board systems. COMMWHIZ'' is so simple to 
use, you'll wonder why it hasn't been done before. Vet it offers professional ter- 
minal capabilities to Mod I and Mod III users who have 32K with one disk or more. 
And at $79.95 post-paid, talk is cheap. Specify Mod I or III VISA, M/C accepted. 
(VA residents add 4% sales tax.) All popular DOSs/ Cassette Vers. Avail. /Includes 
free auto file xfer prosram. From Dr Dobbs Journal review "We reccommend 
COMMWHIZ . . both powerful and easy to learn . a fine and truly 'smart' terminal 
program which we will continue to use its creators are responsive, helpful 
and available.'' Source -TCV527. CompuServe -70220, 235 
Fall Discount Combo: Hayes Smartmodem & COMMWHIZ - $299 plus shipping. 

VolksMicro Computer Systems Inc. — 

202 Packets Court, Suite C, Williamsburg, Virginia 23185 804-220 0005 



TRSBOati M , : o» the fenOy Corp Elec 



ael ivayer Software Inc. 



" My brand of per sona l service 
makes Corvus the best mass- 
storage system you can buy. ' ' 



"A system is only as good as 
the company you buy it from or 
the quality of its service. When 
you buy a Corvus system from 
me, I guarantee that quality. I do 
it in the only way possible . . . with 
my brand of personal service. 
That's what makes Corvus the 
best brand on the market. Ask 
our customers. They know 
Corvus. And they know my 
work." 




Corvus connects with:' 

* Corvus Concept 

* Omninet/Constellation 

* TRS80 

* Apple 

* IBM 

* Xerox 

* Zenith 

* Commodore 

* S-100 

* LSI-11 

ARM disc subsystem also available 
Specializing in N.E. Corridor 



(212) 236-3173 



LAWRENCE S. EPSTEIN ASSOCIATES 

1669 59 Street, Brooklyn, NY 11204 



-392 



telex 238-790 (NYK) 

t Registered Trademark 



• See List of Advertisers on Page 45 1 
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GRAPHICS ENHANCED BASIC He-e is the package you have been 
.vaitmq tor' NOW you can use the riot graphics capability of your printer 
GRAPHICS ENHANCED BASIC will alio* you to make use of the h.gh 
resolution riot qraphics capability ol MX BO .with CRAFTRAX" C ITOH 
8510 or NEC printers other printer suppoit sooni GEB eliminates the 
frusti dtioii and dtudqery nl usmq dot graphics by providing easy graphics 
commands which may be used in your BASIC program GEB eitends the 
BASIC languaqe with NEW graphics commands 

GEB allows the addressing nt up to 65636 bytes of virtual graphics memory 
thats nver half a million dots' All ol this costs you as little as 8K of your 
RAM memory GEB permits you to set values for the management of the 
virtual memory so that it can be tailored to work in harmony with your 
BASIC program 

Eiamp-'es of the GEB commands are PAGE LIMIT which allows you to set 
the si/e of the graphics page AREA whu h scales your data In the graphics 
page CUP which allows you to define a clipping rectangle and MOVE 
DRAW PIITDOT TEXIar.dPIOT There are also transformation calls 10 
allow scaling, rotation and origin translations as well as a command lo 
allow you to send control codes directly to the printer without interference 
from the punter driver GEB can be user! with TRS DOS' I DOS* and 
NEWDOS80* For use on Model I nr Model III with 48K and disk drive 
If yuui svsiein is not available please request it GEB manual only $15 

GRAPHICS ENHANCED BASIC GEB 01 lo. Model I or III s69 95 

" 'AS DOS is Hade mark it Rarim Stum I -ii I DOS 's trademark ot I oqicai SrMems 
If. NtWOOS 80 s •■arlemar. r' Appa'.i CRAFTRAX is Hartr-ma-k ol Epson 

TO ORDER CALL 505; 255-6451 

Monday thru Friday 1 1 00 am to 7 00 prn Mou'it.t n time 

Master Card and Visa accepted • Dealer nqumes are invited 



,UTEL 
•LECTRONIC co 



MICRO COMPUTER SYSTEMS AND SUPPLIES 

'46 Wisconsin. NE Albuquerque New Mexico 8 7 1 08 




The Magnificent 
WORD PROCESSING SYSTEM 



For the TRS-80 Model I and III 



Writ**" ""■ ■•* Z90 machine lan-jueoe 

Smgfe hey control o* •*' editing funclnx^s *o* Mir 

Of UM 
' Dynamic display ol word count hn« count and tree 

mamory count 
' Superscripts, subscripts, underlined botded ti- 

panded «nd condensed lype styles combina and 

intarrms within a lina 
' AutomaticaMy juatrftds and word-wraps on tha screvn 

as you typa 

■ Search Replace and Global Search and Hep*ece 
• Odd and even pep* user-defmaoie headers footers 

and page n^w-fte* i.nas 

■ O*er-de*meow •■"■espeong snpet ui* top W* and 



MO** b*OCk 



I'pm o>s» to ! 



■ dtM d<racto*> on an* diss and ki-i *'-es 
wn.ie ad"'«ng 
Full scntan ed-ling o' EDTASM and B*SC »■* f »es 



Auto*"*!* 'enjmOe'.ng tor EDTASM and BASK 

mm 

Print contents, o* screen function 

Pr.nt previewing formats ie«i inserts headers ni>™ 

bars pages ale on tha scraan without printing 

on paper 

Page by page pausing capability tor sheet ted 

printers 

Supports bom parallel and senai printers 

Printer control code access 
1 Supports proportional space justifying on 

Cantfon.cs "3? ?39 L'ne Pr.nte* iV Da-*, Wnaei i 

Dcabio Oume Stan»nier Spma-'tter C Ho*- 

P-ow'-ie* NEC PC-6023A C TEC »0O*» 
■ Alto Supports Spat ai 'u^ciioniotMicol-ne Ml St 

Mi '00 a^d G'a^'a* P'o* 
i Ar, cna'actar y Sr"*bOl fOu- P'-nte* tM- p- -• 

accessab*e •■tt* :**e Spec.ai Cnareeie* **•!-'* 
< Moti w«* NEiAiDOS NEiA-OOSaO trsoos 

LOOS ana DOSPLUS S.-g.e or Double De~s.t, 



GUARANTEE 



Many word processing systems claim theirs are the best, but tew would 
dare to guarantee them Not us! We are confident that ZORLOf is the 
most useful word processing system on the market for under $200 00 
If you don't agree, return rt within 30 days for a full refund 



CAll (305) 259-9397 



-■■:.: : : < 



ANTTEK SOFTWARE PRODUCTS 3PO BOX "36 C MELBOURNE FL 32S35 □ i30Si2S9-939 - 



need only be executed once. 
Locate it immediately after the 
DEFUSR command. An early pro- 
gram line such as 20 DEFUSR 
= &HF000: SYSTEM'LOAD 
FRMS" would be perfect. Next, 
create a subroutine to access the 
FRMS function. It can begin at 
any line. I suggest the sample 
routine in Program Listing 3. 

Then at any point in the pro- 
gram, you can perform the 
FRMS function by simply iden- 
tifying the number of lines per 
page (ZL), the maximum charac- 
ters per line (ZC) and performing 
a GOSUB 60000. An example is 
shown in Program Listing 4. 

To use FRMS you must per- 
form these four steps: 
a Include the FRMS program on 
your Basic program disk, 
a Include DEFUSR = &HF000: 
SYSTEM'LOAD FRMS" as a pro- 
gram line. 

a Include the machine lan- 
guage Forms Set subroutine as 
shown in Listing 3 in your Basic 
program. 

a Specify ZL and ZC. Then 
GOSUB 60000 (Forms Set sub- 
routine). 

If you require a page length 
other than 66 lines, you can 
modify FRMS as we did above. 
For instance, you could change 
the 42 at memory locations 
F004-F005 to 3C (3C hex equals 
60 decimal. This sets page 
length to 60 lines). After saving 
this modified version (call it 
FRMS60) using the Dump com- 
mand, use "SYSTEM"LOAD 
FRMS60-" in your Basic pro- 
gram to load the correct version. 

Relocating FRMS 

In the normal Basic mode, 
memory top is set at EFFF hex. 



This leaves the memory from 
F000-F800 free for TRSDOS 
high memory and other ma- 
chine-language programs 
without having to set user 
memory (F801-FFFF is the 
screen memory area). However, 
you may reserve extra memory 
upon entry into Basic and avoid 
any chance of memory conflict. 
To show this, I will relocate 
FRMS so that it loads into a pro- 
tected memory area. Follow 
these steps: 

a Start up the computer with a 
System disk containing FRMS. 
ewhen "TRSDOS Ready" ap- 
pears, type LOAD FRMS and 
■)ress enter. 

a Enter DUMP FRMSP iSTART 
= F000, END = F008. RELO = 
EFF6I. 

eType DIR and press enter. 
Note you have a new directory 
entry (FRMSP). 

e Enter AUTO BASIC xxxxxxxx/ 
yyy -F:n -M:61429 <E> where 
xxxxxxxx/yyy is the name of a 
Basic program you wish to load 
and run automatically upon 
startup (this is optional. If not 
needed, leave one space after 
Basic); n is the number of disk 
file buffers you want available 
(this is also optional). 
a Replace DEFUSR = &HF000: 
SYSTEM "LOAD FRMS" in your 
Basic program with DEFUSR = & 
HEFF6: SYSTEM'LOAD FRMSP" 
(P means protected). ■ 



Jim Barbarello is employed 
by the US Army Communica- 
tions Electronics Command. 
His hobbies are music and 
woodworking. 



60000 REM* * MACHINE LANGUAGE FORMS SET SUBROUTINE 
60010 Z1%=ZL*256+ZC 
60020 ZC = USRfZI ".|:RETURN 

Program Listing 3. Forms Set subroutine 



4123 ZL=M:ZC = 132:GC*SUB60000:REM** 60 UP. 132 C/L CHOSEN •• 

4124 GOSUB SOOftREM" PRINT REPORT »1 " 

4125 ZL = eOZC=80-GOSUB60000.REM'" TOP OF PAGE RESET.80 OL 

4126 GOSUB 6000f> REM" PRINT REPORT* 2 " 
etc 



Program Listing 4 



128 • 80 Micro, December 1982 



Circle 109 on Reader Service card — 
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CYBORG A TRS-80 Classic by Bill Dunlevy and Doug Frayer. "Incredible graphics", The screen slides smoothly in all directions. "Mind boggling 
speed" put your Anti Grav sled in fourth and you will see what fast graphics are. This is not a worked over arcade game: it is something totally new This 
game has more new features then any arcade qame ever written for the TRS-80. 
TAPE . . . $19.95 DISK $24.95 

JOVIAN Another hit from Dunlevy and Frayer using the fantastic new graphic techniques developed in CYBORG and expanded upon in JOVIAN' 
Mission: Destroy Jovian space stations while fighting alien space ships and dodging asteroids and space mines. 

AR AC H N I D Written by Charles Quante. A real time arcade game with great graphics and sound. You must shoot the spiders before they get you' 
Arachnid comes in a special arcade package with two other programs BAJA a car race game and WARZONE a strategy game. Three excellent and 
totally different games for onfy $27.95 disk or tape 



Order from you favorite dealer or call Toll Free: 
1-800-392-8881 



1691 Eason • Pontiac. Michigan 48054 (313) 673-2224 



SERIES 
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Inside Scripsit— Part 



by Craig A. Lindley 



F 



ree your CPU from slow peripherals! Use your 
knowledge of the features and functions of 
Scripsit to write a spooler /despooler program. 



In the first two articles in this series 1 
showed how Scripsit was internally 
constructed and how to modify it to 
add features and functions to enhance 
its operation. In this part I will show 
you how to write a spooler /despooler 



that frees your computer from printing 
so it can accomplish other tasks. 

Spool stands for simultaneous pe- 
ripheral output overlap. This tech- 
nique is used in large computer systems 
to increase throughput. It frees the 
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Program Listing 1. 


Spooler 




















00110 


. * » * 


PRINT 


SPOOLER 


UTILITY 


*** 




01120 


. ••• 


SCRIPSIT 


FILE SPOOLER VI . *** 




00130 


• *•* 




NOVEMBER 11 


, 1981 


*** 




00140 


- • * * 






BY 




• *• 




00150 
00160 
00170 
001B0 


. •• • 




CRAIG A. LINDLEY 


**• 
































00190 
00200 
00210 


; SYSTEM 


EQUATES 










; 












0033 


00220 


CHROUT 


EQU 




0033H 




CHAR OUT ROUTINE 


4428 


00230 


CLOSE 


EQU 




4428H 




CLOSE FILE ROUTINE 


01C9 


00240 


CLRSCN 


EQU 




01C9H 




CLEAR SCREEN ROUTINE 


4020 


00250 


CURSOR 


EQU 




4020H 




CURSOR ADDR STORAGE 


0060 


00260 


DELAY 


EQU 




0060H 




DELAY ROUTINE 


4409 


00270 


ERROUT 


EQU 




4409H 




DOS ERROR OUT ROUTINE 


4420 


00280 


INIT 


EQU 




4420H 




INITIALIZE DISK FILE 


0049 


00290 


KEYIN 


EQU 




0049H 




KEYIN ROUTINE 


442C 


00300 


KILL 


EQU 




442CH 




KILL DISK FILE 


4430 


00310 


LOAD 


EQU 




4430H 




LOAD CMD FILE ROUTINE 


FCFF 


00320 
00330 


MEMSIZ 


EQU 




0FCFFH 




DESPOOLER MEMORY 
PROTECT LIMIT 


6BC8 


00340 


OPCMDL 


EQU 




6BC8H 




SCRIPSIT OUT MSG ROUTINE 


40 2D 


00350 


OPSYS 


EQU 




402DH 




REENTER OP SYSTEM 


441C 


00360 


PARSE 


EQU 




441CH 




PARSE FII.ESPEC ROUTINE 


002B 


00370 


SCAN 


EQU 




002BH 




SCAN KEYS ROM ROUTINE 


523F 


00380 


HP 


EQU 




523FH 




SCRIPSIT ENTRY POINT 


4439 


00390 
00400 


WRITE 


EQU 




4439H 




DOS WRITE DISK FILE 


7 AM 


00410 
00420 


' 


ORG 




7AA6H 




Listing i cvmimm 



CPU from driving a slow peripheral 
device such as a printer. The data des- 
tined for the peripheral device is sent 
either to memory or a storage medium 
(spooled) until the peripheral device is 
ready for it. The data is then trans- 
ferred to the peripheral device (de- 
spooled) as it is required at the rate that 
the device can accept it. By doing this, 
the CPU is free to process other higher 
priority tasks. In the TRS-80, the CPU 
can run other programs while the de- 
spooler is out putting characters to the 
line printer during the 25-microsecond 
interrupt time. The despooler is termed 
a foreground task because it operates 
during interrupt time. The program that 
is running (and interrupted by the de- 
spooler) is called the background task. 
The Scripsit Spooler/Despooler 
consists of two programs. I didn't 
want to add any additional features to 
the Scripsit modification program pre- 
sented in the last article because it 
would reduce the text buffer area. In- 



The Key Box 



Model I 

32K RAM 

Assembly language 

One disk drive 

Scripsit, Editor/ Assembler and 

Printer required 
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stead I developed a new modification 
program for Scripsit with only the 
spool and underline functions added. I 
do all the text entry and editing with 
the modification program presented in 
the second article. This new modifica- 
tion program spools the printed result. 
I had to implement the underline 
function in the spooler modification 
program so you can spool files that in- 
corporate this feature. If you want to 
perform word processing while de- 
spooling you must also use this new 
program (without all of the enhance- 
ments) because the unmodified Scripsit 
program and the patch program pre- 
sented in the last article turn off the in- 
terrupts, thereby stopping the despool- 
ing process. 

Spooler Operation 

The spooler program is shown in 
Program Listing 1. Execute the pro- 
gram as a DOS command file by enter- 
ing SSPOOL. The program's execu- 
tion begins at the label Start shown on 
the listing. When executed, the screen 
clears, the sign-on message is displayed 
and the file SCRIPSIT/LC is located 
and loaded. If you use only the upper- 
case version of the Scripsit program, 
change the file extension on line 500 of 
Listing 1 to /UC, for proper operation 
of this program. 

After Scripsit is loaded, it is patched 
extensively to allow the spool program 
to function correctly. All three places 
in the Scripsit program that read the 
status of the parallel printer are patched 
with the following code: 

LD A.30H jPrinter ready status 
NOP ;Fili empty byte 

so the printer always appears ready to 
the Scripsit program. 

All five places in the Scripsit pro- 
gram that output a byte in the A 
register to the printer are patched with 
the following code: 

CALL SPOOL ;CalI Spooler subroutine 

so the spooler program receives all 
printed output from the Scripsit pro- 
gram. The End routine is modified so it 
jumps to the CSPOOL routine, which 
closes the spool file before you leave 
Scripsit. After the spool file is closed, 
you are returned to DOS instead of the 
reboot in the standard Scripsit pro- 
gram. Four other important patches 
are applied to the memory resident 
Scripsit program to make it compatible 
with the despooler program: 

r'S— Usl of AOvtrttsers on Pagt 451 




DECEMBER TOP TEN 

1. CTIOM Comsutir Shack 

2. lEMtN SEED TrMd Software 

3. JOVIAN Cmpitir Shack 

4. SEA DRAGON Mvra. lit 

5. PIHETRATOR .... Milltvrflt Nmm 

S. OUTHOUSE Stfl Stctor 

7. ELIMINATOR AJvMtart InL 

0. AU EN DEFENSE Salt Sactar 

0. VENTURE Narlzaa 

10. PAN IK Faataatle Saftwara 

We have a panel of expert game players 
who will give a monthly rating of the best 
games on the market It will change 
monthly, so look every month. If you would 
like to send in your top ten games we 
would be glad to have it 



If you are going to buy a game this month I recommend you get Cyborg Jovian or Demon 
Seed. These three games are in a class all by themselves I really think they are the three 
best games ever written for the TRS-80. We at Computer Shack have a policy of never 
advertising a game until we have seen it. This insures we never advertise a dog. It also 
puts us a month or two behind some of our competitors. If you see a new game you like 
call us. we carry many products not in our ads. All prices are in (tape/disk). And naturally if 
you order two or more you get a 1 0% discount on both games. 

NEW GAMES 

JOVIAN the latest game from Dunlevy and 
Frayer. This exciting game continues the 
unique WRAP AROUND GRAPHICS * 
that they made famous with CYBORG Jovian 
is a real time space arcade game where you 
battle the alien space stations, space ships 
and space mines Exciting action combined 
with arcade quality sound make this a best 
seller (19.95/24.95) 

CYBORG the first game for the TRS-80 that 
featured WRAP AROU ND GRAPH ICS* This 
exciting game occurs in a interstellar space 
station. This game f eatu res fantastic graphics 
that are super fast and move smoothly in all 
FOUR directions Most games move from 
left to right but Cyborg takes the action up 
down and left and right CYBORG rated #1 
for two months in a row by our arcade 
experts- (19.95/24.95) 

OCA DRAGON could be the best ever from 
Adventure International Sea Dragon is some- 
thing like Penetrator but based on a under- 
water theme. Great graphics, good sound 
and good action make this game a must 
(19.95/24.95) 

ARCHNID PLUS this is a collection of three 
games, ARCHNID a real time arcade game 
with excellent graphics and sound, BAJA a 
fast, exciting car race like TURBO", and 
WARZONE a arcade type game of strategy. 
(19.95/24.95) 

BOUNCEOIDSa newgamefromCornsofta 
very original idea for a arcade type real time 
game (1 5.95/1 906) 

LEAPER a great new game by Cedar Soft- 
ware. This is the best by far. FROGGER" 
type game available for the TRS-80. (1 5.95/ 
19.95) 

DUNZHON the first is a series of three 
games by Med Systems This is similar to 
Dungeon Escape. If you like Dungeon Escape 
you will love DUNZHON. (29.95/29.95) 

OUTHOUSE is the first funny arcade game. 
You must zap assorted bad guys before they 
destroy or do other things to your outhouse. 
Highly recommended (15.95/19.95) 

PAN IK a new arcade game by William Demas 
He has taken Donkey Kong", and made it 
into a Space type real time arcade game. A 
very nice game. (1 9.95/24.95) 

DEMON SEED a great new game ty two 
unknown Michigan kids The game is based 
on the arcade game PHOENIX* and it has 
many outstanding graphics This is a fast 
action packed arcade game that comes 
highly recommended (1 9.95/24.95) 



Dungeon Escape 

A truly exciting game based on Dungeon 
and Dragons" it has real time action, graph- 
ics, great sound and best of all it has a totally 
random drawn dungeon so the game is 
completely different every time you play. 

Oldies but goodies! 

VENTURE a great arcade type game from 
Horizon software. Exciting and fun to play. 
Great graphics and sound (15.95/19.95) 

PENETRATOR, a dazzling space type shoot 
'em up game with some new wrinkles never 
seen before on a TRS-80. This game by 
Melbourne House sould be in every col- 
lection. (24.95/24.95) 

ALIEN DEFENSE Has exciting graphics, was 
the fastest game for the TRS-80 until Cyborg A 
must for any serious gamer. (1 5.95/1 9.95) 

LASER DEFENCE a great new. original, game 
from Med Systems (1 4.95/1 7.95) 

SIMON A MERFUNKLE an exciting game for 
the little kiddies Tests your memory. Graphic 
blocks light up on the screen along with music 
You must repeat the patterns. Contains three 
sound and graphic games 
(15.95/19.95) 

ORE YMOON if arcade games aren't your style 
try GREYMOON this is a thinking man's game 
based on your being the ruler of a Middle age 
kingdom. Fun, interesting and very well written. 
(15.95/19.95) 

DEFENSE COMMAND protect your fuel cans 
from invading monsters Good graphics and 
well written. (1 5.95/19.95) 
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Listing 1 continued 


00430 






















00440 

00450 


; SYSTEM STORAGE LOCATIONS 
















00460 


; 








7AA6 CA7A 


00470 


BUFPTR 


DEFW 


DISKIO+1 


;PTR TO SPOOL DATA BUFFER 


7AA8 Bl 


00460 
00490 


COUNT 


DEFB 


1 


;DATA BUFFER CHAR COUNT 


7AA9 53 


00500 


DCB 


DEFM 


"SCRIPSIT/LC 


;FILE DCB 


7AB4 03 


00510 




DEFB 


3 




0014 


00520 
00530 


; 


DEFS 


20 




00FF 


00540 
00550 


DISKIO 

; 


DEFS 


255 


;DISK I/O BUFFER 


7BC8 50 


00560 


FNAME 


DEFM 


'PRT1/DAT:0' 


; SPOOL FILE NAME 


7BD2 0D 


00570 




DEFB 


13 




7BD3 00 


00580 
00590 




DEFB 







7BD4 3E 


00600 


IN 


DEFB 


3EH 


; STATUS IN PATCH DATA 


7BD5 30 


00610 




DEFB 


30H 




7BD6 00 


00620 
00630 




DEFB 


f 




7BD7 21 


00640 


MEM 


DEFB 


21H 


;LOAD MEMORY LIMIT 


7BD8 FFFD 


00650 
00660 


; 


DEFW 


MEMSIZ+256 


; INSTRUCTIONS 


7BDA CD 


00670 


OUT 


DEFB 


0CDH 


; PRINT OUT PATCH DATA 


7BDB 8E7P 


00680 
00690 


1 


DEFW 


SPOOL 




7BDD 00 


00700 


UNDFLG 


DEFB 


1 


UNDERLINE FLAG 


7BDE 0E 


00710 


UNDOFF 


DEFB 


14 


J TURN UNDERLINE OFF 


7BDF 0F 


00720 
00730 


UNDON 


DEFB 


15 


;TURN UNDERLINE ON 


7BE0 10 


00740 


EMSG2 


DEFB 


16 


;MSG LENGTH 


7BE1 44 


00750 
00760 


; 


DEFM 


'DISK I/O ERROR 


1 ' 


7F62 


00770 
007 80 
00790 
00800 
00810 
00820 


; 


ORG 


7F62H 






; CLOSE 


SPOOL FILE ROUTINE 






; 








7F62 3AA87A 


00830 


CSPOOL 


LD 


A, (COUNT) 


;GET DATA COUNT 


7F65 B7 


00840 




OR 


A 


;IS IT ZERO ? 


7F66 2811 


00850 




JR 


Z, CFILE 


;IF YES, CLOSE FILE 


7F68 2F 


00860 




CPL 




;FIND REMAINING AREA 


7F69 3C 


00870 




INC 


A 


;TRUE COUNT 


7F6A 47 


00880 




LE 


B,A 


;INTO "B" 


7F6B 2AA67A 


00890 




LD 


HL, (BUFPTR) 


;GET BUFFER DATA PTR 


7F6E 3600 


00900 


FILL 


LD 


(HL) ,0 


; STORE INTO BUFFER 


7F70 23 


00910 




INC 


HL 




7F71 10FB 


00920 
00930 




DJNZ 


FILL 


;FIIL REST OF BUFFER 




00940 


; WRITE 


last disk ; ■■:■:■_ :<. 






00950 


; 








7F73 11A97A 


00960 




LD 


DE.DCB 


;PT AT DCB 


7F76 CD3944 


00970 
00980 




CALL 


WRITE 






00990 


J NOW CLOSE THE 


FILE 






01000 


1 








7F79 CDC901 


01010 


CFILE 


CALL 


CLRSCN 


; CLEAR SCREEN 


7F7C 11A97A 


01020 




LD 


DE,DCE 


;FILE DCB 


7F7F CD2844 


01030 




CALL 


CLOSE 




7F82 C32D40 


01040 
01050 
01060 


1 


JP 


OPSYS 


;BACK TO DOS 














01070 


;KEYMOD 


ROUTINE 


- CAUSES SCRIPSIT TO POLL THE KEYBOARD 




01080 
01090 
01100 


;IN THE 


NORMAL 


MANNER PERIODICALLY FOR THE DESPOOLER. 












7F85 CD2B00 


01110 


KEYMOD 


CALL 


SCAN 


;POLL KEYS 


7F88 110004 


01120 




LD 


DE.400H 


; RESTORE OVERLAID 


7F8B C3EB5F 


01130 
01140 
01150 


; 


JP 


5FEBH 


; CODE 














01160 
01170 

01180 


; SPOOLER ROUTINE 






' 








7F8E E5 


01190 


SPOOL 


PUSH 


HL 


;SAVE REGISTERS 


7F8F D5 


01200 




PUSH 


DE 




7F90 F5 


01210 




PUSH 


AF 


;SAVE CHAR 


7F91 2AA67A 


01220 




LD 


HL, (BUFPTR) 


;LOAD PTR TO BUFFER 


7F94 77 


01230 




LD 


(HL) ,A 


; STORE PRINT CHAR 


7F95 23 


01240 




INC 


HL 


j BUMP PTR 


7F96 22A67A 


01250 




LD 


(BUFPTR) ,HL 


; STORE UPDATED VALUE 


7F99 3AA87A 


01260 




LD 


A, (COUNT) 


;GET BUF CHAR COUNT 


7F9C FEFF 


01270 




CP 


255 


J (CP -1) BUF FULL ? 


7F9E 2808 


01280 




JR 


Z, TODISK 


;IF FULL THEN 


7FA0 3C 


01290 




INC 


A 


;BUMP COUNTER 


7FA1 32A87A 


01300 




LD 


(COUNT) ,A 


(STORE UPDATED COUNT 


7FA4 Fl 


01310 


GONE 


POP 


AF 


; RESTORE CHAR 


7FA5 Dl 


01320 




POP 


DE 


; RESTORE REGISTERS 


7FA6 El 


01330 




POP 


HL 




7FA7 C9 


01340 
01350 




RET 








01360 


;IF DISK BUFFER 


IS FULL - WRITE 


TO DISK 




01370 










7FA8 11A97A 


01380 


TODISK 


LD 


DE,DCB 


;FILE DCB 


7FAB CD3944 


01390 




CALL 


WRITE 


jSCRIPSIT WRITE TO DISK 


7FAE 2812 


01400 




JR 


Z,TODl 


;IF WRITE OK THEN 


7FB0 21E07B 


01410 




LD 


HL.EMSG2 


;DISK ERROR MSG 


7FB3 CDC86B 


01420 




CALL 


OPCMDL 


;OUT MSG ON CMD LINE 


7FB6 010000 


01430 




LD 


BCfl 




1FM cusm 


814M 




CALL 


DELAY 


J WAIT FOR VIEW 


7FBC 31FC41 


01450 




LD 


SP,41FCH 


; STACK PTR 

I tiling 1 continues 



• The disable-interrupt instruction 
located at 52C0H is overlayed with a 
NOP instruction to allow interrupts to 
be serviced during Scripsit's operation. 

• A call is made to the ROM key scan 
routine at 2BH to couple the Scripsit 
program to the despooler program as 
required. 

• The Debug vector at 4315H is 
cleared to prevent Debug from being 
entered when the break key is pressed. 

• Scripsit's memory-size routine is 
patched to protect the despooler in 
high memory. 

These four patches allow this Scripsit 
patch program to operate during the 
despooling process. 

After all these patches are made, you 
will be asked the following three 
questions: 

1) CREATE SPOOL FILE ON DRIVE (0*-3): ? 

2) NUMBER OF COPIES (l»-9): ? 

3) ARE THESE CORRECT (YVN): ? 

The default answers are shown marked 
with the asterisk and are chosen by 
pressing enter. If you want to create 
the spool file on drive and want just 
one copy of the spool file, press enter 
three times. 

The answer to the first question de- 
termines on which drive the spool file 
will be stored. Spool files can be rather 
large so place them on a disk with a lot 
of free space. The default file name is: 
PRT1/DAT. This file will be created 
on the specified disk drive unless a file 
by that name already exists. If a file 
does exit, the next higher version-num- 
bered file will be created, for example: 
PRT2/DAT. This version-number ad- 
vancing process continues until the 
program determines that a new file has 
been created. This process prevents the 
spooler from overwriting an existing 
spool file. In any case, the program 
displays the filespec of the created 
spool file. 

Your answer to the next question de- 
termines how many copies of the com- 
plete spool file will be printed by the 
despooler. The default is one copy, but 
you can generate up to nine copies. The 
despooler has the logic needed to print 
the specified number of copies request- 
ed. The final question is a verification 
of the previously input data. If you an- 
swer with anything besides N, you will 
be immediately transferred to a fully 
initialized and operational Scripsit pro- 
gram. If you answer N, you will be 
asked the questions again. 

While in Scripsit you can use aJl of 
the commands available in the unmod- 
ified program with the addition of the 
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underline feature. When you try to 
print a document, the printer will re- 
main silent and the disk drives will run. 
Use the normal Load command to load 
the Scripsit files you want to spool and 
then use the Print command to spool 
them. You can spool as many docu- 
ments as the disk space allows; you are 
not limited to one Scripsit document 
per spool file. For example, if you 
spool two different documents and had 
requested two copies of the spool file 
earlier, you will receive four docu- 
ments. When you are finished spooling 
your documents, type End as you nor- 
mally would and you will be returned 
to the operating system as usual. 

Despool Operation 

Enter despool to execute the de- 
spooler. You will be asked, "FILE: ?" 
which is your cue to input the filespec 
of the spool file you wish to despool. 
Press enter to use the default filespec: 
PRT1/DAT. The despooler program 
will search the active disk drives in 
your system for this file. The first file 
found with this name will be de- 
spooled. To specify a different file- 
spec, just type it in and press enter. If 
the file you specified is found, it will be 
despooled. If not, you will be told so. 
After the file is found, the program 
shows you how many copies of the 
spool file you requested when it was 
spooled and then returns to the operat- 
ing system. Then the printer will start 
and you will be free to do other tasks. 
You can run any programs that you 
wish, including Basic, as long as the in- 
terrupts are not disabled. If the inter- 
rupts are disabled and then turned 
back on again, you will not lose any 
printed data, but the printer will be si- 
lent for the duration that the interrupts 
were off. 

Following are several points to 
remember about the despooler pro- 
gram's operation. 

Do not reboot your computer while 
the despooler is printing. If you do, 
you will have to restart despooling of 
the spool file. 

Do not try to print anything in the 
conventional manner while the de- 
spooler is operational. This will result 
in a mix of the despooled and the real- 
time print data. You can, however, 
spool additional Scripsit files while the 
despooler is operational. 

During the time the despooler reads 
the disk, the keyboard will become mo- 
mentarily disabled. Care must be taken 
to prevent characters you type from 
being lost during these times. 

While the despooler is active, an as- 
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To Celebrate Computer Shacks 1st 
anniversary, we have tested many hardware 
and software products and have sleeted these 
outstanding values to be given away in a draw- 
ing on December 1 5th. All gifts will be delivered 
by Christmas. 

Our Grand Prize will be a Super Spooler by 
COMPULINK. The best 1 6k print buffer on the 
market. (List price S349.00) The next two lucky 
winners will receive copies of LazyWriter, the 
finest word processor for the TRS-80 (List 
price $175.00). We also have two copies of 
MULTIDOS. the Dos with the BEST BASIC (List 
price $79.95). Two Copies of SUPERUTILITY 
PLUS The original disk fixer upper (Retail $79) 
One copy of Z Basic the best compiher Four 
copies of SuperDirectory the best Directory. 
Boxes of WABASH FLIPPY DISKS the first flip- 
pys made by a Major disk manufacture. Plus 
many games and other programs. 

Any person who buys a product, or orders a catalog, from Computer Shack between 
now and Dec. 1 5, has a chance to receive some of these great prizes. 
We at Computer Shack are trying to be the best mail order computer supplier there 
is. During the month of September we filled over 90% of our orders within 24 hours. 
We strive to give you good service, good quality and good prices. We will never 
advertise or sell any product unless we test it and it meets our standards. All of our 
products are sold with a money back guarantee to work as advertised and you must 
be happy with it or you can send it back. (10% restocking fee) 

* COLOR COMPUTER GOODIES • 



SoP eT 
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KEYS OF THE WIZARD best new adventure 
game available for the color computer. Over 
200 rooms filled with creatures, tricks, treas- 
ures, magic spells. Cassette save feature built 

in (19.95) 

PHANTOM SLAYER they are mutant phantoms 
You are the Phantom Slayer. Enter the deadly 
catacombs and destroy the phantoms Wield 
your laser pistor and attend to your proximity 
detector. Phantom slayer is a real-time game 
executed with full screen, three dimensional 

graphics (19.95) 

STARFIRE one of our favorite games for the 
color computer. Based on the arcade game 
Defender' it has excellent graphics, sound and 

controls (19.95/24.95 

GHOST GOBBLER an exciting version of the 
popular PACMAN' game with power dots 
COLOR SCARFMAN a 4K version of the excit- 
ing PACMAN" type game (21.95/19.95) 



COLOR TAPE COPY at last a copy program 
that works. Color tape copy by Bob Withers will 
copy any tape for the color computer! Machine 
language, basic or even Data tapes Very easy 

to use (15.95) 

COLOR INTENSIFIER if your TV gives you 
washed out colors order one of our color 
intensified They really work deepens and 
darkens all colors Money back guarantee if 
not totally happy with it Stock size is 13 X 10 
for $1 9.95. Other sizes may be specially ordered. 
MASTER CONTROL our best selling program 
for the color computer. Comes with a overlay 
for the keyboard. Makes programming a snap. 
List price $24.95 CS PRICE $19.95 

COLOR DFT a great terminal program that will 
download or send machine language, text or 
basic programs without any conversion routines 
DFT will convert Model I and III basic programs 
to run on the Color Computer (1 9.95) 



COMPUTER SHACK 

1691 Eason • Pontiac. Michigan 48054 ^ ^ 

Into (313)673-2224 • Orders (800)392-8881 

Master Cnarge and VISA OK PleaseaddS300'orshippmginUSA • S5 00 for Canada or Mexico - 

Proper postage outside of U S - Canada • Mexico 

Dealers: We are distributors for all items in this ad Write for our catalog and price list 
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THE TRS-80 
USERS JOURNAL 

If you own a TRS-80® Model 

I. Model II. Model III, Color 

Computer or Pocket Computer, 

YOU NEED 
80-U.S. JOURNAL! 

80-U.S. Journal has 

programs for your enjoyment 
and enlightenment Every 
monthly issue contains several 
BASIC or machine language 
program listings It contains 
business articles and tutorials 
There is something for YOU in 
80-U.S. Journal 

and . . . 

80-U.S. Journal contains re- 
views of hardware and soft- 
ware. Our evaluations and re- 
views will help you to make the 
best choice in selecting addi- 
tions to your system. 

Please send a D new D renewal 
subscription to 80-U.S. Jour- 
nal for □ 1 year ($16), □ 2 years 
($31). D 3 years ($45) — U.S. 
residents only 



Nam* 




Address 




City 


State 


Zip 


Visa MC . 




Exp 





80-U.S Journal, 3838 S. Warnar 

Straat. Tacoma, WA 98409, 

(206) 476-2219 



Daalar Inquiriaa Invttad 



• 329 

BM 



Lining 1 ciinliniu 


il 






7FBF C34752 


01460 
01470 ; 


JP 


5247H ; START OVER 


7FC2 21C97A 


014 80 TODl 


LD 


HL.DISKIO ;I/0 BUFFER 


7FC5 22A67A 


01490 


LD 


(BUFPTR),HL > INITIALIZE PTR AGAIN 


7FC8 AF 


01500 


XOR 


A ;CLEAR "A" 


7FC9 32A87A 


01510 


LD 


(COUNT) , A ;COUNT«0 


7FCC 18D6 


01520 
01530 ; 


JR 


GONE ; END 




015 50 ; UNDERLINE ON/OFF ROUTINE 












01570 ; 






7FCE E5 


01580 L'NDRLN 


PUSH 


HL ;SAVE REG 


7FCF FE40 


01590 


CP 


40H ; p ? 


7FD1 2015 


01600 


JR 


NZ,l'N2 ;IF NOT THEN 


7FD3 21DD7B 


01610 


LD 


HL,UNDFLG ;CET UNDERLINE FLAG 


7FD6 CB46 


01620 


BIT 


0,(HL) ;IS FUNCTION ON ? 


7FD8 2808 


01630 


JR 


Z,UN1 ;IF NOT THEN 


7FDA CB86 


01640 


RES 


0,(HL) ; IP ON - TURN OFF 


7FDC 21DE7B 


01650 


LD 


HL,UNDOFF ; PT AT UNDERLINE OFF CODE 


7FDF 7E 


01660 


LD 


A,(HL) ;GET FUNCTION CHAR 


7FE0 1806 


01670 


JR 


UN2 


7FE2 CBC6 


01680 UNI 


SET 


0#(HL) ;IF OFF - TURN ON 


7FE4 21DF7B 


01690 


LD 


HL,UNDON ;PT AT UNDERLINE ON CODE 


7FE7 7E 


01700 


LD 


A,(HL) ;GET FUNCTION CHAR 


7FE8 CD8E7F 


01710 UN2 


CALL 


SPOOL ; OUTPUT NORMAL CHAR TO 




01720 




;THE SPOOL FILE 


7FEB El 


01730 


POP 


HL ; RESTORE REG 


7FEC C3745F 


01740 
01750 j 


JP 


5F74H ;BACK TO SCRIPS IT 




01770 ;THIS ROUTINE 


CHECKS EACH VIDEO OUTPUT CHAR TO SEE IF 




01780 ;IT IS 


AN # CHAR. IF IT IS THE VIDEO IS SENT AN 




01790 UNDERSCORE CHAR INSTEAD. 












01810 ; 






7FEF FE40 


01820 VUNDRL 


CP 


40H ;§ CHAR ? 


7FF1 2004 


01830 


JR 


NZ,VUl ;IF NOT THEN 


7FF3 2B 


01840 


DEC 


HL (BACK UP CURSOR 


7FF4 365F 


01850 


LD 


(HL),5FH /REPLACE CHAR 


7PF6 23 


01860 


INC 


HL 


7FF7 FD34B6 


01870 VU1 


INC 


(IY+6) 


7FFA C3B25F 


01880 
01890 ; 


JP 


5FB2H 




01900 ;***•*•*»** 






01910 jSYSTE* 


MESSAGES 




01920 ;•*****•«»* 






01930 ; 






7FFD 593C 


01940 MSG1 


DEFW 


3C59H 


7FFF 54 


01950 


DEFM 


'TRS-80 MODEL I' 


800E 03 


01960 


DEFB 


3 


800F 953C 


01970 HSG2 


DEFW 


3C95H 


8011 53 


01980 


DEFM 


'SCRIPSIT FILE SPOOLER" 


8028 0D 


01990 


DEFB 


13 


8029 03 


02000 


DEFB 


3 


802A DE3C 


02010 


DEFW 


3 CD EH 


802C 56 


02020 


DEFM 


■VI. 0' 


8030 03 


02030 


DEFB 


3 


8031 4D3P 


02040 


DCFW 


3F4DH 


8033 43 


02050 


DEFM 


'COPYRIGHT (C) 1981 bY CRAIG A. LINDLEY" 


5059 03 


02060 


DEFB 


3 


805„ 873F 


02070 


DEFW 


3F87H 


805C 2A 


02080 


DEFM 


'** UNAUTHORIZED DUPLICATION IS ' 


807B 50 


02090 


DEFM 


'PROHIBITED BY L,»W •*' 


808F 00 


02100 
02110 ; 


DEFB 





8090 0D 


02120 MSG3 


DEFB 


13 


8091 43 


02130 


DEFM 


•CREATE SPOOL FILE ON DRIVE (0*-3): ' 


80B4 00 


02140 
02150 ; 


DEFB 





80B5 0D 


02160 MSG4 


DEFB 


13 


80B6 43 


02170 


DEFM 


'CREATING FILE: ' 


30C5 00 


02180 
02190 ; 


DEFB 





80C6 0D 


02200 MSG5 


DEFB 


13 


80C7 4E 


02210 


DEFM 


'NUMBER OF COPIES (l*-9): ' 


30E0 00 


02220 
02230 ; 


DEFB 





30E1 0D 


02240 MSG6 


DEFB 


13 


80E2 41 


02250 


DEFM 


'ARE THESE CORRECT (Y*/N) j ' 


80FC 00 


02260 
02270 ; 


DEFB 





80FD 2A 


02280 MSG7 


DEFM 


'** SCRIPSIT SPOOLER PROGRAM ** ' 


811D 42 


02290 
02300 ; 


DEFM 


'BY CRAIG A. LINDLEY' 




02320 ; SYSTEM 


ERROR 


MESSAGES 












02340 | 






8130 0D 


02350 EMSG1 


DEFB 


13 


8131 2A 


02360 


DEFM 


'*• SCRIPSIT PROGRAM NOT FOUND **' 


8151 0D 


02370 


DEFB 


13 


8152 00 


02380 
02390 ; 


DEFB 


1 












02410 ; PROGRAM SUBROUTINES 




02430 ; 








02440 j INSTRUCTION MOVE ROUTINE 




02450 ; 






8153 E5 


02460 INSMV 


PUSH 


HL j SAVE INSTRUCTION PTR 


8154 010300 


02470 


LD 


BC,3 ; BYTES TO MOVE 


8157 EDB0 


02480 


LDIR 


;MOVE IT 

Luting 1 eoHiiaiHS 
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terisk will blink in the upper right cor- 
ner of the display at the end of every 
print line to indicate proper operation. 
At any time you can abort the despool 
process by holding down the left and 
right arrow keys simultaneously. The 
despooler will disconnect itself from 
the operating system and display an 
"abort" message. If the despooler runs 
to completion, a "print complete" mes- 
sage will appear on the display. 

Despooling Theory 

Study Program Listing 2. When exe- 
cuted, this program also begins execu- 
tion at the label Start on the listing. 
The despooler first protects itself from 
Basic and DOS by modifying the DOS 
top of memory pointer at 4049H. This 
memory pointer is saved so the full 
memory area can be restored when the 
despool process is complete. The pro- 
gram then requests a filespec from the 
operator. A default is available. When 
a valid filespec is input, the file is 
opened and the first record is read into 
the disk I/O buffer located at FFOOH. 
The first byte of the first buffer con- 
tains the number-of-copies byte which 
is then transferred into memory for 
later use. By setting the NRN (next rec- 
ord number) to 0000H, the next read 
will again read the first record of the 
file. The despooler then patches itself 
into the operating system interrupt 
task table and the keyboard scan rou- 
tine. The address of the normal key- 
board driver is saved for restoration la- 
ter. It is used to modify the despool 
code so that calls can be made to it. 

The interrupt task table in the oper- 
ating system (located in SYSO/SYS at 
addresses 4500-45 17H) is a list of rou- 
tine addresses that are executed at in- 
terrupt time. Normally, this list is filled 
with the default address of 45A3H 
which tells the DOS interrupt handler 
not to do anything at the interrupt 
time. When you execute the DOS 
Debug, Trace or Clock functions, the 
operating system then places the ad- 
dresses of these routines into the task 
list so they are executed each interrupt 
time. 1 placed a pointer to my own in- 
terrupt task (HANDLR) into the task 
table (at an ordinarily empty location) 
so it gets executed each interrupt time 
also. By doing this, no other interrupt 
tasks are disturbed so Debug, Clock 
and Trace can run along with the de- 
spooler if desired. 

HANDLR checks the line-printer 
status to see if it is ready for another 
character and checks if another charac- 
ter is ready to be output to the printer. 
It also performs numerous housekeep- 
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Double Sided Disks $1 .48 A Side 

Double Density Disks $2.19 

• GUARANTEED 5 YEARS • 

Each month our disk sales have doubled. 
Now we are buying thousands a week. Our 
sales are so great we are getting our own 
label. 

Now COMPUTER SHACK DISKS. These 
are quality disks that are guaranteed for 5 
years. Computer Shack's special vinyl sle- 
eves are available for an additional ten 
cents a disk or at no charge if you order 30 
or more disks. If at anytime in the next 5 
years you get a bad track or sector you 
simply send the disk back to us and we will 
replace it. 
Doubla Ointlty 1 Slria 35/40 Track Drlvaa 

I21J9 

DaaMa Daaaltv 2 S Was 38/40 track FLIPPY DISKS 

$29.09 

DaaMa Daaaltv 1 SMaSOTrack Dlaka. .... $25.00 
DaaMa Daaaity 2 SMa 00 Track FLIPPY DISKS 

$30.95 

Thaaa prices ara far 10 disks. 



Three Great New 
Products From 

MULT I DOS 



A NEW version of Multi Dos with Great NEW 
EASY ZAP and NEW TAPE UTILITY with the 
absolutely best BASIC in the industry and 
it's still under a hundred dollars. 

If you already have Multi Dos. Add NEW E 
BASIC to your MULTI DOS and you will be in 
seventh heaven. Makes the regular basics 
look old fashioned If s like moving up from 
TRS-DOS to Multi Dos all over again. Has 
new graphics and basic commands. 

NEW ZDOS have you ever wondered why 
people spent from 1 00 to 200 dollars for a 
DOS when they got TRS-DOS for nothing? 
Now you can find out for only $39.95. New 
ZDOS has many of the features of MULTI- 
DOS (but not by any means all) for only 
$39.95 



MULTI DOS $99.99 E 9ASIC $29.95 

ZDOS $39.96 SUPER DOS $19.95 

DOS PLUS 3.4 $119.00 LD0S $119.00 

DOS PLUS FOR THE MODEL III $229.95 

IMPROVE YOUR TRS-DOS WITH SUPER DOS 

NEW!! IF you like TRS-DOS on the Model III we can make it even better. Some of the 
exciting changes: Fast boot (5 times faster then TRS-DOS). Short Directory from Dos, 
Unlimited backup of Visicalc, Scripsit ect. No more passwords, All known errors are 
patched, new copy of HIBUG. Format has been improved. Error codes spelled out: To 
mention only a few $10.05 

-SUPER DIRECTORY- 

- Aatamatlc ianslty racaf nltlan • Autamatlc track caunt racofnltlon - 

- Autamatlc 9m racaoaltwn • Tm Oast Directory On Taa Market! - 

- Dy Mark Faldman - 

A Great new Directory program with its own operating system written by Vernon Hestor. This 
one program will read any dos as it is delivered by it's publishers except for Tandys new 
model I double density operating system. There is even compatibility between Model I and II. 
The Model I SuperDircan read most Model III disks and the Model III SuperDircan read most 
Model I disks. SuperDir can even read double density 80 track disks 
Now with version 23 you can SEARCH the catalog by program name, disc number, extension 
(/cmd). or even do a STRING SEARCH (find all occurences of any combination of letters) It 
will SORT (in seconds) on disc number, program name, remarks, extensions, or catagories. 
You can even add a 25 character description of each program. SPECIAL PRINT ROUTINES 
for Different printers. DISPLAY SCROLLS up and down by line or by the entire screen. 
It has a direct SCREEN EDITOR that almost eliminates typing. SuperDir keeps track of the 
FREE SPACE on your disks. SuperDir is the FASTEST.the EASIEST to use and the ONLY 
directory able to read multiple dos's on the market $39.95 

NEW ORANGE MONITOR. We are a official dealer for the Langly St. Clair replacement CRT 
for the TRS-80. We have put them in our computers here in the office and love them. 
Definitely worth $00.05 



COMPUTER SHACK 

1691 Eason • Pontiac Michigan 48054 --4M 

Info (313)673-2224 • Orders (800)392-8881 
Master Charge and VISA OK P easeaddS3 00 lor shipping mU S A -S5 00 for Canada or Mexico - 
Proper postage outside of U S Canada - Mexico 
Dealers: We are distributors lor all items in this ad Write (or on' catalog and price list 
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The 

Lawyer's 

Microcomputer™ 

A Newsletter for Lawyers 

Using the TRS-80* 

Seminar 

St. Thomas 

U.S. Virgin Islands 

January 3-10, 1983 

For Lawyers Using 

Radio Shack Computers 

For Details: 

Call Toll Free: 

800-821-6129 

A New Monthly Newsletter 

For Lawyers 

Send $28 For A 

One Year Subscript ton 

The Lawyer's Microcomputer™ 

Post Office Box 1046A 
Lexington, S.C. 29072 



■"$&#&* 



PROFESSIONAL 
FEDERAL INCOME TAX 
PROGRAMS 

FOR TRS-80 MODEL 1,11 OR III 

Cuts manual production time by as 
much as 75%. 

Determines least tax quickly. 
Saves input information on disk— auto- 
matic transfer of essential information. 
Batch processing possible. 
Uses IRS prescribed computer generated 
print outs. 

Prohibits bypassing of mandatory entries. 
Accuracy assured by triple check logic. 
Enter only pertinent lines-faster than 
line by line. 

Single line correction with automatic 
update of succeeding totals. 
Professionally used-nationally advertised. 
Overlays available. 
Requires 2 disk drives & 48 K. 

• BASIC TAX PACKAGE $165.00 • 
INCLUDES 1040, 1040A, 1040EZ 

AND SCHEDULES A&B 

OTHER SCHEDULES $35.00 EACH 

MANUAL $5.00 



MICRO-TAX ^^* 

P.O. Box 4262, Mountain View. CA 94040 

Call: (415) 964-2843 .,,,9 



/ mmg I continued 



8159 El 
815A C9 



815B 7E 
815C B7 
81SD C8 
815E FE03 

8160 C8 

8161 CD3300 

8164 23 

8165 18F4 



8167 D5 
9168 C5 
8169 3F.0F 
816B CD330B 
816E 112040 
8171 010200 
817 4 EOB0 
8176 CD5B81 

8179 23 

817A B7 

817B 20F1 

817D 3E0E 

817F CD3300 

8182 CI 

8183 Dl 

8184 C9 



8185 CDC901 

8188 AF 

8189 321543 
818C 21FD7F 
818F CD6781 

8192 11A97A 
8195 CD3044 
8198 280C 
819A CDC901 
819D 213081 
81A0 CD5B81 
81A3 C32D40 

81A6 CD2844 



81A9 21FD80 
81AC 11P757 
81AF 013300 
81B2 EDB0 



81B4 


21FD7F 


03160 


81B7 


227752 


03170 


81BA 


221654 


03180 


81BD 


223255 


03190 


81C0 


229359 


03200 


81C3 


22CB59 


03210 


81C6 


22B65D 


03220 


81C9 


221663 


03230 


81CC 


225263 


03240 


81CF 


22DF66 


03250 


8102 


22B469 


03260 


81D5 


22256E 


03270 


81D8 


221A74 


03280 


BlDB 


222874 


03290 
03300 ; 
03310 ; 
03320 ; 


81DE 


3EC3 


03330 


81E0 


32E85F 


03340 


81E3 


329E7A 


03350 


81E6 


32AF5F 


0336B 
03370 ; 
03380 ; 
03390 ; 


81E9 


21857F 


03400 


81EC 


22E95F 


03410 


B1EF 


21CE7F 


03420 


81F2 


229F7A 


03430 


81F5 


21EF7F 


03440 


81F8 


22B05F 


03450 



81rB AF 
81FC 32C052 



02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

027 80 

02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03090 

03100 

03110 

13120 

03130 

03140 

03150 

03160 

03170 

03180 

93190 

93200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 

03310 

03320 

03330 

03340 

03350 

03360 

03370 

03380 

03390 

03400 

03410 

03420 

03430 

03440 

03450 

03460 

03470 

03480 

B3490 

03 IBB 

03510 



POP 
RET 



HL 



J 

; SINGLE LINE MESSAGE OUTPUT ROUTINE 

I 



LD 

OR 

RET 

CP 

RET 

CALL 

INC 

JR 



A, (HL) 

A 

Z 

3 

Z 

CHROUT 

HL 

LOUT 



;GF.T CHAR 

j IS IT • ? 

; IF YES THEN 

; OTHER TERMINATOR 

I IP YES THEN 

; DISPLAY IT 

;NEXT CHAR 

(UNTIL PINISHED 



; MULTIPLE LINE MESSAGE OUTPUT ROUTINE 



MSGOUT 



PUSH 

PUSH 

LD 

CALL 

LD 

LD 

LDIR 

CALL 

INC 

OR 

JR 

LD 

CALL 

POP 

POP 

RET 



DE 

BC 

A, 15 

CHROUT 

DE, CURSOR 

BC,2 

LOUT 

HL 

A 

NZ,MSG01 
A, 14 
CHROUT 
BC 

DE 



START OF THE MAIN PROGRAM 



CALL 

XOR 

LD 

LD 

CALL 

LD 

CALL 

JR 

CALL 

LD 

CALL 

JP 

CALL 



CLRSCN 
A 

(4315H) ,A 

HL,MSG1 
MSGOUT 

DE,DCB 

LOAD 

Z , CONT 
CLRSCN 

HL,EMSG1 

LOUT 

OPSYS 

CLOSE 



I SAVE REGISTERS 

(CURSOR OFF CODE 

I OUTPUT IT 

(CURR CURSOR STORAGE 

•MOVE ADDRESS 

;INTO CURSOR STORAGE 

; DISPLAY MSG LINE 

("A" REG HAS TERM. CHAR 

|PT AT NEXT SCREEN ADDR. 

;END OF COMPLETE MSG ? 

I LOOP UNTIL PINISHED 

(CURSOR ON CHAR 

(DO IT 

(RESTORE REGISTERS 



(CLEAR DISPLAY 
(CLEAR "h m 
(DEBUG OPP 
(SIGN ON MSG 
(DISPLAY IT 

(PT AT SCRIPS IT DCB 

(LOAD PILE 

(IF NOT AVALIABLE THEN 

(CLEAR DISPLAY 

(NOT POUND MSG 

(DISPLAY IT 



(CLOSE PILE 



(OVERLAY SCRIPSIT SIGN ON MSG WITH A NEK ONE 



LD HL,MSG7 

LD DE,57F7H 

LD BC,51 
LDIR 



(PT AT NEW SIGN ON MSG 
(MOVE INTO PLACE 



(PATCH SCRIPSIT 



(""""""" 
I 

(CHANGE LOCATION OF TXTBUF TO MAKE ROOM FOR SPOOLER 



LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 



HL,MSG1 
(5277H) ,HL 
(5416H) ,HL 
(5532H) ,HL 
(59 93H) ,HL 
(59CBH) ,HL 
(5DB6H) ,HL 
(6316H) ,HL 
(6352H) ,HL 
(66DPH) ,HL 
(69B4H) ,HL 
(6E25H) ,HL 
(741AH) ,HL 
(7428H) ,HL 



(START OP NEN TXTBUF 



I INSERT LONG JUMP CODE FOR PATCH INSERTION INTO SCRIPSIT 

LD A,0C3H (LONG JMP CODE 

LD (5PE8H),A (PATCH KEYBOARD ROUTINE 

LD (7A9EH) ,A (UNDERLINE ROUTINE 

LD (5PAPH),A (VIDEO UNDERSCORE 

(STORE PATCH ROUTINE ADDRESSES IN SCRIPSIT 



LD 
LD 
LD 
LD 

LD 
LD 

XOR 
LD 



HL.KEYMOD 
(5PE9H) ,HL 
HL.UNDRLN 
(7A9FH) ,HL 
HL,VUNDRL 
(5FB0H) ,HL 



(52C0H) ,A 
PATCH PRINTER I/O TO SPOOLER 



(CLEAR "A" 

(NOP DI INSTRUCTION 



listing I lontinucs 
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MODEL III DISK DRIVE EXPANSION KITS 
High Qualrty,Low Prices 
/ > / " Dont Be Fooled By The Competition 

Ml fcn« NiHConUin • •SmtchMf Pmi Supply • Dw*lt Natit) Duk CMtNphra 
3« Ih . AH CjMct iimJ Ptottur, Hara.jrt . *.< m 
lattalUtna M<mij I That i » SimpJ* ** tn, (• Um . 

Drive kit withone 40 track TM- 100- 1 drive 180 KB $479. 
Drive kit withtwo 40 track TM- 100 1 drives 360 KB $699. 
Drive kit with two 40 track TM 100 2 drives 720 KB$899. 
Drive kit with two 80 track TM100-4drives 1.4MB$1099. 






NEWHARD DRIVE 
INTERNAL Model III 
KIT $1745. 



Everything; You Need to upgrade a One Drive Model I 
with a 5 Meg Hard Disk Including DOSPLUS 4.0 
SAVES7Q,with a oneDrive Kit, both for only $2 154 



Other Kits 

Model III Green CRT Kit 

Model III RS232 Kit 



IB 



[uxi&WlUUto'. 34 $135. 



Serial 





CITOH PRINTERS 

Parallel 
Prowriter „ 
Prowriter2 14 
F10 40CDS 

F10 55CpS 

EPSON PRINTERS 

MX80 $ 498 

MX 80 ft S 559 

MX 100 $ 727 
all with Graf trax 



OKIDATA PRINTERS 

NEC PRINTERS /COMPUTERS 
SMITH CORONA TP1 $64a 
VERBATIM DISKETTES 



48K MODEL III $1795P° 

with two double sided drives $1995.°° 

Includes a 48K Model III with Two Tandon Disk Drives. 
Ready to plug in go. 

One Drive 48K Starter System $1595. 

Options For Our Systems with Free Installation 
Green CRT $89 RS232C$89DOSPLUS34$100 



NEWHARD DRIVE 
MODELIII $3295. 

Includes a 48K Model III with one Double Sided Disk 
Drive, a 5Mega byte Hard Drive System, and DOSPLUS 4.01 



TANDON DISK DRIVES 

TMKX>-1 4OTrack Single Sided $199 

TMlOO-2 40Track DouMeSided $299 



CASES, POWER SUPPLIES and CABLES 

onedrive case with power supply $4935 

2 drive cable 

drive extender cable 

printer cable 

astec power supply 



If* 

2< 
74 



NEW EXTERNAL 

MODELIII HARD DISK $1849. 

INCLUDES DOSPLUS 4.0, READY TO PLUG IN, 5 MEG 

OPTIONS INCLUDE MULTIUSER CAPABILITIES, 
UPTO 120MEG.REMOVEABLE HARD DRIVE, ANti 
STREAMER BACKUP SYSTEMS 




713-474-7342 
713-480-6000 

MAIL • P.O.BOX 306 KEMAH ,TEX AS 7756S 
OR VISIT OUR SHOWROOM IN HOUSTON 

16206 HICKORY KNOLL 

CLOSE TO JOHNSON SPACE CENTER 

DEALERS COAST TO COAST 
COMPUTER KIT BOCA RATON FLORIDA 
KIT N COMPUTERS DACOMA WASHINGTON 



WE SERVICE WHAT WE SELL! 



\- 



frt^Xfa/ ?^=- 



FREESHPPING 120DAY WARRANTY 



:We accept :Vica MasterCard Certified Checks Money Ur.lers 
!and CO..'. . C.C.J, add 31.50, Air UPS extra. 



^455 



r=?~t/^Ss.' 



BBMi 







DECIPHER 

If you need to learn 
assembly language 

Without DECIPHER, you can write 
programs in assembly language, but 
you can't read them-unless you 
memorize 3 or 4 hundred number 
codes. If you can't read what others 
have written, learning becomes al- 
most impossible, DECIPHER trans- 
lates the number codes back to the 
original-such as statements like 
CALL nnnn & IP nnnn (equivalent to 
Basic COSUB & GOTO) DECIPHER 
also has an extensive array of other 
features for testing, modifying, print- 
ing, I O etc. 

for TRS-80 Model II w/64k $48 

ALDEVCO (513) 561-7671 

5725 Dragon Way 
Cincinnati, Ohio 45227 



MEMOREX 

FLEXIBLE DISCS 

WE WILL NOT BE UNDER- 
SOLD!! Call Free (800)235-4137 

for prices and information. Dealer 
inquiries invited and COD's 
accepted 




S*lJ 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 In Cal call 
(800)592-5935 or 
805)543-1037 

.-207 



1 OPT IONS- SO, NOW FOR 
■ A ppLE *€ TRS— SO 




OPTION 
INVESTING 


l~PROBRAM ANALYBES 
1 RETURN FROM L- I STED 
H STOCK OPT I on 

Bl INVESTING 




1 HANDLES CALLS, PUTS, SPREADS, IN 

■ AND OUT i COMMISSIONS, RISK, COST 
1 OF MONEY, DIVIDENDS. TABLES AND 
1 SRAPH8. PRINTS, STORES TO DISK. 
1 INDEXED MANUAL A COMPLETE BUIDE 
ItO OPTION INVEST INS. N/C li VISA. 

■ •123. SEND FOR FREE BROCHURE. 

■ OPT IONS — SO 9 BOX 471 

■ CONCORD, MASS 01742 

M'thmoww \mi 00 •wmbbm <f»u cawm, it 
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81FF 


21D47B 


03520 




LD 


HL,IN 


;PT AT STATUS IN INST. 


8202 


11635F 


03530 




LD 


DE.5F63H 


/PATCI.' POINT 11 


82B5 


CD53 81 


03540 




CALL 


INSMV 




8208 


113F66 


03550 




LD 


DE,663FH 


;PATCH POINT 12 


820B 


CDS3 81 


03560 




CALL 


INSMV 




B20E 


115066 


03570 




LD 


DE,6650H 


; PATCH POINT #3 


8211 


CD53 81 


03580 




CALL 


INSMV 




8214 


21DA7B 


03590 




LD 


HL.ODT 


; PT AT PRT OUT INST. 


8217 


114452 


03600 




LD 


DE.5244H 


; PATCH POINT 4 4 


821A 


CD5381 


03618 




CALL 


INSMV 




821D 


115E66 


03620 




LD 


DE,665EH 


/PATCH POINT 15 


8220 


CD5381 


03630 




CALL 


INSMV 




8223 


112267 


03640 




LD 


DE,6722H 


; PATCH POINT 46 


8226 


CD5381 


03650 




CALL 


INSMV 




8229 


11977A 


03660 




LD 


DE,7A97H 


; PATCH POINT 47 


822C 


CD5381 


03670 
03680 


; 


CALL 


INSMV 








03690 


; PATCH 


SCRIPSIT 


MEMORY SIZE 


ROUTINE 






03700 


1 








822P 


21D77B 


• 3710 




LD 


BL,MEM 


;PT AT MEM LIMIT INST. 


8232 


116052 


03720 




LD 


DE,5260B 


; PATCH POINT 48 


8235 


CD5381 


03730 
03740 


I 


CALL 


INSMV 








03750 


j PATCH 


SCRIPSIT 


END ROUTINE 








03760 


1 








8238 


21627F 


03770 




LD 


HL,C SPOOL 


; CLOSE SPOOL FILE 


823B 


229565 


03780 
03790 
03800 


) 


LD 


(6595H) ,BL 


1 STORE IN "END" ROUTINE 


















03810 
03820 


J ON WITH THE SHOW 




















03830 


1 








823E 


CDC901 


03840 


INPARM 


CALL 


CLRSCN 


/CLEAR SCREEN 


8241 


211180 


03850 




LD 


HL,MSG2*2 


; PROGRAM NAME 


8244 


CD5B81 


03860 




CALL 


LOUT 




8247 


2190B0 


03870 




LD 


HL,MSG3 


; DRIVE t MSG 


824A 


CD5B81 


03880 




CALL 


LOUT 




8240 


CD4900 


03890 




CALL 


KEYIN 


;GET RESPONSE 


8250 


FE0D 


03900 




CP 


13 


j DEFAULT ? 


8252 


280E 


03910 




JR 


Z,IN1 


;IF YES THEN 


8254 


FE30 


03920 




CP 


lyi 


{CHECK RANGE 


8256 


38E6 


03930 




JR 


C, INPARM 




8258 


FE34 


03940 




CP 


'4« 




B25A 


30E2 


03950 




JR 


NC, INPARM 


;IF IN RANGE CONTINUE 


B25C 


CD3300 


03960 




CALL 


CHROUT 


/DISPLAY SELECTION 


B25F 


32D17B 


03970 




LD 


(FNAME+9) ,A 


; STORE IN FILENAME 


8262 


21C87B 


03980 


INI 


LD 


HL,FNAME 


/PT AT FILENAME 


8265 


11A97A 


03990 




LD 


DE,DCB 


;DCB STORAGE 


8268 


CD1C44 


04000 




CALL 


PARSE 


;MOVE INTO PLACE 


826B 


21C97A 


04010 




LD 


HL, DISK 10 


/DISK I/O BUFFER 


826E 


0600 


04020 




LD 


B,0 


;LRL-256 


8270 


CD2044 


04030 




CALL 


INIT 


/INITIALIZE FILE 


8273 


C28182 


04040 




JP 


NZ, ERROR 


;IF PROBLEM THEN 


8276 


381E 


04050 




JR 


C,NEW 


;IF NEW FILE THEN 


8278 


CD2844 


04060 




CALL 


CLOSE 


;ELSE CLOSE OLD FILE 


827B 


21CB7B 


04070 




LD 


HL,FNAME+3 


;PT AT FILE VER 4 


827E 


34 


04080 




INC 


(HL) 


; UPDATE IT 


827F 


18E1 


04090 
04100 




JR 


INI 


/TRY AGAIN FOR NEW FILE 






04110 


; REPORT DISK I/O ERROR 








04120 


I 








8281 


F5 


04130 


ERROR 


PUSH 


AF 


;SAVE ERROR CODE 


8282 


3E0D 


04140 




LD 


A, 13 


jCR TO DISPLAY 


82B4 


CD3300 


04150 




CALL 


CHROUT 




8287 


Fl 


04160 




POP 


AF 


/ RESTORE ERROR CODE 


8288 


F6C0 


04170 




OR 


0C0H 


; SHORT ERROR MSG 


828A 


CD0944 


04180 




CALL 


ERROUT 




82BD 


11A97A 


04190 


DONE 


LD 


DE,DCB 


/PT AT DISK DCB 


8290 


CD2844 


04200 




CALL 


CLOSE 


/CLOSE FILE 


8293 


C32D40 


04210 
04220 


; 


JP 


OPSYS 


;BACK TO OS 






04230 


;JUMP HERE WHEN 


NEW FILE IS 


CREATED 






04240 


; 








8296 


21B580 


04250 


NEW 


LD 


HL,MSG4 


|FILE CREATE MSG 


8299 


CD5B81 


04260 




CALL 


LOUT 




829C 


21C87B 


04270 




LD 


HL.PNAME 


/PT AT FILE NAME 


829F 


CD5B81 


04260 




CALL 


LOUT 


/DISPLAY IT 


82A2 


21C6B0 


04290 


NEWl 


LD 


HL,MSG5 


» PT AT 4 OF COPYS MSG 


82A5 


CD5B81 


04300 




CALL 


LOUT 




82A8 


CD4900 


04310 




CALL 


KEYIN 


; INPUT 0-9 


82AB 


CD3300 


04320 




CALL 


CHROUT 


; DISPLAY ANSWER 


82AE 


FE0D 


04330 




CP 


13 


/DEFAULT 7 


82 B0 


280A 


04340 




JR 


Z,NEW2 


;IF YES THEN 


82B2 


D630 


04350 




SUB 


30H 


;CHK LOWER BOUND 


82B4 


3 8EC 


04360 




JR 


CNEWl 


;IF < 30H THEN ASK AGAIN 


82B6 


FE0A 


04370 




CP 


0AH 


;CHK UPPER BOUND 


82B8 


30E8 


04380 




JR 


NCNEWl 


>IF > 39H THEN ASK AGAIN 


82BA 


1802 


04390 




JR 


NEW3 




82BC 


3E01 


04400 


NEW2 


LD 


A,l 


;DEFALUT - 1 COPY 


82BE 


32C97A 


04410 
04420 


NEW3 


LD 


(DISKIO) ,A 


/STORE 4 IN 
/DISK I/O BUT 


82C1 


21E180 


04430 




LD 


HL.MSG6 


/CORRECT MSG 


82C4 


CD5B81 


04440 




CALL 


LOUT 




82C7 


CD4900 


04450 




CALL 


KEYIN 


/GET RESPONSE 


82CA 


CBAF 


04460 




RES 


5, A 


/CONV TO UC 


82CC 


FE4E 


04470 




CP 


'N' 


/ANSWER NO ? 


82CE 


C23F52 


04480 
04490 


; 


JP 


NZ,WP 


/IF NOT EXECUTE SCRIPSIT 


82D1 


11A97A 


04500 




LD 


DE,DCB 


/IF INCORRECT KILL FILE 


82D4 


CD2C44 


04510 




CALL 


KILL 




82D7 


C33E82 


04520 
04530 
04540 


i 


JP 


INPARM 


/GO ASK AGAIN 


81B5 




04550 




END 


START 




00000 TOTAL 


ERRORS 
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irS YOUR MOVE 

MAKE YOUR MOVE NOW ON COMPUTER SUPPLIES 

FROM CHECK-MATE™ A K 



RADIO SHACK' 

LINE PRINTER 

RIBBONS 



» 



EPSON 
RIBBONS 



KIBBUN5 MX - 80 

THE EPSON MX - 80 CARTRIDGE 

LINE PRINTERS 1 ,11 & IV mm J"V ^ 

(Radio Shack P/N's 26-1150 26-1152,26-1154) |\/|yV« I 00 

2.99 Ed. 31.99 DOZ. ZIP BOX REFILLS DESIGNED TO FIT 

THE EPSON MX - 100 REFILLABLE CARTRIDGE 

LINE PRINTER III &V * 9 .95 Ea. '107.46 Doz. 

(Radio Shack P N 26-1414) 

$ 6.49Ea. $ 73.99Doz. 

nAicv WHFFI LAbtL Or tv/IALb 

UM, ° ■ «nttL. 3 1/2x15/16" 1 -up pin-feed Labels 

LINE PRINTER NOW $ 2.99/M (8 m Minimum) 

(Radio Shack P N) 

26-1419 Multi Strike 3 1/2 x 15/16" CONTINUOUS LABELS 

26-1449 Nylon O.APOnQQ HM Q -UO" FiyPn PARRIPR 



LABEL SPECIALS 

3 1/2x15/16" 1-up pin-feed Labels 
NOW $ 2.99/M (5M Minimum) 

3 1/2 x 15/16" CONTINUOUS LABELS 
2-ACROSS ON 9 1/2" FIXED CARRIER 



$ 6.49 Ea. $ 73.99 Doz./\ NOW '3.99/M 



(10M Minimum) 



ALL PRICES INCLUDE SHIPPING IN CONTINENTAL U.S. (MASS. RESIDENTS ADD 5% SALES TAX) 

MINIMUM ORDER FOR RIBBONS $ 29.85 

'RADIO SHACK IS A REGISTERED TRADEMARK OF THE TANDY CORP. 



Check-Mate 



POST OFFICE BOX 103 RANDOLPH, MA 02368 

CALL TOLL FREE (800) 343-7706 / IN MASSACHUSETS (617) 963-7694 

CALL OR WRITE FOR OUR FREE CATALOG 



ing tasks including incrementing and 
decrementing pointers and counters. It 
also polls a flag (Flag) to determine if 
the byte to be output is the number-of- 
copies byte and if so, skips it. 

The other interface for the despooler 
is the keyboard driver. Every time the 
keyboard is scanned for an input char- 
acter, all other despooler housekeeping 
tasks are performed. During these 
times the spool file is read into the disk 
I/O buffer if more characters are need- 
ed for the printer. The abort function 
is also checked during each of the key- 
board scan times. 

Getting the Programs to Work 

Type the source code provided into 
an editor/assembler. This makes it 
easy to relocate the despool program 
for your correct memory size. The de- 
spooler should reside at the top of your 
memory, with the ORGs for the vari- 
ous memory sizes shown in Listing 2. 
The spooler program must be assem- 
bled at the origin location shown in 
Listing 1 regardless of memory size. I 
used the filenames SSPOOL/CMD for 
the spooler program and DESPOOL/ 
CMD for the despooler program. I 
called it SSPOOL, for Scripsit Spool- 
er, to distinguish it from NSPOOL, 




TEACH YOUR 
CHILDREN 



ALPHA— Our best seller. Enhanced with larger letters 
and three excercises Alphabet recognition tor pre 
schoolers. 



ALPHA II— More alphabet excercises. Find the dupli 
cate letters; letters before and after; put in alpha 
betical order. 



SIGMA— Addition problems for grades 1-3. 



SIGMA- EX— Addition problems for the younger or 
slower learner 



SIQMA-12— Addition, subtraction, multiplication and 
division Nine speed levels Time left and total time 
constantly displayed. 

SPE-L— Spelling practice for grades 2-4. 



Learning to Count Money— A THREE PROGRAM 
SYSTEM THAT TEACHES THE IMPORTANT SKILL OF 
COUNTING MONEY. SUPERIOR GRAPHICS (SOLD 
BY THE SET ONLY) 



Available on cassette only for TRS-80 Models I and III 
$6.95 each, two for $12.00. four for $21.00 Learning to 
Count Money— $19.95 



Add St. 00 fo total order tor tirst class shipment 

.'188 



H 



Metier System* Inc. 

■ 7 Scootet Lane 

HkkftvHte. N.T. I 110 



which is a spooler I have also written to 
use with Basic and all other print 
sources that use the printer device con- 
trol block for channeling of printer 
I/O. I will present this program in a fu- 



ture article. The despooler presented in 
this article works with both spoolers. ■ 

Craig Lindley can be reached at P.O. 
Box 704, Colorado Springs, CO 80901. 









Program Listing 2. Despooler 








00100 














00110 


,**« 


PRINT 


SPOOLER UTILITY 


• •* 






00120 


i*** 


DESPOOLER VI. I 


• *• 






■ 0131 


• ••* 


NOVEMBER 11, 1981 


• •• 






00140 


I*** 




BY 


**• 






• 0150 
00160 

00170 


»*•* 


CRAIG A. LINDLEY 


• •• 






; 












00160 














• 0190 


(SYSTEM 


EQUATES 










00200 














00210 


J 








J849 




00220 


ARROWS 


EQU 


3840H 


{CURSOR ARROWS KEY ADDR 


022C 




00230 


BLINK 


EQU 


022CH 


(BLINK "*■ ROUTINE 


0033 




00240 


CHROUT 


EQU 


.BB33H 


;CHAR OUT ROUTINE 


4020 




00250 


CURSOR 


EQU 


4020H 


(CURSOR STORAGE 


0060 




00260 


DELAY 


EQU 


0060H 


(ROM DELAY ROUTINE 


4510 




00270 


INT25 


EQU 


4510H 


(INTERRUPT TABLE ADDR 


4016 




00280 


KEYDCB 


EQU 


4016H 


1 KEYBOARD DCB 


05D9 




00290 


LINEIN 


EQU 


B5D9H 


(ROM LINE INPUT ROUTINE 


44CF 




00300 


LOUT 


EQU 


44CPH 


(DOS LINE OUT ROUTINE 


4424 




00310 


OPEN 


EQU 


4424H 


(OPEN DISK FILE 


4020 




00320 


0PSYS 


EQU 


4B2DH 


(REENTER DOS 


441C 




00330 


PARSE 


EQU 


441CH 


(PARSE F1LESPEC ROUTINE 


4436 




00340 


READ 


EQU 


4436H 


(READ DISK FILE 


4049 




00350 
00360 


TOPMEM 


EQU 


4B49H 


(DOS TOP OF MEM PTR 


FD20 




00370 
00380 


I 


ORG 


0FD2BH 








00390 


. ********** 










00400 


I SYSTEM 


STORAGE 


LOCATIONS 








00410 


. ****** 


• *** 










00420 


1 








0020 




00430 


DCB 


DEFS 


32 


(FILESPEC STORAGE 


FD28 




• 0440 


EOF 


EQU 


DCB+8 


(EOF STORAGE IN DCB 


FD2C 




00450 


ERN 


EQU 


DCB+12 


;END REC. NUMBER IN DCB 


FD2A 




00460 


NRN 


EQU 


DCB+10 


(NEXT REC. NUMBER IN DCB 


FD40 


00FF 


00470 


BUFPTR 


DEFW 


DISK 10 


(POINTER TO DATA BUFFER 


FD42 


0000 


00480 


CHRCNT 


DEFW 


a 


(BUFFER CHAR COUNT 


0001 




00490 


COPYS 


DEFS 


i 


(# OF COPIES STORAGE 


0001 




00500 


E0FCNT 


DEFS 


i 


(EOF SECTOR BYTE COUNT 


PD46 


•f 


00510 

00520 


FLAG 
1 


DEFB 


■ 


(1ST CHAR OF FILE FLAG 


FD47 


50 


00530 


FNAME 


DEFM 


'PRTl/DAT 1 


(DEFAULT FILESPEC 


FD4F 


0D 


00540 




DEFB 


13 




FD50 


08 


00550 

00560 




DEFB 







0002 




00570 


KEYDVR 


DEFS 


2 


(KEYBOARD DVR STORAGE 


0002 




00580 


KEMSIZ 


DEFS 


2 


(TRUE MEM SIZE STORAGE 


0002 




00590 


SAVTSK 


DEFS 


2 


(INTERRUPT TASK STORAGE 


FD57 


0000 


00610 

00610 
00620 
00630 
•0640 


RECNUH 


DEFW 


8 


(CURRENT SECTOR RECORD 






(SYSTEM 


MESSAGES 




















00650 


1 








FD59 


46 


00660 


MSG1 


DEFM 


'FILEj ' 




FD5F 


03 


00670 
00680 


1 


DEFB 


3 




FD60 


46 


••690 


MSC2 


DEFM 


•FILE NOT FOUND 


1* 


?D7fl 


0D 


• B7B0 
00710 


1 


DEFB 


13 




FD71 


46 


00720 


MSG3 


DEFM 


'FILE COPIES: ' 




PD7E 


03 


00730 

00740 


1 


DEFB 


3 




FD7F 


41 


00750 


MSG4 


DEFM 


' ABORTED ' 




FD86 


0D 


0B760 
00770 


1 


DEFB 


13 




FD87 


50 


00780 


MSG5 


DEFM 


'PRINT COMPLETE 




FD95 


0D 


00790 
00800 
00810 


; 


DEFB 


13 




















00820 
00830 
00840 


j START 


OP THE MAIN PROGRAM 








; 








FD96 


2A4940 


00850 


START 


LD 


HL, (TOPMEM) 


(GET TRUE TOP OP MEM 


FD99 


2253FD 


00860 




LD 


(MEMSIZ) ,HL 


(STORE FOR LATER 


FD9C 


2116FD 


00870 




LD 


HL.DCB-10 


(MEMORY PROTECT LIMIT 


FD9F 


224940 


00880 
00B90 


; 


LD 


(TOPMEM) .HI. 


(DOS TOP OF MEM PTR 


F0A2 


2120FD 


00900 


ASK 


LD 


HL.DCB 


jPT AT INPUT BUFFER 


FDA 5 


ES 


00910 




PUSH 


HL 


(SAVE ADDRESS 


FDA 6 


0620 


00920 




LD 


B,32 


(STORE 32 


FDA 8 


3E20 


00930 




LD 


A.20H 


(SPACE CODES FOR DCB 


FDAA 


77 


00940 


FILL 


LD 


(HL),A 


(STORE SPACE 


FDAB 


23 


00950 




INC 


HL 




FDAC 


10FC 


00960 
00970 




DJNZ 


FILL 


(DO ALL 32 


FDAE 


2159FD 


00980 




LD 


HL.MSG1 


(SIGN ON MSG 


FDB1 


CDCF44 


00990 




CALL 


LOUT 


/DISPLAY MSG 


FDB4 


El 


• 1000 




POP 


HL 


(RESTORE BUF ADDRESS 

Listing 1 continues 
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FDB5 


•620 


01010 




LD 


B,32 


;32 CHAR HAX FILESPEC 


FDB7 


CDD905 


01020 




CALL 


LINEIN 


;GET FILESPEC 


PDBA 


78 


01030 




LD 


A,B 


;GET INPUT LENGTH 


PDBB 


B7 


01040 




OR 


A 


jUSER FILESPEC ? 


PDBC 


20BC 


01050 
01060 


! 


JR 


Nl, DOPEN 


;IF YES THEN 






81070 


(USE DEFAULT 


FILES PEC 








01080 


1 








PDBB 


1147FD 


01898 




LD 


DE,FNAME 


;PT AT DEFAULT SPEC 


PDC1 


EB 


01100 




EX 


DE,HL 




FDC2 


ES 


01110 




PUSH 


HL 


;PT AT PNAME 


PDC3 


CD1C44 


01120 




CALL 


PARSE 


;MOVE SPEC INTO DCB 


FDC6 


El 


01130 




POP 


HL 




FDC7 


CDCF44 


01140 
01150 


1 


CALL 


LOUT 


; DISPLAY DEFAULT 






01160 


• »»»•*»••»* 










01170 


;OPEN 


THE SPOOL FILE 








01188 


.»*•******« 










01190 


1 








FDCA 


2100PF 


01200 


DOPEN 


LD 


HL.DZSKIO 


;DISK I/O BUFFER 


FDCD 


1120PD 


01210 




LD 


DE,DCB 


;PT AT DCB 


FDD0 


•611 


01220 




LD 


B,0 


;LRL-8 


PDD2 


CD2444 


01230 




CALL 


OPEN 


;OPEN SPOOL FILE 


FDD5 


28IP 


01240 




JR 


Z,CONT 


;IF ALLRIGHT THEN 


FDD7 


216BPD 


01250 




LD 


BL,MSG2 


(DISK ERROR MSG 


FDDA 


CDCP44 


01260 




CALL 


LOUT 


(DISPLAY IT 


FDDD 


2A53PD 


01270 




LD 


HL, (MEMSIZ) 


(GET FULL MEMORY SIZE 


FDEI 


224941 


01288 




LD 


(TOPMEM) ,HL 


(STORE FOR DOS 


FDE3 


C32D40 


01290 
01300 


DOS 

; 


JP 


OPSYS 


(BACK TO DOS 






01310 














01320 

01330 


J LINK 


UP INTERRUPT HANDLER 




















01340 


1 








FDE6 


2171PD 


01350 


CONT 


LD 


HL,MSG3 


(COPIES MSG 


FDE9 


CDCP44 


01360 




CALL 


LOUT 




FDEC 


1120FD 


01370 




LD 


DE,DCB 


(POINT AT DCB 


FDEF 


CD3644 


01388 




CALL 


READ 


(READ 1ST RECORD FOR 


FDF2 


3A00FF 


81398 




LD 


A, (DISKIO) 


(FOR COPY COUNT 


FDf5 


3244PD 


01400 




LD 


(COPYS) ,A 


(STORE • IN MEMORY 


POPS 


C630 


01410 




ADD 


A,30H 


(CONVERT TO ASCII 


PDPA 


CD3300 


01420 
01430 




CALL 


CHROUT 


(DISPLAY 
(AND DISPLAY 


FDFD 


218080 


01440 




LD 


HL,0 


(REWIND FILE DCB 


PECO 


222AFD 


01450 
01460 




LD 


(NRN) ,HL 


(STORE IN DCB 


FE03 


F3 


01470 




DI 




(DISABLE INTERRUPTS 


FE04 


2A1045 


01480 




LD 


HL, (INT25) 


(GET TABLE DATA 


FE07 


2255FD 


01490 




LD 


(SAVTSK) ,HL 


;AND SAVE 


FE0A 


2128PE 


01500 




LD 


HL, PRTINT 


(POINTER TO PRT ROUTINE 


FE0D 


221045 


01510 




LD 


(INT25) ,HL 


(INTO INTERRUPT TABLE 


FEU 


3A28PD 


01520 




LD 


A, (EOF) 


(EOF BYTE COUNT FROM DCB 


FE13 


324SFD 


01530 




LD 


(EOFCNT) ,A 


(STORE IN MEMORY 


FE16 


2A1640 


01540 




LD 


HL, (KEYDCB) 


(GET KEY DVR ADDR 


FE19 


2251PD 


01550 




LD 


(KEYDVR) , HL 


(STORE IN MEMORY 


FE1C 


228BFE 


01560 




LD 


(KEY+1) ,HL 


(STORE FOR JUMP 


FE1F 


2163FE 


01570 




LD 


HL, NEWDVR 


(KEY SCAN ROUTINE 


FE22 


221640 


01580 




LD 


(KEYDCB) ,HL 


(INTO DCB 


FE25 


PB 


01590 




EI 




(INTERRUPTS ON 


FE26 


18BB 


81600 
01610 
01620 


; 


JR 


DOS 


(BACK TO DOS WITH 
(INTERRUPT TASK ENABLED 






01638 














81640 
81650 


; INTERRUPT HANDLER ROUTINE 




















01660 


; 








FE2B 


2APE 


01670 
01680 


PRTINT 


DBFN 


HANDLR 


(POINTER TO INTERRUPT 
(HANDLER 


PE2A 


F5 


01690 


HANDLR 


PUSH 


Af 


(SAVE REGS 


FE2B 


E5 


01700 




PUSH 


HL 




FE2C 


DDES 


01710 




PUSH 


IX 




PE2E 


DD2146PD 


01720 




LD 


IX, FLAG 


(PT AT 1ST CHAR FLAG 


PE32 


3AE837 


01730 




LD 


A,(37E8H) 


(READ PRT STATUS 


FE3S 


CB7P 


01740 




BIT 


7, A 


(RDY ? 


FE37 


2025 


01750 




JR 


NZ,DONE 


(IF NOT THEN 


PE39 


2A42PD 


01760 




LD 


HL.(CHRCNT) 


(GET CHAR COUNT 


FE3C 


7D 


01770 




LD 


A,L 


(TEST POR ZERO 


PE3D 


B4 


01780 




OR 


B 




FE3E 


281E 


01790 




JR 


Z,DONE 


(IF ZERO THEN 


FE40 


2B 


01800 




DEC 


BL 


(DEC CHAR COUNT 


PE41 


2242PD 


01810 




LD 


(CHRCNT) ,HL 


(STORE NEW COUNT 


PE44 


2A40FD 


01820 




LD 


HL, (BUFPTR) 


(GET CHAR ADDRESS 


FE47 


7E 


01830 




LD 


A, (HL) 


(GET CHAR 


PE4B 


DDCB0046 


01840 




BIT 


0,(IX) 


(# OP COPYS BYTE ? 


PE4C 


2803 


01850 




JR 


Z,SKIP 


(IF YES THEN 


PE4E 


32E837 


01860 




LD 


(37E8H) ,A 


(OUTPUT TO PRINTER 


FE51 


DDCB00C6 


01870 


SKIP 


SET 


0,(1X1 


(SET FLAG 


FE55 


PE0D 


01888 




CP 


13 


(DATA - CR ? 


PE57 


CC2C02 


■81890 




CALL 


Z, BLINK 


(BLINK "•" 


PE5A 


23 


01900 




INC 


HL 


(BUMP PTR 


PE5B 


2240FD 


01918 




LD 


(BUFPTR) ,HL 


(STORE NEW PTR 


FE5E 


DDEl 


01920 


DONE 


POP 


IX 


(RESTORE REGS 


FF.60 


Bl 


01930 




POP 


HL 




FE61 


Fl 


01940 




POP 


AF 




FE62 


C9 


01950 
01960 


; 


RET 










01970 














01980 
01990 


(LINK 


TO KEYBOARD SCAN 




















02000 


1 








FE63 


3A4038 


02010 


NEWDVR 


LD 


A, (ARROWS) 


(ADDRESS OF <- AND -> 


FEtt 


FE6S. 


12020 




CP 


(IB 


(MANUAL ABORT 7 


PE6 8 


2019 


02030 




JR 


NZ.NEWl 


(IF NOT THEN 

titling 2 continues 




*JAM£ 

FOR YOUNG CHILDREN 



Nine educational and entertaining 
games controlled by a single pro- 
gram. Even very young children can 
select a game, play it, and select a 
difterent game. ALL BY THEMSELVES! 

• PICTURE MENU GIVES CHILDREN 
CONTROL 

• MATCH NUMBERS AND LETTERS 

• COUNT COLORFUL BLOCKS 

• ADD AND SUBTRACT STACKS OF 
BLOCKS 

• LEARN THE ALPHABET 

• PRACTICE SPELLING NAMES 

• COMPARE SHAPES 

• DRAW AND SAVE COLORFUL PIC- 
TURES 

The large numbers and letters fill the 
screen with color. Children enter 
single key stroke responses and get 
immediate visual and musical feed- 
back. Hints are provided when ap- 
propriate. Beyond just teaching 
children basic skills. EARLY GAMES 
makes them feel comfortable as they 
control the computer. Designed for 
children ages 2V2 to 6 years old. 

EARLY GAMES offers the child a 
diverse selection of activities which 
stimulate the process of problem 
solving as well as foster individual 
creativity. 

Pamela Bach, Director 
Youth World Day Care Center 

I took EARLY GAMES home for my kids 
and they really liked it! It held their at- 
tention and they learned from it! 

Jeannette Fritze 
Computer Saleswoman 

EARLY GAMES can help children 
learn new concepts, information, 
and skills and also introduce them to 
the joys and benefits of home com- 
puters. 

Peter Clark, faculty 

Institute of Child Development 

University of Minnesota 

All nine games for $29.95 

(Minnesota residents add 5% sales fax) 

IBM Personal Computer, 

Apple II Plus 

TRS-80 Color Computer 16K Disk or Cassette 

Model I and III 32K Disk or 16K Cassette 





VISA/MasterCard 

LEARNING TOOLS INC 

educational software 

Suite 140E 
Shelard Plaza North 
Minneapolis. MN 55426 
1-800-328-1223 

Minnesota resiaents call 

612-544-4720 - 402 



^S#« List of Advtrtlfrs on Page 451 



80 Micro, December 1982 • 141 



CANADIANS 

NOW IN STOCK 

ADVENTURE INTERNATIONAL 

ACORN SOFTWARE 

APPARATINC. 

BIG FIVE 

COMPUTERWARE 

EPSON PRINTERS 

INSTANT SOFTWARE 

MARK DATA 

MED SYSTEMS 

FANTASTIC SOFTWARE 

SPECTRAL 

WORD PROCESSORS 

BOOKS 

DISK DRIVES 

DISKETTES 

LOWER CASE MOD — MOD I 
$29.95 + S2.00S&H 

AND MORE 

MODI • MOD III • COLOR 

Visa & Mastercard 

Phone or Write for Catalogue 
(403)423-3919 

CMD MICRO 

10546- 106 Street 

Edmonton, Alberta 

T5H 2X6 



• 181 




First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge). 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random vanate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, send payment plus S2.00 shipping 
and handling to: 

Quant Systems 

P.O. Box 628 

Charleston. S C 29402 ^ 194 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 



/ ISIing 
FE6A 


.' continued 
21C03F 


02040 




LC 


HL,3PC0H 


;POS CUROSR ON LAST 


FE6D 


22204B 


02050 




LD 


(CURSOR) ,HL 


tLINE 


FE7B 


217FFD 


02060 




LD 


HL.MSG4 


; ABORT MSG 


FE73 


COCF44 


02070 




CALL 


LOUT 


.•DISPLAY MSG 


FE76 


CDB4FE 


02080 




CALL 


D I SCON 


; DISCONNECT FROM OS 


FE79 


C5 


02090 




PUSH 


BC 


;SAVE REG 


FE7A 


010000 


02100 




LD 


BC,0 


; DELAY COUNT 


FE7D 


TD6000 


02110 




CALL 


DELAY 




FE80 


CI 


02120 




POP 


BC 




FE81 


AF 


02130 




XOR 


A 


;-A" - 


FE82 


C9 


02140 
02150 
02160 


; 


RET 










02170 


;JUMP 


HERE IF 


NOT MANUAL ABORT 








02180 














02190 


; 








FE83 


2A42FD 


02200 


NEWl 


LD 


HL, (CHRCNT) 


;GET CHAR COUNT 


FE86 


7D 


02210 




LD 


A,L 


;TEST FOR ZERO 


FE87 


B4 


02220 




OR 


H 




FE88 


2803 


02230 




JR 


Z, RDISK 


;IF ZERO - READ DISK 


FE8A 


C30000 


02240 
02250 
02260 


KEY 


J? 


S-S 


;TO NORMAL KEY ROUTINE 


















02270 
02280 


;READ 


DISK RECORD 




















02290 










FE8D 


1120FD 


02300 


RDISK 


LD 


DE,DCB 


;PT AT DCB 


FE98 


CD3644 


02310 




CALL 


READ 


;READ RECORD 


FE93 


2840 


02320 
B2330 
02340 




JR 


Z.ROK 


;IF ALLRIGHT THEN 


















02350 


; CHECK 


FOR MULTIPLK COPIES 








02360 














02370 


; 








FE95 


PE1C 


B238B 




CP 


1CH 


;EOF ERROR CODE ? 


FE97 


2017 


B239B 




JR 


NZ, ABORT 


;IF NOT - REAL PROBLEM 


FE99 


2144FD 


B24BB 




LD 


HL,COPYS 


;PT AT » OF COPIES 


FE9C 


35 


B241B 




DEC 


(HL) 


1-1 


FE9D 


2811 


B242B 




JR 


Z, ABORT 


;IF ALL DONE THEN 


FE9P 


21B00B 


B243B 




LD 


HL,0 


; PREPARE TO REWIND 


FEA2 


222APD 


8244B 




LD 


(NRN) r HL 


j PILE TO BEGINNING 


FF.A5 


2257FD 


B245B 




LD 


(RECNUM) ,HL 


I CURRENT SEC RECORD - 


FEA8 


3A28FD 


B246B 




LD 


A, (EOF) 


j GET EOF COUNT 


FEAB 


3245FD 


B247B 




LD 


(EOFCNT) f A 




FEAE 


18DA 


B248B 
0249B 
025BB 


t 


JR 


KEY 








0251B 


;IF ERROR OR 


FINISHED - DISCONNECT EVERYTHING 






B252B 


. •»»»*»«**» 










B253B 


; 








FEB0 


218AFE 


B254B 


ABORT 


LD 


HL,KEY 


;C0NT ADDR ON STACK 


FEB3 


ES 


B255B 




PUSH 


HL 




FEB4 


F3 


02560 


D I SCON 


DI 




; DISABLE INTERRUPTS 


FEB5 


2A55FD 


02570 




LD 


HL, (SAVTSK) 


;GET INTERRUPT TASK 


FEB8 


221B45 


02580 




LD 


(INT25) ,HL 


j BACK INTO OS 


FEBB 


2A51FD 


02590 




LD 


HL.(KEYDVR) 


;NORM KEY DRIVER 


FEBE 


22164B 


02600 




LD 


(KEYDCB) ,HL 


;INTO DCB 


FECI 


2A53FD 


02610 




LD 


HL,(MEMSIZ) 


;GET TRUE MEM SIZE 


FEC4 


22494B 


02620 




LC 


(TOPMEM) ,HL 


; STORE FOR DOS 


FEC7 


21C03F 


02630 




LD 


HL,3FC0H 


;POS CURSOR ON LAST 


FECA 


222048 


02640 




LD 


(CURSOR) ,HL 


;LINE 


FECD 


2187FD 


02650 




LD 


HL,MSG5 


; COMPLETE MSG 


FEDB 


CDCF44 


02660 




CALL 


LOUT 


; DISPLAY MSG 


FED3 


FB 


02670 




EI 




/INTERRUPTS ON 


FED4 


C9 


02680 
02690 
02700 


; 


RET 






















02710 
02720 


;READ 


OK SET 


UP CHRCNT AND RETURN 


















0273B 


; 








FED5 


21BBFF 


02740 


ROK 


LD 


HL, DISKIO 


;PT AT DISK BUFFER 


FED8 


224BFD 


02750 




LD 


(BUFPTR) ,HL 


; RESET PTR TO BUFFER 


FEDB 


2A57FD 


0276B 




LD 


HL, (RECNUM) 


; CURRENT REC • 


FEDE 


ED5B2CFD 


B277B 




LD 


DE,(ERN) 


;MAX RECORD • 


FEE2 


DP 


B278B 




RST 


18H 


;ARE THEY EQUAL ? 


FEE3 


2B0B 


B279B 
02800 
02810 




JR 


NZ,MORE 


;IF NOT EOF THEN 


















02820 


;IF SECTOR IS 


ZERO USE EOF COUNT NOT 256 






02830 


j *»•»»•»*«* 










02840 


; 








FEE5 


3A45FD 


02850 




LD 


A, (EOFCNT) 


;GET EOF BYTE COUNT 


PEE8 


6F 


02860 




LD 


L,A 


;INTO HL 


FEE9 


2600 


02870 




LD 


H,0 




FEBB 


2242PD 


02880 




LD 


(CHRCNT) ,HL 


; STORE FOR CHRCNT 


FEEE 


189A 


02890 
02900 
02910 


1 


JR 


KEY 




















02920 
02930 
02940 


.•NORMAL 256 BYTE SECTOR COUNT 








1 








PBFl 


23 


02950 


MORE 


INC 


HL 


;INC SECTOR COUNT 


FEF1 


2257FD 


02960 




LD 


(RECNUM) ,HL 


; STORE UPDATED VALUE 


FEF4 


210001 


02970 




LD 


HL,256 


j SECTOR DATA CHAR COUNT 


PEF7 


2242FD 


02980 




LD 


(CHRCNT) ,HL 


; STORE FOR CHRCNT 


FEFA 


188E 


0299B 
03000 




J P. 


KEY 


.-EXIT 


FF6B 




0301B 
03B20 




ORG 


0FF00H 




FFBB 




03030 
03040 


DISKIO 


EQU 


S 




FD96 




03050 




END 


START 




BBBBB TOTAL ERRORS 
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ESTATE PLANNING MODEL ^ ■ 
SAVE TIME AND MONEY 

by using your TRS-80* Model II, 64 K computer 
for professional estate analysis. 

•& Marital Deduction Formula Analysis Reports 

analyze six formula bequests for both husband 
and wife for both orders of death. 

t> Estate Tax Return Report computerizes estate 
tax planning for decedents' estates. 

£ Client-Ready Reports printed. 

•& State (Ohio) and Federal Taxes computed. 

it Free Updates to reflect legislative changes 
for one year. 

i: Sold and maintained by author: an attorney 
and estate planning professional. 

ti ALREADY REVISED to comply with 1981 
TAX REDUCTION ACT. 

YES, please send me more information on the 
Estate Planning Model. 

Name 

Name of Firm 

Street 

City 



State 



Zip 



Mail to: Beard Software Development Co. 
59 Skyline Avenue 
Canfield. Ohio 44406 



'TRS-80 is a trademark ot Tandy Radio Shack. 



DC/CMD 

DISK CATALOGUE 



Finally, after more than nine 
months, of development, a 
universal diskette management 
system. A software package 
designed to keep track of all of 
your diskettes and programs 



Contains. 

* Quick sort routine for sorting by 
program name, or program ex- 
tension, or disk number, or a 
combination of interwoven sorts. 

* 255 0isk/510sidestorage capac 

ity per data file. 

* Virtually unlimited printing and 
data access parameters. 

* Pays for itself the first week. 

(TRS MODELS I & III Only) 




UEtf 



•265 

ITM 



P & P CORPORATION 

POBox 362* HADDONFIELD NJ 08033 

?o\ L L l F «i 800-257-6170 

m /ve*v jersey 609-428-3900 



COMPUTER KITS- FROM $69.95 




LNW SEMI-KITS can save you hundreds of dollars. By obtaining your own parts at the lowest 
possible cost and assembling the LNW SEMI-KITS, you can have the most highly acclaimed 
microcomputer in the industry- the LNWSO. The LNW SEMI-KITS are affordable modules. You 
can start with a modest cassette system and expand to a full 4Mhz TRS-80 compatible system with 
5 or 8 inch double density disks and color at any time. 

A. LNWSO CPU - Made of high quality FR4 glass epoxy double sided circuit material, with plated- 
through holes and gold edge connector. It is fully solder-masked and silk screened. Here are just 
some of the outstanding features you will have when your . LNWSO CPU board is fully assembled: 
• 1 6K RAM • Color and black and white video • 480 x 1 92 high resolution graphics • 64 and 80 
column video • 4 Mhz Z80A CPU • Upper and lower case display • 500 and 1 000 baud cassette 
I/O -$89.95 

B. SYSTEM EXPANSION- Expand the LNW80 computer board. TRS-80 and PMC-80 computer 
with the following features • 32 K. memory ■ Serial RS232C and 20Ma pod • Real time dock • 
Parallel printer port • 5 inch single density disk controller • Expansion busiscreen printer port) • 
Onboard power supply • Solder-masked and silk screened legend- $69.95 (tin plated contactsi - 
$84.95 (gold plated contactsi 

C. KEYBOARD- 74 key expanded professional keyboard -includes 12 key numeric keypad. Fully 
assembled and tested. - $99.95 

D. COMPUTER CASE - This stylish instrument-quality solid steel case and hardware kit gives your 
LNW80 that professional factory-built appearance - $84.95 Add $12 00 for shipping. 

E. SYSTEM EXPANSION CASE- This stylish instrument-quality solid steel case and hardware kit 
gives your SYSTEM EXPANSION interface that professional factory-built appearance. -$59.95 
Add $10.00 for shipping. 

F. LNWSO CPU - HARD TO FIND PARTS KIT - $82.00 
Q. LNWSO VIDEO - HARD TO FIND PARTS KIT - $31 .00 

H. SYSTEM EXPANSION - HARD TO FIND PARTS KIT - $27.50 
I. LEVEL II ROM set (6 chip set) - $120.00 

VISA and MasterCard accepted Add S3. 00 tor shipping plus Si. 00 for each additional item All 
shipments via UPS surface. Add S2.00 for U.S. Mail. Shipments outside continental U S funds must 
be U.S. dollars. Sufficient shipping costs must be included with payment. 

ORDERS A INFORMATION - (714) 544-5744 
SERVICE - (714) 841-8850 



LNW Research Corp. 

2620 WALNUT Tustin, CA. 92680 



■See List o/ Advertisers on Page 451 



80 Micro, December 1982 • 143 







The facts. 
And nothing but the facts. 

Epson. 
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Our MX Series printers are the best-selling 
dot matrix printers in the entire world. This 
is why. 

Fact One: We've got your type. 

Epson invented correspondence quality 
printing. And we still do it better than any- 
body. 

But more importantly, we do more of it than 
anybody. On every Epson MX printer, you 
get a choice of sixty-six different type styles, 
including italics, a handy subscript and 
superscript for scientific notation and small 
print, enough international symbols to print 
most Western languages, and one-pass 
underscore. All in a tack-sharp, easy-to-read 
9x9 matrix with full descenders. 

If print quality is important to you, your 
next printer is an Epson. 

Fact Two: Ultra-high resolution graphics. 

There simply is no higher resolution graphics 
than GRAFTRAX-PLUS. And it comes stan- 
dard on every MX. 

You get bit image graphics free of wander, 
walk and jitter; graphics with blacker blacks 
and better definition because you can pre- 
cisely place a dot at any of 25,920 positions 
inside a square inch (that's 120 DPI h x 216 
DPI v); graphics that make our printers rival 
plotters. 

If graphics is what you want, your next 
printer is an Epson. 

Fact Three: Feature shock. 

The Epson MX Series is packed with the fea- 
tures printer fanatics want most. A bidirec- 
tional print head with logical seeking of the 
shortest line. Programmable tab, form length 
and right margin. Top of forms recognition. 
Skip over perf. Software printer reset. True 



"In my judgment, 
this is the 
best printer 
you can buy." 



backspace. Self test. The world's only dispos- 
able print head. And more. Lots more. On 
our MX-100 and MX-80 F/T, you even get 
both friction and tractor paper feed. 

If you want performance, your next printer 
is an Epson. 

Fact Four: Incredible reliability. 

Epson MX Series printers are the most reli- 
able printers ever made. And the reason is 
precision. 

Take a look inside one and you'll under- 
stand. Notice the simplicity, the fit, the 
finish. That's why Epson has an out-of-box 
reliability rate others can only envy: 98%. 
And why our mean cycles between failures 
(MCBF) is over five million lines. 

The whole package is neatly wrapped in a 
rugged plastic injection-molded case de- 
signed to look good — and stay looking good. 

If you want a printer that works, and keeps 
on working, your next printer is an Epson. 

Fact Five: World's best seller. Period. 

Within months after we introduced the Epson 
MX-80, it was the best selling dot matrix 
printer in the world. It still is. Not because of 
anything we said, but because tens of thou- 
sands of computer enthusiasts went out and 
did some serious comparison shopping. They 
decided it was the best printer for the money 
they could buy. And who are we to argue? 

If you want the world's best seller, your 
next printer is an Epson. 

Fact Six: Quality doesn't cost more. 

Don't take our word for it. Check it out. Look 
at what they give you. Then look at what we 
give you. Then look at the price. 

There is only one logical choice. Epson. 

And that's the truth. 

Your next printer. 

EPSON 

EPSON AMERICA, INC . 

COMPUTER PRODUCTS DIVISION 

3415 Kashiwa Street 
Torrance, California 90505 
(213) 539-9140 




-See List of Advertisers on Page 451 
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UTILITY 



LOAD 80 



A Matter of Compatibility 



by Art Huston 



M 



ake your program submissions to 80 Micro 
compatible with other sytems with this short 
routine. Your readers will appreciate it. 



Imagine the frustration of a first-time 
reader who types in a long program on- 
ly to come up with an undefined user 
function or Level III error. Maybe the 
author states, "1 have a 16K Model I, 
but this program can easily be changed 
to work on a 48K Model III with 
disks." But he doesn't explain further, 
because he doesn't have the machine to 
test the change. 

The Problem 

This occurs most often when the pro- 
gram is written in Basic with machine- 
language routines read from data state- 
ments and POKEd into RAM. All too 
often the author only makes provisions 
for the program run under his system. 

For example, let's say an author has a 
16K, Level II Model I and he POKEs a 
routine into high RAM. For a 68-byte 
routine, he would probably choose to 
POKE the routine in starting at 32700 



and ending at 32767: 



10 for x 
X,Y:NEXT 



32700 TO 32767:READ Y:POKE 



Then he would tell the Basic interpreter 
what address to branch to when en- 
countering a USR statement. He would 
do this by POKEing the address into 
16526 and 16527: 

20 X = 32700:X2 = X/256:X1=X-X2'256: 
POKE16526,Xl:POKE16527,X2 

Later in the program he would have a 
line that would call the machine-lan- 
guage routine: 

100 X = USR(0) 

If a relative newcomer to computers 
tries to use this program on a 48K 
Model III under Disk Basic, he will 



10 REM ** UNIPOKE 
20 INfUT"Number o 
30 Z2«PEEK(16561) 
40 Zl«Z2-NB+l'Zl= 
50 Z-Z1-1:Z4-INT( 

'last byte use 
60 FOR Z-Zl TO Z2 

'POKE in the 
70 IFPEEK(16396) « 
80 DEFUSR=Z1+(Z1> 
90 Z4«=INT(Zl/256) 
'Entry to Us 
100 CLEAR50: 

'Clear string 

and string s 

110 •**** Here Be 



f bytes to POKE";NB 

+256*PEEK(16562) 'Z2=last byte Basic will use 

beginning POKE location 

Z/256) :Z3-Z-Z4*256:POKE16561,Z3:POKE16562,Z4: 

d by Basic is one below start of routine 

:READ ZZ:POKE Z+ ( Z>32767) *65536 , ZZ :NEXT 

outine 

201THEN90 'Test for Cassette Basic 

32767) *65536:GOTO100 'Entry to USR for disk 

:Z3=Zl-256*Z4:POKEl65 26,Z3:POKEl6 527,Z4 

er for cassette 

space. ROM routine corrects amt. of MEM 
torage to agree with 16561,16562 
gins the Rest of the program **** 

Program Listing 1 



meet up with only frustration and prob- 
ably give up. 

When he runs the program, it will 
quickly crash with a UL or syntax error. 
A listing of the program shows that 
some of the lines are pure gibberish, 
whereas before the run they were per- 
fectly normal. What happened? 

Our newcomer is unaware that Disk 
Basic takes up space in memory. A pro- 
gram that loads in at 17129 under Level 
II (17385 for Model III) loads in at 
around 28000 under Disk Basic. When 
it POKEs a routine in at 32000, it over- 
writes itself. The result is a scrambled 
listing. 

The new reader perseveres. He sum- 
mons a friend and between them they 
manage to move the POKE routine into 
high memory for 48K. Line 10 now 
reads: 

10 FOR X = 65468 TO 65535 : READ Y: POKE 
X,Y:NEXT 

When the program is run again, the 
screen says, "Overflow error in 10." 
The user begins to pull his hair out. 

His friend says, "When you POKE 
above 32767, you have to subtract 
65536 from the location you're POKE- 
ing." After much trial and error they 
come up with: 

10 FORX = 65468 TO 65535:READ Y:POKE 
X - 65536, Y: NEXT 

This seems to work just fine, and 
hope begins to dawn for our computer 
neophyte. Then, suddenly, the comput- 
er reports an undefined user function in 
100. Faced with this ultimate insult, our 
user gives up. 

How is our would-be computerist 
to know that a DEFUSR is all that's 
needed? He only needs to tell the Basic 
interpreter where the routine is located 
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If you're tired of playing 
games with your TRS-80— 




Turn it into a high 
power computer! 

Now you can give full CP/M 
capabilities to your TRS-80. 

Announcing the new 
Compactor family from 
Hurricane Laboratories. We know 
limitations are a reality but we put 
on our thinking caps and did 
something about it. The new 
Compactor II (112K) gives CP/M 
2.2 capabilities to the Model III 



30-day money-back guarantee on 
Compactor II if not totally satisfied. 



without altering the TRSDOS and 
TRS-Basic environment. It's fast, 
it's easy to install and needs no 
extra hardware. The Compact IV 
enhances the video display to 80 x 
24. In short, Compactors make 
your Model III an intelligent and 
powerful computer. So why not 
quit playing games and put that 
TRS-80 to work! It's as simple as 
saying, "...Compactors by 
Hurricane Labs." 



P 




Write to us or ask your TRS-80 dealer for all the lack 
about the new Compactor Family from Hurricane Labs. 



5149 MOORPARK AVENUE. SUITE 105 HURRICANE SAN JOSE. CALIFORNIA. (408)257-8676 

aboratories Inr 



^See Usi ot Advertisers on Page 451 



80 Micro, December 1982 • 147 



and the program will run correctly: 

20 DEFUSR = 65468 - 65536 

Let's be kind to this individual and 
try to ease his way into programming. 
After all, POKEs, PEEKs, and 
DEFUSRs are advanced stuff that he 
won't use for years. The key to helping 
him is to make the programs as compat- 
ible as possible. 

A Routine for All Systems 

A routine that would work with 16K, 
32K, or 48K, disk or cassette, Model I 
or Model III would end the beginner's 
frustration. Such a routine would check 
for the top of memory and POKE the 
routine in. Then it would check for a 
disk or cassette system and do a 
DEFUSR or POKE the correct address 
in. Last, it would reset memory size to 
protect the machine-language routine. 

To do these tasks we need the follow- 
ing information: 

• Locations 16561 and 16562 point at 
the highest memory location usable by 
Basic on both the Model I and Model 
III. Changing these locations is equiva- 
lent to setting the memory size. 

• IF PEEK( 16396) = 201* then cassette 
Basic is in operation, else we are in Disk 
Basic. 

• Cassette Basic on the Model I and III 
POKEs the starting address of the ma- 
chine-language routine into 16526 and 
16527. 

• Disk Basic on the Model I and III 
uses a DEFUSR statement to determine 
the start of the machine-language 
routine. 

Program Listing 1, UNIPOKE, is a 
routine to do all the above. Program 
Listing 2 is a compressed version, and 
Listing 3 demonstrates how it works. If 
you use UNIPOKE to POKE in your 
machine language, there should be no 
problems with DEFUSRs or moving 
POKEs higher or lower. 

In Listing 1 , line 20 is a dummy line 
that you should take out of your pro- 
grams. It simply asks for the number of 
bytes you wish to POKE into memory. 
In your programs you should set NB 
jqual to the number of bytes in your 
machine-language routine. 

Line 30 sets Z2 equal to the highest 
location usable by Basic. Line 40 sets Zl 
equal to the address at which to begin 
POKEing. Z2 will be the last location. 

In line 50, Z is set equal to one byte 
below the routine. Then the value of Z 
is POKEd into 16561 and 16562. These 
locations tell Basic the highest location 
it can use and protect the machine-lan- 
guage routine from being overwritten. 
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10 REM ** UNIPOKE compressed version** 




20 INPUT"Number of bytes to POKE";NB 




30 Z2 = PEEK(16561) +256 *PEEK ( 16562) : Zl = Z2-NB+l : Z = Zl-l 


Z4=INT(Z/256 


) :Z3=Z-Z4*256:POKE16561,Z3:POKE16562,Z4:FORZ=ZlTOZ2 


READZZ:POKEZ 


+(Z>327 67) *65 536, ZZ: NEXT 




40 IFPEEK(16396) =201THENZ4=INT ( Zl/ 256 ) : Z3=Zl-256 *Z4 


POKE16526 ,Z3 


.-POKE16 526 , Z4KLSEDEFUSR=Z1+(Z1>327 67) *6 5 536 




50 CLEAR50 




Program Listing 2 





10 REM ** UN 
20 CLS:CLEAR 
) +256*PEEK(1 
Last Byte av 
30 INPUT"Num 
40 Z2=PEEK(1 
50 Z1«=Z2-NB+ 
60 Z=Z1-1:Z4 
'last byt 
80 IFPEEK(16 
90 DEFUSR-Z1 
100 Z4=INT(Z 
'Entry to Us 
110 CLEAR50: 
'Clear s 
and str 

120 PRINT"ME 
16545)+1" 
Last Byte av 
String spc m 
130 IFINKEYS 



IDEMO (Demonstrates how UNIPOKE works) ** 

50:PRINT"MEM="MEM, "String Space starts at"PEEK ( 16544 

6545)+l," 

ail to Basic="PEEK(16561) +256*PEEK ( 16562) 

ber of bytes to POKE";NB 

6561) +256*PEEK(16562) 'Z2=last byte Basic will use 

1 ' Zl=beginning POKE location 

= INT (Z/ 256) :Z3=Z-Z4*256:POKE16561,Z3:POKE16 56 2,Z4: 

e used by Basic is one below start of routine 

396) =201THEN100 'Test for Cassette Basic 

+(Z1>32767) *65536:GOTO110 'Entry to USR for disk 

1/2 56) :Z3=Zl-256*Z4:POKEl6 526,Z3:POKE16527 , Z4 

er for cassette 

tring space. ROM routine corrects amt. of MEM 

ing storage to agree with 16561,16562 

M="MEM, "String space starts at"PEEK ( 16544) +256*PEEK ( 

ail to Basic="PEEK(16561)+256*PEEK(16562) " 

oved lower to make room" : PRINTQ896 , "Press ANY key" 

=""THEN130ELSERUN 

Program Listing 3 



Line 60 actually POKEs the routine 
in. The statement POKE Z + (Z>32767) 
*65536,ZZ looks complicated, but 
isn't. The phrase in the parentheses, 
Z>32767, is checked to see if it is true or 
false. If it is false, it has a value of and 
the entire statement reduces to POKE 
Z,ZZ. If it is true, it has a value of -1 
and the statement reduces to POKE 
Z-65536.ZZ. This routine is used to 
handle POKEs above 32767. 

Line 70 checks PEEK( 16396) to see 
if it is operating in cassette Basic. If so, 
the program jumps to 90. 

Line 80 tells Disk Basic where to Find 
the machine-language routine. Line 90 
does the same for cassette Basic. 

Line 100 clears string space. It must 
be a CLEARnnn statement, not just 
Clear. This allows the Basic interpreter 
to check the contents of 16561 and 
16562 and adjust other pointers accord- 
ingly. It also frees up all variable space, 
so that the variables in UNIPOKE will 
not take up any room. 

Restrictions and Alternatives 

This routine respects the top-of- 
memory setting when you enter 
Basic — it will not overwrite anything 
already in high memory (like a 
keyboard debounce routine). This 
means, however, that each time the 
routine is executed it will set the top of 



memory lower and lower, eventually 
resulting in an out-of-memory error. If 
you use Run to restart a program, be 
sure it is Run nnnn, where nnnn is the 
first line number after this routine. 

Using this routine will ensure that 
program users will not have to relocate 
machine language, change DEFUSRs 
to POKEs, or POKEs to DEFUSRs. It 
will make your program user-oriented 
in the best sense of the word. 

This routine will not make all pro- 
grams compatible with all systems. It 
will not make a program with disk in- 
put/output work correctly on a cassette 
system. If a Model I machine-language 
routine calls locations in ROM, it may 
crash on the Model III. Changes like 
these will always require you to tinker. 

Programs that POKE the machine 
language into strings or into remark 
statements will only need lines 70-90 of 
UNIPOKE. These lines simply do a 
DEFUSR or POKEs, depending on 
whether the system is cassette or disk. In 
line 60, set Zl equal to the location of 
the machine-language routine. 

If you don't include this routine at 
the beginning of your program, include 
the changes for other systems some- 
where in your article. ■ 

Art Huston is a technical editor for 
80 Micro. 



NEW for the Color Computer TR5-80 

COCOCASSETTF SUBSCRIPTION SOFTWARE 




ENJOY A MONTHLY COLLECTION OF fl-10 PROGRAMS! 



Including gomes education home finance and more 
on cossette for os low os (5.00 a month! Add some oc 
tion ond imagmotion to your Color Computer Best of 
all we do the work 1 



PRICES 

1 YfX (1 2 ISSUES) 
6 MO (6 ISSUES) 
SINGLF COPIES 

-MICHIGAN RESIDENTS ADD 4% TO ORDER 
OVERSEAS ADO ViOOO TO SOOSCRIPTiOn ANf 
SiNCriE COPIES 



S55 00 
S30 00 
S 6 00 



616 396-7577 




PAOGRamS ARF FOR 
f XTfNDED DASIC 
mODFa Only ISSUES 

ARE SENT FIRST CLASS 



~ SUBSCRIPTION SOFTWARE 



SEND CHECK OR MONEY ORDER TO 



VISA' 



T b D SOFTWARE P.O. BOX 256-C • HOLLAND. MICH 49423 



EPSON MX 100 III. MX 80 -FT III, MX 80 III CALL FOR PRICE 

Okidata 60 Printer 80 CPS. List $449 $330.00 

Okidata 82A Printer 1 20 CPS. List $649 $440.00 

Okidata 83A Printer 1 20 CPS. List $1,119 $675.00 

Okidata 84 Printer (parallel) 1 32 column. 200 CPS $980.00 

Okidata 84 Printer (serial) 1 32 column. 200 CPS $1050.00 

Okidata 2350 Printer (parallel) 132 column, 350 CPS two color 

ribbon, List $2,800 $1860.00 

Smith Corona TP-1 Daisy wheel printer, parallel or serial. 10 or 

12 pitch. List $895 $615.00 

BMC 1 2AU 1 2 inch 1 5 MHZ, green on black monitor $95.00 

BMC 1 2EU 1 2 inch 20 MHZ. green monitor with non glare screen $129.00 

DC Hayes Smartmodem (300 & 1 200 BAUD) List $699 $505.00 

DC Hayes Smartmodem. List $279 $219.00 

Diskette storage case for 5% inch diskettes (holds 1 00 diskettes) $18.00 
Practical Peripherals Epson Buffer (parallel 16K) for Apple II or 

Radio Shack. List $159 $125.00 

Percom Doubler II $149.00 
Practical Peripherals Micro Buffer Inline 32K (specify serial or 

parallel) $244.00 

Tartdon 40 Track Drive complete w/case & power supply $255.00 

CASH ONLY PRICE MCLUOES money order, certified company t personal check « COD. 

Personal and company checks take two 

weeks to dear. 

Shipping A Handling Charee en light 

items $2.50. Prices subject to change 

without notice. NJ residents add 5% 

ules tax. 

HOURS: 10 AM to 5 PM Weekdays 

After 5 PM and Weekends 

Questionable. 



Send for 
COMPLETE 




•jitit 



P.t BOX 1449 • B10OMFIELD • NJ • 07003 / 




circular 901-751-8444 



COPY MODEL HI, SCRIPSI17 VISICALC 



Only $20 



Works with all model III Visicalc/Scripsit and allows unlimited backups of master disks. Works 
even if you're already backed up twice. Simple, 17 line program. 

And look at these other outstanding values! 



APPARATS 

NEWDOS/80® , 2.0 

$129.95 

Convert Model I Scnpsit and Visicalc to 
Model III. plus Renumber program lines 
-move program lines move blocks of pro- 
gram lines duplicate program lines selec 
tive variable clearing program single step 
ping memory sort multi dimensioned ar- 
rays - swap variables read and write to 
model I disks reference keywords - spool 
printing change disk speeds - disable 
BREAK and CLEAR Much, much more' 

FREE "Layman*. Guide to 

Newdos 80" included with this 
purchase. 



Use VISA Mastercard Money Orders 
Allow 2 weeks for personal checks 
Kansas residents add 3.5% sales tax 



HAYES SMARTMODEM?.. 
$249.95 

Talk with other computers over regular 
telephone lines SMARTMODEM can auto 
dial auto answer repeat allow for audio 
monitoring programmable is FCC ap 
proved direct connect full or half duplex 
capability. 0-300 baud RS-232C interface 
seven status LED's 

VERBATIM 9 
DATALIFE DISKETTES 

5 diskettes come in a reusable plastic 
storage box 

CALL TOLL FREE! 
1 - 800 - 835-0071 

IN KANSAS: 
316-665-3611 



ST80 111?..$ 129.95 

Smart terminal communications package 
Allows file uploading/downloading 
Emulates many different terminals Total 
operator control (Written by Lance 
Micklus ) 

FREE 
Catalog price list 

of all Sales Data Direct-Order merchan 
dse available upon request Super prices 
Rapid delivery Quality products 




526 E. 4th Hutchinson, Kansas 67501 
316/665-3611 

Dealer Inquiries Invited. 

Phone or write Sales Data, Inc 



• See List of Advertisers on Page 451 



80 Micro, December 1982 • 149 



TECHNIQUE 



Tracking Lobster 



by William F. Kaczor 



Searching for lobster-pot buoys in 
ideal conditions is hard enough — forget 
it in bad weather. Not only that, but try- 
ing to remember where the pots are, 
when they were last hauled, what the 
catch was, and how good the catch was 
is no easy task when you have almost 
100 pots spread over four square miles 
of ocean. 

A Better Way 

Now my micro catches the lobsters. 
Well, not physically, but it does make 
lobster catching much easier. 

Prior to this series of programs, my 
friend had been relying on his memory 
to keep track of how well each area was 
doing and where his pots were. (In 
"lobstercse," a pot is a trap set on the 
ocean bottom. This pot, or a string of 
pots tied together, is tied to a floating 
buoy marking its location.) 

Also left to his memory was how 
good or bad the catch was in each area, 
the total caught for the day, and when 
the area was last worked. I was sure the 
computer's memory could do a much 
better job. 

Laying the Ground Rules 

We decided the micro should 
generate a map of each area where he 
works his pots (six areas). Each map 
should show all navigational buoys and 



The Key Box 

Model I or ID 
48KRAM 
Disk Basic 
One Disk Drive 
Printer 



Your TRS-80 can't bait 
a hook, but it can 
help you trap a lobster 
using maps and graphs. 



markers, compass headings, and, of 
course, where the pots are. The maps 
will also show the types of pots (single 
wire, double wire, wood) and the serial 
number of each pot. 

The program should provide a 
tabulated printout grouped together by 
each of the six areas, which lists the 
following: 

• It shows all the pots in that area, 
showing the code for each pot (ex- 
plained later), the amount of "shorts" 
(lobsters too small) in each pot, the 
amount of "keepers" (legal-sized 
lobsters) in each pot, the total for the 
area, the percentage of keepers versus 
total pots worked for each area. Some 
of this data will be used for migration 
tracking and prediction of the most ac- 
tive areas. 

• This printout also shows a total of 
keepers and shorts for all six areas com- 
bined, date worked, and a year-to-date 
total of keepers and shorts for all areas. 

• If there is no data available for 
a given area, the printout should indi- 
cate it. 

The program should also produce a 
bar-graph printout showing keepers 
and shorts per area for each date 
worked. 

Developing the Program 

The program runs slowly, not 
because of Basic, but because my Cen- 
tronics 737 printer is slow. Although it 
is not a graphics printer, all the neces- 



sary map features are recognizable. To 
circumvent its slowness, I set the pro- 
gram up so that once the week's data is 
entered, the whole process runs without 
operator intervention until complete. 

The final outcome is nine separate 
programs producing eight printouts. 
Each program runs the next in proper 
order. All that is required of the opera- 
tor is to enter the initial data, set the 
printer to the top of the page, and start 
the program. 

Computer-generated Maps \ 

We used a pantograph to scale the ac- 
tual marine maps to fit on single-sheet, 
tractor-feed printer paper. I set up a 
grid of 64 by 80 columns to aid in the 
programming design of each map. To 
ease the weekly entering of data coordi- 
nates for each pot, we divided each map 
into 20 sections labeled A-T (the printer 
outlines each sector with dots and labels 
each one) and allocated 20 possible pot 
positions in each section. That's 400 
possible pot locations per map, six 
maps total. 

Also included was the date, map and 
island titles, and to make things pretty, 
the name of the business (I changed the 
name in the example for privacy). See 
Figs. 1-6 for a look at each map. We in- 
cluded all necessary navigational bea- 
cons and markers along with arrow 
compass heading pointing north. 

The Pots 

Each pot has a serial number. There 
are three different types of pots: single 
wire, double wire, and wood (coded 
SW, DW, and W respectively). We at- 
tach a location code to each pot show- 
ing what sector and position within the 
sector each pot is in. A pot code might 
read C10DW36, meaning sector C, pot 
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Expensive 




EXPENSIVE- The I.N W 

System Expansion II and built-in '•£$!$ ■■■-■' 
comes with a full 32K of 200ns RAM,V?£" ' 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-2 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price. LNW'a System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS. is 
100 f , TRS-80 Model 1 compatible and it works 
'right out of the box". If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #7 - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp. 

2620 WALNUT Tustin. CA. 92680 
(714)641-8850 (714)544-5744 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model I computer. 

EXPANSION OPTION - 8-inch drive capability 
is as easy as plugging in the LNDoubler r>/H 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided. 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes - 77-track single sided, 
double-density or 1,182,720 bytes 77-track 
double-density, double-sided. 

The LNDuubler's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double-density disk 
operating system (DOS + 3.3.9), complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single sided 5 inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80' < increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage that's more storage 
than a Model II or Model III! 



^32 




•8" drive operation require* special i-aMe, m'" 
double-density require* S.MMHi CPU »|ieed up 
,' Ion ..i I ,NW-80 4MH7 computer. 



position 10, double wire, serial number 
36. When printed on the map, it's 
shown with an asterisk, *C10DW36. 

As each map is printed, the program 
checks the data file for that map, and by 
the code assigned to each pot, prints the 
pot in its proper place on the map. 

Entering Data 

I wrote a file editor to modify data 
files. A typical session at each map area 
includes loading last week's data, en- 
tering the current date, telling the editor 
to set the keepers/ shorts file to zero 
(previous data had already been added 
to the year-to-date file at the end of the 
last run). 

Now, with a new file date, we delete 
or move any pots necessary, then enter 



the new date, keepers/shorts for each pot. 

When writing the editor, I used IN- 
KEY$ as much as possible — the fewer 
the keystrokes the better. A listing to 
screen, showing the pots in each area 
and pot codes, aids in the efficient up- 
date of each file. 

After entering each map's data, the 
file is saved to disk for later use. When 
all six map files have been updated, we 
start the first print routine and then go 
about our business. The routine will 
now run itself: printing out each map 
while accessing the proper data file put- 
ting the pots on each map in the proper 
location; printing out a copy of all the 
pot information on a tabulation sheet 
showing each pot code, shorts, keepers, 
and percentage caught versus traps 
worked, totals for each area, and year- 



to-date totals; printing out a bar graph 
of the shorts versus keepers for each 
map. This allows us, at a quick glance, 
to see how each area is doing. 

Success 

Now it's easy to locate traps. We can 
study the maps, data printouts, and bar 
graph to see what areas are producing 
and which are not. Then decisions can be 
made for moving pots into other areas. 

We hope to see migration trends 
from the gathered data or at least try to 
predict which areas to move the pots to 
and increase the catch. 

My friend says life is much easier 
now. He spends much less time hunting 
for pots. On bad days when he can't go 
out, he studies his data. ■ 



Program Listing 1 



3 CLEAR32BB:ON ERROR GOTO 3556iDEPSTRV,H,N,D, A:DEFINTU,B,0,X:DIN 
ZS(2I,2I) ■ H-'I*:A-*I*iV-*i*iH-*.*iCLSiPRINTM65, 'WORKING riLENAN 

E *,CHR$(34) j 'BAKERS*, CHRS(34) :GOSUB35MiGOT08 

5 LPRINTTAB(l)DljTAB(16)D2,TAB(19)V,TAB(21)D3|TAB(3B)D4rTAB(39)V 
jTAB(41)D5|TAB(S6)D6,TAB(59)V|TAB(61)D7;STRINGS(76-PEEK(16539) ,3 
2) tDSiRETURN 

7 LPRINTTAB(19)V,TAB(39)V)TAB(59)ViRET*JRN 

8 GOSUB7:LPRINTSTRINGS(86,H) iGOSUB2IM: S-l i L-l 

II LPRINT*(A)*|TAB(3)*I*>TAB(19)V,*(B)*,TAB(39)V>*(C)*;TAB(59)V| 
*(D)*iUl-BiGOSUB166S 

2B LPKINTTAB(2)*IIII*,TAB(1B)D2|T»W(19)V,* *D3|TAB(38) D4|TAB(39) 
V,* *D5»TAB(5B)D6»TAB(59)V;* *D7 | STRINGS (7B-PEEK ( 16539) , 32) i D8 : G 
OSUB1MI 

31 LPRINTTAB(4)*I*»TAB(1B)D2»TAB(19)V,* "D3 jTAB( 38) D4| TAB( 39) Vj ■ 
*D5,TAB(5B)D6;TAB(59)V»* "D7 | STRINGS ( 7B-PBEK(16539) ,32);D8iU5-6 
lU6-6:GOSUB16BB 

48 LPRINTTAB(1B)D2,TAB(19)V;* "D3)TAB(3B) D4;TAB(39) VjTAB( 43) '• P 
L 4 SEC";TAB(59)V;* *D7 » STRINGS (7B-PEEK ( 16539) ,32) | D8:GOSUB16BB 
58 LPRINTTAB(5)*I*»TAB(16)D2|TAB(19)V(* *D3|TAB(3S)D4|TAB(39) V ( T 
AB(44)*9 BELL* » TAB ( 59) V» ■ *D7,STRINGS(78-PEEK(16539) ,32) ,D8:U5-1 
:U6-liGOSUB1866 
68 D1-* "1GOSUBS1GOSOBI888 

78 LPRINTTAB(6)A;TAB(18)|D2»TAB(19)Vi" *D3|TAB( 38) D4jTAB( 39) V f ■ 
"D5;TAB(56)D6|TAB(59)V»* *D7, STRINGS (78-PEEKI 16539) ,32) »D8:GOSUB 
2SS8iGOSUB18B8 
88 GOSUBSiGOSUBlBBB 
98 GOSUB5iGOSUB18BS 
188 GOSOB5:GOSUB18BB 
118 GOSUB5:GOSUBl666 
128 LPRINTSTRINGS(86,H) :S-2:L-1 

138 LPRINT* (E)*,TAB( 19) V»*(r)*|TAB(39) V;*(G)*|TAB( 59) V»*(H)* :U5- 
BiU6-6:GOSUB1886 

148 GOSUB38eB:LPRINTTAB(39)V|TAB{43)M|N|N,M|N|' *,N|M|H|lliTAB(5 
9)V,* ■D7iSTRINGS(76-PEEK(16539) ,32) |D8:GOSOB188B 

158 GOSUB3BB6«LPRIWTTAB(39)V|TAB< 42)H> TAB(48)N»N|TAB(S4)K|N|TAB( 
S9)V,* *D7;STRINGS(76-PEEK(16539) ,32) ;D8tGOSOB1888 
168 GOSUB3BBB:LPRIKTTAB(39)V|TAB(42)N|TAB(56)N|N|" *,V>* *D7|STR 
INGS(7B-PBEK<16539) ,32) 1D81UI-B 1GOSUBI888 

178 LPRINT** RN2*,TAB(1B)D2>TAB(19)V,* *D3|TAB(36) D4 ;TAB( 39) V|TA 
B(42)H|TAB(53)***,TAB(58)N»V,* *D7,STRINGS{76-PEEK(16539) ,32)|D8 
iU7-6iUl-l:GOSUB1668 

188 GOSUB38BB:LPRINTTAB(39)V|TAB(41)N|TAB(46)"LIGBTHOOSE'|TAB(59 
)M>H|N>M|NjSTRINGS(7S-PEEK(16539) ,32) |D8:GOSUB18BI 
198 GOSUB38aSiLPRINTTAB(39)VrTAB(41)N|STRING$(64-PEEK(16539) ,32) 
|N|II|* "|D8iGOSUBliBI 

288 GOSUB3B66tLPRINTTAB<39)V,lliSTRING«<66-PEEK(16539),32)|ll,* 
"1D81GO8UBIS88 

218 GOSOB3888:LPRINTTAB(39)V|lljSTRINC${67-PBEI(16539) ,32)|Nf' ■ 
|D8iGOSUB1886 

228 GOSUB366S:LPRINTTAB(39)V,* * ,11, STRINGS (66-PEEK( 1653 9) ,32) lM| 
* '|D8iGOSUB1888 

238 GOSUB3888iLPRINTTAB(39)V|* *|N,STRINGS(67-PEEK( 16539) ,32) |Hi 
■ "iD8 

248 LPRINTSTRINGS(39,H) |M|H)N|TAB{48) 'BAKERS ISLAND* /STRINGS (68- 
PEEKI16539) ,32) >M,STRINGS(11,H) iGOSUB2888 1 S-3 «L-1 

258 LPRINT'(I)',TAB(19)V,'(J)',TAB(37)N|ll,STimiGS(69-PEEK(16539) 
,32) ,H,* (L) *:U8-8iU5-8tU6-8:U7-8:GOSOB1888 

268 GOSUB38B6:LPRINTTAB(39)H|ll,N,TAB(58)DATESiSTRINGS(69-PEEK(16 
539) ,32) ;N ( M:U2-8iGOSUB188S 

278 LPRIHT' 'Dl ,TAB(12) *• C3' |TAB( 19) V| ' *D3|TAB(3S) |D4;TAB( 48) H 

|STRINGS(68-PEEK(16539) ,32) >M|NiU8-liU2-liGOSUB1686 

288 GOSUB3888:LPRI«TTAB(39)H>STRINGS(67-PEEK(16539) ,32)|N;N f * *D 

81GOSUBIII8 

298 GOSUB3888iLPRI»TTAB(38)I(rSTRINGS|65-PEEK(16539) ,32) ;M,M," 

'(DBtGOSUBlBBS 

388 GOSUB38S8 1 LPRINTTAB{ 38) N|TAB(62)H>H|H|N| STRINGS (78-PEEK( 1653 

9) ,32)|D8iGOSUB188l 

318 GOSOB3888iLPRIIITTAB(38)N|TAB(5e)N|N|N|N,N ; STRINGS(7B-PEEK(16 

539) ,32) ;D8iU7»liGOSUB1888 

328 GOSOB3888iLPRINTTAB(38)ll|TAB(57)l(|N|V,' •D7|8Tm»JG8(78-PEBK( 

16539) ,32) 1D81GO8UBIB88 

338 QOSOBSBBSiLPRIirrTABOSJIl^ABlSONi' ',V|' '07|8TRIIK|(7I-PB 

EK(16S39) ,32) » D81GOSDBI888 

348 GOSUB3888iLPRINTTAB(37)NiTAB(55)N|* 'iVi" *|D7»STRINGS(78- 

PEEK(16S39) ,32) .D81GOSUBI888 



358 GOSOB3888!LPRINTTAB(38)MjN|TAB(54)N|' (K)';Vj" " |D7 »STRINGS( 

78-PEBK( 16539) ,32) ;D8iGOSUB1888 

368 LPRINTSTRINGS(48,H) |M;TAB( 54)H, STRINGS ( 25 ,H) :GOSUB288B :U5-B 1 

Q6-8lS-4iL-l 

378 LPRINT'(N)"jTAB(19)V»'(N) 'jTAB(39)V|* ' jHjTAB( 47)N; ' 'jN|N| 

8tf Hf " "|-(0)'»TAB(59)V|'(P)'iGOSUB18BB 

388 GOSUB3BBSiLPRINTTAB(39)V|* *|N|' '»N»N|' "|M;* *iH;M|TAB( 59) 

V|" *|D7|STRINGS(78-PEEK(1653 9) ,32) »D8iU6-l 1GOSUBI888 

398 GOSOB38B8iLPRINTTAB(39)V|' *|N;N;' ' |N|N»TAB( 58) D6|TAB( 59) V 

l' *|D7jSTRINGS(78-PEEK(16539) ,32) |D8:GOSUB2B8B:GOSUB18BS 

488 GOSOB5iGOSUB188B 

418 GOSUBSiGOSUBlBBB 

428 GOSUB5:GOSUB1888 

438 GOSUBSiGOSUBlBBB 

448 GOSUB5iUl-8iU2-8iGOSUB18B8 

458 LPRINTTAB(5)H)TAB(19)V|" *D3|TAB(3S)D4>TAB(39) V>* *D5|TAB(58 

)D6|TAB(59)V)' "D7| STRINGS (78-PEEK( 16539) ,32) D8:GOSUB18BB 

468 LPRINT** C5*|Nj' "|N» - POPE HEAD"»TAB( 19) V» ■ 'D3|TAB(3B) D4jT 

AB(39)V;" ■ tD5iTAB( 58) D6;TAB(59) V; ■ •D7>STRINGS(7B-PEEK(16539) ,3 

2) 1D81GOSUBI888 

478 LPRINT"< ' t' "»N;TAB(19) V; * *D3;TAB(38)D4;TAB(39) Vj ' "D5;T 

AB(58)D6|TAB(59)V|* "D7j STRINGS (7B-PEEK (16539) ,32) jD8:GOSUB28IB 

488 LPRINTSTRING$(BB,H) iS-5:L-l 

49*) LPRIIIT , (Q)*»TAB(19)V;*(R) , ,TAB(39)Vj'(S) , ;TAB(59)V; , (T) , :GOS 

UB1888 

588 GOSUB5iU3-8:GOSUB1888 

518 LPRINT* *Dl|TAB(18)D2jTAB(18)H»N;" "D3»TAB( 38)D4|TAB(39) V; * 

*D5|TAB(5S)D6|TAB(59)V;* *D7> STRINGS (7B-PEEK ( 16539) , 32) ;D8 :GOSUB 

1888 

528 LPRINT* *D1|TAB(18)D2;TAB(17) Hi * *|M>" NORTH"|TAB(38)D4iTAB 

(39)V|* *D5|TAB(5B)D6|TAB(59)V|* -D7|STRINGS(7B-PEEK(16539) ,32) » 

D8iU4-8:GOSUB18B6 

538 LPRINT" ■D1»TAB(1B)D2»TAB(17)N| " ■»«;" GOOSEBERRY *> TAB ( 3 9 ) V 

I* *D5;TAB(58)D6»TAB(59)V»* *D7;STRING$(7B-PEEK(16539) ,32) |D8sGO 

SOB1888 

548 LPRINT* *D1»TAB(1B)D2»TAB(1B)I1| * *;«»* ISLAND* ;TAB( 39) V) * * 

D5|TAB(SS)D6|TAB(59)V|* *D7>STRING$(7B-PEEK(16539) ,32) ;D8:GOSUB2 

688:GOSUB1888 

558 LPRINT* *Dl|TAB(18)D2|TAB(18)H|«jll) * *D3iTAB(38) D4;TAB(39) V; 

* "D5;TAB(58)D6|TAB(59)V;* *D7|STRINGS (78-PEEK ( 16539) , 32) |D8:GOS 

mm 

568 GOSUB5tGOSUBlS88 
578 GOSUB5tGOSUB18B8 
588 GOSUB5iGOSUB18BB 
598 GOSUB5iGOSUB18S8 
688 LPRINTSTRING$(8B,H) lGOSUB7:GOTO 4BBB 

1888 REM ASSIGN D1>D8 HERE 

1818 IPL-lTHENBl-liB2-28ELSEIPL-2THENBl-2:B2-19ELSEIFL-3TRENBl>3 

:B2-laELSEIFL-4THENBl-4iB2-17ELSEIFL-5THENBl-5iB2-16 

1828 IPL-6THENBl-6:B2-15ELSEIFX-7THENBl-7iB2-14ELSEIFL-8THENBl-B 

iB2-13ELSEIFL-9THENBl-9:B2-12ELSEIFL-18THENBl-18:B2-ll 

1838 IFS-1THEN01-8 :02-l :03-2 t04-3 :GOT01B8B 

1848 IFS-2THEN01-3:02-4iO3-5i04-6:GOTO1888 

1858 IFS-3THEN01-6i02-7: 03-8: 04-9 :GOT01 886 

1868 IFS-4THENOl-9i02-lBi03-ll:04-12:GOTOlB8B 

1878 01-12:02-13:03-14:04-15 

1188 ES(1)-IS(S*01,B1) :ES(2)-IBT»+01,B2) : ES(3) -IS(S+02,B1) :E$(4) 

>>$(S-»02,B2) tE$(5)-Z$(S+03,Bl) : E$(6) -IS (S*03 ,B2) : ES( 7) -ZS< S*04 ,B 

1) :E$(8)-1$(S+04,B2) 

1882 FOR X-l TO 8:IPE$(X)-"THEN1891ELSET$-RIGHT$(E$(X) ,LEN(E$(X 

))-2) iGOTO 1098 

1888 TS-RIGHTS(ES(X) ,LEN(E$(X) ) -3) 

1898 CS-LEFTS(TS,1) : IFCS-*S*ORCS-*D*ORCS-*W*THENES(X) -••'♦TS 

IGOT01691ELSEGOT01B88 

1891 NEXT X 

1895 Dl-ES(l) iD2-ES(2) :D3-E$(3) :D4-E$(4) :D5-E$(5) :D6-E$(6) iD7-E$ 

(7) :D8-E$(8) tL-L+l:RETURN 

2868 Ul»liU2-l:U3-liU4-l:U5-liU6-l:U7-l:U8-l:RETURN 

3888 LPRINT* *D1|TAB(16)D2|TAB(19) V| * *D3|TAB(36)D4| : RETURN 

3588 OPEN* I * , 1 , 'BAKERS/DAT' t INPUT41 .DATES 

3511 PORX*'lTO2liFORXl»lT02l:IMPOT#l,2$(X < Xl)»l»BXT>:lfJirMT)f 

3528 CLOSE 1 RETURN 

3558 CLOSE 1 END 

4886 LPRINTSTRINGS(3,138) iRUN'CAT* 
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Program Listing 2 



1 0NERR0RGOT03B58iCLEAR32flB:DEPSTRV,H,H,D,A:DEPlNTU,B,0,X:DIMZ$( 
28,28) :H-"l"iA-"I"iV-":":H-'."tCLSfPRINT«465, "WORKING FILENAME. . 
.."|CHRS(34)|"CAT"|CHR$<34) :G0SUB3BBB:GOTO9 

2 LPRINTTAB! 1)D1|TAB( IB) D2|TAB(19)V;:R£TURN 

3 LPRINTTAB(19)V|" "D3;TAB( 38) 04|TAB ( 39) V| ■ "D5 jTAB( 5B) D6 J TAB ( 59 
)V| ' "D7|STRINCS(7B-PEEK(16539) ,32) ;D8:RETURN 

4 LPRINTTAB(41)D5|TAB(5B)D6|TAB(59)V|" "D7| STRINGS(7B-PEEK ( 16539 
) ,32) ;D8iRETURN 

5 LPRINTTAB(1)D1|TAB(18)D2|TAB<19)V;" "D3 | TAB (38) D4fTAB( 39) V; • * 
D5»TAB(58)D6)TAB(59) V;" "D7 > STRINGS ( 7B-PEEK ( 16539) ,32) ;DBiRETURN 

6 LPRINTTAB(1)D1|TAB(1B)D2|TAB(19)V|" "D3iTAB( 38) D4| : RETURN 

7 LPRINTTAB(39)V|" "DS|TAB( 5B) D6 |TAB( 59) V| : RETURN 

8 G0SUB6:G0SUB7: RETURN 

9 LPKINTTAB(19)V|TAB(39)V;TAB(59)V:LPRINTSTRINGS(8B,H) :GOSUB28B8 
:U2-liGOSUB188B 

IB LPRINT"(A)"TAB(8)A|TAB(19)Vi"(B) ";TAB(39) V; ■ (C) " )TAB( 59) V| " (D 

) ":S-1:L-1:GOSUB18BB:GOT028 

11 LPRINTTAB(58)D6|TAB(59)V;" "D7» STRINGS ( 7B-PEEK ( 16539) ,32) ;D8: 

RETURN 

28 LPRINTTAB(1)D1|TAB(8)A|A| IG0SUB3 :GOSUBlB8B 

38 LPRINTTAB(1)D1;TAB(9) A| :GOSUB3 :U7"fl :UB-B|G0SUB1BB8 

48 LPRINTTAB(l)Dl|TAB(19)Vi" • >D3 |TAB( 38) D4>TAB( 39) V» ■ "D5jTAB(5 

B)D6;TAB(59)ViSTRINGS(67-PEEK(16539) ,32) I "*C5" :U7-1 :U8-1 :GOSUBlB 

88 

58 LPRINTTAB ( 1 ) Dl j TAB ( 1 8 ) A ) : G0SUB3 : GOSUB18 88 

68 LPRINTTAB! 1)D1 | :GOSUB3:GOSUB188B 

78 LPRINTTAB(l)DljTAB(ll) A; iGOSUB3:GOSUBlB8B 

88 PORC-lT04:GOSUB5iGOSUBlBBB:NEXTC:LPRINTSTRINGS(B8,H) :LPRINT'( 

E)"jTAB(19)V|"(F)",TAB(39)Vj'(G)"|TAB(59)V|"(H)":S-2:L-l:GOSUB2B 

88:GOSUB1888 

148 GOSUB5iU4-8:GOSUB18BB 

15B GOSUB2:LPRINTTAB(21)D3|TA8(28)H;Mi" • ;H|H;M|N|H;TAB( 39) V; :G0 

SUB4:GOSUB18B8 

168 GOSUB2iLPRINTTAB(27)H|TAB(3B)M|TAB(36)H;TAB(39)Vi:GOSUB4:U5- 

i:GOSUB18BB 

178 GOSUB2iLPRINTTAB(23)M;H|H>H)TAB(35)H;TAB(39)V|H|H|TAB(5S)D6t 

TAB(59)V;" "D7|STRINGS(7B-PEEK(16539) ,32) ; D8 :G0SUB1BB8 

188 GOSUB2:LPRINTTAB(22)«.iTAB(36)«.|TAB(39)V»M|" " ;M ,H, iGOSUBl 1 :G 

0SUB1MI 

198 GOSUB2 : LPRINTTAB! 23) N»TAB( 36) H;NiTAB( 39) V| TAB ( 41 )H|l<|M|iGOSU 

BlliU5-liGOSUB18BB 

288 GOSUB2:LPRINTTAB(24)«;TAB(38)M)M; :GOSUB4 1GOSUBI8BB 

218 GOSUB2iLPRINTTAB(25)M;TAB(27)"CAT ISLAND" ; TAB (39) N| iGOSUB4 iG 

OSUB1888 

228 GOSUB2:LPRINTTAB(24)N|TAB(48)M|TAB(42)D5i:GOSUBll:U5-e:GOSUB 
1888 

238 GOSUB2iLPRINTTAB(25)M|N|TAB(38)DATES|TAB(41)H,M»M(M;iGOSUBll 

:G0SUB1B88 

248 LPRINTSTRINGS(27,H) ;M,H; N;M| TAB( 44) H|M; STRINGS! 33 ,H) 

258 LPRINT"(I)-,TAB(19)V | -(J)'|TAB(31)N;M|TAB(46)Ni" (K)",TAB(59 

) V) " (L) *:GOSUB28B8:U4-B:U5-B:S-3:L-l:GOSUBlBBB 

268 GOSUB2iLPRINTTAB(21)D3|TAB(33)N>TAB(47>K|:GOSUBll:U2-8:GOSUB 

1BBB 

278 LPRINTTAB(1)D1|TAB(15)H|M,TAB(19)V," "D3 ( TAB ( 34] HiMiHiN.HiTA 

B(48)HjiGOSUBll:U4-liGOSUB18B8 

288 LPRINTTAB! 1)D1|TAB( 15) H|H|TAB( 19) V|" "D3 | TAB (38) D4|TAB( 39) M» 

TAB(48)H| iGOSUBlliU2-liGOSUBlB8e 

298 GOSUB2:LPRINTTAB(21)D3|TAB(38)D4|TAB(4B)M,TAB(48)M,K,TAB(51) 

D6|TAB(59) V»" "D7»STRINGS (78-PEEK (16539) , 32) »D8iUl-B>U7-B iGOSUBl 

388 LPRINT" RN2" ;TAB( IB) D2|TAB(19) V| " ■D3 > TAB(3») D4|TAB(38)H I M;M 
»TAB(58)K," ■|D6iTAB(58)H|N;M;STRINGS(78-PEEK(16539) ,32) iD8iU6-B 
■U2-B:GOSUBlB88 

318 LPRINT"< •»TAB|12)M|NfTAB(19)V,- "D3 |TAB( 38) D4,TAB( 38) Hi * 

"jHfTABtSDHiTAB^lHiTABieijHiTABieS)' "iMiMiKiHi" "DBjUl-llGO 

SUB1BB8 

328 LPRINTTAB(1)D1;TAB(11)H;" ■ ;H|TAB(19) V| * "D3»TAB ( 38) D4|TAB( 3 

9)V|" ■H|TAB(S2)M|M|HfM|H|TAB(62)H} a ";N|" "|H|Ki" ".DSiGOSUBlB 

88 

338 LPRINTTAB(1)D1|TAB(1B)M;TAB(13)H|TAB(19)V|' "D3|TAB(3B)D4|TA 

B(39)V|TAB(42)H ( TAB(63)M;" ",M;«| " " »D8iU8-8 iGOSUBlBBB 

348 LPRINTTAB(1)D1|TAB(11)N,M.," " |H»TAB (19) V» " "D3;TAB( 38) D4|TAB 

139)V|TAB(43)N|TAB(47)"CAT ISLAND" | STRINGS! 6 4-PEEK ( 16539) ,32) |M| 

STRINGS(69-PEEK(16539) ,32) iNiHiGOSUBlBSB 

358 LPRINTTAB(1)D1|TAB(13)H»H|TAB(19)V»" "D3|TAB( 38) D4»TAB( 39) V| 

TAB(43)N,TAB(63)* "|lltGOSUB2BBB 

368 LPRINTSTRINGS(44,H) |N,TAB( 49) DATES|TAB(63) «»STRINGS( 14 ,H) 

378 LPRINT"(N)",TAB(19)Vj"(N)"|TAB(38)H»M»TAB(39)V;"(0)"|TAB(45) 

N|N|TAB(63)H»' (P) " :U4-B :U5-8iU6-B :U7"B| S»4iL"l iGOSUBlBBB 

388 GOSUB2 : LPRINTTAB ( 21 ) D3 ; TAB ( 38) M; M; TAB (3 9) V| TAB (47)11; TAB (5 5)11 

»TAB(63)K|" *;«,«;■ "|D8:U4-l:GOSUBlB88 

398 GOSUB6iLPRINTTAB(39)V,TAB(45)M,M|' •,N|NiTAB(54)H, " "|M,TAB( 

63)" ";M;Hi " ";M»" " )D8 iGOSUBlBBB 

488 GOSUB6 I LPRINTTAB (39) V»TAB( 45) H,N;TAB( 58) M)K|TAB( 54) N; TAB (57) 

N|STRINGS(68-PEEK(16539) ,32) ;Mj" * ;D8:GOSUBlBBB 

418 GOSUB6 i LPRINTTAB! 39) V»TAB( 52) «,«|TAB( 58) M| N|H,H| STRINGS (67-P 

EEK(16539) ,32) |H|" ";D8iU5-l:U6-l :GOSUB18B8 

428 GOSUB8:LPRINTTAB(61)H|STRINGS(66-PEEK(16539) ,32)|M|H|M|" "|D 

8iGOSUB1888 

438 GOSUB8:LPRINTM|STRINGS(66-PEEK(16539),32)|M|" "|D8iGOSUB18 
BS 

448 GOSUB8:LPRINTM|STRINGS(65-PEEK(16539) ,32),M;" "|D8iGOSUBl 

888 

458 GOSUB8:LPRINTTAB(61)H|N|M,H|" "|M|H|" " jD8iGOSUB18BB 

468 GOSUB8.LPRINTSTRINGS(66-PEEK(16539) ,32)»H|M|" ",D8:GOSUB18B 

8 

47B GOSUB8:LPRINTSTRIMGS(7B-PEEK(16539) ,32) iD8 

488 LPRINTSTRINGS( 88, H): LPRINT" (Q)",TAB(19)V,"(R)',TAB( 39) V;"(S) 

"|TAB(59)V|TAB(63)N|N|H," (T) * :GOSOB2B8fl:U7-8 1U8-B 1 S-5i L-l iGOSU 

B1BSB 

5BB GOSUB8iLPRINTTAB(62)H|" "|H|H|" " |D8:G0SUB1BBB 

51B GOSUB8iLPRINTTAB(62)N|STRINGS(68-PEEX(16539) ,32);N|M|M|" "|D 

8:U8-BiGOSUB188B 

52B GOSUB8:LPRINTTAB(62)N|M|N|STRINGS(71-PEEK(16539) ,32)>NiGOSUB 

538 GOSUB8:LPRINTTAB(63) " " |N| STRINGS ( 71-PEEK (16539) ,32) iNtU8-l t 
GOSUB1SBB 

54B G0SUB8:LPRINTSTRINGS(65-PEEK(1S539) ,32)Mi* "iM," *|D8|U8- 

B:GOSUB18B8 

558 GOSUB8:LPRINTSTRING$(66-PEEIC(16539) ,32)11, ' " 1K1U8-I iGOSUB 

llll 

568 GOSUB8iLPRINTSTRINGS(66-PEEK(16539),32)M|" ",*," ",D8:U7-1 
: GOSUBlff 



578 GOSUB8iLPRINTTAB(61)D7,STRING$(67-PEEK(16539),32)K,M,K," "; 

D8iGOSUB28B8iGOSUBlBB8 

588 GOSUB5iGOSUB18BB 

598 GOSUB 5 iGOSUBlBBB 

688 I.PRINTSTRINGS(88,H) 1 LPRINTTAB ( 19) V|TAB( 39) V|TAB( 59) ViGOT048B 

8 

1888 REM LOAD D1>D8 HERE 

1818 IFL-lTHENBl-l:B2-2BELSEIFL-2THENBl-2iB2-19ELSEIPL-3THENBl-3 

1 B2-18ELSEIFL-4THENB1-4 : B2-17ELSEIFL-5THENB1-5 1 B2-16 - 

1828 IPL-6THENBl-6:B2-15ELSEIPL-7THENBl-7iB2-14ELSEIPL-8THENBl-B 

IB2-13ELSEIPL-9THENB1-9 1 B2-12ELSEIPL-1BTH ENBl-lBiB2-ll 

1B3B IPS-1THEN01-B 102-1:03-2: 04-3 1GOTOI88B 

1B4B IPS-2THEN01-3:02-4:03-5i04-6iGOTOlS88 

1B5B IPS»3THEN01»6i02»7i03»8:04-9:GOTO1888 

1B6B IPS-4THEN01-9 1 02-18:03-11: 04-1 2 1GOTOIB8B 

1878 01-12:02-13:03-14:04-15 

1888 ES(1)-ZS(S+01,B1) : ES ( 2) -ZS (S-K31 ,B2) : ES(3) -ZS(S+02 ,B1) :ES(4) 

-ZS(S+02,B2) :ES(5)-ZS(S+03,B1) :ES(6) -ZS(S*03 ,B2) :ES(7) -ISIS+04 ,B 

1) :ES(8)-ZS(S*04,B2) 

1882 POR X-l TO 8:IPES(X)- , "THEN1891ELSETS-RIGHTS(ES(X) ,LEN(ES(X 

))-2) :GOTO 1898 

1888 TS-RIGBTS(ES(X) ,LEN(ES(X) )-3) 

1898 CS-LEFT$(TS,1) : IPCS-"S"0RCS-"D"0RCS-"W"THENES(X) -•••♦TS 

:GOT01891ELSEGOT01888 

1891 NEXT X 

1895 Dl-ES(l) :D2-ES(2) :D3-ES(3) :D4-ES(4) :D5-ES(5) :D6-E$(6) :D7-ES 

(7) :D8-E$(8) :L-L+li RETURN 

28BB Ul-l:U2-l:U3-liD4-l:U5-liU6-l:U7-liU8-li RETURN 

3888 OPEN " I ", 1," CAT/DAT*: I NPUT81, DATES 

3818 P0RX-lTO28:F0RXl-lTO2B:INPUTil,ZS(X,Xl) :NEXTX1:NEXTX 

3828 CLOSE: RETURN 

385B CLOSE: END 

4BBB LPRINTSTRINGS(3,138) :RUN*EAGLE" 
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Program Listing 3 

1 CLEAR32BB:ON ERROR GOTO 3B5B :DEFSTRV, H ,M,D, A:DEFINTU,B,0,X I DIN 
Z$(28,2B) :N-"l":A-"I*:V- , :"iH-"."iCLS:PRINT8465,"WORXING PILENAM 
E....'iCHRS(34) |"EAGLE'|CHRS(34) :GOSUB3B8B :GOT08 

2 LPRINTTAB(19)V|" "D3 ;TAB(3B) D4;TAB( 39) V; " "D5|TAB( 58) D6|TAB ( 59 
)V| D7;STRINGS(7B-PEEX(16539) ,32) 1D81RETURN 

3 LPRINTTAB(39)V|" "D5|TAB( 58) D6|TAB( 59) V| " "D7 , STRINGS (7B-PEEX ( 
16539) ,32) |D8iRETURN 

4 LPRINTTAB) 59) V; " "D7| STRINGS (78-PEEK ( 16539) ,32) |D8: RETURN 

5 LPRINTTAB(1)D1|TAB(1B)D2|TAB(19)V|" "D3 |TAB( 38) D4| TAB( 39) V| ■ " 
D5jTAB(5B)D6»TAB(59)V»" "D7|STRIHGS (78-PEEK ( 16539) ,32) ;D8:RETURN 

7 LPRINTTAB(1)D1|TAB(18)D2;TAB(19)V||RETURN 

8 LPRINTTAB(19)V|TAB(39)V|TAB(59)V:LPRINTSTRINCS(8B,H) :G0SUB2BBB 

I islmg J continues 
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Listing i continued 



1S-I1L-I 

II LP«IIIT'(A) , ;TAB(19)V»*(B) , |TAB(39)V»"(C) , »TAB(59)V» , (D)"jUl-» 

:U2-liGOSUBllll 

21 LPRINT'* R'jTAB(8)A|iGOSOB2iGOSUBlBB8 

3t LPRINT' N6'|TAB(8)A>A|:GOSUB2:GOSOB1BBB 

41 LPRINT'< •iTAB(9)A;:GOSUB2:GOSUB18BB 

SI GOSUB2iGOSUB18B8 

61 LPRINTTAB(ll)A|lG0SUB2:GOSUBllll 

71 GOSOB2:01-1:02-1:GOSOB1III 

81 P0RC-lTO4:GOS0B5:GOSUBlBBfl:NEXTCiS-2:L-l:LPRINTSTRINGS(62,H) ; 

M|M|H|M|H|M| STRINGS ( 12, B) 

131 LPRIWT*(E)*,TAB(19)V> , (P) , »TAB(39)V» , (G)"»TAB(5I)M»K|TAB(59) 

V|" ■|NjSTRINGS(6B-PEEK(16539) ,32) |M|MjM," (H) ■ :U5-fl:U6-B:U7-B:U 

8-NsGOSUBllll 

141 GOSOB7iLPRUrrTAB{21)D3tTAB(3l)D4|TAB(39)ViTAB(44)K»M ( «|H|H|M 

»TAB( 52) H|TAB( 59) M;H| STRINGS (7I-PEEK( 16539) ,32)N,M:GOSOB18BB 

151 GOSOB7iLPRINTTAB(21)D3|TAB(3I)D4|TAB(39)V»M|MjM|M»TAB(52)M|T 

AB{57)H|NfSTRINGS(71-PEEK(16539) ,32) »M|M:G0SUB1IBB 

161 GOSUB7:LPRINTTAB{21)D3;TAB(3B)D4iTAB(37)MiK>M|TAB(53)M»HjM|M 

; STRINGS ( 7 2-PEEK (16539), 32) N:U4-8|GOSOB1BBB 

17t GOSUB7iLPRINTTAB(21)D3»TAB(35)M,M(STRINGS(71-PEEK(16539) ,32) 

iHiOOBOBllll 

181 GOSUB7iLPRINTTAB{21)D3jTAB(33)N|N|STRINGS(69-PEEK(16539) ,32) 

|N|MiU8-llGOSUB18BI 

191 GOSUB7iLPRINTTAB(21)D3|TAB(31)N;M;STRING$(67-PEEK(16539) ,32) 

|HjH|* 'DSiGOSUBllll 

2IB G0SUB7|LPRINTTAB(21)D3|TAB(3B)K|STRINGS(65-PEEK(16539) ,32)Hj 

M|* *|l>B:GOSUBiaM 

211 GOS0B7iLPRINTTAB( 21) D3»TAB( 28) M»M| TAB (63) N|M; STRINGS (7B-PEEK 

(16S39) ,32) |D8:U3-liGOSUBlMB 

22t GOSOB7jLPRINTTAB(27)H>TAB(61)N»M;STRINGS(78-PEEK(16539) ,32) j 

DStGOSOBlIBB 

23 B GOSUB7iLPRINTTAB(25)N»NiTAB(59)M|M(STRINGS(78-PEEK(16539) ,32 

) jDBiGOSUBIIM 

241 LPRINTSTRING$(23,H) |MiMjTAB(5B)M»STRINGS(28,H) :S-3:L-1 

258 LPRINT*(I)*;TAB(19)V|* *|M|H|TAB( 57)N» " ' ;V| * (L) * iGOSUB28BI : 

U3-8:U4-l:U5-liU6-BiGOSUBlBBB 

268 LPRINTTAB(l)Dl)TAB(18)D2;TAB(18)M;NjH;TAB(56)M! :GOSUB4iGOSUB 

1MB 

27B LPRINTTAB(1)D1|TAB(18)D2|TAB(16)M;K;TAB(S5)M;'(K)"»V;' "D7jS 

THINGS (7I-PEEK(16539) ,32) |DB|U2-B|G0SUB18B8 

2H LPRINTTAB(l)Dl»TA8(13)N;M>N;TAB(54)M|:GOSUB4iGOSUBlBBB 

294 LPRINTTAB(l)Dl|TAB(lB)N;N>N>TAB(53)NjiGOSUB4tGOSUBlB8e 

388 LPRIMTTAB(1)D1;TAB(8)N|NiTAB(52)N»iG0SUB4iU1-BiG0SUB1BIB 

311 lprinttab(5)hin;k|tab(22) •eagle island'»tab(5b)n>m; igosub4ig 
osobimi 

328 LPRINTTAB(4)N|TAB(49)MiiGOSOB4iU6-l:GOSUB188B 

338 LPRINTTAB(3)N»TAB(22)DATESlTAB(48)N ( TAB(5B)D6i:GOSUB4:GOSUBl 

III 

341 LPRIRTTAB(4)N|TAB(46)N|H;TAB(5S)D6mGOSUB4>GOSUB188B 

351 LPRINTTAB(4)N|TAB(44)N|N|TAB(5l)D6|iGOSUB4iGOSDBllll 

361 LPRINTB|H|B|N|TAB(42)H|N>STRING$(35,H) :S-4:L-1 

371 LPRINT*(N)"|N)TAB<39)M|M|N|* (0) ";TAB( 59) V; ■ (P) " 1GOSUBI8B8 

381 LPRINTTAB(3)N»TAB(37)H|HiV;TAB(5B)D6llGOSUB4i05-liGOSUB188B 

391 LPRINTTAB(3)M;TAB(35)M|N|iGOSUB3iGOSUBllll 

411 LPRINTTAB(4)H|TAB(33)ll|N|*(N) , |iGOSOB3iGOSUB188B 

418 LPRINTTAB(4)N>MfH|TAB(32)H|iGOSUB3iGOSUB1888 

421 LPRINTTAB<7)H|II|N;TAB(31)NmGOSUB3iGOSUB1BS8 

438 LPRINTTAB(1I)M;TAB(3I)HmGOSUB3iU4-1iGOSUB1III 

441 LPRINTTAB(18)II;TAB(29)N»TAB(31)D4»iGOSUB3iGOSUB18BB 

458 L7RIRTTAB(18)N|TAB(28)N>TAB(3B)D4|iGOSUB3iGOSnBlBBB 

461 LPRIRTTAB(ll)N|TAB(27)M|TAB(3B)D4|iGOSUB3iGOStIBlBII 

471 L»I«TTAB(ll)N|TAB(26)M|TAB(3B)D4>:GOSUB3:GOSUBlBBB 

481 LPRIirrSTRING$(ll,B) jN;TAB(25) N|STRINGS( 53 ,B) iS-5iL«l 

491 LPRIirr*(0)*|TAB(ll)H|TAB(21)ll|N;ll|ll|* (R) •>TAB(39)V| ' (S) " »TA 

B(59)V|'(T)'iGOSUB2BB8:02-8:03-BiGOSUBlBII 

518 LPRINTTAB(l)DlfTAB(ll)N;NMH|H > TAB(lB)H»H>H|TAB(38)D4MGOSUB 

3iD3-llGOSOB18B8 

511 LPmiNTTAB(l)Dl»TAB(14)H|ll|H;H|iGOSUB2iGOSUBllll 

521 LPItINTTAB(l)01|iGOSOB2lGOSUB2IIBiGOSDB18B8 

538 PORC-lT07iGOSUBS:GOSUBlllliNEXTC:LPRINTSTRING$(8l,B) 

541 LPRINT'«PL R4 SEC*|TAB(19) V|TAB(39) V;TAB(59) ViGOT04B8B 

1811 REM ASSIGN D1>DB SERB 

111! IPL-lTHEMBl-liB2-2IBLSEIPL-2TBENBl-2:B2-19ELSEIPL-3THENBl-3 

iB2-18BLSEIPL-4TBBHB1-4:B2-17ELSEIFL-5TBBNB1-5:B2-16 

1121 IPL-6TBMB1-6iB2-15ELSBIPL-7TBENB1-7 :B2-14ELSEIPL-8THENBl-8 

iB2-13BLSEIPL-9THEHB1-9:B2-12BLSEIFL-18TBENB1-18iB2-11 

1131 IPS-1TBEN01-I 102-1 i03-2 |04»3 iGOTOlBBB 

1141 IPS-2THEMOl-3i02-4i03-5iO4-6iGOTOll8B 

1151 IPS- lTHBH01-6t02-7s03-8t 04-9 iGOTOllBI 

1161 IPS-4TBEN01-9 102-19 |03-11 |04-12 tGOTOlBBB 

1871 01-12:02-13 i03-14i04-15 

1181 B$(1)-XS(S+01,B1) iBS(2)-IS(S+01,B2) iES(3) -ZS(S-K)2 ,Bl) iE${4) 
-XS(S+02,B2) |EJ(5)-XS(S+03,B1) iES{6) -ZS(S+03,B2) :ES(7) -XS(S+04,B 
1)|E8(B)-I$(S+04,B2) 

1182 POR X-l TO B|IPE$(X)-*"TBEN1B91ELSET$-RIGHT$(ES(X) ,LEN(E$(X 
))-2) iGOTO 1191 

1118 T$-RIGBTS(ES(X) ,LEN(E$ (X) ) -3) 

1191 CS-LBPTSCTS.DtlPCS-'S'ORCS-'D'ORCS-'WTHENEStX) -"•■«$ 

■GOT01B91ELSEGOT01I88 

1191 NEXT X 

1195 Dl-ES(l) |D2-ES(2) |D3-ES(3) iD4-ES(4) :D5-ES(5) iD6-ES(6) ID7-ES 

(7) sD8-B$(8) iL»L*llRETURN 

2118 01-1 102-1 j 03-1:04-1105-1: 06-1 i U7-lsU8-l i RETURN 

3111 OPEN'I* , 1 , 'EAGLE/DAT* ■ IHP0TI1 , DATES 

3111 PORX-1T02I:PORX1-1T02I:INPOT#1,I$(X,X1) :NEXTX1:NEXTX 

3121 CLOSE i RETURN 

3151 CLOSE i END 

4111 LPRINTSTRINGS(3,138) :RUN"HARBLE" 
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Program Listing 4 

3 CLEAR 32II:CLS:PRINTM65, 'WORKING FILENAME. ... *,CBRS(34) > 'HARB 
LB'|CBRI(34) 

4 ON ERROR GOTO 3858 

5 DEPSTR V,H,N,DiM- , #'jVi*iB-'.'iDEPINTO,B,0,XiDIMXS(28,28) iGO 
SDB3IB8 

8 LPRINTTAB(19)VjTAB(39)V|TAB(59)ViLPRINTSTRING$(8B,H) 

Listing 4 continues 



Figure 3 
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If You Do A Lot Of Editing Of 

Your BASIC Programs, Then 

This Is The Editor For You!!! 



The Full Screen Text Editor for BASIC, we were the first to give 
the TRS-80 this indispensable ability. What ability? The ability 
to edit your BASIC program with the ease of word processing. 
It is a type of word processor specifically designed to handle 
BASIC programs instead of letters and documents. 



The capability to change, insert and 
delete a character or characters: 

Simply position the cursor over the 
character that you wish to change and 
type in the new one. Another handy feature 
is Insert Mode, this is used to add text in the 
middle of a program line. 

Extend a line or Insert new lines: 

Extending a line is as simple as two 
keystrokes, instantly the cursor jumps to the 
end of the program line and the editor is 
placed in the insert mode. 

Delete, copy or move statements: 

All you have to do is mark the line or block 
of lines and then tell the editor where to 
move or copy them. 

Global Search and/or change any 
specified string: 

Have you ever needed to change a lot of 
PRINT statements to LPRINTs? 

Macro key facility: 

Macro keys can cut your programming 
time in half. You can define each of the 26 
letter keys (A-Z) to represent BASIC 
keywords, or any letter or number 
combination up to 6 characters per key. 

I Renumber commands: 

Whats so special about this renumber 
facility? Not only can it renumber selected 
portions of your program, it also checks all 
GOTO, GOSUB. THEN and ELSE statements 
and updates them as needed! 



You may have seen other Editor programs 
advertized that give you one, maybe two 
of these features. You may have also seen 
some of these features sold as separate 
utility programs. 

Only CAU offers a complete editing system, 
not just a word processor patched up to 
handle line numbers. 



You can order the BASIC Editor directly from 
Computer Applications Unlimited or ask your 
local computer store. 




t# 1210-20 for 
Mod1&3 



only $29.95 

The Editor is supplied on tape with complete 
instructions to move it to disk. If you wish us to 
send the editor on disk please add $5.00 
and ask for a DISK DUMP 

Add $2.00 for shipping in the U.S. and 
Canada, $10.00 outside USA 

N.Y. State Residents add applicable Sales Tax. 

Dealer Inquiries Invited, r A. 






Computer Applications Unlimited 
P.O. Box 214, Dept FSBE, Rye, N.Y. 10580 
(914)937-6286 

,-120 

/-?/ / COMPUTER 
ML /APPLICATIONS 
LSllf UNLIMITED 

a *» « CAU. KM. 



TRS-80 is a TM of Tandy Corp 
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The totally PORTABLE, 
totally COMPATIBLE, 

Model III in a 
Briefcase 

AD€OCK& JOHNSON 



F O DRAVVKH MT7H KORT WOHTH TKXAS 7UII3 

ORDERS AND INFORMATION 
^sae (817) 429-5131 



Listing 4 continued 

19 LPRINT* (A) *rTAB(15)** Cl*|Vj"(B) *rTAB(39)V|* (C) *|TAB(59)V|* (D 
) " iG08UB2999 i S-l i L-l iU2-9 i GOSUB1999 

29 LPRIITT* *01|TAB(12)"II*»TAB(19)V|" *D3|TAB(39)D4fTAB(39) V| * * 
D5fTAB(59)D6»TAB(59)Vi* *D7| STRING$(79-PEEK(16539) ,32) >D8iGOSUBl 
•■• 

39 LPRINT* *D1»TAB(11)*I I I*|TAB(19)V|* *D3|TAB(39)D4fTAB(39) V» 
■ ■DS,TAB(5i)D6|TAB(59)V,' *D7| STRINGS (79-PEEX( 16539) ,32} iDBsGOS 
UB1999 

49 LPRINT* -01;TAB(19)'I I I"|TAB(19) V»* *D3|TAB(39)D4>TAB(39) 
V|" *D5;TAB(59)D6|TAB(S9)V|* *D7rSTRINGS(79-PEEK(16S39) ,32) |D8iG 
OSUB1999 

59 LPRINT* *D1;TAB(14)"I*)TAB(19)V," *D3|TAB(39 ) D«|TAB(39) V| ■ *D 
S;TAB(S9)D6|TAB(59)V)* *D7» STRINGS (79-PEER (16539) , 3 2 ) ; DB i GOSUBli 
•t 

69 LPRINT' *DliTAB(15)'I*|TAB(19)V;* *D3|TAB(39)D4|TAB(39) V»* *D 
5|TAB(59)D6;TAB(59)Vj* *D7r STRINGS (79-PBBK( 16539) ,32) »D8iGOSUB19 
■■ 

79 LPRINT* 'Dl|TAB(16)*I*|TAB(19)|Vr* *D3|TAB(39)D4|TAB(39)V|* * 
DS;TAB(59)D6rTAB(59)Vr* *D7 > STRINGS (79-PBBK( 1653 9) ,32) 1D81GOSUBI 
•99 

89 LPRINT* *D1»TAB(19)V|* *D3|TAB(39)D4jTAB(39) V» * *D5»TAB(5B) D6 
|TAB(59)V|* *D7|8TRING$(79-PBBR(16539),32)|D8tGOSUB1999 
99 LPRINT* *D1|TAB(19)V|* *D3>TAB(39)D4|TAB(39) V»* *D5|TAB(59)D6 
|TAB(59)V|* *D7 » STRINGS (79-PEER( 16539) ,32) »D8iGOSUB18B9 
199 LPRINT' *D1|TAB(19)V|* *D3»TAB(3B)D4;TAB(39) V» ' *D5;TAB(S9)D 
6|TAB(S9)V|* *P7r5TRING$(79-PERR(16539) ,32) |DBiGOSUB1999 
119 LPRINT* *D1|TAB(19)V;* *D3|TAB(39)D4|TAB(39) Vr * *D5|TAB(59)D 
6|TAB(59)Vf * *D7|STRIHG$(79-PBEK(16539) ,32) |D8iGOSUB1999 
129 LPRINT STRING$(89,B)iU2-ltS-2tL-l 

139 LPRINT* (B)*,TAB(19)V|*(P)*iTAB(39)W|*(G)*|TAB(59)V|*(B)*,D(4 
) t GOSUB199 9 

149 LPRINT* *D1|TAB{9)D2»TAB(19)V»* *D3|TAB(39) D4 ,TAB( 39) V; ■ 'D5 
|TAB(59)D6|TAB(S9)V>* a D7|STRINGS(79-PBBR(16539) ,32) f08tGOSUB199 
• 

159 LPRINT* *01|TAB(9)D2|TAB(19)V|* *D3|TAB(39)D4|TAB(39) V» * *DS 
|TAB(59)D6|TAB(59)V>* *D7|STRINGS(79-PBBX(16539) ,32) |D8iGOSUB199 
9 

169 LPRINT* *D1;TAB(9)D2|TAB(19)V|* *D3|TAB(39)D4fTAB(37)H|H|Hf * 
*D5|TAB(59)D6fTAB(59)V»" *D7|STRINGS(79-PBEK(16S39) ,32) |D8iU4-9 
■05-9 IGOSUB1999 

179 LPRINT' *Dl|TAB(9)D2rTAB(19)V|* *D3|TAB{36)N|TAB(49)K|TAB(46 
}M|HjN>N|" *D6»TAB(59)V|* *D7»STRINGS(79-PEEF.(16539) ,32) ;D8iGOSU 
B1999 

189 LPRINT* *DlrTAB(9)D2>TAB(19)V|* *D3»TAB(35) H|TAB ( 41)H,M,K| M; 
N|TAB(S9)H|* *D6;TAB(59)Vr* "D7| STRINGS (7B-PEEI (16539) ,32) jDBiGO 
SDB1999 

199 LPRINT* *D1|TA8(9)D2|TAB(19)V|* •D3;TAB(34)H,TAB(51)H|H|BiTA 
B(59)V»* *D7|STRING$(79-PBEE(16539) ,32) |D8iCOSUB1999 
299 LPRINT* *DlfTAB(9)D2f TAB(19) V| * *D3|TAB(32)l < rM|TAB(54)H|TAB( 
S9)V|* "D7|STRINGS(79-PBEK(16S39),32);D8iGOSUB1999 
219 LPRINT* *D1|TAB(9)D2|TAB(19)V«' *D3|TAB(31)H|TAB(55)H|TAB(S9 
)V|* *D7»STRING$(79-PBEX(16539) ,32) |DBiGOSUB1999 

229 LPRINT* *D1;TAB(»)D2|TAB(19) V| * 'D3 ;TAB( 39) H, TA= ' 56 ) H; TAB ( 59 
)V;* 'D7, STRINGS t 79-PEEK ( 16 53 9 ) ,32) , D8 : GOSUB1 l«8 

239 LPRINT* "Dl |TAB( 9) 02, TAB ( 19) V ; " "D3 , TAB ( 3i) K , TAB ( 36 ) 'MAJiBLEH 
BAD ROCX*;TAB(57)N»TAB(59)V|* *D7|STRINGS(79-PEEK(16539) ,32) 1D81 
COSUB1899 

249 LPRINTSTRINC$(39,H)fH|TAB(58)N|* ■ 1 STRINGS ( 28 ,H) : S-3:L"1 
259 LPRINT*(I)*jTAB(19)V»*(J)*,TAB(31)H|TAB(39)DATES»TAB(59)N|TA 
B(61) "(L) *iGOSUB298BiU4-8iU5-9iU6-9iGOSUB1999 

269 LPRINT* *D1|TAB(9)02|TAB(19)V|* *D3;TAB( 32) M,TAB( 59) N,TAB(63 
)* *D7> STRINGS (79-PEEK(16S3 9) ,32) |D8iGOSUB28B8iU4-9 iU5-9iD6-9lOO 
SUB1999 

279 LPRINT* "Dl ,TAB( 9) D2jTAB(19) V, ■ *D3|TAB(33)H|TAB(69)H|TAB(63 
)* *|D7|STRING$(79-PBBK(16539),32)|D8iU4-liGOSUB1999 
289 LPRINT' *D1»TAB(9)D2;TAB(19)V|* *D3|TAB(29)D4;TAB(34)N»TAB(6 
1)N|TAB(63)* *D7|STRING$(79-PBBK(16539) ,32) ;D8iGOSCB1999 
299 LPRINT* *Dl;TAB(9)D2f TAB(19) V| * *D3|TAB(29)D4»TAB(34)N;TAB(6 
2)H|TAB(63) ' "D7lSTRING$(79-PEEK(16S39) ,32) |D8iGOSUB1999 
319 LPRINT* *DljTAB(9)02)TAB(19)V>* *D3»TAB(29)D4|TA8(34)H;TAB(6 
2)H|TAB(63)* *D7|STRING$(79-PEER(16539) ,32) >08:U3-9tU4-9iGOSUB19 
•9 

319 LPRINT* *Dl|TAB(9)D2|TAB(17)H|N|H|TAB(3S)NfTAB(62)H|* *D7|ST 
RINGS(79-PBEK(16S39) ,32) |D8«GOSUB2B99iD3-9iU4-9iU5-9tC6-9iGOSUBl 
999 

329 LPRINT* *DlfTAB(9)D2|TAB(16)N|TAB(29)N|N|H|N|TAB(29)H>N(N|N| 
TAB(35)NrTAB(61)N|TAB(63) * *D7|STRINGS(79-PEEX(16539) ,32) jDBiGOS 
UB1B99 

339 LPRINT* *DlrTAB(9)D2|TAB(17)HrTAB{24)HrH|H|H|H;TAB(33)HrM|TA 
B(56)R|N»M|TAB(61)N|TAB(63) * *07|STRING$(79-PBEK(16539) ,32) 1DB1G 
OSUB1999 

349 LPRINT* *D1|TAB(9)D2;TAB(17) H,TAB( 41) M,K,TAB( 55) M,TAB( 59) M,H 
;TAB(63) ' *D7» STRINGS (79-PEEK< 1653 9) ,32) >D8iGOSUB1999 
359 LPRINT* *D1»TAB(9)D2|TAB(16)H»TAB(49)N>TAB(43)R|N;TAB(53)H>N 
I TAB ( 59) V| TAB (63)* *D7|STRINGS(79-PEEK(16539) ,32) ;D9 
369 LPRINTSTRINGS(16,H) |N»TAB(49)N»H;H|B;HiM»TAB(51)N>N>STRING$( 
27, B) t 8-4 1 L-l 

379 LPRINT*(H)*|TAB(17)II|TAB(49)H|*(0)*|TAB(46)M|TAB(59)H|TAB(59 
)V|*(P)*iGOSCB199f 

389 LPRINT' ■D1|TAB(9)D2|TAB(1B)N|TAB(38)N|N|TAB(47)H>N|H|TAB(S9 
)V|* *D7|STRINGS(79-PEEK(16539) ,32) 1DB1D6-I iGOSUB1899 
399 LPRINT* *Dlf TAB(9)D2;TAB(19)HfMf TAB(37)N|TAB(39) V; * *;K|H|TA 
B(59)D6»TAB<59)V|* *D7|STRINGS(79-PBBK(16539) ,32) |D6iGOSUB1999 
499 LPRINT* "Dl jTAB( 9) D2[TAB(19) V > TAB ( 21) K | H , TAB ( 36) M , TAB ( 39) VjH 
|TAB(43)N|TAB(S9)D6>TAB(59)V > - 'D7j STRINGS (79-PEEK (16539) , 32) ;D8 
:GOSUB1999 

419 LPRINT* *DlrTAB(9)D2|TAB(19)V|TAB(23)H|N|TAB(3S)HrTAB(39)V > * 
*|H|N|TAB(S9)D6|TAB(S9)V;* *D7|STRINCS(79-PEEX(16539) ,32) 1D81GO 
SUB1999 

429 LPRINT* *01|TAB(9)D2|TAB(19) V, * (N) * jTAB(25)RfM|NfTAB(34)N|TA 
B(39)VrTAB(S9)D6|TAB(S9)Vf* 'D7 1 STRING S(79-PEEK( 1653 9) ,32)|D8i03 
-I1GOSUBI999 

439 LPRINT* *Dl>TAB(9)D2jTAB(19) V| * *D3f TAB(28)H>TAB(33)N,TAB(39 
)V|' "D5,TAB(5B)D6,TAB(59)V," "D7 , STRINGS ( 7B-PEEK ( 1653 9) , 3 2 ) , DB . 
GOSUB1999 

449 LPRINT* *D1|TAB(9)D2|TAB(19)V|* *D3|TAB(29)N»R|NjR|TAB(39)V| 
* *D5»TAB(59)D6>TAB(59)V|" *D7;STRINGS(79-PEEJC(16539) ,32) 1D81GOS 
UB2999iU4-9iGOSUB1999 

459 LPRINT* *D1»TAB(9)D2|TAB(19) V| * *D3|TAB(39)V| * *D5|TAB(59)D6 
;TAB(59)V|* 'D7|STRINGS(79-PEBI(16539) ,32) |D8iGOSUB199f 
469 LPRINT* 'D1|TAB(9)D2»TAB(19) V| ' *D3;TAB( 38) D4|TAB ( 39) V) • "DS 
|TAB(59)D6|TAB(59)V|* 'D7 » STRINGS (79-PEEK( 1653 9) ,32) »D8iGOSUB168 



479 LPRINT" *DlfTAB(9)D2»TAB(19) V| * *D3;TAB(39)D4|TAB(39) V| * 
( TAB(59)D6»TAB(59)V>* *D7;STRING$(79-PEEK(16539) ,32) ;D8 
489 LPRINTSTRINGS(89,B)>S-5iL-l 



•D5 



Listing 4 continues 
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Listing 4 continued 

HI LPRINT'(Q)-,TAB(19)V;"(R)";TAB(39)V|*(S) , ;TAB(59)V|"(T) , iGOS 

UB1IM 

5M FORC-lTOliiLPRINT* "Dl ;TAB( 9) D2|TAB(19) V; " "D3;TAB ( 38) D4 F TAB 

(39)V»" "D5|TAB(5i)D6>TAB(59)V»" "D7)STRING$(7»-PEEK(16539) ,32) I 

D81GOSUBIIM1NEXTC 

511 LPRINTSTRIHG$(88,H) 

528 LPRINTTAB(19)V;TAB(39)V I TAB(S9)V 

531 GOTO 4MI 

ltff REM ASSIGN D1>D8 HERE 

1819 IFL-1THENB1-1iB2-2IELSEIFL-2THENB1-2:B2-19ELSEIPL-3THEMB1-3 

:B2-18ELSEIPL-4THENB1-4iB2-17ELSEIFL-5THENB1-5iB2-16 

1121 IFL-6TBENB1-6iB2'15BLSEIPL>7THENB1-7:B2-14ELSEIPL-8THENB1-8 

I B2- 1 1 ELSEI FL- 9THENB1-9 I B2-1 2ELSEI FL-1 9THENB1 -lit B2-1 1 

1131 IFS-lTHEN01-i:02-li03-2i04-3iGOTOia8B 

1148 IFS-2THENOl-3:02-4:O3-5iO4-6iGOTOlB8i 

10 59 IFS-3TBEN01-6 (02-7 i03-8i04-9:GOTOliBi 

1B6 8 IFS-4THEN01 -9 i 02-18:03-11: 04-12 iGOTOltBI 

lilt Ol-l2i02-13iO3-14:O4-15 

H8f E$(1)-ZS(S-K)1,B1) :E$(2)-Z$(S+01,B2) t E$ ( 3) -X$(S+02 ,B1) :ES(4) 

-IS(S+02,B2) :E$(5)-X$(S+03,B1) :ES(6) -I$(S-K)3,B2) :B$(7) -XS(S+04,B 

1) iE$(8)-IS(S+04,B2) 

1(82 FOR X»l TO 8iIFES(X)-"TBEHli91ELSET$-RIGBTS(E$(X) ,LEK(E$(X 

))-2) :GOTO 1191 

1988 T$-RIGHT$(ES(X) ,LEN(E$(X) ) -3) 

HM C$-LEFT$(T$,1) :IFC$- , S , ORCS-"D"ORCS-*M , THEMB$(X)- , * , *T$ 

1GOT01891ELSEGOTO1888 

1991 NEXT X 

1195 Dl-ES(l) iD2-ES(2) tD3-E$(3) tD4-E$(4) :D5-E$(5) :D6-E$(6) :D7-ES 

(7) |D8-E$(8) iL-L+liRETURN 

2118 Ul-1 102-1 iU3-liU4-l:U5-l«U6-liU7-l i 08«li RETURN 

3998 OPEN" I • , 1 , 'MARBLE/DAT* i INP0T91 , DATES 

3918 F0RX-lT028:FORXl-lTO28:INPtrr#l,X$(X,Xl) 1 NEXTX 1 : NEXTX 

3929 CLOSE ■ RETURN 

3151 CLOSE i END 

4818 LPRINTSTRINGJ(3,138) lRUN'MISERY* 
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Figure 4 



Program Listing 5 

3 CLBAR3288:OH ERROR GOTO 3559 iDEPSTRV, H,M,D, At DEFINTU ,D,0,X:DI« 

19(29,28) lN-'8 , iA- , I'iV-'i"iH- , .'iCLS:PRINTf4t5, ■WORKING FILENAII 

B....*|CHRJ(34)|-NISERr',CHR$(34)iGOSTJB35lliGOT08 

5 LPRIBTTAB(1)D1;TAB(18)D2|TAB(19)V|TAB(21)D3»TAB(39)D4|TAB(39)V 

;TAB(41)D5|TAB( 58) D6|TAB( 59) V,TAB(61)D7; STRINGS (78-PEEKt 16539), 3 

2) 1D81RETURN 

7 LPRINTTAB(19)V|TAB(39)V|TAB(59)ViRETORIJ 

8 GOSUB7 iLPRINTSTRING$(89,H) 1 GOSUB2I80 , S-l 1 L-l 

\% L»MNT«\X)*,TXBa9)V, 1, {B) , ,TAB(39)V,'(C)',TAB(59)V;-(D)',G0SU 

Listing 5 continues 
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SOFTWARE CONCEPTS 
DALLAS TEXAS 



SPECIAL DELIVERY 

Now is the time to turn your TRS-80 and 
your text editor into a REAL word processing 
machine. 

EXCELLENT... Creative Computing Review. 
State of the Art... 80 Microcomputing 
Review. 

• Maintain your mail list 

• Print personalized FORM letters. 

• Free format labels 

• 100% machine language 

• Enter names at typist speeds 

• Use with Scripsit, Lazywriter, Electric Pencil 

(we sell them all!) 

• Extract selected names 

• Boldface & underscore 

• Get your form letters past the secretary's desk! 

XTRA Special Delivery Includes 

all of the above PLUS: 

• Disk Sorts 

• Multi Label printer 

• Key definitions 

This is the LAST mailing list you 
will ever have to buy!! 

rOl YOUR MODEL I OR III: 

(requires minimum 32K & single drive) 

SPECIAL DELIVERY tips 

XTRA SPRCIAL DELIVERY .....I...!.!!!!!!!!!!!"!"."" $199 

rOR TOUR MODEL II 

(requires Scripsit 2.0) 
SPECIAL DELIVERY $199 

Over 2800 satisfied customers 
(plus 12 that won't speak to us any more) 

Electric Pencil 2.0 $80.00 

Lazywriter $165.00 

Scripsit $95.00 

(Most TRS software available at similar discounts CALL!) 

SOFTWARE CONCEPTS 

105 Preston Valley Shopping Center 
Dallas, Texas 75230 

Our retail store is located at the SW corner of 
Preston & LBJ 

(214) 458-0330 

MasterCard, Visa, American Express, COD 

»-» 43 
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PREMIUM 

CASSETTES 

COMPUTER GRADE 

100% ERROR-FREE 

FULLY GUARANTEED 
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The Micro-Trac™ Generation 

• High Frequency Response •Wide Dynamic Range* 

• Used by Software Firms & Computer Hobbyists • 

• Choice of School Districts Nationwide • 



LENGTH 12-PAK 24-PAK 

C05 $ .69 $ .59 

C-10 $ .79 $ .69 

C-20 $ .99 $ .69 

C-30 $1.19 $1.09 

C-60 $1 .49 $1 .39 

C-90 $1.79 $1.69 

*CASES $ .21 $.20 

'Cases recommended to protect sensitive cassettes. 



—UPS SHIPPING— 

(No P.O. Boxes please) 

$2.00 (12-pak) $3.00 (24-pak) 

—Canadian shipping multiply by 2— 

#1 COMPUTER TAPE 
IN THE USA! 

—write for volume prices— 



TOLL-FREE 

(orders only) 

\ 1-800-528-6050 

, ext. 3005 

In Arizona State 

1-800-352-0458 
ext. 3005 

MICRO-80™|NC. 

E 2665 Busby Road 

Oak Harbor, WA 98277 

—Distributors Wanted— 



• R I 
HA II 



• M3B 



Ittttl 

:il> .i : • ttt cm 

IIIIM » •♦ •• 

:tttt i tt tt 

»»• tttt • 



• • 



(I) 


• « 


• •• 


ttt 


M 


lit 


• * 


t 

t 

• 1K> 

t 
1 
1 


: (L > 

! *M40 


»»! 












LACLl ISLAND 


»• 




• 














1 




t 












06/02/82 • 






• 












It 




: «dm«2 


t 












• • 






...» 




























ttt 10) 




up) 


• 












It: 






« 












It 






• 












tt<N) : 


■Dull 





(0) • »«»• <R> 

»SW»7 ttt* III 



• .cms 

: <s> 



«FL R1 SEC 



Figure 5 



Listing 5 continued 

15 GOSUB5:GOSUB10 00 

20 GOSUB5:GOSUB100 

30 GOSUB5:COSUB100 

4 GOSUB5iGOSUB1000 

50 GOSUB5|U3>0.GOSUB1000 

6* LPRINT" *D1;TAB(10)D2|TAB(19)** CI" |TAB( 30) D4 >TAB(39) V; ■ "D5» 

TAB(50)D6|TAB(59)V;* *D7| STRINGS (70-PEEK ( 16539) ,32) |D8iU3-l :GOSU 

B1000 

70 GOSUB5iGOSUB1000 

•f GOSUB5iGOSUB1000 

90 «>8DB5|GOSUB1000 

100 GOSUB5 

110 LPRINTSTRINGS(41 ,H) > M > H ,- " " ;H| STRINGS ( 34 ,H) i U5-0 I S-2 1 L-l 

120 LPRIIIT"(i) , |TAB(19)V| , (F) , |TAB{38)M|N;H J Mf" *;N>Hf* *»M>* (G 

)*lTAB(59)V|"(H)*iGOSUB1000 

130 GOSUB3000I LPRINT* *D3jTAB(30)D4)TAB(37) H;M|NjTAB(45)M|H>TAB( 

50)D6)TAB(59)V;* "D7 j STRINGS ( 70-PEEK ( 1 653 9) ,32) jD8tU4-0 t U5-0 iGOS 

UB1000 

140 GOSUB3000I LPRINT* *D3|TAB( 36) H|TAB< 44) H;TAB( 50) D6 >TAB( 59) V; " 

*D7|STRING$(70-PEEK(16539) ,32) s D8 :G0SUB1 000 
150 GOSUB3000iLPRINT' *D3 ;TAB( 35) KjTAB ( 44) N|TAB( 59) D6 ; TAB ( 59) V; • 

*D7|STRING$(70-PBBK(16539) ,32) ;D8iU3-0 :GOSUB1000 
160 GOSUB3000tLPRINTTAB(25)H;H|TAB(35)H;TAB(43)H)TAB(50)D6)TAB(5 
9) V, ■ *D7|STRINGS(70-PEEK(16539) ,32) ;D8iGOSUB1000 

170 GOSUB3000|LPRINTTAB(23)H|H|* *;H;M>M;H|* * ;H;TAB( 44) H;H|H 
)TAB(50)D6|TAB(59)V»" *D7;STRING$(70-PEEK(16539) ,32) jD8:GOSUB100 


180 GOSUB3000jLPRINTTAB(22)N>TAB<31)M|N»KjTAB(46)M|TAB(50)D6|TAB 
(59)V>* ■D7»STRINGS(70-PEEK(16539) ,32) »D8:U6-0:GOSUB1000 
190 GOSUB3000tLPRINTTAB(21)N|TAB(46)H|N;H|TAB(59)Vi a *D7)STRINGS 
(70-PEEK(16539) ,32) |D8iU7-0iGOSUB1000 

200 GOSUB3000iLPRINTTAB(21)H;TAB(49)H|TAB(55)M|H;M;H;M|STRINGS(7 
0-PBEK(16539) ,32) |D8sU8-0iGOSUB1000 

210 GOSUB3000iLPRINTTAB(22) ;H»M»H)M|TAB( 50) H; * *|M;TAB(60)H;H; 
* LITTLE* iGOSUB1000 

220 GOSUB3000iLPRINTTAB(26)H|N|H)H)' GREAT MISERY";TAB( 50)M|TAB 
(55)H|TAB(62)H|* MISERY ISLAND" 

230 LPRINTSTRINGS(29,H) |H|" ISLAND ■ , TAD ( 4 9 ) i M ; H ; li ; H ; H ; H ; M ; TAB 
(62)M,STRINGS(17 ,H) i U8-1 I S-3 : L-l 

240 LPRINT*(I)*jTAB(19)V|*(J)*|TAB(29)M>TAB(4B)M;* (K) * ,TAB( 56) M 
|TAB(C2)H I M|* (L) ■:GOSUB1000 

250 GOSUB3000iLPRINTTAB(29)H|TAB(33)DATES)TAB(47)H;TAB(56)H|TAB( 
63)* ";M; STRINGS! 7 0-PEEK ( 16 53 9 ) , 32 ) | D8 : GOSUB100 

260 GOSUB3000iLPRINTTAB(25)H|H|H;M;H;TAB(46)H;TAB(57)M;H;H;TAB(6 
3)* ";Kj STRINGS (70-PEEK (16539) ,32) | D8 s U6-1 1GOSUB1900 
270 GOSUB3000lLPRINTTAB(21)N|M|H|M)TAB(46)M|TAB(50)D6|TAB(60)M(M 
;M,M, STRINGS (70-PEEK(1653 9) ,32) ; D8 : GOSUB1 000 

280 GOSUB3000:LPRINTTAB(21)K>TAB(46)H;TAB(50)D6;TAB(S9)V;STRING$ 
170-PEEK (16539) ,32) , D8 i U7 =1 : GOSUB1 00 

290 GOSOB3000iLPRINTH;TAB(45)K)TAB(50)D6jTAB(59)Vj* *D7|STRING$( 
70-PEEK (16539) ,32) j D8 :GOSUB1000 

300 GOSUB3000lLPRINTH»TAB(43)H|KjTAB(50)D6)TAB(59)V|* *D7|STRING 
$(70-PEEK(16539) ,32) , D8 :GOSUB1000 
310 GO8UB3000ILPRINT* *H»TAB(43)H»TAB(50) D6;TAB( 59) V; " *D7)STRIN 

Listing 5 continues 



158 • 80 Micro, December 1982 



Listing 5 continued 

G$(76-PEEJ.(1653») ,32)|DBi08-8iGOSUB1III 

321 OOSUB3fffiLnZIR1liTAB(44)ll|TAB(5l)I>«fTAB(S9)V ( a •D7|STRING$( 

t»-PEW(16539) ,32) i** c M6 a 1GOSUBIS66 

331 LPUVT* a 01|TKB(ll)D2|TAB(lB)H|l(|TAB(44)H|TAB(St)D6|TAB(5l)V 

t m a |D7iD8-l»GOSUBll66 

346 LFRIHT* •Dl»TAB(ai)D2»TAB(18)MiTAB(4*)N;TAB(Si)D6|TAB(5»)V|- 

■ l D7;8TRINGS(7t-PBBX(leS39) ,32) >D8 
356 LPRIHTSTRINGf (17, H) |H|TJLB(44) |M|STRINC$(3S,B) >8-4lL-l 
368 LPRIHT* (K) a ;TAB(lC)M|TAB( 25) HjHjMjTAB(45)M» ■ (O) *;TAB(59> V; • 

(P)'lGOflUB1666 
378 LPRIHT* *D1>TAB(1S)M|TAB(23)M|N|* ' ,«|K,«>TAB< 44)M)TAB( 58) 
D6|TAB(5»)Vj* *D7|STRING$(7S-PBBK(16539) ,32) |D8iGOSUB1666 
381 LPHIRT* *D1|TAB(16)R|I(|H(H|I(|H;II|TAB(31)H|H|H|I < |H|H|II|" * 

)RlB|TAB(58)D6iTAB(5»)V|" ■D7|STRIRGS(7S-PBBX(1<S39) ,32) |D8:GOSU 
B18S8 

398 GOSUB3 888 i LPRIHT - (N) ■ | TAB(3S)HrH|HfR|TAB(SS)D6rTAB(59) Vi ■ * 
D7|STRIMG${78-PBU(lt539) ,32) f08iGOSOB2B8SiGOSUB18BB 
488 GOSOB5iGOSUB1666 
418 GOSUB5iGOSUB18B8 
428 GOSUB5iGOSOB1888 
438 OOSDB5iGOSDB1888 
448 GO80B5iGOSUB1888 
458 GOSUB5iGOSUBH8f 
468 G080B5iGOBOB188B 
478 LPB.IS?STRINGS(B6,H) iS-5iL-1 

468 LPRIHT*(0)*|TkB(19)V|*(R) a tTAB(39)V| a (6)'|TAB(59)Vr*(T)* l GOS 
UB1888 

498 GOSt)B5iOOSUB18B8 
588 GOSUB5s01-BlU2-8iGOSUBlaaB 

518 LPRIBTTAB(12)A|TAB(19)V|* *D3rTAB(38)D4|TAB(39)V|* 'D5|TAB(5 
8>D«fTAB(S9)Vr* a D7| STRINGS (76-PEBK( 16539) .32) |D8iGOSUB1888 
528 LPRIRTTAB(«)A|" "A|TA8<19)V| " *D3|TAB(38)D4|TAB(39) V| " "D5»T 
AB(5S)M|TAB(59)V| a a D7|STRIHC$(78-P8n (16539) ,32) |D8lGOSUB18S8 
538 LPRIHTTAB(S)A|A|TAB(19)V; a *D3;TAB(39)D4pTAB(39)V| a *D5»TAB( 
58)D6|TM(S9)V| a •D7|STRIHG$<78-PEE*.(16539) ,32) jD8iGOSUB2668:GOS 



UB1686 

546 GOSUB5iCO50B1666 

558 GOSUB5iGOSUB18B6 

566 GOSOB5|GOSUB1666 

576 QOSUB5iGOSUB1666 

586 GOSUB5iGOSUB1666 

598 LPRIMT8TRIRG5(86,B)iGOSUB7i0OTO4668 

1861 HEM ASSIGN D1>D8 HERE 

1618 IPL-lTHENBl-ltB2-26BLSEIFL»2THB»nil-2tB2-19RIJBIPL-3THI«Bl-3 

iB2-18ELBEIPL-4THEml-4lB2-17EL8EIPL-5TBBHBl»5iB2»16 

1826 IPL-6THEHBl-6lB2-15ELSBIPL-7WE»nil-7iB2-141LSIIPL-8TltllBl-i 

>B2-13ELSEirL-9TBEIIBl-9lB2-12BLaEIPL-16THB1IBl-16iB2-ll 

1636 IPS-lTBBB01-6i02-li03-2i04-3iGOT01668 

1846 IPS-2TBEROl-3i02-4i03-5x04-«:COTO1686 

1656 IPS-3THEM01-6 t02-7 i03-6t 04-9 i GOT01686 

1666 irS-4TBBB01>9i02-16 i03-ll i 04-12 1OOTOI686 

1676 01-12i02-13i03-14i04-15 

1686 E$(l)-*$(S-K)l,Bl) iB$(2)-I$(B*01,B2) iBS(3) -1$ (8+02.B1) iB8(4) 

•1$(S«02,B2) iB$(5)-I$(8«03,Bl) tB6(6) -I»(S+03,B2) |B»(7)-1$ (8+04,B 

1) :ES(B)-IS(SKI4 f B2) 

1882 FOR X-l TO 81 IFB8(X)-* a THBR1691BLBBT$-RXQITf (B|(Z) ,LS»(Bf(X 

))-2) iGOTO 1696 

1688 T$-R1GBTS(E$(X) ,LKH(ES(X))-3) 

1696 C8-LEPT8(T$,1) iIFCS-"S*ORC8- a D , ORC8- , W*"niB«B8(X)-'""+T| 

IGOT01691ELSBGOT01688 

1691 NBXT X 

1695 Dl-EJ(l) |D2-B$(2) iD3-B$(3) tD4-Bf (4) tOS-Bt(5) >D«-B$(6) iD7-Bf 

(7) 1D8-EK8) 1L-L+I1RBTORH 

2666 Ul-liU2-l!U3-liU4-l:U5-l:06-liU7-liU8-liRBTURM 

3866 LPRIMTTAB(l)Dl|TAB(16)D2;TAB(19)V|iRETUM 

3586 OPEH" I ',1, "MISERY/DAT" 1 IMPUTH, DATES 

3516 F0RX-lTO26sF0RXl-lTO28iIHPUT«l,l$(X,Xl) iBEXTXliHBXTX 

3528 CLOSE 1 RETURN 

3556 CLOSEiEKD 

4666 LPRINTSTRING$(3,13B) 1 RUN "PEACH * 



Program Listing 6 

1 CLEAR3288iOH ERROR GOTO 3656iDBFSTRV,B,H,D,A:0EFIim),B,O,XiDIH 
X$(26,26) ill-*l a iA- a I*iV-*i'iB- a .*iCLSiPRIirr«465, 'HOMING FILENAN 
E ",CHRS(34) , 'PEACH' |CHRS( 34) iGOSOB3686iGOT08 

2 LPRIMTTAB(19)V|TAB(23)D3|TAB(36)D4|TAB(39)V|* a D5|TAB(56)D6(TA 
B(59)Vr iRETURN 

3 LPRII*TTAB(36)D4fTAB(39)V|* a DS|TAB(56)D6|TAB(59) V|" *D7|STRING 
$(76-F8BK(16539) ,32) |D8i RETURN 

4 LPR1HTTAB(39)V|* a D5|TAB(56)D6|TAB(59) V» * a D7| STRINGS ( 7 6-PEEK( 
16539) ,32) jDB: RETURN 

5 LPRINTTAB(l)Dl|TAB(16)D2>TAB(l»)Vi" a D3|TAB(36)D4|TAB(39) V| * * 



DS|tftB(56)D<rTAB(5»)V|' a D7rSTItZM((7B-PBBK( 16539) ,32) fOSil 

7 LPRIMTTAB(19)VrTAB(39)V|TAB(S9)VtRBTURM 

8 GOSOB7iLFRINTSTRmCJ(e6,H) IGOSUB2666 

16 LPRINTTAB(23)Hr* (B) '|TAB(39) |V> *(C) *jTAB(59)V| a (D) 'iUl-6l02- 

I1S-I1L-I1GO8OBI666 

28 LPKINTTAB(26)H|H(H>* "D3| IGOSUB3 1GOSUBI666 

36 LPRIimAB(19)ll|TAB(23)D3|iGOSOB3iGOSUB1666 

48 LPRINTTAB(26)H|N>TAB(23)D3riGOSUB3iGOSUB1666 

56 LPRIMTTAB(17)R|MjH>Njn|TABl23)D3|iG08UB3iGOSUB1666 

66 LFRINTTAB(16)N|TAB(19)V|TAB(23)D3iiG08HB3lU7-6iD8-6iGO«nB16ie 

Listing 6 continues 
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Figure 6 



ffPION introduces the 

INTERSTELLAR 
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A solid state 

lisk emulator for your 

Apple*. TRS80". SI 00. 

or SS50 computer 

Minicomputer speeds 
at Microcomputer Prices 

»A FAST mass storage device Speeds up 
payrolls, receivables, word processing, or 
any program requiring disk storage. 

• No moving parts Eliminates waiting on 
slow mechanical drives. 

• Standard 256K bytes of storage expandable 
to 1 megabyte. 

• Independent regulated power supply. 

• Automatic power failure detect and battery 
backup 

• Hardware error detection and write protect. 

• Drivers, diagnostics and utilities software 
provided. 

• Certified to comply with Class B limits 
Part IS of FCC rules. 

9 INC. Tel.|61 7)648-1 71 7 

74 Appleton St., Arlington, MA 021 74 

Trade Mark Apple "Trade Mark Tandy Corp. 
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Introductory 
Price $1 095. 

plus tax and shipping 

SEND FOR 

FREE 

BROCHURE 

Identify your model. 

• 490 
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MAXPRIN 



F=»«IMTEF* DRIVER UTILITY 
FOR THE STANDARD EPSON nx-M PRINTER 




BUPPORTB ALL MX-80 PRINT BTYLEB 
WORDPROCEBBING TEXT CONTROL MODE 
MENU MODE FOR BENERAL «F»RL I C**T I ON 
TRUE RRORORT IONAL JUSTIFICATION 

• UNKRL1NE.8. ANVMH^RE • CENTERS TITLES 

• SUB 80 "" 8 • 9UPER 8CRIPTS 

• DYNAMIC CONTROL OF LINE SPACING IN 1/72 IN. INCREMENTS 

• 11DHCS UUH HM-00 BSflfJfinn 
* WORKS MITH MOST PROGRAMS INCLUDING SCRIPSIt" 1 



Maicprint 19 
progr4* whi 



rxtr 



J*»r Or ivtittfd pr l 
wilict an y MX 

»1*<print al»o ft 
thin a Dl ut I at «, 
ion«J appearance. 



within Mor d processing text 
right margin juktl ♦ 1 nt i on 
your printout a truly pro** 

the standard Maxprmt works with all BASIC proqrams. Adapt* 
programs available for SCRIPS, r. PENCIL . and IA/YMR1TER. Mi n 1 mu 
system requirements jr e a 'Jt Model 1 or Model III with 
drive. (Model 111 needs two drives to convert only.' 



sk 



(/"(«*" tnv true C4'*"('<i of.tc 
on disl> with manual, adapter pre 



<M 80. Maxpr i nl 
ams . and sh i pp i 



suppl 



'27.» 



TO ORDER ■ Cmll (4M> 737-2233 Viu / Mastercard 
Bond check or money order toi 
Peicjaycr-onl c>, 
381 First Street, Suit* 3147 

Lot Altom, California 94*22 ^-333 



TRS-80™ Model 1 & 3 Software 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of youi TRS-80 Model 1 or i: ROM. RAM, Video 
Display. Keyboard. C assette Kei order. Lint' Printer. Disk Orives(single 
or double density. 15. 40, or 80-track drives), RS-232-C Interface. 

SMART TERMINAL $74.95 

Model II tP/M Version $79.95 

The intelligent telecommunic ation program. Automatic transmission 
and reception ol tiles. T rue BREAK key I assette and disk tiles < ompatible 
with both SC KIPS IT '"and Elect in Pencil ". Same program supports both 
cassette and disk systems. 

HOME BUDGET $49.95 

Cassette Version $29.95 

Analyses your income and expenditures, and prints monthly and year- 
to-date summaries showing income tax deductions. C omplete instrui 
tions on customizing to your own budget 

SMALL BUSINESS ACCOUNTING $59.95 

Cassette Version $29.95 

Based on Dome Bookkeepin , Record #612, keeps track ot income, 
expenditures, and payroll for a small business. Income and expenses 
i di) be entered on a daily, weekly, or monthly basis. Program c ompules 
monthly, through last month, and year-to date summaries 

MAILING LIST $fe9.95 

Maintain* mailing lists ot up to 1 12b names on a single formatted diskette 
Add, change, delete, tind names, sort by information in any lield, print 
up to 4- line labels ot 12 characters per line on 1,2. J. or 4 column labels. 

Documentation to any program can be purchased separately lor 
$10.00. deductible from later software order. 

Specify TRS-80 Model 1 or 3. 

Add $1.00 for postage and handling 

New York State residents add 4 Vk% sales tax. 

HOWE SOFTWARE 

14 Lexington Road, New C ity, NY 10956 

(914) 634-1821 

Visa and MasterCard accepted. 

IKS 80 is a ri-*i,tei»-d trademark ol Tandy ( cup "' ' 



/ :>/;, 



<r.'„ .; 



76 LPRINTTAB(15)N»iGOSUB2iLPRINTSTRINGS(76-PEEK(16539) ,32) jA;A:C 

0SUB1MI 

81 LPRINTTAB(15)H>:GOSUB2iLPRINTSTRINGS(73-PEEK (16539) ,32) |A) A:C 

OSUBlill 

91 LPRINTTAB(15)MnGOSUB2iLPRINTSTRINCS(69-PEEK(16539) ,32)|A:U9- 

I1U8-I1GOSUBI8BB 

Iff LPRINTTAB{lS)M|TAB(19)»V>TAB(23)D3»iGOSUB3iGOSUB1666 

Hi LPRINTTAB(16)M>TAB(19)V,TAB(23)D3»iGOSUB3 

128 LMUNTTAB(17)N," ";STRINC$ (68 ,H) : S-2 : L-l 

138 LPRINTTAB(18)Nj" • j ■ (P) "|TAB(39) V; ■ (G) "|TAB( 59) V» * (H) " :G0SUB 

2666iUl-6tU2-6iGOSUB1666 

148 LPRINTTAB(19)H;TAB(23)D3|tGOSUB3tGOSUB1888 

158 LPRINTTAB(26)N;TAB(23)D3mGOSUB3iGOSUB1666 

168 LPRINTTAB(21)N»TAB(23)D3> iGOSUB3iGOSUB1888 

178 LPRINTTAB(21)N|TAB(23)D3iiGOS"B3iGOSUB1666 

188 LPRINTTAB(21)HiTAB(23)D3|iGOSUB3iU3-8:GOSUB18e8 

198 LPRINTTAB(22)MjM;:GOSUB3iGOSUB1666 

288 LPRINTTAB(24)M|M|:GOSUB3iU8-BiGOSUBlBBB 

218 LPRINTTAB(26)N|TAB(36)D4iTAB(39)V|" "D5)TAB(58)D6»TAB(59) V; " 

"D7|STRING$(76-PEEK(16539) ,32);"C1 •"iU7-6iGOSUB16B6 
228 LPRINTTAB(27)M;Nj " 'D4 |TAB(39) V| * "05 jTAB( 58) D6;TAB( 59) V; • E 
NDEAVORS* ■ U4-S I GOSUB1SBB 
238 LPRINTTAB(29)H I H;TAB(39)V I ' "DS;TAB( 58) D6»TAB( 59) V;TAB(62) •« 

RH'iGOSUBlBBB 
24B LPRIJrTTAB(3B)M,STRIHG5(32,H)»" BN "|STRINGS(13,H) :S-3iL-l 
258 LPRINTTAB(3B)Mi" ( J) ";TAB( 39) V) " (K) * )TAB( 59) V| " (L) " iGOSUB2BB 
BiUl-8iU2-BiU3«BiU4-B:GOSUB188e 

268 LPRINTTAB(1)N|H|M|TAB(18) "PEACH POINT" j TAB ( 38) M) :GOSUB4:U8-B 
iGOSUBlBBB 
278 LPRIIrTTAB(3)N»M»TAB(31)N;TAB(39)Vi" "D5|TAB(5B)D6 jTAB( 59) V; " 

"D7»STRINGS(76-PEEK(16539) ,32) | "RN2«" :GOSUB1666 
288 LPRINT"(I)'|TAB(5)N|TAB(12)DATE$|TAB(32)M|TAB(39)V; > "DSjTAB 

(58)D6|TAB(59)Vi* *D7 jSTRING$(76-PEEK(16539) ,32) ;' >*iU8-l:GOS 

UB18B8 

298 LPRINTTAB(6)N>TAB(27)MJN|N,■ " ;Hj :GOSUB4iGOSUB1666 

3BB LPRINTTAB(3)H»M|M,TAB(26)H|TABl36)M;M|iGOSUB4:U4-l:GOSUBlBBB 

318 LPRINTTAB(3)M|M,M;MiTAB(25)H;iGOSUB3iGOSUB1688 

328 LPRINTTAB(7)H|M;HiM)M,TAB(25)M|rGOSUB3iGOSUBlB8e 

338 L,PRINTTAB(4)M|M;TAB(12);STRING$<18,M)," ";■; :G0SUB3iG0SUBlB 

348 LPRINTTAB(B)R|HiR|TAB(19)V»TAB(22)H|M|:GOSUB3iGOSUB18BB 
358 LPRINTTAB(12)H|K|M;TAB(19)V;:GOSUB3 
368 LPRINTSTRING$(8B,H) :GOSUB2666:S-4: L-l 

378 LPRlNT"(H)'|TAB(19)Vi'(H)";TAB(39)V| , (0)*iTAB(59)V."(P)"sGOS 
UB1SB8 

388 P0RC-lTO18iG0SUBS:GOSUB16BB:NEXTC 
488 LPRINTSTRINGS(86,H) :S-5|L-1 

498 LPRlNT"(Q)',TAB(19)V;"(R)";TAB(39)V|"(S)";TAB(59)Vi"(T)":GOS 
UB1BBB 

588 FORC-lT05:GOSUB5iGOSUBlB9fl:NEXTCiGOSUB5:U4-8:GOSUBlBB8 

568 LPRINT" "D1)TAB<16) D2»TAB( 19) V( * "D3iTAB< 36) "RW • BN",TAB<39 

)V|" ■D5»TAB(5B)D6|TAB(59)V|" "D7|STRING$(76-PEEK(16539) ,32) |D8: 

GOSUB1BBB 

578 LPRINTTAB(1)D1,TAB(16)D2»TAB(19)V»" "D3»TAB( 27) "KETTLEBOTTOH 

"|V|" "D5|TAB(5B)D6jTAB(59)V|" •D7)STRING$(76-PEEK(16539) ,32) ;D8 

:GOSUB26BB:GOSUBlBB8 

S88 GOSUB5:GOSUB1666 

598 GOSUB5iLPRINTSTRINGS(BB,H) : G0SUB7 : G0TO4 B B B 

1888 REM ASSIGN D1>D6 HERE 

1818 irL-lTHENBl-l:B2-26ELSEIFL-2THENBl-2:B2-19ELSEIPL-3THENBl»3 

:B2-18ELSEIFL-4THENBl-4iB2-17ELSEIPL-5THENBl-5:B2-16 

1828 IPL-6THENB1-6 : B2-15ELSEIFL-7THENB1-7 : B2-14ELSEIFL-8THENB1-8 

:B2-13ELSEIFL-9THENB1-9:B2-12ELSEIFL-1BTHENB1-1B:B2-11 

1836 IPS-lTHENOl-Bi 02-1 i 03-2: 04-3: GOTOl 688 

1846 IPS- 2THEN01-3 102-4 103-5 104-6 :GOT01B86 

1858 IFS-3THEN01-6i02-7t03-8!04-9:GOT01886 

1866 IFS-4THEN01-9 i02-18 : 03-11 :04»12 i GGT01BBB 

1878 01-±2i02-13i03-14:04-15 

1888 E$(i)-Z$(S+01,Bl) :ES(2)-ZS(S+01,B2) :ES(3) -Z$(S+02,B1) :E$(4) 

-Z$(S+02,B2) |E$(5)-ZS(S+03,B1) : ES (6) -Z$< S+03 ,B2) iE$(7) -ZS (S+04 ,B 

1) :E$(8)-Z$(S+04,B2) 

1BB2 P0R X-l TO 8:IFES(X)."THEN1B91ELSETS-RICHTS(E$(X) ,LEN(ES(X 

))-2)iGOT0 1698 

1688 TS-RIGHTS(ES(X) ,LEN(ES(X) ) -3) 

1696 CS-LEPTS(TS,1) : IFCS-*S"0RCS-"D"0RCS-"WTHENES(X) -•••♦T$ 

: GOTOl B 91 ELSEGOTOl 888 

1891 NEXT X 

1895 Dl-ESU) :D2-ES(2) :D3-ES(3) :D4-ES(4) :D5-ES(5) :D6-ES(6) iD7-E$ 

(7) :D8-E5(8) :L-L+1 i RETURN 

2688 Ul«liU2-l:U3-l i 04-1 iU5-1iU6-1iU7-1iU8-1i RETURN 

3868 0PEN*I",l,"PEACB/DAT"iINPUT#l,DATES 

3616 FORX-lT026iF0RXl«lTO2BiINP0Ttl,Z$(X,Xl) iNEXTXl iNEXTX 

3628 CLOSE ■ RETURN 

3656 CLOSE i END 

4BBB LPRINTSTRINGS{3,138) iRUN"DAT/C0L" 



Program Listing 7 

168 REM 

116 ON ERROR GOTO 376 

126 CLEAR 5BB6iDIMZ$(26,28) ,D$(2B,26) :CLSi0-l :V-448:GOSUB398 

136 GOSUB47B:PRINT«B,":INPUT"ENTER MAP NAME " ; MAP S : I F MAPS-*CAT" 

0RMAPS-" EAGLE "0RMAPS-" BAKERS "ORMAPS-'MARBLE'ORMAPS-'MISERY'ORMAP 

S-"PEACH"THEN148ELSEPRINT6B, STRINGS (63," ') : GOTOl 30 

146 GOSUB47BiPRINT8192,"READ DATA DISK 7 (Y OR N) " :G0SUB5BB: IFSS 

- " Y " TH ENGOSUB4 3 8 

156 GOSUB47B:PRINT»192,""| : INPUT'ENTER DATE OR (ENTER) MM/DD/YY" 

;A$:IFAJO""THENDATE$-AS:GOSUB318ELSEGOSUB316 

166 GOSUB476iPRINT8192, "ERASE KEEPERS 77 (Y OR N) " :G0SUB5BB: IFSS 

-*Y"TBEN466ELSEIPS$-"N'THEN176ELSE166 

176 CLS: PR I NT 68, "DATA INPUT ROUTINE FOR MAP DESIG. ";CHRS( 34) ;MA 

PS 

CHRS(34) ;TAB(53) ; DATES: PRINTSTRING5 (63 , "-") 

186 GOSUB476:PRINTB192, "ENTER SECTOR OR COMMAND LETTER" iGOSUB58B 

■IF SS-"" THEN188ELSEIFASC(SS)->65ANDASC(SS) <-84 AND LEN(S$)-1 T 

HEN196 ELSEIFSS-"W"THEN33BELSEPRINT8192,STRINGS(63," *) 1GOTOI8B 

198 U-l:P0RX-lTO2B:PO-XiIFZS(ASC(SS)-64,X)-""THEN26BELSEGOSUB4B6 



I Minn Tnmlinurs 
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/ Minx " i tmnnurd 

: IPU-STHENU-1ELSEU-B 

201 NEXT XtPO-8 

218 PRINT?192,STRINGS(63," " ) i PRINTS192 , "WORKING * |CHRS ( 34) ;S$)C 

HR$(34)|* SECTOR ' 

221 GOSUB47B:PRINTf32B,""»:INPUT"POSIT I, POT CODE, SHORTS/KEEPE 

RS (PO,CO,SU/KB)*|PO,PC$,K$ 

23i IP PO>BANDPO<-28THEN24BELSEIPPO>2BORPO-BANDPC$<>"'THENGOSUB3 

2B:GOT022BiELSEirPO-8ANDPCS-"THENGOSUB32B:PRINT*192,STRINGSl63, 

* ") iU-l:V-448iGOSUB42B:GOT018B 

241 IP PCS-'"THENGOSUB32B:GOT022B 

258 IPPCS-"NA"THENXS<ASC(SS)-64,PO)-"":DS(ASC(SS)-64,PO)-* ,, iPO-e 

:PCS-* , iU-liV-44eiGOSUB32BiGOSUB428:G0TO19e 

264 IS-LEPTS(PC$,2) t IPIS-'DW , 0RIS-*SW*THEN28BELSE27B 

278 I$-LEPT$(PC$,1) tIF I S-*W'THEN28»ELSEPCS-"" :GOSUB32B iGOT022B 

288 GOSUB388iGOSUB48S 

290 IPO-8THENU-1ELSEU-B 

381 PO-8:PC$-":GOSUB32B:GOT0228 

318 PRINT8192, STRINGS (63," "):RETURN 

328 PRINT8328,STRINGS(«4," ")):RETURN 

338 MAP S-MAPS+'/DAT*! OPEN ■D", 2, MAPS I PRINT* 2, DATES 

348 PORX-1TO20:FORX1-1TO2B!PRINTI2,ZS(X,X1) : NEXTXl : NEXTX 

358 P0RX«1T02B:F0RX1-1T028:PRINT«2,DS(X,X1) : NEXTXl : NEXTX 

368 CLOSE i END 

378 CLOSE:RESTOREi0UT254,l:V-448:GOSUB42B:G0TO128 

388 IS(ASC<SS)-64,PO)-S$*RIGBTS(STRS(PO) ,LEN(STRS(PO) ) -1) +PCS:DS 

( ABC ( SS) -64, POJ-K Si RETURN 

398 0UT254,8:F0RX-lTO2B:P0RXl-lTO2*:Z$(X,Xl)-""i NEXTXl: NEXTX: RES 

TORE i OU T2 5 4 , 1 J RETURN 

488 IPU-1THEN PRINT8V,l$(ASC(SS) -64, PO) |TAB(9) I "S/K-" , D$ ( ASC ( SJ) 

-64, PO) i RETURN 

418 PRINT8V+32,Z$(ASC(SS)-64,PO) |TAB(41) | "S/K-" ;D$lASC(SS)-64,PO 

) iV-V+64 i RETURN 

428 PRINT(V,STRING$(63," ") j : IFV-96BTHENV«448tRETURNELSEV-V+64:G 

OT042S 

438 OPEN* I ",1, NAP$+ "/DAT": INPUT! 1,DATE$ 

448 PORX-1TO20:PORX1-1TO2B|INPUTI1,Z$(X,X1) iNEXTXl : NEXTX 

4Sf PORX-lT02BiPORXl>lT02SiINPUTtl,D$(X,Xl) « NEXTXl: NEXTXl CLOSE :R 

ETORN 

468 PORX-1T02B sPORXl-lT02B;D$(X, XI )»""i NEXTXl: NEXTX tGOT0178 

478 OUT 2S5,l:POR X-lTO18B:NEXTX:0UT 255,8:RETURN 

5ii SS-INKEXSi IFS$-"THEN58BELSERETURN 
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PREMIUM S-SCNEW 

SMELL FITS ALL 

STANDARD RECORDERS 



MONEY BACK 
_ r _ GUARANTEE 

COMPUTER GRADE 
BLANK CASSEnES 



DATA TRAC / C-05, C-10, C-20 




CASSETTE STORAGE CAOOY 

ORGANIZE 
YOUR TAPES! 



TMACTO* FEfO 

HE-CUT BLANK 

CASSETTE LABEL! 



I 



INTRODUCTORY OFFER! 

ORDER 2 DOZ CASSETTES. ORDER 1 CADDY 



I 



erfyo" 



SB*** 



ABOUT 



YORK 



lOCASS^^.t^^^Ch 



oucputw** 






Mb* 



Madiso" 



on 



& 



"YOU'VE TRIED THE REST. 
NOW BUY THE BEST' 



Beaverton 

Call: 213/710-1430 

ORDER NOW... VORMK) Computer wor^ 
MAIL TO: 



for IMMEDIATE SHIPMENT 
on Credit Card Order*. 




I AC 1AF. 

MAP ARFA OFSICNAIIONS 



Figure 7 



Program Listing 8 

188 ON ERROR GOTO 458: REM FILENAME "DAT/COL* 

118 CLEAR 5BBBiDEFINTX,K,CiDINP$(6,5B) ,ZS(2B,2B) ,DS(2B,28) ,ES(18 

• ) 

128 DATA BAKERS/DAT, CAT/DAT, EAGLE/DAT, MARBLE/DAT, MISERY/DAT, PEAC 

H/DAT 

138 DATABA,CA,EA,NA,HI,PE 

148 REM INPUT THE SIX PILES AND ASSIGN TO PS ARRAY 

/ tstinK s cofUmuts 



156 ffl«ft- IV>' 24573 Kittnage S! «80N Lanoga PaiK. CA 91307 I 

Ead cassette 
includes ■* , YORK 
10 uoeis only 
Bom art sold 
separately Ship 
ments are By 
UPS unless 
Parcel Post re 
quested Boies 
radan ami Nam 
laoeis are tree ot 
shipping cnarges 
•hen ordered #it' 
cassettes A"hen 
ordered without 
cassettes shipping 
charges Boxes 
S 1 OOflw 
Caddies St 00 
etch MINIMUM 
SHIPPING 
HANDING JN 
ANY ORDER 
J? 00 



ITEM 1 DOZEN 2 DOZEN 


TOTAL 


C-05 ; 7 50 _; '3 50 




C 10 800 14*0 




C-20 ^10 00 _ 18 00 




Hard Box , 2 50 , 4 00 




Storage Caoay (a) i? a5 ea Ouanirty 




FREE Ouarvtity _ 


Blank labels j 4 00/100 7" 30 00 tOOO 


— 


SUB TOTAL 


Calif rss.flwis add 6*. sales tax 




Shipping handling 1 dor $2 2 doi $3 50 
3 do; $4 50. aach additional do; $ 50 




For Parcel Poet instead ot UPS ADO $1 




Outside Conlinental USA. ADO J2 




TOTAL 






Chech or MO 
encioeed 



Charge to 
Credit Card: 



VISA , , MASTERCARD 
PLEASE SEND QUANTITY DISCOUNTS 



Card No. 



JExp_ 



Name 




State/Zip 



Signatur e 

Computer make & model 



.Disk?(y/n) 



• See Lisf of Advertisers on Page 45' 
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Creative Computer 



Department 80 

1236 E. Colonial Drive 

Orlando, Florida 32803 USA 



In Florida call 
305-8940789 





RIBBONS ! 




PRINTER 


EZ • 

RELOAD l 


CARTRIDGES 
NEW 


RADIO SHACK 
PRINTERS 






Daisy II Black 

Brown/Blue/ Red 

LP 1-2-4 

LP3&5 

LP6&8 


10 For 24.95 
6 For 24.95 
4 For 18.95 
3 For 13.95 
3 For 13.95 


6 for 29.95 

N/A 


EPSON /IBM 




EPSON BRAND 


MX-70/80/80F/T 
MX- 100 


3 For 16.95 
3 For 18.95 


18.95 
29.95 


OKIDATA 






80-82-83-84 




3 For 11.95 


CENTRONICS 






700/730/737/739/779 
ZIP PAK 


4 For 18.95 





RADIO SHACK 
MODEL I & III 



NEWDOS80 2.0 $139 

LDOS5.1 105 

Maxi-Manager 84 

Maxi-CRAS 89 

Electric Pencil II 79 

Superscript 44 

Business Pac 100 94 

Library 100 39 

Money Manager 36 

GAMES 



Adventure International 



Big Five 

Avalon Hill 

Med System 

Acorn 

Epyx and Others 



1-5% Off 
2-10% Off 
3-15% Off 
5-20% Off 



RADIO SHACK 
MODEL II 



Racet Fastback . 
Business Pac 100 



$ 69 

144 



Over 100 Items 

We'll Beat Any Price 

On CP/M Items 



HARDWARE 



PRINTERS 

Epson MX 100 $ 749 

Epson MX 80FT 579 

Epson MX 80 474 

Okidata 80 349 

Okidata 82A 469 

Okidata 83A 719 

Okidata 84 Par 1049 

Okidata 84 Serial 1149 

C. ltohF10-40CPS .... 1399 

C. Itoh Prowriter Par . . . 495 

C. Itoh Prowriter Serial . 649 

Smith Corona TP 1 . . . . 649 

MODEMS 

Hayes Smart Modem . . . $245 
Hayes Clock-Cronograph 235 



Plastic File Box 50-5 V, " $19.00 



CREATIVE COMPUTER 

Asset Depreciation . . $350/25 
Account Payable .... 495/25 
Account Receivable . . 495/25 

General Ledger 495/25 

Inventory Control 495/25 

Order Entry/Invoicing . 395/25 

JobCosting 495/25 

Yahtzee 24.95 

Buy 3 and get 20% off 

CALL TOLL FREE- 800-327-9294 



Library Case 5 Vt" . . . 


3.00 


Library Case 8' ' 


4.00 


Head Clean Kit 


23.00 


Floppy Saver 


11.95 


Floppy Saver Rings . . 


6.95 


Green Screen I, II, III . . 


12.00 


Mailing Labels 5000 . . 


$16.00 



+ Shipping 



Write For Free Catalog 

Over 600 items in Diskettes, Paper. Lables, Ribbons, Checks. 
Storage Boxes, Furniture. Binders and Hardware. ' -Mfg. 
Trademark. Florida plus 5% tax. 

FREE SHIPPING except hardware. 

Most orders out in 24 hours with VISA M/C, Money Order, 
Cashier Check, Bank Wire and C.O.D. Personal check over 
$150 allow 10-14 days. Mail order only. Prices subject to 
change 94 Monday-Friday, 9-6 Saturday. ^ 190 



« » WILLIAMS -- FISH ( LOBSTERS ■ m 



06/12/82 



HAP DFSIC 

L7DW36»2/1 

H13SM49>2/2 

O19SW33«S/0 



BAKERS TTL'S. , 



BAKERS 

L9DW3S«»/1 L12H2B«0/0 L180M37I4/1 HSSkHMO/O HMSMS0"0/0 

N1SOW30'7/0 N19DM29»2/2 060U31>1/1 DHH5UI/1 017Dw32«3/2 

PlDU34i2/3 P6M32»0/0 P17DH26«3/1 P20w27»0/0 



POTS- 17 SHORTS- *3 KEEPERS- 15 RATIO KPRS/POTS.. 0.9 



HAP DESIC 

C12DM24X3/0 
L13OW10M3/0 
O12OW6X2/0 



CAT TTL'S. . 



, CAT 

GMDn13>1/1 G20DM14*4/1 I1OM18IZ/0 

H20M1M/1 HI7OM2«0/0 N5OM3«6/0 

P13DW9M7/0 S160M7M3/1 T90W8H/3 



SHORTS- "J7 KEEPERS- 11 RATIO KPRS/POTS.. 1.7 



HAP DESIC 

D9M38«0/0 

018DW4H4/1 



EAGLE TTL'S.. 



EAGLE 

D17DH 3810/0 
OlSH47>0/0 



N11DM43M/I 



POTS- 11 SHORTS- 10 KEEPERS- 3 RATIO KPR8/POT8.. 4.3 



NAP DESIC HARBLEHEAD 

F3DW17»1/1 F10DH16«3/1 FZ0DM13>l/0 



HARBLEHEAD TTL'S.. POTS- 



KEEPERS- 2 RATIO KPRS/POTS.. 0.7 



MISERY TTL'S.. 



POTS- 



SHORTS- 



KEEPERS- RATIO KPRS/POTS.. 



HAP OESIG PEACH 

C13M60»0/0 H3DU23«7/1 H3OM23«3/0 
K2CSM53«0/0 LISMSIil/O L2DM21S3/2 
S7SW36»l/0 



PEACH TTL'S.. POTS- 13 SHORTS- 22 KEEPERS- 
TOTALS FOR PERIOO 06/02/82 ALL AREAS 

TOTAL POTS MORKED 60 TOTAL SHORTS 127 

X KEEPERS US. TOTAL 23 SHORTS/POT... 2.12 

1982 TO DATE TOTALS TTD SHORTS 1002 



H14SM33al/0 H13SM59H/1 
L7DW19m*/l L9SM37M/0 



RATIO KPRS/POTS.. 0.* 



TOTAL KEEPERS 38 
KEEPERS/POT... 0.6:1 
TTD KEEPERS 242 



Figure 8 



Listing <v continued 

15B PORX-lT06t REACTS i CLS |PRINT8448,CHR$( 23 )| "WORKING FILE-NAME ■ 

>T$iGOSUB4BStC-l 

168 OPEN a I a ,l,T$ 

178 INPUT81,DATESiIFX-lTHENBS-DATBS 

181 IP DATESOHSTHENGOT0458 

198 FORXl-lTO2BiPORX2-lT02SiINPUT»l t XS(Xl,X2) .NEXTX2 ,NEXTX1 

211 POR Xl-i.T02BiF0RX2-lTO2B.INPUT»l,D$(Xl,X2) iNEXTX2tNBXTXl 

211 CLOSE 

228 F0RXl-lTO2StPORX2-lTO2SiIPX$<Xl,X2)- aa THEN23SELSE26B 
230 NEXT X2 

241 NEXT XI 

251 NEXTX:GOT027B 

261 PS(X,C)-X*<Xl,X2)+ aaa *D$(Xl,X2)iC-C+liCOT023S 

271 REM ASSIGN PILBNAME PR0H DATES 

28B AS-LEFTS(DATE8,2) |C$-MID$(DATE8,4 ,2) *' il a i IFAS-'S4 a THEMBS-*A 

PR/D"+C$iGOT037S 

298 IPA$*> a SS a TBENB$-*HAY/D*+C$iGOT037S 

388 IFA$--86"THENBS-"JUN/D'+C$,GOT0378 

318 IFA$-"S7 a THKNB$-'JUL/D*+C8lGOT037B 

328 IFAS-*S8"TBENBS-"AUG/D"+CSiGOT037B 

338 IPA8- , 89 , THEHBS-"SEP/D , *C$iGOT037B 

348 IPA$- a 18 , THBltB8- , OCT/D"+C$iCOT0378 

358 IPA8-*ll'THENB$»*(l0V/D , *C$iGOTO378 

368 GOTO 458 

378 KM OUTPUT TO DISK 

388 CLS i PRINTC46B, 'PACKING DATA TO DRIVE ll..",BS 

398 OPEN , 0',2,BSiPRINT»2,DATES 

488 POR X-l TO 6iXl-liREADTS 

418 IPPS(X,Xl)- aa THEM 428 ELSE PRINT»2,TS*PS(X,X1) |X1-X1+1«G0T04 

428 NEXT X 

438 CLOSE i CLS. GOTO52B 

448 GOSUB48StPRINT8464,CHR$(23)|*JOB COMPLETE" :FORJ-lT05BB: NEXTJ 

lP*INTt464,STRING$(12,* ') tGOT0448 

458 REM ERROR ROUTINE 

4(8 CLOSE i CLS 

478 GOSUB488iPRINT«464,CBR$(23)i*E R R O R'iPORJ-lT05SSi NEXTJ i PR 

INT8464,STRING$(12,' *) 1GOT047B 

488 REM BEEP 

498 0GT255,liF0RJ-lTO5B: NEXTJ i OUT2 5 5 , 8 i RETURN 

588 REM READ t LPRINT TOTAL DATA POR TBE WEEK 

518 CLSiINPUT'BNTER DATA PILE TO READ a |B$ 

528 CLSiPRINTS46S, a * a READING BACK a |BS» a TO CBECK a •*:GOSUB49 

8 

538 X-liOPEN"I*,l,BSiINPUT#l, DATES 

549 IPEOP(l)TBEN56Bi 'CBECK POR EMD OP PILE 

558 INPUT«1,ES(X) iX-X*liGOT0548t 'INPUT COMPRESSED PILE INTO ES(X 

) 

568 CL0SEiF0RC-lTO6iF0RCl-lTO5SiP$(C,Cl)-'*iNBXTCliNEXTCi 'NULL A 

LL PS 

578 C1-1iC2-1iC3-1iC4-1iC5-1iC6-1 

588 CLSlPRINT8465, ,a • STRIPPING STRINGS * *"iGOSUB49B 

598 PORK-lTOX-liGOSUB818iMEXTKi'LOOP 9 PROM READ COMPRESSED PILE 
- SUB9BS TO SEPARATE COMPRESSED PILE INTO SECTORS 

Listing 8 continues 
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You could spend hours 
typing in your programs, 

Or you 
could get 




With LOAD 80 

you'll avoid all the hassles 

while enjoying all the benefits 



ALL THE MAJOR 

PROGRAM LISTINGS 

FROM EACH MONTH 

OF 80 MICRO ON 
CASSETTE OR DISK 



What exactly is LOAD 80? Simply put, it is a monthly dump of 
the major program listings in each issue of 80 MICRO. Since it 
was introduced in April of 1981, hundreds of TRS-80* users like 
yourself have discovered the advantages and benefits of LOAD 
80. This comes as no surprise to Wayne Green, the innovative 
publisher who created LOAD 80. He knew from experience how 
frustrating and time consuming it was to keyboard and debug 
even a single published program, let alone all the major pro- 
gram listings in an issue of 80 MICRO. He was sure that a great 
many people were just as frustrated as he was and would jump 
at the opportunity to have those programs available in "ready- 
to-load" form. 

Wayne couldn't have been more right. LOAD 80 has been a 
boom to TRS-80 users, allowing them to spend more time ac- 
tually using their computers, while at the same time saving 
them a lot of aggravation and a good deal of money. 



And now you can enjoy all the benefits of the major program 
listings in 80 MICRO without the aggravation of kevboarding 
and debugging them. Start your subscription to LOAD 80 with 
this month s issue and save close to 30% on the monthly price. 
And with a year's subscription, your cost per month (for an 
average of 10 programs per cassette or disk) is about what it 
would cost you to purchase one program at retail prices. Plus 
you get the extra added advantage of having the complete 
documentation for the major programs in that month's issue of 
80 MICRO, so loading your cassette or booting up your disk 
should present no problem at all. 

To order your LOAD 80 subscription, or this month's issue 
only, simply fill in the attached card or the coupon below (a pho- 
tocopy is acceptable) and send it to: LOAD 80, 80 Pine Street, 
Peterborough, NH 03458. You can also order back issues of 
LOAD 80. For complete details, look for the LOAD 80 back 
issues advertisement in this magazine, or see your local dealer. 



LOAD 80 disks are TRSDOS 2.3 formatted, single density and floppy-sided. They will not contain an operating system. Sin- 
gle drive users need a copy utility; Model III users need the TRSDOS 1.2/1.3 Convert utility. Source code files may not be use- 
able on the Model III. 



Yes, I want December LOAD 80 



YES. I want to save money, ill subscribe to LOAD 80 
on disk beginning with this month's Issue . $199.97 

YES, I want a cassette of this month's LOAD 80 for 
J9.97 each (plus $1.50 per tape tor postage and 
handling). 



Visa Am. Ex MasterCard 

□ Check/Money order 



YES. I want to save money. Sign me up for a year ot 
LOAD 80 beginning with this month's cassette. . 
$99 97 for 12 Issues. 

YES. I want this month's LOAD 80 on disk for $19.97 
each (plus 11.50 per disk for postage and handling). 



Name: 

Address:. 
City: 



State: 



Zip: 



Card# 



Signature: v^euim _tAp. uaio. _ 

LOAD 80 is manufactured by Instant Software, a subsidiary of WAYNE GREEN INC.. 80 Pine St.. Peterborough. NH 03458 There is no warranty cy 



Exp. Date: 



expressed or Implied that LOA 



iy insli 
D80w 



ill do anything other than save you typing. 



Foreign air mail, please inquire. 



"TRS-80 is a trademark of Tandy Corp. 
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Let's get personal 



try out the in-stock selection of Heath/ 
Zenith microcomputers, peripherals, 
accessories and software. 

Now available at your nearby Heathkit 
Electronic Center, or through the Heathkit 
mail order catalog. 

You get more with a Heath/Zenith per- 
sonal microcomputer system! We offer: 

I.Proven high-performance hardware: 

Thousands of our microcomputers prove 
themselves daily, in the field. 



2. Vast software library: Three operating 
systems (including CP/M), languages, word 
processors, an electronic spreadsheet, ver- 
satile utilities and the 500-program Heath 
Users' Group software library. 

3. Self-instruction courses: Evaluation 
and programming courses from Heathkit/ 
Zenith Educational Systems. 

4. Service support: Before and after the 
sale consultation by phone, carry-in 
service by trained technicians. 



Test run one of our microcomputers 
at any of the more than 60 convenient 
Heathkit Electronic Centers in the U.S. 



Heathkit 

ELECTRONIC CENTERS 

See the white pages of your telephone book -^-f^l 
for store locations and telephone numbers. t^jt 

•Units ol Ventechnology Electronics Corporation in the US 




Listing 8 continued 

611 REM LPRINT ROUTINE 

61* CLSlPRINTI46B,"* * PRINTING POT INFORMATION • • , iCOSUB499 

62* DATA BAKERS, CAT, EAGLE, MARBLEHEAO, MISERY, PEACH 

638 LPRINT TAB(2i)** * WILLIAMS — PISH t LOBSTERS * "(STRINGS 

(7§-PEEK(16539) ,32) iDATES 

641 LPRINTSTRINGSiei,'*') 

658 F0RX-1TC6:R£AD MA?S:C-B 

661 LPRINT'MAP DESIG 'iMAMlIPPStX, 1) -"THENLPRINT'NO 

DATA AVAILABLE FOR '; MAP S1GOTO68B1 "CHECK FOR NULL 
67i LPRINT TAB(2)iPS(X,l*C)»TAB(15) »P$(X,2+C)|TAB(28)»P${X,3*C), 
TAB ( 41) |PS(X,4+C) |TAB(S4) (PS(X,5*C) ) STRINGS (67-PEEX ( 16539) ,32) |P 

5(x,«*c) 

68t C-C*6iIPC-36THEN69«ELSE67«i 'CHECK POR SIXTH LINE 

69f GOSUB89■lLPRINTMAPS|■ TTL' S. . ';TAB( 21) | 'POTS-* ;K|TAB( 31) i •SH 

ORTS-* ( SS| TAB ( 43) i 'KEEPERS-' iSIi TAB (57) | "RATIO KPRS/POTS. . ■ ; : Z2S 

■'M.filF K-B THEN LPRINTKELSELPRINTUSINGX2S|SK/KiGOSUB93l 

7BB Sl(X)-8SiKl(X)-SIi 'SS-SECTOR SHORTS SK-SECTOR KEEPERS 

711 LPRINTSTRINGS(8l,*- a ) iK-liSS-liSK-liNEXT X 

721 LPRINT'TOTALS POR PERIOD '(DATES;' ALL AREAS 

...' I LPRINT" " 

73B LPRINT'TOTAL POTS WORKED'|TP»TAB(3f) ; 'TOTAL SHORTS ' i TS ) TAB ( 6 

I) I 'TOTAL KEEPERS' | TK 

741 Z2$>"tl.tt'iLPRINT' *|LPRINT'% KEEPERS VS. TOTAL'i INT( Hi* (T 

K/(TK+TS) ) ) >TAB(3B) | 'SHORTS/POT. ,.'| iLPRINTUSINGI2S|TS/TP| iLPRIN 

TTAB(6I) I 'KEEPERS/POT...' ; i LPRINTUSINGZ2S; TK/TP 

751 OPEN'I',l,'YBAR/TTL'iINPUT»l,YEARSi'YS-TOTAL YEAR SHORTS YK 

-TOTAL YEAR KEEPERS 

76i PORX-lTO«iINPUTtl,YS(X) ,YK(X) iNEXTXi 'INPUT TOTALS PROM FILE 

77( CLOSE 

781 F0RX-1TO6.YS(X)-YS(X)+S1(X)iYK(X)-YK(X)+K1(X).NEXTXi 'ADD EAC 

H SECTOR TOTAL TO YEAR TOTAL 

791 LPRINT" "iLPRIRT YEARS; * TO DATE TOTALS "|TAB( 38) ; "YT 

D SHORTS'|YS(l)+YS(2)+YS(3)*YS(4)+YS(5)+YS(«);TAB(6«)»"YTD KEEPE 

Rfl"lTI(l)*r«(2)*YI(3)*YlK4)*YK(5)*YK(6) 

881 LPRINT STRINGS(2,138) 1GOTOI8BB 

819 REM - ASSIGN C 4 PS 

828 X$-L*PT$(ES(K) ,2) tIFX$""BA"THENC-liP$(C,Cl) -RIGHTS(ES(K) ,LBN 

(E$(K))-2)iCl-Cl+ltRETURN 

838 IFXS-"CA"THENC-2iPS(C,C2)-RIGHTS(ES(K) ,LEN(ES(K) ) -2) iC2«C2*l 

1 RETURN 

848 IFX$-'EA"TBENC-3iPS(C,C3)-RIGHTS(ES(K) ,LEN(ES(K) ) -2) iC3"C3*l 
I RETURN 

858 IFIS-'MA'THENC-4iPS(C,C4)-RIGHTS(ES(K),LEN(ES(K))-2)iC4-C4+l 
: RETURN 

868 IFXS-"MI"THElIC-5iPS(C,C5)-RIGHTS(ES(K) ,LEN(ES(K) ) -2) IC5-C5+1 
1 RETURN 

879 IFXS-"PE'THENC-6iP$(C,C6)-RIGHTS(ES(K),LEN(ES(K))-2)iC6-C6*l 



: RETURN 

888 IFES(K)-"END , THEN46B 

899 REM ASSIGN SS-SK 

968 IFP$(X,l)-"THENSS-8iSK-6iRETURNELSEIFX-lTBENK-Cl-lELSEIFX-2 

THENK-C2-1ELSEIFX-3THENX-C3-1ELSEIFX-4THENK-C4-1ELSEIFX-STHENK-C 

5-1ELSEIFX-6THENK-C6-1 

918 PORKl-lTOKiSK-SK+VAL(RIGHTS(PS(X,Kl) ,1) ) iTMS-RIGHTS (PS (X,K1) 

,3) lSS-SS+VAL(LEFT$(TNS,l)) 

929 NEXTKlt RETURN 

939 TP-TP+K«TS-TS+SSiTK«TK+SKiRETURN 

949 REM OUTPUT TO DISK YTD TOTALS 

959 CLSiPRINTI466,*" • UPDATING YTD FILES • •• I GOSUB496 

968 OPEN'0',2,'YEAR/TTL'iPRINT#2,YEARS 

976 P0RX-1TO6 

988 PRINT#2,YS(X),YK(X) 1 NEXTXi 'YS-YEAR TOTAL SHORTS YK-YEAR TOT 

AL KEEPERS 

999 CLOSEtCLSiGOT044B 

1899 REM START OF GRAPH 

1919 LPRINTSTRINGS(2,138) :VJ-":",HS-'.'iAS-' " |G1S-'SSSSSSS'|G2S 

-■KKKKKKR"iG3*-"* •■ >G4$>*BBBBBBB* |G5S-'B B" 

1828 LPRINTTAB(21)|"" • WILLIAMS — F*SH t LOBSTERS • "'(STRINGS 

(78-PEEK(16539) ,32) (DATE Si LPRINT' " iLPRINTSTRINGS(89, ■•") iLPRINT 

' 'iL-59 

1939 GOSUB112BiLPRINTTAB(2)L|TAB(5) (VS( iGOSUBll88iL-L-l«IFL-39TH 

EN1B4BELSE1B3B 

1648 READA$iGOSUB1128iLPRINTA$(TAB(2) ;L(TAB(5) ;V$; iGOSUB1186iL-L 

-1|IFL-11THEN1858ELSE1648 

1658 A8-" "iGOSUB1126iLPRINTTAB(2)L(VS(iGOSUB1188iL-L-liIFL-9THE 

N1B6BELSE1856 

1861 GOSUB112BiLPRINTTAB(3)L(TAB(5) (VS( iGOSUB1188iL-L-li IFL-BTHE 

S1878ELSE1B6B 

1979 LPRINTTABf 6) STRINGS (64, HS! 

1686 LPRINTTAB(11)"BAK",TAB(21)("CAT"|TAB(31)("EAG'(TAB(41)('HAR 

•(TAB(51)('MIS'|STRINGS(61-PEEK(16539),32),"PEA"iLPRINT" ' 

1696 LPRINTTAB(25)('« • MAP AREA DESIGNATIONS • •" 

1186 LPRINTSTRINGS(52,138)iGOT0946 

1116 DATA*,,*,,A,,R,,E,,A,,,T,,0,,T,,A,,L,,S,,*,,* 

1126 F0RN-1T06 1 REM ASSIGN A$(1)>A$(6) 

1136 IFSl(N)-Kl(N)ANDSl(N)-LTBBNAS(N)-G4$iGOT01176 

1148 IFSl(N)-Kl(N)ANDSl(N)>LTHENA$(N)-G5SiGOT01176 

1156 IPSl(N)-LTHENA$(N)-Gl$ELSEIFKl(N)-LTHENA$(N)-G2SiGOT01176 

1169 IF S1(N)>L OR K1(N)>L THEN AS(N)-G3S 

1179 NEXTNiRETURN 

1186 REM PRINT LINE 

1196 LPKINTTAB(9)(AS(1)(TAB(19)|AS(2)(TAB(29)(AS(3)(TAB(39)(AS(4 
) (TAB(49) |A$(5) (TAB(59) |AS(6) 1 STRINGS ( 69-PEEK ( 16539) ,32) (VS;L(' 

"|AS 
1286 RETURN 



FREE SHIPPING 




lAMillll 

W/48K, 2 TANDON 

5 1 /4" DISK DRIVES 

INCLUDES TRS DOS 

(No RS232I 



RS232 $99.95 

Instructions Included 



$1725 




TRS-80 MOD III Disk Controller 



Includes Disk Controller. Switching 
Power Supply, Mounting 
Hardware, Cables and 
Instruction Manuals 



$269 

COMPLETE 




ADD COLOR to your Model I & III - $169 

TRS80 MOD III Disk Controller w/ 5 1 /4 & 8 Capability, RS232 and COLOR — $345 



PRINTERS 

MX80 
MX80F/T 
MX 100 



Call 
$535 
685 
SMITH-CORONA TP-1 585 

(Letter Quality Daisy Wheel Printer) 

Printer Cable $26.95 ($20 w/purchase of printer) 




VISA, MASTERCARD isioo Mm. Add 2%) 
Or Certified Check 
90 Day Warranty (Parts & Labor) 

TRS 80 is a Registered Trademark. Tandy Corp. 
Prices Subject to Change Without Notice 




TM100-1 Single 40 Track Drive $199 

With Cabinet & Power Supply $249 

TM100-2 Double 40 Track Drive $289 

TM100-3 Single 80 Track Drive $289 
TM 100-4 Double 80 Track Drive $399 



8 Dual Slim Line Drive Power Supply & Cabinet $249 
5Vi" External Drive Power Supply & Cabinet 49 



DATA— MAIL 

P.O. Box 81 8. Reseda. CA91 335 



FREE SHIPPING IN CONTINENTAL US 
(TRS-80 MOO III EXCEPTED) 

(213) 993-4804 
Toll Free (800) 635-5555 



-Circle 47 on Reader Service card 
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GENERAL 



Build an ideal workplace for your TRS-80 



$30 System Desk 



Sanford J. Asman 

59 Willis Drive 

West Trenton, NJ 08628 



After accumulating the 
various components of my 
TRS-80 computer system (a 
Level II Model I with an expan- 
sion interface and 48K of RAM, 
an MPI disk drive, and an 
Anderson-Jacobson AJ841 
printer) I realized the office desk 
the components had been ac- 
cumulating on was becoming 
less and less accessible. In ad- 
dition, it was harder and harder 
to avoid tripping over the rats 
nest of wiring created by six 
power cords plugged into var- 
ious wall outlets. Finally, the 
computer itself had never been 
at an ideal height; the desk top 
was too high for convenient key- 
board entry or for viewing the 
elevated monitor. The system, 
expanded from the original 16K 
computer, had clearly outgrown 
the desk on which it was sitting. 
I began looking for an alter- 
native arrangement. My first 
thought was that the $200 
system desk sold by Radio 
Shack, while not an insignifi- 
cant investment, might be 
worthwhile. However, because 
Radio Shack designed their 
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system desk with the computer 
and expansion interface open- 
ings on its left side, the desk 
would not fit in the location I in- 
tended to place it. Also, its 
modern appearance did not fit 
the decor of the room, it did not 
eliminate the multiple electrical 
outlets required to operate the 
system components, and I did 
not like placing the disk drive in- 
to a cubby hole. The price tag 
was steep for a desk that failed 
to be ideal. 

On the other hand, the open- 
ings in the Radio Shack system 
desk would eliminate much of 
the visible wiring and would pro- 
vide for free air circulation 
around the computer and ex- 
pansion interface, both of which 
are cooled solely by convection. 

My Own Design 

I decided to build my own com- 
puter system desk. I created a 
deiign I like and which is a part 
of the system, as well. It provides 
recesses for the computer and 
the expansion interface which 
allow for hidden wiring and ade- 
quate convection cooling, and 
the need for multiple power 
outlets is eliminated by including 
a six electrical outlet unit con- 
trolled by a single switch. The 
unit has a single power cord go- 
ing from the desk to a wall outlet; 
thus, the entire system is turned 
on or off with one switch. There is 



space on the desk for my printer, 
disk drive, and floppy disk 
storage, and the desk fits the 
room decor. Best of all, the desk 
was simple to build, and the 
wood cost less than $30. 

I have learned to build things 
that don't require exacting mea- 
surements. Rather than mea- 
suring, I mark one piece directly 
against the piece with which it 
fits, so the fit is certain and I 
needn't worry about whether I 
can measure accurately. Where 
measurements are absolutely re- 
quired, I make them as uncritical 
as possible. 

I decided to incorporate the 
openings of the Radio Shack 
system desk, but to make the 
desk in the form of a Parson's 
table. This leaves room on the 
left side of the computer for the 
printer and on the right side for 
the disk drive and disk storage. 
The tape recorder can occupy 
space behind the disk drive. The 
only important dimensions were 
the overall size of the desk top 
and the height of the desk (low 
enough to type comfortably, 
high enough to fit my knees 
under it). 

The result is shown in the 
photograph and described more 
fully in the plans. While I have in- 
cluded the actual measurements 
of my desk, you should follow the 
general principles rather than the 
specifics to get the desk that 



completes your system. 

Non-Critical Cuts 

I wanted a top surface of 48% 
inches by 28 V* inches. The top is 
made out of a piece of 5/8 inch 
particle board, an extremely 
hard, dense material which 
comes in 4 foot by 8 foot shee ts 
selling for about $6 per sheet. To 
keep things simple while pro- 
viding a finished edge (apron), I 
sawed a 28% inch piece off one 
end of a sheet of particle board. 
The 48 inch by 26Vi inch piece 
would provide me with the de- 
sired top surface after the apron 
was added. To ensure a straight 
cut, saw the top from the sheet 
using a sabre saw guided along a 
straight board clamped to the 
sheet by a pair of C-clamps or ad- 
justable wood clamps. 

After cutting the desk top from 
the sheet, make the openings for 
the computer and the expansion 
interface. Lay out the openings in 
the top and follow the lines with a 
hand-guided sabre saw. Start the 
cuts by drilling a hole some place 
within the openings or by using a 
plunge cut with the sabre saw. A 



The Key Box 

Model I 
Expansion Interface 

Printer 



plunge cut is made by starting 
the saw and then tilting it into the 
waste area of the opening. The 
openings for the computer and 
the expansion interface are sized 
to allow wires to pass through 
and are not critical, so do not 
worry if your measurements are 
off; just try to keep the cuts fairly 
straight. I rounded the corners by 
drawing arcs with a quarter. With- 
out a single critical cut or mea- 
surement, the top is complete. 

I selected poplar for the apron; 
clear pine could be used and is 
more widely available, but I 
prefer to use hardwoods and 
suggest poplar, walnut, maple, or 
oak. The width of the apron is not 
critical, but for best appearance 
it should be approximately the 
same as the legs, which are 
made of square stock. I chose to 
use stock that was 7/8 inch thick 
by 2% inches wide, but these di- 
mensions are not critical. 1 by 3 
clear pine, which has actual di- 
mensions of V* inch by about 2 'A 
inches, could also be used. 

Next the end pieces are cut to 
length. Since they should be the 
same length as the ends of the 
desk top, mark them off directly 
against the desk top and cut 
them to length. The front and 
back apron pieces are cut to 
equal the lengths of the front 
and the back of the desk top 
(which might not be exactly 
equal) plus twice the thickness 
of the apron material. 



After the apron pieces have 
been cut to size, the legs are cut 
to length from square stock. I 
used 2 Va inch square poplar, but 
3 by 3 fir can be used. The length 
of the legs is equal to the height 
of the desk top, minus the final 
thickness of the top. My desk 
has a top that is 5/8 inch thick 
and legs that are 25V4 inches 
long. This provides me with ade- 
quate knee clearance under the 
front apron (23Vz inches), while 
keeping the keyboard and 
monitor at comfortable typing 
and viewing heights (on a desk 
25-7/8 inches high). 

The tops of the legs have to be 
dadoed on two adjacent sides to 
receive the aprons. The depth of 
the dadoes equals the thickness 
of the apron material (7/8 inch 
for my desk). The dadoes extend 
down from the tops of the legs 
by an amount equal to the width 
of the apron material minus the 
final thickness of the top (1 % in- 
ches for my desk). The dadoes 
are most easily cut on a radial 
arm saw or on a table saw, but a 
hand saw, a router, or a circular 
saw could be used instead. 

Begin assembling the desk by 
attaching the aprons to the legs. 
Make sure the legs are square to 
the aprons and to the ground. 
The desk can be assembled us- 
ing finishing nails or screws, or 
glue and clamps. The top should 
fit into the assembled frame, 
resting on the tops of the legs. 




Photo 1. The finished desk. 

■ See List ol Advertisers on Page 467 



CcmScPfc 

MEANS 
BUSINESS 



TSHARE 2.0 MULTI-USEF 

SYSTEM 
TRS-80' 



Hardware 
and 
Software 

Products for tr* TRS BO* 
Models I & HI 




MODELS I & 

SPECIFICATIONS: 

TSHARE is a multi-Hiking operating sysiem lot 
two users It patcnes use' to your NEWDOS M 
TRSDOS 5V5TEM TSHARE allows simultane- 
ous and separate operations tor two users with- 
in a single computer 

AVAILABLE USER MEMORY 
ABOVE 7F80 HEX 

• j2k -_- :. '6KFREE 
•48KTHS-80 32KFREE 

TIMESHARING MODES: 

•SIMPLEX MODE With TSHARE 1 3 

and 2A Only 
•STANDARD MODE With Ail Systems 

SUPPORT EQUIPMENT: 
•C I - Dttt Drtvi 
•32k + Memory 
SIMPLEX MODE STANDARD MODE 

•A Printer »A Terminal 

•TRS 73? (opticral »R« 232 M MPR 232 
EXECUTION SPEED 
STANDARD MODE: 
(Without Clock Speedup Mods) 
•BENCHMARK executed oy 2 simultaneous 
users 37 sec 

•BENCHMARK executed once by standard 
TRS 80 14 sec 

FEATURES: 
•Type ahead during Disk i/O (V2 Only) 
•Communicat'ons Between users 
•Concurrent execution of single program 
•'oreground 'background task design 
•Address up to two printers 

PRICES: 

tTS '.3 lor TRSDOS? 3 $89 (MOO I) 

fTS 13 lor NEWDOS 2 1 $89 (MOO I) 

• TS-2A lor NEWDOS VI $99 (MOO H 
#iS 2B torNEWOOSV2 $99 (MOD I: 

• TS-2BIII tor NEWDOS V2 $99 (MOD in, 



3t 



SERIAL I/O 
MPR232 



AT LAST! A se*ial impul 
out put interlace designed 
lor connection to the 
TRS80 Model with oi 
without an expansion in 
terrace 

MPR232 Specifications 
•(ililch t'ee operation 
•Connects with card edge connector 
•Baud rates 75 19 700 are switch selectaDie 
•integral Power Supppiy included 1 
•May be daisy chained with other MPR 232s 

PRICES 
•MPR232I $179 00 ( MC 

•MPR 232H1 ^-n^ $139 00|MC 



CST0CK 

S99 

A) CST0CK main- 
tains a securities 
data base 

• Maintains data 
on up to 3 sloc« 
market indexes 

•Weekly Slock 

Data (Pnce Vol 

P.'E and Yieifl) 
•Weekly Stock Option DaTi 

• Two years ot continuous data per stock 

B) CST0CK is a professional technical teol 
•Stock and market averages highs and lows | 

with respect to any time span 
•Linear regression analysis ot stock behavior 

versus any ol 3 market indexes 
•Short term betas computed I stock volatility in 

terms ot market return) 
•Data plotting capabilities 

C) CST0CK provides a parametric portlolio 
selection system as an aid in evaluating 
investment strategies in relation to risk 



Tor Hasc oj Use 

THE FILE CLERK 

TRS-80' Models I I III 

SPECIFICATIONS: 

• 'e.i'jie •■ e manager 
fttf a simple data base (multi-tne data sets) 
p e hand , '2000 records 

Uc to 7C data fields /record 
MA« recorc and field iengih 2bb 
MAx ettective record length w/ indexing 790b 
'Assembly language sons on single and com 
bmed data lieids 

•Multiple searcn parameters and chained 
quetes 

•Fast iKSAM) record retrieval on sorted key 
fields 

•Flexible report generator with Pagination & 
Use' titles 

•Computational fields 
•flies can extend ove' several diskettes 
•A diskettes need not be on line 
AUTO MOUNT REQUESTS 
»F eids can be redefined deieled 0' added 
• '40 page manual 




DMB5 provides tour data manage 

features 

A) A comprehensive FILE MANAGER lor 
defining your records data entry or 
edit, and general record retrieval 

B| A flexible REPORT GENERATOR tor 
information retrieval 

C) A simple data base lor advanced ap- 
plications, where DATA SETS involv- 
ing file pairs can be defined 

D) A COPY file facility to transfer 
SORTS SEARCHES, and transfer 
data to NEW formats 

PRICES 
#DB-bl S99 (MOD l| 

ODBbill $93 iMOL) M 



VIEW 3.0 S49 

A SCREEN FORMATTER FOR DBM5 

■ Full CURSOR control for MASK design 
•Screen design with keyboard GRAPHICS 
•Elegant & prolessional looks 
•File data entry inquiry & edit 
•Word processor style field editing 
•Vt.iV is a stand alone data base 
COMPUTED FIELDS 
KSAM Master Keys 
Requires DBMS lor SORTS 



VPR <;j2 4 MERUN T M ol Mico Projects Enj 
TRS-80 TM ot Radio Shack Tandy Corp 
NEWDOS80 TM ol Apparat. inc 
TRS23? TM ol Small System Software Co 



Ccrr Set l x 

203 Arden Street 
Glendale. California 91203 

(21316*9-0369 ^104 
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Merlin 

CF M 86 jot the 3XS-80* 

8088 co-processor 

128K RAM (Expandable to 256K) 

Diskette compatibility with IBM PC 

(Available December 1982) 
Dealer inquiries 
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REAR 
APRON 



Because the top will sag from its 
own weight, support it from 
below with rails screwed to the 
inside of the front and back 
apron pieces. The support rails 
can be any available scrap 
material, but their dimensions 
do not matter. Place and clamp 
the support rails into position 
when the desk top is flush with 
the top of the apron. Then 
remove the desk top, and drill 
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pilot holes for screws through 
the support rails into the front 
and rear apron pieces. Mark 
locations for notches in which 
equipment support rails for the 
computer and expansion inter- 
face rest in the support rails. 
After the support rails are 



removed from the aprons and 
the notches are cut in them, 
screw them into place. Cut the 
equipment support rails to 
length, preferably from a sturdy 
material. I used oak IVi Inches 
wide and 5/8 thick. Race them 
into position, and reinstall the 
desk top, completing assembly 
of the desk. 

I installed a switched six outlet 
unit on the inside of the right 
apron, and ran all the wires 
through the openings in the desk 
top. The outlet unit which I used 
includes a single switch that con- 
trols power to all the outlets; I 
can leave the computer, expan- 
sion interface, video monitor, 



cassette recorder, printer and 
disk drive power switches on, 
and turn on the whole system 
with a single switch. 

A variety of finishing tech- 
niques may be employed. The 
wood may be painted or stained, 
and the particle board top may 
be painted, stained, or covered 
with a plastic laminate. If a 
plastic laminate is used it should 
be applied after the top is cut out. 
The thickness of the laminate 
should be considered when the 
thickness of the top is a factor In 
the construction of the desk (the 
length of the legs and the length 
of the dadoes in the legs will 
have to be decreased by the addi- 
tional thickness of the plastic 
laminate). ■ 



INCOME TAX OFFICES: 

MULTIPLY YOUR OUTPUT. 
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with TaxPro 

THE PROFESSIONAL INCOME TAX SYSTEM 



TAXPRO DOES MORE. 

Five years of successful use 
and system improvement 
has pushed TAXPRO far 
beyond Form 1040 and its 
supplemental schedules. This versatile system 
also totals W-2s, computes FICA overpayment, 
calculates tax alternatives . . . even prepares 
client billing. 

TAXPRO IS INTELLIGENT. It analyzes 
the client's tax picture, suggests the best 
route to go. Determines eligibility for special 
forms such as minimum/ 
maximum tax, income 
averaging, to name a few. 

TAXPRO IS EASY. 

Because it follows the tax 
forms line by line. Taxes 
are automatically figured, 
entered everywhere they 
apply. Change any entry, 
and all relevant data is 
automatically revised. 
Produces a printout that 
exactly fits 1040 and 




IRS-approved schedule forms. 

TAXPRO IS GUARANTEED. We stand 
behind TAXPRO completely. Full, no-charge 
support through the tax season. Inexpensive, 
yearly system updates. Over 5 million 
returns prepared with no reported errors. 

TAXPRO BUILDS PROFITS. The door is 
open to higher profits than you have ever 
enjoyed. Double, triple, or quadruple your 
output; pay for TAXPRO and the computer 
in one tax season. 
If you do income tax returns, you need 
TAXPRO. the truly 
professional, computerized 
income tax preparation 
system. 

Look into it today. 
Contract Services 
Associates, 
706 South Euclid, 
Anaheim, 
California 92802, 
[714) 635^055. 

45-PAGE DESCRIPTIVE 
SYSTEM MANUAL: $7.50 




CONTRACT SERVICES ASSOCIATES 
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Improving the bottom line. 



We dorit care 

which computer you own, 

Wfeffll help you 

get the most out of it. 



CompuServe puts 
a world of information, 
communications, and 
entertainment at your 
fingertips. 

CompuServe is the versatile, easy to use 
interactive videotex service designed especially 
for the personal computer user. It's dynamic, 
growing and changing daily to satisfy 
its subscribers' needs. It's an industry 
leader, created and managed by 
the same communications pro- 
fessionals who provide busi- 
ness information and 
network services to •" '\ m ~ 
over one fourth of F 
the FORTUNE 500 ^—.^i- 
companies. 

From current events to current assets, 

CompuServe offers a wealth of useful, profitable 

■M/ — -m or just plain interesting information. 

%s/7 3 Electronic magazines and national 

news wires plus worldwide weather, 

current movie reviews, electronic 

banking and shop at home services, 

and some of the most sophisticated 

financial information available are 

all offered to current subscribers. 

From words to music. CompuServe offers 
a communications network that gives special 






interest groups from hardware enthusiasts to 
computer composers a chance to get _ 
together. There's a bulletin board ML 

for selling, swapping, and b^^^r^I 
personal notices and a CB 
simulator for real-time com- 
munications between sub- 
scribers. There's electronic 
mail, the fastest, surest, way to 
communicate with other users across the street 
or across the country, plus file retention and 
editing, and lots, lots more. 

Fun and games are expected whenever 
computer users interact, and CompuServe has 
the best. Games you can play alone or with 
other CompuServe subscribers 
anywhere in the country. Classic 
puzzlers, sports and adventure 
games, and fantastic space games 
featuring MegaWars, the "ultimate 
computer conflict." 

But, that's just the tip of 
the chip. CompuServe offers a 
menu of thousands of items 
that make subscribing edu- 
cational, fun and sometimes downright profitable. 
If you'd like to know more about CompuServe, 
call toll free, 800-848-8990 to receive an illus- 
trated guide to the CompuServe Information 
Service. A videotex service for you no matter 
which computer you own. 

CompuServe 

PO Box 20212 

5000 Arlington Centre Blvd Columbus. Ohio 43220 

800-848-8990 

In Ohio call 614 457-8650 
An H&R Block Company 




-'See List ol Advertisers on Page 451 
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Verbatim Datalife™ flexible 
disks now come in a bold, 
new storage box. But more 
important, they now come to 
you with a five year warranty* 

We can give you a war- 
ranty this long because we're 
confident the way we make 
Datalife disks will make 
them perform better, last 
even longer. 

All bfour Datalife disks 
feature seven data-shielding 
advances for greater disk 
durability, longer data life. 
To protect your data from 
head-to-disk abrasion. To 
shield your data against loss 
due to environmental condi- 
tions. To insure a longer 
lifetime of trouble-free data 



recording, storage and 
retrieval. 

Every Datalife disk is 
extensively tested under the 
most extreme conditions. 
Critically-certified to be 100% 
error-free. Assuring you an 
added margin of perfor- 
mance, no matter what the 
operating conditions. 

And we back it up with 
a five year warranty. Five 
times longer than the in- 
dustry standard. Because 
Verbatim is the standard 
of excellence. 

For flexible disks you 
can depend on-a lot longer 
-call (800) 538-1793. 
In California, or outside 
the US. call (408) 737-7771 



collect for the name of your 
Verbatim dealer. 

If you want longer data 
life, keep all your data on 
Verbatim Datalife. Our name 
is the promise. Our warranty 
is the proof. 

JL/dlClII IC 


^ Datalife 


\ferbatim 
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Here's the most exciting part of 
Verbatim's new packaging. _ 
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HARDWARE 



Add a disk controller to your system. 



Hardware Hacker— Part III 



Philip M. Van Praag 

1630 West Jagged Rock Road 

Tucson, AZ 85704 

This article describes the 
design and construction of 
a disk drive controller for about 
$200. The controller is compat- 
ible with the TRS-80 Model I, 
does not require the Expansion 
Interface, and handles up to four 
5V* inch disk drives. Its features 
include integral double density 
data separation to eliminate a 
potential source of read errors, 
single and double density oper- 
ation to maintain compatibility 
with existing software and op- 
timize disk storage capacity, an 
operator-selected disk drive dis- 
able switch enabling normal use 
of the TRS-80's reset function, a 
fully buffered interface between 
the controller and the disk 
drives, a double density status 
indicator and digital write pre- 



compensation to optimize data 
recovery accuracy. 

The main logic board includes 
a connector card edge for 
mating to the standard disk 
drive ribbon cable assembly. 
The controller does not require 
any modification to the TRS-80 
and may be combined with the 
32K Memory Mod or the Cen- 
tronics-compatible printer inter- 
face (presented in previous 
articles) or both if you desire 
those additional features. 

The disk controller's most 
useful feature may be its ability 
to operate in double density 
mode. Although you must pur- 
chase a double density DOS to 
use this feature, it doubles the 
storage capacity of your disk, 
eventually reimbursing you for 
the purchase. This is accom- 
plished by virtually eliminating 
clock bits (interspersed with 
data bits in single density opera- 



tion) and doubling the data 
transfer rate. 

Requirements 

The heart of the disk con- 
troller is a large-scale inte- 
grated circuit (LSI) called a 
floppy disk controller (FDC). As 
the key link between the TRS-80 
and the disk drives, it performs 
two major tasks: first, coordin- 
ating the writing and reading of 
data; and second, supervising, 
interpreting and in some cases 
generating the control signals 
necessary for disk operation. 
Although the processes by 
which the FDC performs these 
functions become rather com- 
plex, all functions fall within 
these two general categories. 

The TRS-80 always manipu- 
lates data in a parallel mode; 
that is, all eight data bits defin- 
ing a character or instruction 
are presented on the eight-line 



data bus simultaneously. The 
disk drives, however, must 
handle data serially (one bit at a 
time). The FDC converts parallel 
data to a serial form before writ- 
ing it onto the disk, and converts 
serial data from the disk to 
parallel before sending it back 
to the TRS-80. A data register 
within the FDC holds the parallel- 
form data, and a data shift reg- 
ister converts it from parallel to 
serial and vice versa (see Fig. 1). 
In addition, the data must be pre- 
cisely clocked when in the write 
mode, and this clocking must be 
properly interpreted when read- 
ing data from the disk. 

The FDC's clock bit/data for- 
mats are referred to as frequen- 
cy modulation (FM) in the single 
density mode, and modified fre- 
quency modulation (MFM) in the 
double density mode. These for- 
mats are illustrated in Fig. 2. To 
understand how these FM sys- 
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Fig. 1. Internal functional diagram and pin assignments for FDC 
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terns operate, let's look at how 
the disk is magnetically divided 
to store data. 

Five levels of data organiza- 
tion are defined and controlled 
by hardware and software de- 
sign. In order of size, these are 
tracks, granules, sectors, bytes 
and bit cells. 

Figure 3 shows two levels of 
data organization on the disk: 
tracks (concentric rings around 
the disk center) and sectors 
(which divide the tracks into 
discrete pieces). A small hole 
in the disk (not shown) defines 
the relative position of the sec- 
tors around the tracks. Gran- 
ules, a specific number of sec- 
tors determined by the DOS. 
define the smallest accessible 
block of data when writing to or 
reading from the disk. (For ex- 
ample. TRSDOS uses five sec- 
tors per granule, defining the 
smallest possible file size.) The 
smallest level of division is the 
bit cell. Each byte contains eight 
data bits. 

This brings us back to Fig. 2. 
Each bit cell recorded on the 
disk contains two pieces of in- 
formation: definition of the 
physical boundaries of that bit 
cell, and the data bit (a binary 
logic level high or low). In the 
single density mode, both data 
bits and clock bits are recorded. 
A pulse between two clock pul- 
ses defines a logic high for the 
bit cell. If no pulse exists, a logic 
low is defined for that cell. In the 
double density mode, clock bits 
are not required at each bit cell 
location. Instead, the relative 
position (or in some cases, the 
lack) of a logic high level bit at 
each bit cell location defines the 
cell and determines whether the 
cell data is a logic high or low. 
The rules of MFM data bit place- 
ment are in Fig. 2. 

To summarize data organ- 
ization on the disk, consider a 
few examples. In single density 
mode using a 35-track single- 
sided disk drive, there are 8 bit 
cells to define each byte of data, 
a 256 byte capacity in each sec- 
tor. 10 sectors within each track, 
and a total of 35 tracks. Multiply- 
ing, we have 8 times 256 times 
10 times 35, or 716,800 defined 
bit cell locations. In double den- 
sity mode using a 40-track sin- 
gle-sided drive, there are 8 bit 
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cells per byte, 256 bytes per 
sector, 18 sectors per track and 
40 tracks. This translates to 
1,474,560 defined bit cell loca- 
tions! Although disk storage ca- 
pacity is usually specified in 
bytes, remember that the small- 
est unit of division is really the 
individual bit cell. 

The FDC processes three gen- 
eral categories of signals: TRS- 
80-generated data, address bus 
codes and control signals, disk 
drive-generated data/feedback 
signals, and FDC-generated 
control and feedback signals. 

Table 1 lists the TRS-80-g.en- 
erated addresses decoded by 
the FDC and support circuitry. 
These decoded addresses per- 
form two basic functions: sup- 
plying DOS commands to oper- 
ate the drives and perform 
housekeeping chores for FDC 
support circuitry: and furnishing 
TRS-80 memory locations (ac- 
tually accessed FDC registers 
providing information back to 
the TRS-80). The TRS-80 pro- 
vides read (RD), write (WR), and 
system reset (SYSRES) control 
signals. The read and write 
signals define the function of 
the TRS-80 addresses listed in 
Table 1 as well as provide read/ 
write disk drive mode instruc- 
tion to the FDC. System reset, 
used during TRS-80 power up 



and reset modes, clears the FDC and performs other initialization 

status register, establishes chores in the FDC. 

single density operating mode Disk drive-generated data and 

BIT CELL BIT CELL BIT CELL BIT CELL BIT CELL|BIT CELLBIT CELLlBITCELL' 
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Fig. 2. Single density (FM) and double density (MFM) recording 
formats 
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Fig. 3. Disk data organization (single-density track standard shown) 
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Fig. 4. Disk controller logic circuitry 



Your best 

Model l/lll 

peripheral buy 

is a modem. 



Your best 

Model l/lll 

modem buy 

is LYNX. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit. 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box. or a printer 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you. in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




^ l^to 





The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding It 
makes your microcomputer a whole new animal. 




OLYivrx.© 



123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phono 717/291-1116 

TRS-80 is a trademark of the Radio Shack Division ol Tandy Corporation. 
FCC Registration Number: A909KE-68171-DM-N 



The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures 

• SINGLE PRICE: $299.95! 

• Compatible with both Model I 
9 and III. 

• No separate purchases re- 
quired. 

• One-year warranty. 

• Auto dial auto answer. 

• Works with any software, in- 
cluding ST-80 by Micklus. 

• Active clear, break, and 'con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $100! 



• 49 



Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



THE BOTTOM LINE 
Milford, NH 
800/343-0726 

B. T. ENTERPRISES 
Centereach, NY 
516/981-8568 



BREEZE/QSD 
Dallas, TX 
214/484-2976 

COMPUTER PLUS 
Littleton, MA 
800/343-8124 



THE PROGRAM STORE 
Washington, DC 
800/424-2738 

STEVENS COMPUTERS 
Phoenixville, PA 
800/345-6279 



SIMUTEK 
Tucson, AZ 
800/528-1149 



SOFT SECTOR MARKETING 
Garden City, Ml 
800/521-6504 



• See List ol Advertisers on Page 451 



PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 
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Fig. 5a. Logic circuitry 



feedback include read data (RD 
DATA), track zero (TROO), index 
pulse (IP), and write protect 
(WPRT) signals. The read data 
signal contains serial clock and 
data bit pulses. The track zero 
signal indicates when the 
read/write head is positioned on 
the outermost track (track zero). 
The index pulse signal provides 
disk sector identification by pro- 
ducing a pulse once per rev- 



olution when the index hole is 
sensed. If the disk is write pro- 
tected the Write command is 
terminated. This line is sampled 
every time the TRS-80 issues a 
Write command. 

The FDC and its support cir- 
cuitry generate the following 
control and feedback signals: 
interrupt request (INT RQ), in- 
terrupt (INT), and various reg- 
ister output signals going to 



the TRS-80, as well as step 
(STEP), direction (DIRC), write 
gate (WG), and write data (WD) 
signals going to the disk drives. 
VFO enable (VFO E), EARLY, 
LATE, head load timing (HLT), 
ready (RDY) and read clock (R 
CLK) signals are used for inter- 
nal control. Additional FDC I/O 
capabilities not used in this 
project will not be discussed. 
First, let's discuss FDC sig- 



nals going to the TRS-80. An in- 
terrupt request signal is gene- 
rated whenever an FDC opera- 
tion is completed, and is reset 
when a new command is loaded 
into the command register. The 
interrupt request is sent to the 
TRS-80 on the bit-6 data line 
when 37EORD is present. Its 
presence also causes an inter- 
rupt signal to be generated. The 
interrupt signal is reset at the 
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termination of 37EORD. 

The five FDC registers listed 
in Table 1 communicate with 
the TRS-80 via the bidirectional 
data bus. The TRS-80 selects a 
particular register by providing 
a unique address (listed in the 
table). These addresses share 
the same binary address code 
except for the two least signifi- 
cant bits. Table 2 illustrates 
this relationship. 



Now, consider FDC signals 
going to the disk drive. The step 
and direction signals control 
movement of the head stepping 
motor. A high level on the direc- 
tion line sets the head inward 
toward the higher track num- 
bers, while a low level sets the 
head outward. High level 
pulses on the step line move 
the head in increments of one 
track per step pulse. The write 



gate essentially gives permis- 
sion for data to be written onto 
the disk, while the actual com- 
posite data (clock and data 
bits) is sent to the disk drives 
on the write data line. 

Finally, let's look at FDC 
signals used for internal control. 
VFO enable indicates that the 
disk head is in contact with the 
disk and data pulses are being 
received. It disconnects read 



clock pulses when these condi- 
tions are not met, preventing 
read-data-line noise from affect- 
ing the FDC during non-read op- 
erations. Early and Late, gen- 
erated by an FDC algorithm dur- 
ing write mode, aid write pre- 
compensation efforts. HLT and 
RDY inform the FDC that the 
disk drive is ready for read or 
write operations. 
Table 3 summarizes the sig- 
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Ready to Run Software 

from Canadian Computer Services 

Data Management Systems - Including the Data' 

RETRIEVAL SYSTEM 80 

Instantaneous access to all of the articles and 
programs in the magazine for TRS-80* users 

Fast Random Access Retrieval 

Super Fast Z80" Index Search and Scan 

Index Search by One to Three Criteria Keys 

Key Reference Help Page. Hardcopy and Sound 

Easy to Use Single Entry Menu Commands 

ARCHIVE RETRIEVAL SYSTEM 

Create and maintain your own magazine archives 
with all of the above great features, plus 

User Defined Search Keys 

Z80 Data Entry and Edit Routines 

Super Fast In-Memory Key File Sorting 

600 1200 Model I III Records Per Data Disk 

READY TO RUN DATA DISKS 

No Typing Necessary 

1980. 1981 and NEW 1982 80 micro" Data Disks 

Covers Every Article and Program Published 

General and Programmers Archives Disks 

For Use with Both of the Above Programs 



Retrieval System 80 

Archive Retrieval System 
General Data 80. 81 & 82 
Program Data 80. 81 & 82 



S29 95 

S44 95 

each S29 95 
each S29 95 



For 48K 2 Disk TRS-80 Model I and III Computers 

Mail Orders Rainbow Software Services Ltd 

7070B Farrell Road Southeast 
Calgary AB T2H 0T2 Canada 

Card Orders Action Line 1 (403) 253-6142 

Dealer, distributor and club inquiries welcomed 



CANADIAN COMPUTER SERVICES ^460 
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nals necessary to provide data 
and control for the disk drives. 

How the Circuit Works 

Figure 4 contains a block dia- 
gram and Fig. 5 schematic dia- 
grams of the disk controller log- 
ic circuitry. Table 4 contains all 
the miscellaneous circuit con- 
nections not shown in Fig. 5, 
including IC power/ground re- 
quirements and terminations for 
unused IC sections. 

The address and read/write 
decoder function is accomp- 
lished by U2 through U8. U3, a 
4-bit magnitude comparator, is 
the central focus of the decoder. 
It provides a high level logic 
signal at pin 6 whenever its two 



sets of 4-bit inputs are identical. 
Following address bus logic 
levels through the input gating, 
pin 6 of U3 will be high when 
37E0.1.2.3,C,D,E. or F appears. 
The presence of read and write 
signals, plus the gating of U7 
and U8. yields the four desired 
outputs: 37EOWR, 37EORD. 
37ECWR, and 37ECRD. A0 and 
A1 address lines go directly into 
the FDC to be used for register 
access together with the de- 
coded 37ECWR and 37ECRD 
signals (see Table 2). The 
decoder does not need the A4 
address line as it is always 
assumed low. (If it were high, 
with all other disk-related ad- 
dresses set for disk operations, 
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an address in the 37FX range 
not used for any TRS-80 func- 
tion would result). Switch S1 
breaks the read communication 
link between the TRS-80 and the 
disk controller when in Reset 
Enable mode, fooling the 
TRS-80 into believing the con- 
troller is disconnected. This 
achieves normal operation of 
the Reset button on the back of 
the keyboard. 

FDC timing and TRS-80 clock 
signals are provided by U9 
through U12, U21 and U22. U9 
functions as a 4 MHz crystal- 
controlled oscillator. This signal 
is the basis for all timing signals 
produced by the disk controller, 
including a 1 MHz FDC clock 
signal, a 40 Hz TRS-80 clock sig- 
nal, a 4 MHz write precompensa- 
tor signal and an 8 MHz timing 
signal used by the data separ- 
ator. The 4 MHz clock is divided 
by two via a section of U12 and 
again by two using part of U21, 
producing the 1 MHz FDC clock. 
The 4 MHz clock is also divided 
by 10 in U12, by 100 in U11, and 
again by 100 in U10 to produce 
the 40 Hz clock signal used by 
the TRS-80's internal clock dis- 
play routine. The 8 MHz timing 
signal produced by U22 func- 
tions as a frequency doubler. 
U22-1 1 , U22-8, and U22-6 provide 
a phase-delayed 4 MHz signal to 
one input of U22-3. C5 and R11 
produce a differentiated version 
of this signal for the other input. 
The exclusive-or function of 
U22-3 produces a high level out- 
put when its inputs are at dif- 
ferent logic levels. In this ap- 
plication, that occurs once for 
every half-cycle of the 4 MHz 
clock, thus producing pulses at 
an 8 MHz rate. 

U13 and its related logic cir- 
cuitry—portions of 114.6,14,15. 
and 19— produce interrupt and 
interrupt-request signals. This 
circuitry receives two input sig- 
nals: interrupt request as gen- 
erated by the FDC, and the 40 Hz 
clock signal from U10-1. When 
U1-39 goes high, an interrupt 
signal is produced at U6-2. An in- 
terrupt is also produced when a 
40 Hz signal occurs, as long as 
37EORD is not active. The 
37EORD signal also gates the 
status of the 40 Hz latch (U13-5) 
to the D7 data bus line, and 
gates INT RQ to the D6 data 



bus line. The termination of 
37EORD, a positive-going edge, 
clocks a low level through U13-9 
which resets the interrupt signal 
and. via U19-3, resets U13-5. 

U14 through U17 buffer the bi- 
directional data bus between 
the TRS-80 and the FDC. These 
are tri-state buffers: Their out- 
puts assume a high impedance 
state as long as they are dis- 
abled. All input buffers have one 
common enable line 37ECWR), 
as do all output buffers 
(37ECRD). The address 37EC is a 
memory location in the TRS-80 
system to which data can be 
written or from which data can 
be read. Remember, however, 
that the A0 and A1 address lines 
are not part of the 37EC signal 
decoder. Therefore, enabling of 
the buffers also occurs for ad- 
dresses 37ED. 37EE. and 37EF 
(see Table 2). The A0 and A1 
lines, going directly to the FDC, 
determine which FDC registers 
will be accessed. 

The data separator function, 
including U20, 21. and 23, is 
used in double density mode. (I 
didn't include a single density 
data separator. Considering the 
greater efficiency of double den- 
sity, you are likely to use single 
density only while converting 
your existing programs to dou- 
ble density. If interest is suf- 
ficient, I will design a single 
density separator for a later arti- 
cle.) It works with two input sig- 
nals—read data and a clock sig- 
nal—and produces two output 
signals— raw read (RAW RD) 
and read clock. The term "data 
separator"' as used with the 
1791 is actually a misnomer as it 
does not separate data and 
clock bits. Rather, it is a data 
recovery system which outputs 
both data and clock bits on the 
raw read line to the FDC, and 
also provides a strobe or win- 
dow signal for U1's R CLK to 
clock the raw read pulses. If a 
raw read pulse occurs outside 
the window, it will cause an FDC 
read error. The data separator 
exploits the relatively pre- 
dictable recurrence of data bits 
to produce a clocking window 
which predicts the occurrence 
of the next data bit. The phase of 
the window is continuously cor- 
rected to compensate for motor 
speed variation and read cir- 





WILL CHANGE THE WAY 
YOU THINK ABOUT YOUR TRS-80! 



THE MOST POWERFUL WORD PROCESSOR AND ALL PUR- 
POSE COMPUTER PROGRAM AVAILABLE FOR THE TRS-80. 

LOOK AT ALL THESE FEATURES 

1 INSERT characters, words, lines, paragraphs or other tiles. 

2 DELETE characters, words, lines, paragraphs. 

3. COLUMNS. CopyArt II can be instructed to print your text from one to 
six columns. Super easy to use! No complicated commands. Great for 
doing newsletters, magazine layouts etc NO MORE CUT AND PASTE 1 

4. SORTING. Sort lines of text by any field. Sorts up to 650 items in less 
then 7 seconds. Sort indices, table of contents, names, words or whatever 
in descending or ascending order. Used with CopyArt s math (unction it is 
great lor small Inventories. Receivables. Payables etc. 

5. Screen widths Irom 32-255 characters wide Screen widths can be 
changed to allow formatting your texl as you want 

6 MATH. Built in MATH function lor doing calculations on columns or 
rows Used with the SORT command. CopyArt II can do a small inventory 
ot 200-300 items, or keep track of small receivables or payables, general 
ledgers or home financial reports. Super floating point precision up to 32 
digits! 

7 'GRAPHICS. CopyArt has a built in graphics program that allows in- 
serting graphics within your text. Drawings, graphs, illustrations, car- 
toons etc may be used within newsletters or company reports. Graphics 
commands include: Plot between points. Circles. Squares. Fill. Erase. 
Draw. Move, Pixel cursor controls and more 

8 "GRAPHIC CHARACTERS. CopyArt has a built in graphics character 
generator Used for typesetting large letters trom 3 to 25 times normal 
size! Yes, you can even print characters down the page as well as across. 
Black on white or white on black. 

9. JUSTIFICATION is fully supported "Proportional spaced justify is sup 

ported. 

10. 'SUPER or SUB-SCRIPT 

11 UNDERLINING. 

12 B0LDFACTING. 

13 'CHANGE CHARACTER SIZE or PITCH within your document. Charac- 
ter size changes lor dot matrix printers with capability. Pitch change for 
daisy wheel printers with capability. 

14 HELP. Help is available for all the commands at the touch of a key 
while using the word processor. Super lor training inexperienced sec- 
retaries. Great reminder tor experienced people as well MENU DRIVEN 
Help for over 45 commands. 
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cuitry phase shifts. Remember 
that the read clock signal is not 
the clock bit signal coming off 
the disk. 

1120-4,13 is a monostable os- 
cillator which produces fixed- 
duration pulses for the FDC 
based on incoming read data 
bits. U23 is a 4-bit count-down 



Fig. 6b. + 12/ -5 V power supply 

counter that is continually 
clocked at an 8 MHz rate. U21-9 
divides the counter output by 
two, forming the read clock 
signal. However, this signal is 
terminated when the system is 
not in read mode by controlling 
U21's reset input with U1's 
VFOE signal. 



When nothing is present on 
the read data line, U23 divides 
the incoming clock by 16. Thus, 
read clock signals arrive at the 
FDC at a 250 KHz rate. When a 
pulse occurs on the read data 
line, U20-4 goes low, which 
loads a 5 into the counter. As- 
suming the pulse occurs during 



a window period, this loading 
action ensures that the window 
remains open long enough to 
admit the entire pulse. The load- 
ing action also phases the clock 
signal to the read data rate by 
adjusting the period of the win- 
dow (and the length of time 
before another window opens) 
to suit the incoming data. This 
error-correcting phasing action 
is the essence of accurate data 
recovery. 

Write precompensation is ac- 
complished by U26 and portions 
of U19 and U25. It is used only in 
double-density mode to en- 
hance data transfer accuracy. 
U26, a shift register, continually 
outputs a low level at pin 11 
when no write data is present. 
This is a result of being in the 
shift state with the J and K in- 
puts connected as shown. 
When a write data pulse occurs, 
U26 goes into the load state, 
during which one of the A, B, or 
C inputs receives a low level sig- 
nal. Termination of the write 
data pulse reinstates the shift 
mode resulting in that low level 
bit being stepped through the 




PRACTICAL PERIPHERALS 

it FFERFT) PARALLEL INTERFACE 

FOR EPSON PRINTERS 



$159.95 

Plus Shipping 
And Applicable Tax 



The MBP-16K is an intelligent Centronics-compatible parallel interface 
tor the Epson MX-80. MX-80 F/T, and MX-100 printers, with 16.384 bytes of 
onboard RAM for data buffering. 

The buffering capability of the MBP-16K increases your data processing 
efficiency by eliminating the wait normally experienced while printing. An 
Epson printer prints at 80 characters per second; at this speed it takes 
about five minutes to print a 16.000 character document. During most of 
this time the computer is waiting for the Epson to finish one line so it can 
send the next. The computer can't do anything else during this period 
because its's tied to the printer. By using the MBP-16K it takes the 
computer only four seconds to send a 16.000 character document. The net 
result is to eliminate the computer-waiting-for printer/printer-waiting-for- 
computer bottleneck, and keep both working. Any program that involves 
printed output will be speeded up by using the MBP-16K. 

The MBP-16K supports all standard Epson Commands, is compatible 
with GRAFTRAX-80, and is plug compatible with the standard Epson cable 
The MPB-16K does not require any user software for control. 

The MBP-16K is easy to install — it simply plugs into the existing 
auxiliary interface connector inside the Epson without modification of the 
printer. 



"VIZ. A. CON." 
A CONSOLIDATION SYSTEM FOR VISICALC USERS 

NEW PRODLCT ADDS ^-DIMENSIONAL CAPABILITY FOR VISIC ALC MODELS. 

In ihe past. lo do a consolidation with VISICALC. a user had to replicate the model m 
memory and laboriously build the formulas to sum the cells The first thing one 
discovers using this approach is that you quickly run out of memory The second is that 
recalculation time gets much longer. The third is that you spend a lot of time operating 
and controlling the consolidation process 

Now with the help of VIZ. A CON. you can add a third dimension to your VISICALC 
models You can combine multiple pages ' of VISICALC data from a model for 
hierarchical consolidations (eg. Department. Division. Company, etc.) or for 
summations over periods ol time (eg. Month, Quarter. Year To Dale elc.) 

VIZ A. CON creates data files usable with VISICALC. You can use VISICALC lor 
what if games at any level of your consolidation Then use VIZ A CON. to find out 
what happened at other levels 

VIZ A CON gives you the ability to set up special formulas (eg rations, 
percentages) that can be recalculated after a consolidation process You can customize 
titles, row and column headings, footnotes, elc for each report created by VIZ. A CON 
Reports can be automatically saved in standard ASCII form that can be used with a 
word processor VISICALC precision is maintained for an data 

TRS-80 Model l/lll Disk SM.95 

TRS-80 Modal II S4K $119.95 

IBM PC 64K and above 1119.95 



ASSET MANAGER 

"ASSET SYSTEM is a completely computerized asset depreciation system, 
particularly designed for ihe 48K TRS 80 Model III, DOSPLUS 3 4. and dot matrix printer. 
The system. 

1) assigns control numbers to each asset 

2) accumulates assets according to General Ledger codes 

3) computes depreciation expense on each asset 

The ASSET SYSTEM is comprised of Six primary programs 
11 Asset Sys'em Menu 4) Asset sort 

2) Property 5) Search 

3) Reports 6) Delete 

The SYSTEM is configured to handle 500 asset numbers Counters are displayed on 
the screen as the data is being entered This enables you to monitor your progress as 
data is entered. 

TRS80 MOD III Disk only $79.95 

Also available 

General Ledger Program Disk Model III $125.00 



MICRO SOLUTIONS, INC. Software Center 



Master Charge & Visa 
9949 Harwin, Houston, Texas 77036 



(713) 789-5443 or 1-800-231-6667 
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shift register. The bit is output at 
pin 1 1 as a high level pulse some 
time later. The delay between 
the occurrence of the FDC's 
write data pulse and the output 
at U26-1 1 is a function of which 
U26 input received a low level 
during the load operation. The 
FDC determines the optimum 
delay that should be given to the 
present data pulse, based on 
previous write data bit patterns. 
As a result, a LATE or EARLY 
signal may be sent to U26 along 
with the data pulse. If neither an 
EARLY nor LATE signal ap- 
pears, the B input (U26-5) will be 
low. This produces a nominal 
delay which would have been 
250 nanoseconds longer if a 
LATE pulse was desired, or 250 
nanoseconds shorter if an 
EARLY pulse was desired. 

The FDC write gate, step, di- 
rection, and write data output 
lines are incapable of tristate 
operation. Thus these outputs 
must be isolated between the 
two FDCs, accomplished by 
U36. Fortunately, these output 
lines go to a logic low level when 
not selected, making a simple 
OR gate configuration possible. 
There is one exception: After 
certain operating sequences, 
the direction output from the 
operating FDC remains at a high 
level after switching to the other 
FDC. To correct for this anoma- 
ly, the direction outputs are gat- 
ed with the chip select (CS) lines, 
ignoring the non-operating di- 
rection output line. 

U27 and U28, high-current TTL 
buffers between the FDC and 
the disk drives, are capable of 
driving four disk drives on the 
common output bus. U24 is a 
buffer containing Schmitt-trig- 
ger action at its input to opti- 
mize signal recovery. 

Switching between single and 
double density operation is ac- 
complished by U32-U35. U32 
through U34 form a simple de- 
coder similar to the read/write 
decoder discussed earlier. The 
primary difference is that here 
several data lines are decoded. 
DALO determines whether sin- 
gle or double density mode is se- 
lected. If DALO is high when 
U35-11 is clocked, single density 
is selected; it DALO Is low, dou- 
ble density is selected. The 
master reset (MR) line, called 



SYSRES in the TRS-80, sets U35 
to single density at powerup and 
any time Reset is pressed. 
U18-11 provides a drive signal to 
an LED indicating double den- 
sity operation. 

The disk drive select circuitry 
activates the desired disk drive, 
informs the FDC when a drive 
is selected, and provides an 
enable signal with time-out pro- 
tection for the drive motors. 
U29 is a four section latch 
clocked by 37EOWR. If 37EOWR 
does not go low at least once 
every three seconds U20-5 will 
go low and U29 is cleared, turn- 
ing off the drive motors and the 
previously selected drive. When 
any drive is selected U8-6 will be 
high. 

Construction 

Table 5 contains the parts 
lists for this project. Use of 
printed circuit boards is almost 
mandatory due to circuit com- 
plexity. You might try wire-wrap 
if you have considerable ex- 
perience in this area, but wiring 
errors are difficult to dynamical- 
ly trace because most signals 
processed by the controller are 
non-recurrent. 

Figure 7 contains full-size, 
double-sided etch patterns for 
the disk controller and power 
supplies. If you choose to build 
your own board and cannot pro- 
vide plated-through holes, then 
you must not use IC sockets. 
Without plated-through holes, 
provide conductor path connec- 
tions from one side of the board 
to the other by inserting a wire 
through each hole and soldering 
the wire on both sides. Use of IC 
sockets precludes the possibil- 
ity of soldering to the donut 
pads on the component side of 
the board. All non-component 
holes (over 200!) require bare 
wires inserted, soldered on both 
sides, and then clipped short. It 
is really much easier to use a 
board that has plated-through 
holes. 

Figure 8 contains a parts 
layout guide for the PC boards. 
Be careful to orient the ICs, 
diodes, and capacitors as 
shown. If you use IC sockets, 
line up the dot or notch on the 
socket (indicating pin 1) with 
Fig. 8 to aid subsequent IC in- 
sertion. Use only a low-wattage 




MORE REASONS YOU SHOULD CONSIDER 
MOVING UP TO OUR COMPREHENSIVE PROGRAM... 

15 SUPER EASY TO LEARN editing features. Logical key choices. 

16. Hyphenation 

17. SPELLING checkers like the 74.000 word Scripsit Dictionary work 

great with CopyArl II. 

18. CHAINING. Chain tiles together to make books or manuals hundreds 

ot pages long. 

19. CENTERING. 

20. HEADERS and FOOTERS. You can even put graphics within headers 

for super page layouts. 

21. PAGE NUMBERING. Page numbers can appear at the top or bottom 

of the page. 

22. DOS COMMANDS from within the editor. Kill tiles, check free space 
or get directories easily. 

23. CUSTOMIZED PRINTER driver. Since your printer has features that 
other printers don't, CopyArl II will be supplied with the printer driver of 
your choice below. Each printer driver is custom made to provide you 
with commands for each of your printer's fine capabilities. If you have 
more than one printer, order other printer drivers for only S19 95 each. 
Printer drivers are available for: 



Smith Corona Daisy Wheel TP-1 

Brother Daisy Wheel 

C-itoh Starwriters and 

Prowriters all 

PMC P' inter 

Centronics 737, 739 

Diablo 620 



•RadioSheckLPrv.V.Vl, 
VII. VIII and Daisy Wheel II 

• Epson MX-80 MX-80/FT, MX -100 
with or without graftrax. 

• Okidata MicrolineSO. 82a. 
83a and 84 

• NEC 8023 

OTHERS COMING SOON. Call if you don't see your printer! 
24. Unprotected diskette. Unlimited backups can be made. 
25 MAILIST MAILMERGE INCLUDED. CopyArl II comes with a mailist 
program that stores over 2.000 names on a MOD III diskette. These 
names can be sorted by any field and have a special field for your code 
You can make PERSONALIZED FORM LETTERS that will take the follow- 
ing codes from the mailist and insert them in your text. FIELDS IN- 
CLUDE: Mr. or Ms.. Last name. First name, Business name, City. State, 
up to 9 digit ZIP code and your own special 2 character code. ANY OF 
THESE fields can be inserted within your form letter wherever you want. 
You can print form letters or mailing labels to all the people on your list 
or to specific codes only. CopyArl makes it easy. 
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SECONDARY 



Fig. 7a. Component side, main PC board 



iron (25 watts) with a fine tip, and 
.030 inch solder. 

The piggyback PC board con- 
nects to the main PC board via 
two 20-pin strips arranged in a 
40-pin-IC-style pattern. Insert 
and solder the shorter side of 
the pin strips at the second and 
fourth 20-pad rows from the left 
(see Fig. 8c) on the piggyback 
board. Insert the pins through 
the board trom the non-compo- 
nent side, allowing about 1/16 
inch of the pins to protrude 

182 • 80 Micro, December 1982 



above the component side; then 
solder in place. 

When all components except 
U1 and U31 are installed on the 
PC boards, take a few moments 
to carefully inspect your work. 
Use a magnifying glass and 
good lighting to check all solder 
connections, component place- 
ment, polarities, and so on. A 
few extra moments is good in- 
surance against trouble later on. 
When satisfied with your work, 
plug the piggyback board into 



the 40-pin socket on the main PC 
board, being careful to observe 
proper pin 1 orientation. Apply 
firm even force to avoid bending 
the pins. 

Three power supply voltages 
are required for this project: +5 
volts, + 12 volts, and -5 volts. 
The +5 volt supply is on the 
main PC board, except its power 
transformer (Tl), fuse and 
voltage regulator IC (U30). Since 
the case of U30 is at ground 
potential it can be mounted to 



whatever metal cabinet you 
choose to house the controller, 
eliminating the cost of a sep- 
arate heat sink. If you mount 
U30 to the cabinet, be sure to 
remove any paint from the regu- 
lator mounting surface, and use 
heat sink compound to optimize 
heat transfer. 

The +12 and -5 supply 
voltages are from a separate PC 
board (see Fig. 8d). (This is the 
same PC board used in the 32K 
Memory Mod project.) A few 



components are deleted from 
the 32K design. If you have 
already built the 32K Memory 
Mod, use its +12 and -5 volt 
outputs to power this project; 
there is more than enough cur- 
rent reserve for those voltages. 
However, the + 5 volt supply on 
the 32K mod version is not ade- 
quate to operate the disk con- 
troller, and should not be used 
for that purpose. (This is why the 
+ 5 volt components are not on 
this power supply board, and a 
+ 5 supply is included on the 
main PC board.) Mount R24 and 
R25 on the + 12/ -5 volt supply 
about 1/4 inch above the PC 
board to aid heat dissipation. 
Three wires ( + 12, -5 and 
ground) provide cabling from 
the +12 and -5 volt supply out- 
puts shown on Fig. 8d to the ap- 
propriate inputs on the main PC 
board as shown on Fig. 8a. U38 
may be heatsunk to the cabinet 
in the same manner as U30. 
since its mounting tab is at 
ground potential. 

The cabinet chosen for this 
project should be metal, prefer- 
ably aluminum for ease of cut- 
ting and drilling. The cabinet in 
Table 5 is all aluminum, large 
enough to accommodate the 
disk controller and the 32K 
Memory Mod and printer Inter- 
face projects presented pre- 
viously. Figure 9 illustrates the 
proper orientation and connec- 
tion of the TRS-80 interface rib- 
bon cable to the controller PC 
board. It also shows the proper 
orientation of the disk drive 
cable connector with respect to 
the output card edge. If the 
board is mounted in the cabinet 
as shown (with the component 
side facing down) the disk drive 
connector will be oriented in the 
traditional manner; that is, the 
ribbon cable will exit the bottom 



of the connector. 

If you use the ribbon cable 
and connector listed in Table 5 
first slip the cable through the 
slot in the connector rear. Then, 
while holding the cable straight, 
squeeze the connector closed 
using an ordinary vise. 

Finally you must add 10 ter- 
mination resistors at D0-D7, 
WR, and RD. Resistors R33-R42 
(shown in Fig. 5a) may be 
mounted on the underside of the 
main PC board (see Fig. 8b). If 
you intend to combine the disk 
controller with one or both of the 
previous projects, you may 
mount the resistors on the rib- 
bon cable PC board to be pre- 
sented in the next article. Even if 
you do not intend to add the 
other two projects at this time, 
you may prefer to include the 
cable PC board to allow future 
expansion and ease addition of 
the termination resistors. 

If you opt for adding resistors 
to the disk controller board, 
refer to Fig. 8b. Mount the 
resistors flat against the PC 
board, with one lead of each re- 
sistor soldered to an ap- 
propriate IC pad. The other 
leads of the resistors are 
soldered together and then to 
any convenient location on the 
ground bus running along the 
outer edge of the board. Use in- 
sulated wire to prevent inadver- 
tent shorting to the PC board. 

Installation and Operation 

Before inserting U1 and U31 it 
is wise to perform the following 
test. With all other ICs installed 
and double-checked for proper 
orientation, apply power to the 
circuit. The LED (D6) should il- 
luminate. If it does not. discon- 
nect power immediately and 
find the problem before reapply- 
ing power. A voltmeter/ohm- 



TRS-60 

Addraaa 

Coda 

37E0 WR 
37E0RD 
37EC WR 
37EC RD 
37ED WR/RD 
37EE WR/RD 
37EF WR/RD 



Function 

Supplies CLK sIq to activate disk motor in selected drive 

Clks 40Hz Timing and INTRO sigs to TRS-60. then resets INT 

Writes TRS-80 data into FDC Command Register 

Resets INTRO and accesses FDC Status Register to TRS-80 

Accesses FDC Track Register to TRS-80 

Accesses FDC Sector Register to TRS-80 

Accesses FDC Data Register to TRS-80 



Table 1. Addresses used for disk operations 




WILL CHANGE THE WAY 

YOU THINK ABOUT 

YOUR TRS-80! 



26. SIMPLE CURSOR commands. Simply use the arrow keys to move 
your cursor around the text. The screen will scroll both vertically and 
horizontally. Shift arrows take you to the beginning or end instantly. 

27. SCREEN DUMP. Prints whatever is on the screen to the printer. 

28 COMPLETE MARGINS CONTROL. You tell CopyArt II what margins 
you desire. You can even change margins within the same text. You may 
also have parts of your text with 2 columns, some with one etc. It's 
super easy to use. 

29 BASIC PROGRAMS can be edited easily. CopyArt is really useful for 
inserting graphics within quoted strings to give your programs super 
animation without the hastle of calculating the CHRS of the graphics! 

30. VISICALC files can be loaded into CopyArt II to be manipulated 
easily. Great when you want to accompany your Visicalc reports with 
written reports. GRAPHS and BOLDFACING etc. Visicalc reports up to 
255 wide can be loaded. 

31 . SPECIAL SCRIPSIT FILE LOADER. Allows you to load your old Scrip- 
sit files without having to save them in ASCII. Copyart will also load 
Pencil files and other normal ASCII files. 

32. 'CUSTOM KEYS. Lets you make special keys lor special characters. 
Allows for printing Spanish accents etc. 

33. CONTROL CODES. Lets you Insert special printer control codes in 
your text. CODES between and 255. 

34. BLOCK MOVE. Simple and powerful block move. Lets you move 
paragraphs or lines of text around easily. No complicated marker set- 
tings required. 

35. FIND/REPLACE/REPEAT. Lets you find a string of characters and 
replace them with any other string of characters up to 20.000 times! 
WILDCARD search also supported. 

36. Professional Manual in easy to understand English. 

Copyart II requires a TRS-80 Model I or III. (or PMC 80 or LNW). 48k 
and 2 disk drives with Newdos-80. Ldos. Multidos, Dosplus or TRSD0S 
Double density disk drives recommended tor the Model I. 

£cxy \j^ rir\ L TH,S PR0GRAM D0ES IT ALL! 

PLEASE SPECIFY which COMPUTER and PRINTER 
you have when ordering. 

Copyart II with one printerdriver 149.99 

Additional printer drivers 19.95 each 

Scripsit Dictionary 139.95 




TA 



COD and Credit Cards 
CALL TOLL FREE to order: 

1-800-528-1149 

Or send check or money 
order to: 
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SIMUTEK 

Computer Products Inc. 



SIMUTEK COMPUTER PROOUCTS INC., 4M7E. SPEEDWAY BlVO.. TUCSON. U 15712. |M2| IZl-tltl 

DEALER. DISTRIBUTOR A PRINTER MANUFACTURER INQUIRIES INVITED 

TRS-80 and Scriptil are TM ol Radio Shack a Tandy cots 

■Indicates printer mutt have capability to do lunctlon 



--See List ol Advertisers on Page 451 




Fig. 7b. Reverse side, main PC board 




Maxell 
Diskettes 



The floppy disks that meet 
or exceed every standard 
of quality. Dealer inquiries 
invited 

Call Toll Free N 
1-800-237-8931. 

In Florida, call 
813-577-2794./ 



V 



Tech • Data Corporation 

3251 Tech Drive North 

St. Petersburg. FL 33702 „ M 



Most Disk-Directories show only 
the filespecs plus some hard-to- 
understand superfluous infor- 
mation. Our 

DISK-MENU & 
DIRECTORY 

DISPLAYS DETAILED DESCRIPTION 

OF EACH PROGRAM 

ON A DISKETTE, 

filespec and date of creation. 

SELECT & RUN PROGRAMS 

INSTANTLY. 

(For Model l/lll, all systems) 



195 



+ 1 50 



£.*j " "f* I" shipping & handling 

INTER NATIONAL 
COMPUTER PRODUCTS 

346 NO. WESTERN AVE. 
LOS ANGELES, CALIF. 90004 



— Meettlje— 
Conpiter $9.95 




MEET THe 
COMPUTE* 



Teach youngsters simple 
programming for TRS-80. 

A 77 -page Dook by Marjone Crabbe, an 

experienced elementary leacher Easy to 

understand language Clear instructions 

child can follow with minimal supervision 

Upon completion of suggested activities 

child should be capable of writing own programs 

• Significant concepts set off in boxes to aid learning 

• important ideas repeated throughout text 

• 7-page glossary with concise definitions. 

• Cross-referenced index. 

• Illustrated Bound with plastic binding lies Va: 

To Order: Crabbe Associates -493 

212 W Graham Ave . lomba'O. I 60148 

D Send copies of Meet I he Computer © 19.95 Add 

Si 50 lor shipping per copy iinno* rMMMM toe u«su< 

Name 

Street 

City State Zip 
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Circle 84 on Reader Service card — 



You Are Being Attacked by a Raging . . . 




1982 Soft Sector Marketing. Inc. 
Written by Larry Ashmun 



ALLilUA'A 



: o r p o 

P.O. Box340» Garden City, MI48135«800-5S1 

Prices per Game: TRS-80* 16K Level II Mod I/Mod III Cassette $15.95 

TRS-80* 32K Level II Mod I/Mod III Diskette $19.95 

10% discount for 2 items, 15% for 3 or more. Please add $2.50 per order for postage & 
handling Michigan residents add 4% sales tax. Outside USA (except Canada) please 
add $10.00 per order for postage & handing. 



RATI 

I -B504/[31 3) 425-4020 

Talking and sound effects are playable through 
the cassette AUX plug. High scores are auto- 
matically saved after each game on disk 
version Joystick compatible. 
Call or write for our f 
complete catalog 



Only The Fast Survive! 







1982 Soft Sector Marketing. Inc. 
Written by Larry Ashmun 




Defend Planet from 

6 Different Types of Alien Attacks 

1982 Soft Sector Marketing. Inc 
Written by Larry Ashmun 



2nd 


4 th 


PAD . 

ROW* 


PAD ft 
ROW* 



L^A 



C20 



L 




PVP 

* ADD THE 20-PIN HEADER STRIPS TO THESE TWO PAD ROWS (SEE TEXT) 

Fig. 7c. Component side, piggyback PC board 




XFMR SEC 
"ICENTER TAP) 



IXFMR SEC 
((WINDING ENDS) 



Fig. 7e. +12/ -5 V power supply 



meter is handy for this type of 
troubleshooting. Assuming the 
LED illuminates, leave the 
power on for 30 minutes and 
then touch the power trans- 
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formers to see that they are 
moderately warm, not hot. If you 
have access to a voltmeter, 
check voltages at U31 socket 
pins 1, 21 and 40 for - 5, + 5 and 



+ 12 volts respectively. Then 
shut off the power and install U1 
and U31. (Never install or re- 
move ICs while power is 
applied). Repeat the power sup- 



ply temperature test. If all is 
well, connect the disk controller 
to the TRS-80 and your disk 
drives. To keep things simple, it 
is best to test the system in 
single density mode (be sure to 
have S1 in the Disk Enable posi- 
tion). Do not use master disks 
until you are certain all func- 
tions are operating correctly. 

After everything is operating 
properly, proceed to the double 
density checkout using your 
double density DOS. The double 
density indicator LED can be 
used as an educational tool as 
well as a software troubleshoot- 
ing aid when operating in double 
density mode. The lighting se- 
quence provides insight into the 
way double density is im- 
plemented on the TRS-80. 

For example, what occurs 
during a double density system- 
backup operation? Assuming 
that the system disk boots prop- 
erly, the LED is on prior to the 
backup routine. When the ap- 
propriate backup command is 
entered, the program first for- 
mats the blank disk. The disk 
head/carriage assembly moves 
toward track zero to begin for- 
matting and then the LED goes 
off briefly. We are trying to 
reproduce a double density pro- 
gram on what will be a double- 
density formatted disk— why 
does this happen? By default, 
the TRS-80 system must go to 
single density on powerup and 
Reset modes to preserve com- 
patibility with all existing single 
density software. The command 
telling the system to go to dou- 
ble density must, itself, be writ- 
ten in single density! At 
powerup and Reset (via ROM) 
the disk drive reads track zero; 
track zero must be formatted for 
single density operation. Watch 
both the LED and the video mon- 
itor track indication. The LED 
goes back on at track one. 
Similarly, when formatting is 
complete and the write/read se- 
quence begins, the LED again 
shuts off at track zero. 

When S1 is switched to the 
Reset Enable position, the disk 
drives are disconnected as far 
as the TRS-80 is concerned, per- 
mitting normal operation of the 
Reset button. S1 must be in the 
Disk Enable position when the 
disk drives are to be used. 

Circle 85 on Reader Service card - 



MISSION: 
Destroy Enemy Base 



So* 



C T982 Soft Sector Marketing Inc. ft* 
Written by Barlow .■*■'"" 








1 I I 



AT'UI* 



n'iiuiti'L±± 



11V. 



GEil 



N O O R P O 

P.O. Box340 • Garden City, Ml 481 35 • 8QO-5S1 

Prices per Game: TRS-80* 16K Level II Mod I/Mod III Cassette S 15.95 

TRS-80* 32K Level II Mod I/Mod III Diskette $19.95 

10% discount for 2 items. 15% for 3 or more Please add S? 50 per order for postage & 
handling Michigan residents add 4% sales tax Outside USA (except Canada) please 
add $1000 per order for postage* handing 



Ir-J £=^ U 

-6504/(31 3) 4E5-40ED 

Talking and sound effects are playable through 
the cassette AUX plug High scores are auto 
matically saved after each game on disk 
version Joystick compatible 
Call or write for our 
complete catalog p-" 1 - -" 




1 



IIE0 fe_ 



Don't Chicken Out! 

' 1982 Factory Programming Inc. 
Written by J Weaver. Jr. 



I 



Is There Nothing 
Sacred? 



198? factory Programming. Inc 
WiiMwiTUy J. Weavi 





wSsa 
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Address 








Binary Code 




















A15 


A14 


A13 


A12 A11 A 10 A9 


A8 


A7 


AS A5 


A4 


A3 


A2 


A1 


A0 


37EC 








1 


10 11 


1 


1 


1 1 





1 


1 








37 ED 








1 


10 11 


1 


1 


1 1 





1 


1 





1 


37EE 








1 


10 11 


1 


1 


1 1 





1 


1 


1 





37EF 








1 


10 11 


1 


1 


1 1 





1 


1 


1 


1 










Table 2. FDC register access codes 













Signal 


Source 


(Parallel) data 


TRS-80 


Address bus codes 




Read 




Write 




System Reset 




Read data 


Disk dnve(s) 


Track zero 




Index pulse 




Write protect 




Interrupt request 


FDC and support 




circuitry 


Interrupt 




Register outputs 




Step 




Direction 




Write gate 




Write data 




VFO enable 




Early 




Late 




Mead load timing 




Ready 




Read dock 




Table 3. Data/control 


signal summary 




Photo 1. Disk controller cabinet 



IC Power and Ground Connections 


Additional IC Connections 


IC 


Type 


+ 5V 


QND 


tc 


PWi 


Destination 


ur 


FD1791-02 


21 


20 


U4 


5 


GND 


U2 


74LS30 


14 


7 


U4 


6 


GND 


U3 


74LS85 


16 


8 


U4 


11 


GND 


U4 


74LS02 


14 


7 


U4 


12 


GND 


U5 


74LS86 


14 


7 


U5 


9 


+ 5 


U6 


74LS04 


14 


7 


U5 


10 


+ 5 


U7 


74LS10 


14 


7 


U5 


12 


+ 5 


ue 


74LS20 


14 


7 


U5 


13 


+ 5 


U9 


74LS00 


14 


7 


U15 


12 


GND 


U10 


CD4518 


16 


8 


U16 


12 


GND 


U11 


CD4518 


16 


8 


U16 


14 


GND 


U12 


74LS90 


5 


10 


U16 


15 


GND 


U13 


74LS74 


14 


7 


U17 


12 


GND 


U14 


74LS367 


16 


8 


U17 


14 


GND 


U15 


74LS367 


16 


8 


U17 


15 


GND 


U16 


74LS367 


16 


8 


U19 


9 


+ 5 


U17 


74LS367 


16 


8 


U19 


10 


+ 5 


U16 


74LS00 


14 


7 


U19 


12 


+ 5 


U19 


74LSO0 


14 


7 


U19 


13 


+ 5 


U20 


74LS123 


16 


8 


U21 


1 


GND 


U21 


74LS74 


14 


7 


U26 


11 


GND 


U22 


74LS86 


14 


7 


U25 


13 


GND 


U23 


74LS193 


16 


8 


U28 


1 


♦ 5 


U24 


74LS14 


14 


7 


U28 


3 


+ 5 


U2S 


74LS04 


14 


7 


U28 


5 


♦ 5 


U26 


74LS195 


16 


8 


U32 


5 


GND 


U27 


7416 


14 


7 


U35 


4 


GND 


U28 


7416 


14 


7 








U29 


74LS175 


16 


8 








1130 


LM309K 


(see Fig. 8a) 








U3V 


1771-1 


21 


20 








U32 


74LS04 


14 


7 








U33 


74LS04 


14 


7 








U34 


74LS30 


14 


7 








U35 


74LS74 


14 


7 








U36 


74LS32 


14 


7 








U37 


LM311N 


(see Fig. 6b) 








U38 


LM340T-12 


(see F 


g. 6b) 








•Pin 40: +12 V 












"Pin 1 


: -5V. Pin 40: + 12V 








Table 4. IC power, ground and 


additional 


connections 













Several good double density 
DOS programs are available. 
Percom's DBLDOS is a double 
density system operationally 
very similar to Radio Shack's 
TRSDOS. DBLDOS routines 
convert files from single to dou- 
ble density and vice versa. A 
more sophisticated DOS, 
NEWDOS80, is now available in 
a double density version. Other 
double density operating 
systems compatible with the 
hardware supported in these 
two systems should also work, 
but I have not used them. The 
disk controller can be used with 
any single density DOS com- 
patible with Radio Shack's Ex- 
pansion Interface. 



"Percom's 
DBLDOS is a 
double density 

system 

operationally 

very similar 

to Radio Shack's 

TRSDOS." 



Any double-density-rated 
Model l-compatible disk drives 
(such as Tandon's TM100-1) can 
be used with this system. 
Shugart SA400 disk drives 
(these are the Radio Shack-pro- 
vided Model I drives), probably 
operate properly in double den- 
sity; but they are officially rated 
only for single density. Shugart 




• Enclosures 
and power supplies 
with or without drives 
Low minimum orders • At- 
tractive quantity pricing* Durable, 
textured, color-compatible finish 
looks great on your display counter! 
Fully engineered product — high reliabil- 
|A^" ity design • All standard configurations, plus: 
^£ P Canon 2 h height, TEAC V4 height, mini- Winches- 
ter and Tandon 8" V2 height • Retail customers: 
send us the name of your local dealer 



Ann Arbor Precision 

7536 Jackson Road 
Ann Arbor, Ml 48103 
Order Desk: 9-5 EST 
(313)426-5477 Mon-Thu 




"Precision— Since 1977" 
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NEW BOOKS 



NEW from Larry Ashmun! 




His secrets are exposed 
in this new, super book. 

ALIEN DEFENSE 

The book contains 

1 COMPLFTE SOURCE CODE LISTING of Alien Defense 
(Mod III tape version). 

2. Details of one approach to game writing. 

3. Explains some of the more complicated routines. 

4. You are informed of the concept behind the 
structure of the routines. 

Never Before Has Anyone 
Sold a Book Like This! 

If you write in Machine language; if you have 
thought of writing a Machine language game; if 
you ever just wondered what a Machine language 
program looked like in its uncompiled form - This is 
Your Book! 




Regularly $29.95 - INTRODUCTORY OFFER $24.95 



Save $5.00 - Order Today 

Offer Good fhru Dec 31. 1982 



Other Fine Books Sold by Soft Sector Marketing, Inc. 



Th. Pmm of VisiCalc 




SOFT SECTOR MARKETIN 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 



^See List ol Advertisers on Page 451 



PAVMfNT-pav"ien»accep»tjat)v chary. 

I or C O D only under the foiiov. -, Mans Charges 

processed wt-ien shipped usually withm 48 hours Personal 
Checks delay i>np«>-'Kj r****iing 3 weeks to ctear C.O.D. 
>f»"i c h?c» or cash onry add 3t'. lentj must odd A% sales ta» 

SHIPPING ft HANDLING - Shipping Charges imoanj 2% or $2 50 unless 

;SJJT ''' «Jl^'?r' l ^L/ nv ° ,ae ' served w <ttvxjt shrppmg ana handling will be shipped freight 
r ™* ' ** mM »h*PP*ng outs.de ot North America please send the laraer amount 1,T% or 
>0 00 Overpayment will be refunded 
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RB80N CABLE CONNECTIONS 
TO THE CONTROLLER BOARD 
WITH CABLE ANO BOARD 
ORIENTED AS SHOWN. 
FROM BOTTOM TO TOP 



M3 

A2 
GNO 
AI5 
ah 
an 
NC 

AB 

NC 

WR 

NC 

RO 
04 
OS 

D7 

NC 

Dl 

INT 

D6 

NC 

03 

AO 

05 

Al 

8? 

02 

NC 



A? 

A5 




Fig. 9. Ribbon Cable 




Photo 3. Detail of disk controller and ribbon cable PC boards 
190 • 80 Micro, December 1 982 



Photo 5. Disk controller. Reverse side of piggyback PC board 



BUSINESS 



u|» The Ultimate in Mailing Packages 
**° POSTMAN MASS MAILING SYSTEM 

"1982 Alger Software, Distributed exclusively by Soft Sector Marketirtg. Inc. 

For the serious businessman who has as little as 1 00 name mailing list or 200,000 names, 

THERE IS ONLY ONE SYSTEM FOR YOU! 

FEATURES OF THE NEW POSTMAN MASS MAILING SYSTEM 

The Postman system (version 2) is an almost COMPLETE revi/tite. rethink, redesign of the original POSTMAN. The many features of the 
new POSTMAN system are quickly outlined below: 



MUin-INHVt - True muiti-dirve operation is possible POSTMAN will search oil drives lor 
address fues and connect them together into one large file for the duration of that session 
Once POSTMAN has found the data files on the disks, the operator sees" just ONE 
CONTIGUOUS sorted list of addresses The operator does not need to tell POSTMAN when to 
"switch" dives or monuolry "swap" sections of the data file in and out of the computer's 
memory This is the foremost among the list of features oecause o! its relative uniqueness 
among mail Usl handlers written for the TRS-80 

LAME UtT SUPPOtT- The multi-drive operation allows the user to access data files on ALL 
configured drives CONCURRENTLY (at the SAME time) for truly orge mailing bits hies need 
not be sectioned into smaller Dyte size" chunks to tit into memory 

HMD MM SUPPORT -(HARD DISK POSIMAN only) The HAL utilization of the space and 

speed of the new hard disk drives is possible with POSIMAN For example, a 75 megabyte 
dnve con be configured to hold almost 60.000 labels Multple hard drives con be accessed 
CONCURRENTLY allowing 200.000++ entry marfing lists 

KMHMIfmtCAPAMUTY -With the purchase of the separate POSTRITE program the user is 
provided with an easy to use form letter generator which will merge a generalised lette' 
produced Irom a word processing system (i.e LAZY WRITER, etc.). with the name and address 
information from the POSTMAN MASS MAILER data base POSTWRTTER allows the user to 
insert any field from a POSTMAN label entry anywhere in the letter 

MENU OPfBAHOM- As you would in a restaurant, choose your dinner from a lot (or MENU) 
POSTMAN will allow you to direct its octions by selecting from various menus that it will 
display A complete discussion of each menu is presented in the manual 
MEEK! - New names can be quickly added to your list at any time The new addresses are 
placed into the file in then proper sorted order eliminating the need tor o separate sort 
operation after entering a stack of new names POSTMAN will allow the operator to enter a 
"batch" of labels without returning to the control menu between each label insertion, thus 
speeding entry and reducing the aggravation of extra menu control keystrokes 
IK11II - Names can be removed dt any lime when they ore no longer needed 
(|)|f — Information in any name entry can be quickly changed at will with "word processor' 
ease A ' transparent cursor simply is moved to the label displayed on me computer screen 
and corrections ore just typed over the existing label if you happen to change a field which 
is also used as a sort key. POSTMAN will automotcollv move the changed lobei to its correct 
position m the wt to maintain the sorted arrangement of the labels 
OVEMAV-When identical changes ore needed on many addresses, the OVERLAY feature 
can moke them with one keystroke The needed changes which are common to many 
labels are entered mto the "overlay mask" When you wisn to apply these common changes 
to any label one command wil do it 

SORT - Arrange your list in any alphabetic or numeric order The ordering may use one Or 
more fields to control the sort Amochineionguogeheapsortassuresfastexecution Thesort 
need only be performed once the sorted list wil stay sorted through an subsequent 
insertions deletions ond changes to existing labels NO NEED to leave the POSTMAN 
program to use aseporate program to sort your data Your data is sorted qmckiy and after 
sort completion POSTMAN ■$ ready for your next command 1 



SPECIAL REST ADDRESS SORT - for the user with many addresses on the same street 

POSTMAN will sort your entries by the house NUMBER after grouping those on the same street 

together Local city ksts can be quickly sorted to o«3 post office dispatching 

PUROt - Unwanted duplicate addresses can be removed from your list automoticoly or 

under operator control 

SEARCH - Any address in youi list con be quickly found with fost search and positioning 

commands Three different types of searches are provided A "fast" search which uses a 

hashing technique, o "selective sequential" search for labels with common fields, ond 

"quick" positioning usmg the first or major sort field to get you into the general" bal paitr of 

a lobei or sequence of laoeis 

LABEL PRMfnMO - One a tew or oil addresses m your lot con be printed on standard or non- 
standard label stock Up to 6 labels across can De printed with a format YOU Can easily 
control TWO user definable ATTN lines are provided for any use Labels con be printed from 
mony of POSTMAN s menus search, edit, or during label insertion 
EFFICIENCY - POSTMAN is written in the machine's native language to gam the full 
advantage of the microcomputer's speed. Extensive use of program segmentation 
reduces the amount of use RAM needed to hold the program allowing a greater number 
labels to be kept m core, resulting in foster operation Little used routines need only be 
brought mto memory when they are needed and once through with then task, release their 
space bock to POSTMAN 

REPORT USTIHDS- A special program to produce columnar listings of oddress data torn 
your label data base is provided You con eosity specify the information to be printed 
DATA DRHC MEMMN9 - Labels con be quickly transferred from one disk to another with the 
PSTMERGE program callable tram the mom POSTMAN SYSTEM menu Source ond destination 
drives needed not be separate drives, prompts to exchange diskettes If the some drive is 
used, are provided 

DATA DttK PREPARATrOH UTHJTY - Provided with POSTMAN is the DPREP program which 
allows the user to prepare a floppy/ hard disk for use with POSTMAN This easy to use utility con 
be told to prepare ony portion of the available space on a disk 

DATA INTlORiri- Ail aoto transfers to the disk files are mode using specoiwritecommonds 
which instructs the operating system to check the validity ot EACH write to the disk 

DATA OUARD r - is o spocoi programming technique only offered by Soft Sector 
Morketing Inc If by Chonce your machine resets while writing information to the disk you 
only lose the information that you were writing Your files are always protected from the 
danger of losing all the work thot you have put in that day NO OXFR PROGRAM ON THE 
MARKET OFFERS THIS PROTECTION If you reset with ANYBODY" S MAILING PACKAGE DURNG 
VMWING you would destroy your ENTIRE data disk We con' I stop your machine from failing 
but we can protect your data 



Length 


Nam* 


10 


Code 


15 


Lost Name 


15 


First Name 


26 


Company 


26 


Address 



Description of Label Record Fields: 
Description 

User defined printable field 
Lost name of addressee 
First name of addressee 
Name of company 
Street address 



Length 


Nam* 


15 


City 


5 


State 


V 


Zip 


2 


Dotal 


5 


Data 2 



Description 

City, township, village 
State, province, territory 
Zip code. zone, route 
User definable field 
User definable field 



.IDEAL SYSTEM. 



Mod III 48K 1-40 Track Drive • 2-80 Track Dual Headed Drives • Dosplus or LDOS Operating Systems 
Gives space for over 1 1,000 names - 5 second average name insertion - time sorts all 1 1,000 names in less than 4 minutes 

'Special version to work on Dosplus 4.0 Hard Disk operating system. 



- Overview Available - 

The POSTMAN system requires Mod I or Mod III. 48K, 2 disk drives minimum. 



Standard Version 
Only $125.00 



Standard Version with 
POSTWRITER form letter writer 

$175.00 



For DOSPLUS Hard Disk4.0 Operating System 
& Radio Shack's Hard Drive System 

$225.00 



^87 



SOFT SECTOR MARKETING, 

INCORPORATED 

P.O. Box 340 e Garden City. Michigan 48135 
Order Line 800-521-6504 

^ Michigan Orders & Questions 313-425-4020 

• See List of Advertisers on Page 451 



SHIPPING & HANDLING Sn:pr> ' c, Cr-a-ges 
coi'ec* A.- Ma Sh op •••j 



Charges 

Personal 
COD. 
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Parts required for disk controller Including + S volt power supply: 
(Designator C6 Is not used.) 



U1 

U2.U34 

U3 

U4 

U5.U22 

U6.U25.U32.U33 

U7 

ue 

U9.U18.U19 

U10.U11 

U12 

U13.U21.U3S 
U14.U15.U16.U17 

too 

-23 

U2* 

U26 

U27.U28 

U29 

JX 

U31 

U36 

R1.R7.R33-R40.R42 

R2.R3.R12.R43 

R4.R6 

R5.RB.R9.R10.R14.R20.R21 

R11 

R13 

R15.R16.R17.R18 

R19 

R23.R41 

R22 

C1.C25 

C2 

C3.C7.C9 

C4 

C5 

C8 

C10-C19.C21.C23 

C20C26 
C22 

C24 

S1.S2 
D1-D4 
06 

F1 
XTAL 



FD1791-02IC 

74LS30 IC 

74LS85 IC 

74LS02 IC 

74LS86 IC 

74LS04 IC 

74LS10 IC 

74LS20 IC 

74LSO0 IC 

CD4518BE IC 

74LS90 IC 

74LS74 IC 

74LS368 IC 

74LS123 IC 

74LS193 IC 

74LS14 IC 

74LS195 IC 

7416 IC 

74LS175IC 

LM309K IC 

FD1771-01 or INS 1771-1 

74LS32 IC 

1.000 Ohm. v, w. 5°/i. resistor 

3.300 ohm. v. W, 5%. resistor 

4,700 Ohm, % W, 5%. resistor 

10.000 ohm. ''4 W. 5°'o. resistor 

8.200 ohm, 'iW, t'/a. resistor 

1.500 ohm, '.. W, 5%. resistor 

150 ohm, v. W, 5 v., resistor 

68.000 ohm, '4 W. 5V t . resistor 

470 Ohm. ' 4 W. 5"'t, resistor 

330 ohm, •■. W. 5%. resistor 

100 pF, ceramic disk capacitor 

200 pF. ceramic disk capacitor 

100 uF. 10 V. electrolytic capacitor 

47 pF, ceramic disk capacitor 

10 pF, ceramic disk capacitor 

4.500 uF. 10 V, electrolytic capacitor 

1 uF, 50 V, mylar capacitor 

.1 uF. 12 V, ceramic disk capacitor 

.001 uF, mylar capacitor 

10 uF. 16 V, electrolytic capacitor 

SPST toggle switch 

1 A, 100 PIV diode 

LED (Diglkey NSL5053 or equivalent) 

3/8 A, 3AG (fast acting) fuse 

4 MHz crystal. HC18AJ style (NDK-040S or equivalent) 



Parts required for + 12/ - 5 volt power supply: 

U37 LM3 1 1 N IC (do not subst I lu te) 

U38 LM340T-12 IC 

SCR1 R122B(R/S 276-1067 or equivalent) SCR 

D6 LED (Digikey NSL5053 or equivalent) 

Z1 5.1 V, 5%. 1/2 W(iN523lB)zener diode 

22 4.3 V, 5V 1/2 W (1N5229B) zener diode 

C27 1000 uF. 25 V. electrolytic capacitor 

C28 220 uF. 25 V. electrolytic capacitor 

C29 220 uF, 10 V, electrolytic capacitor 

C30 4.7 uF. 10 V, electrolytic capacitor 

C31 .001 uF. 25 V. ceramic disk capacitor 

C32-C34 1 uF. 50 V, ceramic disk capacitor 

C35 10 uF. 25 V. electrolytic capacitor 

R24.R25 390 ohm. 1:2 W resistor 

R26 2.2K ohm. 1/4 W resistor 

R27 1 2K ohm. 1(4 W resistor 

R2B.R29 1K ohm. 1/4 W resistor 

R30 100K Ohm, 1/4 W resistor 

R31.R32 10K ohm, 1/4 W resistor 

D7-D9 1A, 100 PIV. diode (1N4002 or equivalent) 

T2 24 VAC. 8A center-tapped transformer 

(Burnstem Applebee 18A1833-3 or equivalent) 

F2 38A, 3AG (fast acting) fuse 

X1 MPS3706 transistor (general purpose, NPN) 

Miscellaneous 

PC board, in-line fuseholder. hardware 



T1 
Miscellaneous 



6.3 vol! AC, V2A ■filament" transformer 
(Triad F-14X or equivalent) 



PC boards, cabinet iBud AC412'BPA-1520 or equivalent— see text). AC line cord, two 20-pm male header strips (AP Products 
929834-06 or equivaienti. 40-conauctor nDbon cable with matching "TRS-80 keyboard card-edge compatible" connector (Radio 
Shack 278-771 276-1558 or equivalent), IC sockets (one of the 40-pm sockets must be capable of accepting 025 inch square 
posts— JDR Microdevices 40PIN-ST is a good choice), hardware (including threaded standoffs to mount the PC boards) 

Table 5. Parts list 



believes all units after serial 
number 80000 are okay, as are 
about 80 percent of all those 
below 80000). I experimented 
with two very early units (serial 
numbers well below 10,000) and 
achieved partial compatibility. 
They boot the double-density 
DOS and perform flawlessly 
most of the time. However, they 
occasionally fail operations 
which involve writing and subse- 
quent read/verifying "worst 
case" data bit combinations (eg: 
6DB6H). 

It is best to apply power to the 
disk controller before turning on 
the keyboard. Reverse this se- 
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quence when removing power. 
Also, apply power to the con- 
troller before inserting disks and 
remove all disks before turning 
off power. That way, even if tran- 
sient voltages conspire against 
you, your disks will be safe. ■ 

Readers of 80 Micro are wel- 
come to use the etch patterns 
contained in this article to con- 
struct the Disk Controller for 
their personal use only. 

An etched and drilled epoxy- 
glass PC board set with plated- 
through holes as shown in Fig. 7 
is available for $54.95. A com- 



plete kit of parts is also avail- 
able, including PC boards, the 
1791/1771 controllers, cabinet 
(no holes or cutouts, but dimen- 
sional layout is included), IC 
sockets, and all other parts 
listed, including the +12/ -5 
volt power supply for $219.95. 
The 1791/1771 controller set is 
available separately for $69.95. 
(There will be a predrilled, 
punched, painted, and labelled 
version of the cabinet available 
for the complete system in the 
final article of this series. If you 
would like to order the kit of 
parts as above, but without the 
blank cabinet, deduct $20.00 



from the kit price.) 

If you have already built the 

+ 121-5 volt supply for the 32K 
memory mod project, you may 
order either the PC board set or 
parts kit for the disk controller 
without components for this 
supply. The PC board set 
without power supply board is 
$49.95, and the parts kit without 

+ 121-5 volt power supply com- 
ponents is $204.95. 

The above prices are pos tpaid 
in the continental U.S. Arizona 
residents add 4 percent sales 
tax. Order from PVP Industries, 
P.O. Box 35667, Tucson, AZ 
85740. 



COLOR COMPUTER 



MASTER CONTROL 

'1981 Soft Sector Marketing Inc. 
Written by A Schwartz 

Requires 16-32K 



1. 50 preprogrammed command keys. Standard and 
Extended command. 

2. Direct control of motor, trace, and audio from 
keyboard. 

3. Automatic line numbering 

4. Programming line numbering. 

5 Direct Run Button 

6 Keyboard overlay for easy program use. 

7. Easy entry of entire commands into computer. 

Load Master Control into your machine then eithertype 
in a BASIC program or load one in from tape to edit 
Cuts programming time by 50% or more 



$24.95 



For The Radio Shack 
Color Computer* 







SO^ e 




Written by E R I 



50 PROGRAMS 
IN ONE PACKAGE 

$49.95 

'Ihf* i_.okx Con-.putt*' is a pcoouct of '?od>o Shock d vis-Cr* 1 of f'^e 'ondy Corp 




GHOST GOBBLER 

16K- Machine Language 
Joystick Compatible 



TAPE DIRECTORY 

Copyright M982 Soft Sector Marketing. Inc. 



\or. 



"2e ^ 



$21.95 




- For 4K Color Users - 

COLOR SCARFMAN 

GREAT GRAPHICS 
Machine Language 

Only$ 19.95 





Creates index 

or your 

programs 

for each tape. 
To screen 
or printer. 



A MUST FOR ALL 

COLOR COMPUTER 

USERS! 






Cassette 



- DEALER INQUIRIES WELCOME - 




\ 



SOFT SECTOR MARKETING/ 

INCORPORATED 

P.O. Box 340 • Garden City. Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 



Charges 

Personal 

COD 



SHIPPING A HANDLING - Shipping Charges 
collect Air Mail Shipping 



■ See List ot Advertisers on Page 451 
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UTILITY 



LOAD 80 



Add search to Level II Basic. 



The Looking for Z$ Blues 



J. E. Hieber 

725 Idlewild Road 

Bel Air, MD 21014 



The lack of a search function 
is a serious limitation of the 
TRS-80 Level II cassette system. 
How often have you wanted to 
know even/ place a variable is 
used in a program? The only way 



The Key Box 

Basic Level II 
Model I 
16KRAM 



is to eyeball the code line by line. 

The Assembly routine in the 
Program Listing adds the omit- 
ted search function. The pro- 
gram interfaces with Level ll's 
normal command structure; the 
new commands are entered 
from the Basic prompt. 

The search is executed from 



play forward or backward one 
line, the ability to reset the cur- 
rent line pointerto the beginning 
of the program, and theability to 
enter the Edit mode with an ab- 
breviated command. 

I thought the new commands 
should be meaningful, short, and 
handy. All commands end with 



"The length of the 

search argument should 

be limited to no more 

than 63 characters." 



the current line pointer toward 
the end of the Basic program in 
memory. If the search argument 
is found, the line is displayed 

and the current line pointer is 
set to that line. Continue the 
search by entering the search 
command with no argument. If 
the search argument is not 
found, the Basic Ready is dis- 
played and the current line 
pointer is not changed. 

Along with searching I added 
the ability to advance the dis- 



the enter key. Table 1 lists the 
commands. 

The quotation marks call the 
search function. This works well 
with variables and characters 
within REM statements. Basic 
keywords such as GOTO. IF. and 
SET cannot be found. These 
keywords are stored as single 
character tokens in program 
memory. An alternate search 
command, the colon, is used to 
search for the keywords. The 
length of the search argument 



should be no more than 63 char- 
acters. Excessively long search 
arguments can cause the sys- 
tem to bomb. 

The semicolon command ad- 
vances the display one line. 
Press the semicolon and enter 
keys repeatedly to step through 
a program. 

The minus sign steps the dis- 
play one line backward. Minus 
can also be hit repeatedly. 

The period resets the current 
line pointer to the first line of the 
program. This is handy to reset 
the pointer before a new search 
sequence. 

The edit command is entered 
with the first letter (E) reducing 
the keystrokes needed to enter 
the edit mode. The semicolon 
and minus commands can be 
appended to the edit abbrevia- 
tion to edit the next line and 
previous line, respectively. 

The at sign (@) displays the 
current line. 

The techniques and hooks in 
the program can be used to add 
other commands and features. ■ 

John Hieber, a graduate 
engineer and mathematician, first 
programmed an IBM 650 in 1963. 
He has owned a micro for about 
two years. 
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HARDWARE SPECIALS 
LYNX MODEM 

Auto Answer - Auto Dial 



Mod I & III 
No RS-232 
Board Required 

Shipping 
from Stock 

$218.00 




ORCHESTRA 85/90 

Stereo music synthesizer with 
percussion for your Mod I or II 

Was $149 95 

SPECIAL $99.95 

Please state Mod I or II & Cass, or Disk version 
Offer Good thru Dec 31. 1982 




RIBBONS 



MX-80 Replacement Cartridges 

2 for $15.00 
MX- 100 Replacement Cartridges 

2 for $20.00 

Offer Good thru Dec 31. 1982 




Our Catalog 

is Now 
Available! 



There Are Only 2 Ways to Increase the 
Processing Speed of Your Model III 



Other Brand 




The Right Way The Wrong Way 



We Offer Only The Quality Product 
But the Choice is Yours 



They both list for $99.95 assembled and 
Tested. 

They both speed up your machine. 

Holmes Other 

Board Brand 

Installation Time .... 15 min. 4 hrs. 

Requires Soldering NO YES 

Requires Cutting Traces ... NO YES 

Easily Removed if Logic 

Board Requires Repair ... YES NO 



c^ List $99.95 

^ Only $89.95 

Plus Shipping 
Offer Good Until Dec 31. 1982 



d 

S 



- DEALER INQUIRIES WELCOME - 



^ 






SOFT SECTOR MARKETING^ 

INCORPORATED 

P.O. Box 340 • Garden City, Michigan 48135 
Order Line 800-521-6504 

Michigan Orders & Questions 313-425-4020 

^See List o/ Advertisers on Page 451 



PAYMENT- payment accepted Dy charge personal check 
I or C O D only unaer the following conditions Charges 
| processed when shipped usually withm 48 hours Personal 
Checks aeiav shipping pending 3 weeks to clear C.O.D. 
J>q ?? "f cert ' ,ied check or cash only oda S1 50 Mi residents must odd 4% sales ta» 
SHIPPING • HANDLING - Shipping Charges: Send the "orger omount 2% or $2 50 unless 



collect Air Mall Shipping outside of North America please send the larger amount 10%0f 
'° 00 Overpaymont w,n b<- refunded 
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SAT 

KrelTs College Board 



SAT* 

Preparation Series 



NEW FOR 
'82 



A COMPREHENSIVE PREPARATION 
PACKAGE / 30 PROGRAMS 

1 . Diagnostic analysis 

2. Prescription ot individual study plans 

3. Covorago of all SAT* skills 

4. Unlimited drill and practice 

5. SAT* Exam Question simulator 

6. AH questions in SAT* format and at 
SAT* difficulty level 

7. Instantaneous answers, explanations 
and scoring for problems 

8. Worksheet generation and performance 
monitoring • (optional) 

9. A complete record management systenv 
(optional) 

10. Systematic instruction in pertinent math, 
verbal & test taking skills • (optional) 
Krai's unique logical design provides personal- 
ized instruction for each student according to 
IndMrM needs. 

Krell' s College Board SAT* 81/82 Prep. 
Series has demonstrated a mean com- 
bined math and verbal score increase of 
more than 100 points by using sophis- 
ticated driH & practice techniques alone. 
This new series is much expanded and 
updated. In addition extra cost options 
are now available to provide worksheet 
generation, record management, and 
systematic instruction in all math and 
verbal areas tested by the SAT*. 

All versions of Krell College Board SAT* 
Preparation Series provide answers, 
explanations and instantaneous raw scor- 
ing. Standard package $299.95 

APPLE. ATARI. COMMODORE. CP/M. IBM. 
ANO RADIO SHACK* 

ALSO AVAILABLE 

Time Traveler / Odyssey In Time 

Com pete ncy/ Prof Icisncy Series 

Pythagoras and the Dragon 

Isaac and F.b. Newton / Micro Doutsch 

Super Star Baseball / Sword if Zedek 

Krell Game Pack 

CALL FOR DETAILS AND PRICES 

• 51 



SOFTWARE CORR 

to» sum ollfw tfl m MucMon* canpuonq 

1320 Stony Brook RoM Slony Broot NV 11 TO 

Telephone 5'6 l"S1 5139 

«'*ii Sottwix Co>o lis 10 o">cm ties ouh - ne College 
Entrance (>imi<w«yi 8ojr0 v t»e Sducj!«xm 'esimi >>vce 

Kieil >s ho»«w< t suobi* 0* oioflucts to me I ' S 
•''joe">ii«s o« »ooif Comp Co>o U»di Oo'C Uwrvxjo'e j»D 

Oij'in Kesei'cn Ceo 1 B M »iar C010 
eROGMMS »v*ll*8U f0» TMf IRS 80 »PPU 1 Pf * »l»«i 
~~ H 1 S rfvoenrs joo sales m 
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Command 


Explanation 


"11 


Search for variable 1 1 (argument should be < 64 characters) 


:QOTO 


Search lor keyword GOTO 




Reset current line pointer to first line of the program 


- 


Step display one line backward 


• 


Display current line 


; 


Step display one line forward 


E 


Edit current line 


E- 


Edit previous line 


E; 


Edit next line 




Table 1. New Level II Commands 







Program Listing 




00100 


;THIS ROUTINE ADDS A SEARCH FUNCTION TO LEVE 


L II, TO 










00110 


.•PROVIDE THE FACILITY TO LOCATE GIVEN CHARACTER 




00120 


;STRINGS IN A BASIC PROGRAM. 




00130 


;THIS ROUTINE WILL ALSO PROVIDE SHORT NOTAT1 


ON FOR 










00140 


;LIST AND EDIT COMMANDS. THE ABILITY TO SIN 


GLE 










00150 


;STEP FORWARD AND BACKWARD THROUGH A PROGRAM IS 




00160 


.•INCLUDED. 






00170 


; 






00180 


j WRITTEN 


BY: J.E. HIEBER 




00190 


f 


BEL AIR, MD. 21014 




00200 


f 






00210 


t COPYRIGHT APRIL 1981 




00220 


1 






00230 


;THE FOLLOWING 


[S A SUMMARY OF THE COMMANDS 


ADDED: 


00240 








00250 


; E; WILL EDIT 


NEXT LINE 




00260 


t E WILL EDIT 


THIS LINE 




00270 


E- WILL EDIT 


PREVIOUS LINE 




00280 


; WILL LIST 


NEXT LINE 




00290 


§ WILL LIST 


THIS LINE (AT SIGN) 




00300 


; - WILL LIST 


PREVIOUS LINE 




00310 


; . WILL SET 


THE POINTER TO START OF THE P 


ROGRAM 










00320 


; "CHARAC STRING WILL SEARCH THE BASIC PROGRAM 




00330 


t 


FOR A MATCH 




00340 


; : CHARAC STRING WILL SEARCH FOR BASIC KEY 


WORDS 










00350 


1 


SUCH AS GOTO, IF, THEN, ETC. 




00360 


; " OR : WITH A 


NULL STRING WILL USE THE PRE 


VIOUS 










00370 


; STRING 


AND CONTINUE THE SEARCH 




00380 


) 




41B2 


00390 


CMDHK: EQU 


41B2H ;HOOK FROM ROM COMMAND 




00400 




; PROCESSOR 


1B2C 

DE 
40EC 


00410 


FLNO: EQU 


1B2CH ;FIND THIS LINE NO = 


00420 


TLNO: EQU 


40ECH ;THIS LINE NO. 


06CC 


00430 


BASCE: EQU 


06CCH ;ROM BASIC ENTRY 


41E6 


00440 


BUFAD: EQU 


41E6H ; COMMAND BUFFER 


4fA4 


00450 


BASPT: EQU 


40A4H ; BASIC PROG BUFFER 


403E 


00460 


PRVRQ: EQU 


403EH ;PREV DEC SIZE 


4040 


00470 


STRLN : EQU 


4040H ; STRING LENGTH 


4041 


00480 


LNPTR: EQU 


4041H jTEMP LINE POINTER 


4043 


00490 

00500 


STRING: EQU 

; 


4043H ; SEARCH STRING 


7ECD 


00510 


ORG 


7ECDH ; 32461 


7ECD 21E37E 


00520 


JEHMN2: LD 


HL, START ; SETUP HOOK 


ADDR 








7ED0 22B341 


00530 


LD 


(CMDHK+1) ,HL 


7ED3 3EC3 


00540 


LD 


A,0C3H ;JP CMD TO ROUTINE 


7ED5 32B241 


00550 


LD 


(CMDHK) ,A 


7ED8 C3CC06 


00560 


JP 


BASCE ;JUMP TO ROM BASIC 


7EDB 2AA440 


00570 


MOVTP : LD 


HL, (BASPT) jPT TO BASIC 


BUFFER 








7EDE CD667F 


00580 


CALL 


LODLA j LOAD LINE NO OF FIR 


ST LINE 








7EE1 1834 


00590 


JR 


BLDC3 ;LIST LINE 


7EE3 F5 


00600 


START: PUSH 


AF .-SAVE REG 


7EE4 D5 


00610 


PUSH 


DE 


7EE5 E5 


00620 


PUSH 


HL 


7EE6 C5 


00630 


PUSH 


BC 


7EE7 3E05 


00632 


LD 


A, 5 ; CHECK FOR NULL CMD 


7EE9 B9 


00634 


CP 


C ;LINE NO WITH NO LINE 


7EEA 2867 


00636 


JR 


Z,EXIT3 JYES RETURN 


7EEC 23 


00638 


INC 


HL ; POINT TO NEXT CHARA 


C IN CMD 








7EED 7E 


00640 


LD 


A,(HL) ;LOAD 1ST BYTE 


7EEE FE22 


00650 


CP 


■■' ;IS THIS A SEARCH RE 


QUEST 








7EF0 2802 


00660 


JR 


Z,PSRX ;YES 


7EF2 FE3A 


00670 


CP 


1 : ' >IS THIS A PACKED SR 


CH REQ 








7EF4 CA8F7F 


00680 


PSRX: JP 


Z.PSRCH j YES 


7EF7 FE2E 


00690 


CP 


'.' ;IS THIS A REQ FOR T 


OP OF BUF 








7EF9 28E0 


00700 


JR 


Z, MOVTP ;YES 


7EFB FE45 


00710 


CP 


'E' J IS THIS AN EDIT REQ 


UEST 






Listing continues 



Still] Searching? 



What Does 
The Bible 



Where? 



■ Ill 



Now you can use computer technology to search the Bible on any subject. With 
THE WORD processor (including a disk copy of the complete KJV Bible text) you 
can create indexes on keywords. Or phrases. Even on concepts. 

A full spectrum of text search functions allows detailed analysis for the real stu- 
dent of the Bible. 

Print or display selected verses and/or 
references for personal study or Bible 
classes. Build your own computerized 
library of research material. 



THE WORD 

processor „, 



Bible Research Systems • 8804 Wildridge Drive • Austin, Texas 78759 • (512) 346-2181 

Requires 48K, 1 disk drive, APPLE, TRS-80, or IBM-PC* ' 'Plus $2.50 postage/handling 

"Trademarks of APPLE Computer, Inc., Tandy Corp., and IBM Corp.. respectively. 



SPIKE-SPIKERS™ 

Protect-Con trol-Organize 

Computers 6 sensitive electronic equipment 

Helps prevent software "glitches", unexplained 

memory loss, and equipment damage 

PROTECTS with transient 
absorber It dual five-stage 
filter. Absorbs power line 
transients k fillers out RFI 
"hash." 

CONTROLS with 8 individ- 
ually switched 1 20 vac 
grounded outlets. Main on- 
off switch, fuse It indicator 
light. 
Deluxe Power Consol* ORGANIZE your computer 
S79.95 » "'her equip power cords. 

No more overloaded octopus 
cube taps. 
2-Socket Plug-In Models 

MINI-I 

Transient absorber only 

$34.95 
MINl-H 

Transient absorber plus 
3-stageRFI"Hash" filter 

$44.95 

4 Socket Plug-In Model with Light 

QUAD-I 

Transient absorber only 

$49.95 
QUAD-II 

Transient absorber plus 
dual 3-stage RFI "Hash" filter 

$59.95 Order Factory Direct 
•M.MA. 2 15-865-0006 

DC IIj W ' 4a5 Oul of State Order Toll Free 

EfccrxooicsCo.lnc. — ■ 

Colony Drive InJ. Park 
6584 Ruch KJ.. Dcpc. 80 
%Jtcihlchcm. I'A I HOP 





PA Res. add 6% 

COD Add 3.00 * Shipping 

Dealers Invited 



TRS-80 Model I is alive and well at the Micromint. 
We still have the expansion interfaces you need! 



Disk-80 
Expansion Interface 




As featured in Ciarcia's Circuit Cellar 
Byte Magazine. March 1981 

Reviewed in March '82 "80 Microcomputing" 

DSK01 Disk-80 Expansion interlace 

with 32k RAM A & I $330.00 

DSK02 Oisk-80 Expansion Interface 
with 32k RAM & Printer Port 
A&T 380 00 

DSK03 Disk 80 Complete Kit with 

32k RAM & Printer Port 275.00 

DSK04 Disk 80 Bare Printed 

Circuit Board 48.00 

DSK05 Printer/ Power Supply 

Circuit Board 16.00 



The Disk-80 Expansion Interface is the 
perfect peripheral for converting your TRS-80 
Model I into a professional computer system. 
The Disk-80 controls up to four 35 to 77 track 
mini-disk drives, and contains a hardware data 
separator which substantially increases the 
reliability of data transfers Attaches to the 
CPU/Keyboard connector and comes complete 
with mini-disk controller. 32K expansion 
memory, power supply, optional Centronics 
compatible printer port, real time clock and 
buffered bus expansion connector. 

"Reviewing Disk-80 is almost incongruous. 
because any comments can be summarized 
with the sentence. "It works " Dennis Bathory 
Kitsz, 80 Microcomputing. March 1982 

All interfaces are Radio Shack hardware and 
software compatible and carry a 60 day war- 
rantee including parts and labor 
All units include user s manual, power sup- 
ply & auxiliary TRS-BUS connector tor future 
-■nr : ;i 

Dealer Inquires Invited 

NY. State residents please add appropriate sales tax 



To Order: Call Toll Free: 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 

MICROMINT INC. 
917 Midway 
Woodmere, N.Y. 11598 




Comm-80 




As featured m Oarcia s Circuit Cellar 
Byte Magazine. May and June 1980 

The COMM-80 is the only interface you 
need to turn your TRS-80 Model I into a 
time sharing terminal with provisions for a 
printer. The COMM-80 combines the most 
used features of the RS expansion inter- 
face in a low cost unit containing a built-in 
RS-232-C interface, a full 8-bit parallel port 
and a 40 pin bus connector for future 
expanstion. Terminal software is included 
at no extra cost. 

• RS-232-C Serial output port (50-19200 baudl 
with standard DB25 connector. 

• Centronics compatible parallel printer port (34 
pin) 

• 40 pin card edge connector for bus expansion 

• Connects directly to CRT terminals modems, 
printers, other computers. 

• includes case, power supply & interconnecting 
cable 



CM01 



COMM-80 Serial/Parallel 
1/0 Interface A&T 



$150 00 



TRS-80 is a trademark of Tandy Corp. 



■ See List of Advertisers on Page 451 
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IXIILDCAT— 

Remarkable Disk Directory 

Catalog System 

For use on Radio Shack TRS-80 Model 

1 and 3 microcofMnters. 

Unique abstract feature permAC^beitkie fee Mm if i/i- 
cation. Catalog include* a HlMVMMNpril from ett&*4ype 
fl« Include* human r. iiljjaty iiiaii^fy^ii r^aSnt cod* 
He*. Contain* ID. natidTdBte. frc»)pacc. HMpcc, and 
r.nwrV ^"' <\ * V- 

Read any *ize dimim/mth^mi 4jM«** dJth ol any (fami l y 
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4 MHz 



FOR THE 



MOD 3 



PC BOARD & DOC 



ONLY $19.95 



THIS EASY TO INSTALL KIT WILL 
DOUBLE THE SPEED OF YOUR MOD- 
EL III COMPUTER. 

COMPLETE KIT $59.95 

ASSEMBLED & TESTED $99.95 

CALL OR WRITE 
J.E.S. GRAPHICS 
P.O. BOX 2752 
TULSA. OK. 74101 

PHONE 19181 742-7104 ^202 



COLOR COMPUTER SOFTWARE 

16-K EXTENDED BASIC 

Adventure word games 

THE ALCHEMIST'S LABORATORY : $14.95 

mix the ingredients yourself 
- LOKARS MAGIC STAFF $14.95 
five crystal statues, the magic staff and a castle 
filled with wild animals 

NIGHT TOWER DESCENT $14.95 
ten lloors Ol danger treasure, and magic are be- 
tween you and freedom 

SQUEEZE $14.95 
arcade style game where aliens close in from both 
sides at once 

GRAPHIC SCREEN EDITOR $16.95 
ceate pictures on the screen using joysticks or 
arrow keys save on tape erase paint and many 
other features 

COLOR SHOW DISPLAYS $8.95 
five graphics programs that ceate endless chanq 
mg patterns 

an programs 16 K extended basic cassette only 
Send for free catalogue. We accept checks, money 
orders, Visa and Mastercharge (no C.O.D.s). 
Please add $1.00 for shipping. Send to: 



REAL SOFTWARE CO. 

P.O. BOX 401 
HOPEDALE, MA 01747 

(617)393-6281 



■Mb 



Mass residents add 5'- sales tax 
* dealer inquiries welcomed ' 
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7EFD 


2002 


00720 




JR 


NZ,CHK2 


CHECK FOR LIST REQ 


7EFF 

C 

7F00 


23 


00722 




INC 


HL 


POINT TO NEXT CHARA 


7E 


00730 




LD 


A,(KL) 


LOAD 2ND BYTE 


7FB1 


FE3B 


00740 


CHK2: 


CP 


' ; ' 


NEXT LINE REQ 


7F03 


2859 


00750 




JR 


Z,FNXT 


YES, FIND CURRENT L 


INE 














7FB5 


FECE 


00760 




CP 


0CEH 


PREV LINE REQ 


7F07 


286A 


00770 




JR 


Z, FPREV 


YES, FIND CUR LINE 


7F09 


FE40 


007 80 




CP 


• gi 


THIS LINE REQ (AT S 


IGN) 














7F0B 


2803 


00790 




JR 


Z, BLDCM 


YES, BUILD CMD 


7F0D 


B7 


00800 




OR 


A 


THIS LINE REQ 


7F0E 


2043 


00810 




JR 


NZ,EXIT3 


;NOT A SHORT N0TAT 


ION 














7F10 
C 

7F13 


3AE641 


00820 


BLDCM: 


LD 


A, (BUFAD) ; RESTORE 1ST CHARA 


FE45 


00830 




CP 


•E' 


•WAS THIS A EDIT REQ 


7F15 


2804 


00840 




JR 


Z,BLDC4 


;YES SET TOKEN 


7F17 


3EB4 


00850 


BLDC3 : 


LD 


A,0B4H 


;LIST TOKEN 


7F19 


1602 


00860 




JR 


BLDC6 




7F1B 


3E9D 


00870 


BLDC4: 


LD 


A,09DH 


;EDIT TOKEN 


7F1D 


21E641 


00880 


BLDC6 : 


LD 


HL, BUFAD 


; BUFFER 


7F20 


77 


00890 




LD 


(HL) ,A 


; STORE IT 


7F21 


23 


00900 




INC 


HL 




7F22 


3E2E 


00910 




LD 


A.2EH 


;THE PERIOD 


7F24 


77 


00920 




LD 


(HL) ,A 


; STORE IT 


7F25 


23 


00930 




INC 


HL 




7F26 


AF 


00940 




XOR 


A 


;LAST BYTE 


7F27 


77 


00950 




LD 


(HL) ,A 




7F28 


CI 


00960 




POP 


BC 


.•RESTORE STACK 


7F29 

T 

7F2D 

OR 

7F30 


ED4B3E40 


00970 




LD 


BC,(PRVRQ) ;PREV REQUES 


2A2040 


00980 




LD 


HL,(4020H) ; PROMPT CURS 


37 


00990 




SCF 






7F31 


3F 


01000 




CCF 






7F32 


ED42 


01010 




SBC 


HL,BC 


jDECR CURSOR POS. 


7F34 


7C 


01020 




LD 


A,H ;WAS DECR PAST START OF 


SCREEN 












7F35 


FE3C 


01030 




CP 


3CH 




7F37 

T 

7F39 


3803 


01040 




JR 


C, NOINC 


;DONT MOVE PAST STAR 


222040 


01050 




LD 


(4020H) , 


HL ; STORE IT 


7F3C 

D 

7F3F 


3AE641 


01060 


NOINC: 


LD 


A, (BUFAD) ;SAVE C0MMAN 


218000 


01070 




LD 


HL,080H 


;DEC FOR LIST 


7F42 


FEB4 


01080 




CP 


0B4H 




7F44 


2803 


01090 




JR 


Z,EXIT0 




7F46 


214000 


01100 




LD 


HL,040H 


;DEC FOR EDIT 


7F49 


223E40 


01110 


EXIT0: 


LD 


(PRVRQ) , 


HL ; STORE IT 


7F4C 


010700 


01120 




LD 


BC,7 


;SET CMD LENGTH 


7F4F 


El 


01130 


EXITl: 


POP 


HL 


; RESTORE REGS 


7F50 


Dl 


01140 




POP 


DE 




7F51 


Fl 


01150 


EXIT4: 


POP 


AF 




7F52 


C9 


01160 




RET 




; RETURN TO ROM PROCE 


SSOR 














7F53 


CI 


01170 


EXIT3: 


POP 


BC 




7F54 


18F9 


01180 




JR 


EXITl 




7F56 


ED5BEC40 


01190 


FLINE: 


LD 


DE,(TLN0) ;FIND CURRENT LIN 


E NO 














7F5A 


CD2C1B 


01200 




CALL 


FLN0 


;USE ROM ROUTINE 


7F5D 


C9 


01210 




RET 






7F5E 


CD567F 


01220 


FNXT: 


CALL 


FLINE 


;FIND CUR LINE 


7F61 


CD667F 


01230 




CALL 


LODLA 


;INCR TO NEXT LINE 


7F64 


18AA 


01240 




JR 


BLDCM 


; BUILD LIST OR EDIT 


CMD 














7F66 

OG 

7F67 


7E 


01250 


LODLA: 


LD 


A,(HL) 


; CHECK FOR END OF PR 


23 


01260 




INC 


HL 


; POINT TO LINE NO. 


7F68 


B6 


01270 




OR 


(HL) 


;END IF ZERO 


7F69 


C8 


01280 




RET 


Z 


j END ENCOUNTERED 


7F6A 


23 


01290 


LODLN: 


INC 


HL 




7F6B 


4E 


01300 


LODLP : 


LD 


C,(HL) 


;L0AD LINE NO. 


7F6C 


23 


01310 




INC 


HL 




7F6D 


46 


01320 




LD 


B, (HL) 




7F6E 


ED43EC4C 


01330 




LD 


(TLNO) ,BC ; STORE IT 


7F72 


C9 


01340 




RET 






7F73 


CD567F 


01350 


FPREV: 


CALL 


FLINE 


(LOCATE CUR LINE 


7F76 


2AA440 


01360 




LD 


HL,(BASPT) ;POINT TO BASIC 


PROG 














7F79 


EB 


01370 




EX 


DE,HL 




7F7A 


EB 


01380 


FPRVl : 


EX 


DE,HL 




7F7B 


5E 


01390 




LD 


E, (HL) 


;LOAD POINTER 


7F7C 


23 


01400 




INC 


HL 




7F7D 


56 


01410 




LD 


D, (HL) 




7F7E 


7A 


01420 




LD 


A,D 


; COMPARE BC-DE 


7F7F 


90 


01430 




SUB 


B 




7F80 


38F8 


01440 




JR 


C, FPRVl 




7F82 


208C 


01450 




JR 


NZ, BLDCM 


7F84 


7B 


01460 




LD 


A,E 




7F85 


91 


01470 




SUB 


C 




7F86 


38F2 


01480 




JR 


C, FPRVl 




7F88 


2086 


01490 




JR 


NZ, BLDCM ;CANT FIND BUT SEND 


COMMAND 












7F8A 


CC6A7F 


01500 




CALL 


Z, LODLN 


;LOAD LINE NO 


7F8D 


1881 


01510 

01520 




JR 


BLDCM 


; BUILD COMMAND 






01530 


} ROUTINE TO 


SEARCH BASIC PROG BUFFER FOR 


GIVEN 
















01540 


; CHAR, - STRING 








01550 
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7F8F 


79 


01560 


PSRCH: 


LD 


A,C 


WAS STRING INPUT 


7F9B 


FE06 


01570 




CP 


6 




7F92 


2053 


01580 




JR 


NZ, LODBF 


;YES LOAD BUFFER 


7F94 


CD567F 


01590 




CALL 


FLINE 


FIND CUR LINE 


7F97 


E5 


01600 




PUSH 


HL 


SAVE PTR 


7F98 


181B 


01610 




JR 


SRCHX 


CONT SEARCH 


7F9A 


CD567F 


01620 


PSRCX : 


CALL 


FLINE ;FIND LOC OF CURRENT L 


INE 




01630 








BC POINTS TO CURREN 


T LINE 
















01640 








HL POINTS TO THE NE 


XT LINE 












7F9D 


E5 


01650 


SRCHA: 


PUSH 


HL 


SAVE POINTER 


7F9E 


03 


01660 




INC 


BC 


SKIP PAST POINTER A 


DDR 














7F9F 


03 


01670 




INC 


BC 




7FA0 


ED434140 


01680 




LD 


(LNPTR) , 


3C ;SAVE POINTER TO 


LINE 


NO 


01690 








;FOR LATER USE ON 


MATCH 












7FA4 


03 


01700 




INC 


BC 


•ADJUST FOR LINE NO 


7FA5 


37 


01710 




SCF 






7FA6 


ED42 


01720 




SBC 


HL,BC 


;N0. OF CHARAC IN TH 


IS LINE 












7FA8 


03 


01730 




INC 


BC ;PT TO START OF LINE TEXT 


7FA9 


C5 


01740 




PUSH 


BC 


; EXCHANGE HL/BC 


7FAA 


E5 


01750 




PUSH 


HL 


; EXCHANGE HL/BC 


7 FAB 


CI 


81760 




POP 


BC 




7FAC 


El 


01770 




POP 


HL 


; RESTORE POINTER TO 


NEXT 


LINE 












7FAD 


114340 


01780 


SRCHK: 


LD 


DE r STRING ;ADDR OF SEARCH S 


TRINC 














7FBB 


1A 


01790 




LD 


A,(DE) 


;LOAD FIRST CHARAC 


7FB1 


EDB1 


01800 




CPIR 




; SEARCH FOR FIRST CH 


ABAC 














7FB3 


280E 


01810 




JR 


Z,SRCH2 


; MATCH FIRST CHARAC 


7FB5 


El 


01820 


SRCHX: 


POP 


HL 


; RESTORE POINTER TO 


NEXT 


LINE 












7FB6 


E5 


01830 




PUSH 


HL 




7FB7 


CI 


01840 




POP 


BC 




7FB8 


5E 


01850 




LD 


E, (HL) 


;LOAD NEXT POINTER 


7FB9 


23 


01860 




INC 


HL 




7FBA 


56 


01870 




LD 


D,(HL) 




7FBB 


EB 


01880 




EX 


DE,HL 


(EXCHANGE REGS 


7FBC 


7C 


01890 




LD 


A,H 


; CHECK FOR END OF BU 


FFER 














7FBD 


B5 


01900 




OR 


L 




7FBE 

H 

7FCB 


20DD 


01910 




JR 


NZ, SRCHA 


;N0, CONTINUE SEARC 


C3CC06 


01920 




JP 


06CCH 


; RETURN GO BASIC 


7FC3 


3A4040 


01930 


SRCH2: 


LD 


A,(STRLN) ,-LOAD STRING 


LENGTH 












7FC6 


B7 


01940 




OR 


A 


;IS STRING A SINGLE 


CHARAC 












7FC7 


280B 


01950 




JR 


Z,SRCH4 


;YES 


7FC9 


47 


01960 




LD 


B,A 




7FCA 


E5 


01970 




PUSH 


HL 


;SAVE LINE POINTER 


7FCB 


13 


01980 


SRCH3 : 


INC 


DE 


;GET NEXT CHARAC 


7FCC 


1A 


01990 




LD 


A,(DE) 




7FCD 


BE 


02000 




CP 


(HL) 




7FCE 


23 


02010 




INC 


HL 




7FCF 


200D 


02020 




JR 


NZ,SRCH6 


;CONT SEARCH 


7FD1 


10F8 


02030 




DJNZ 


SRCH3 




7FD3 


El 


02040 




POP 


HL 


(RESTORE STACK 


7FD4 


El 


02050 


SRCH4: 


POP 


HL 




7FD5 

0. 

7FD8 


2A4140 


02060 




LD 


HL, (LNPTR) ;LOAD LINE N 


CD6B7F 


02070 




CALL 


LODLP 




7FDB 


C3177F 


02080 




JP 


BLDC3 


;REQUST LIST 


7FDE 


El 


02090 


SRCH6 


POP 


HL 


(RESTORE POINTER 


7FDF 


0600 


02100 




LD 


B,0 


(RESTORE COUNTER 


7FE1 


0D 


02110 




DEC 


c 


(MOVE SEARCH POINTER 


1 POS 












7FE2 


28D1 


02120 




JR 


Z, SRCHX 


(CONT SRCH 


7FE4 


23 


02130 




INC 


HL 


(MOVE POINTER 1 POS 


7FE5 


18C6 


02140 
02150 




JR 


SRCHK 


(CONT SRCH THIS LINE 






02160 


;LOAD 


SEARCH 


STRING BUFFER 






02170 










7FE7 


21E741 


02180 


LODBF 


LD 


HL,BUFAD+1 ; POINT TO BU 


FFER 














7FEA 


0600 


02190 




LD 


B,0 


(CLEAR COUNTER 


7FEC 


114340 


02200 




LD 


DE, STRING ;PT TO SRCH 


BUFFER 












7FEF 

ER 

7FPA 


7E 


02210 


LOADB 


LD 


A,(HL) 


(MOVE CHARAC TO BUFF 


B7 


02220 




OR 


A 


(CHECK FOR END 


7FF1 


2806 


02230 




JR 


Z, LOADM 




7FF3 


12 


02240 




LD 


(DE) ,A 


(STORE IT 


7FF4 


04 


02250 




INC 


B 




7FF5 


23 


02260 




INC 


HL 


,-PT TO NEXT CHARAC 


7FF6 


13 


02270 




INC 


DE 


,-PT TO NEXT STRING C 


HARAC 












7FF7 


18F6 


02280 




JR 


LOADB 


(LOOP TIL END 


7FF9 


05 


02290 


LOADM 


DEC 


B 




7FFA 


78 


02300 




LD 


A,B 


(STORE STRING LEN 


7FFB 


324040 


02310 




LD 


(STRLN) 


A 


7FFE 


189A 


02320 




JR 


PSRCX 


;G0 SEARCH 


7ECD 




02330 




END 


JEHMN2 




00000 TOTAL 


ERRORS 











GUESS WHAT? 

Last month we Bold MX-80 Printer 

Ribbons for 814.00 each! 
this month we've gone CRAZTIt 



MX-80 or MX-70 RIBBONS 

NOW 

2 for 015.00 



DISKETTES 

VERBATEM DATA LIFE 
double density 40 track 
box of 10 027.00 a box 

2 or more boxes 825.00 u box 

NASHUA double density 40 truck 
box of 10 £25.00 a box 

2 or more boxes 823.00 u box 

TRS-80* MODEL 111 48K 2-40 truck 
disk drives uud u free eopy of 

MultidosorDosplus just 81,795.00 
plus shipping 



BAIIM HOUSE 
COMPUTER PRODUCTS 

950 Scott Lake Road 
PonMuc, MI 48054 



-184 



WELCOME 

YISA/M.\STKR< WRD/CHEC KS/COI) 



All Software orders subject to JW.00 
shipping uud handling 
313-H83-838H Order Line 
31S-68&9M0 Info Line 
313-683-5076 Data Line 
MI residents add 4% sales tax 

•TKS-HO Is a Irurtcmurk nf Tainly ( orp 



■See List ot Advertisers on Page 451 
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HOME/HOBBY 



Morse Code in color. 



CCCQ 



Michael J. Chuck 

648 Longmeadow Drive 

Severna Park, MD 21146 



It was only a matter of time before I 
decided to merge my two hobbies — com- 
puters and amateur radio. The Radio Shack 
16K Extended Basic Color Computer, well 
shielded against radio frequency interfer- 
ence, makes a very good candidate for a 
Morse code terminal. 

My first step was defining the features I 
wanted in a Morse terminal. After studying 
many ads for Model I terminals, I came up 
with the following wish list for my system: 

• Code speeds of 5-60 words per minute 

• Automatic speed adjustment when re- 
ceiving 

• Split-screen operation 

• Reasonably low cost 



The Key Box 

Color Computer 
Extended Color Basic 
16K RAM 

Amateur radio receiver 
and transmitter 



• Ability to compose messages while re- 
ceiving 

• Menu-driven transmit for pre-made 
messages 

• Transmit buffer to allow typing ahead of 
the keyer 

• Automatic file handling of the QSO infor- 
mation 

• Ability to update the current QSO file 
while receiving 

• Morse code practice feature 

After many program edits, the wish list fi- 
nally became a reality and my Color Com- 
puter was operating on the air. I was so 
pleased with its performance that I decided 
to pass my ideas along to all you hams with 
Color Computers. 

System Description 

Both the transmit and receive routines 
are written in Assembly language to take 
advantage of the higher speed of execution. 
The transmit portion of the program uses a 
look-up table to convert ASCII code to the 
dots and dashes of Morse code. 

Since Morse consists of only dots and 
dashes, a binary number can represent the 
code sequence of a letter. The program 
uses one to represent a dash and zero to 
represent a dot. All code sequences must 
begin with one, however, to distinguish be- 
tween letters that start with dots in Morse. 
For example, the letter S can be repre- 
sented in a table by 00001000 and Z by 
00011100. By performing successive left 
shifts on the binary value, the dots and 
dashes can be peeled off after locating the 
leading one. 



The transmit table begins at hex 3B40, so 
by substituting the ASCII value of the letter 
to be transmitted for the least-significant 
byte (40) the decode address is formed. For 
example, the letter C is hex 43 in ASCII. 
Therefore, at address hex 3B43 the value 26 
is stored (binary 00011010). After removing 
the leading one the code 1010 remains, so 
the letter C (dash dot dash dot) would 
be sent. 

The actual keying is accomplished with 
the cassette motor control relay. By setting 
bit 3 at address FF21 (65313 decimal) the 
relay is energized. After waiting the appro- 
priate time for a dot or dash, bit 3 is reset to 
deenergize the relay. The computer relay 
output at the cassette motor control plug is 
capable of using my Heathkit electronic 
keyer directly. If you attempt to key a 
transmitter directly, however, use a low- 
voltage isolation relay to protect the com- 
puter relay. 

The receive portion of the program uses 
the serial I/O jack on the Color Computer to 
input Morse signals. If bit 1 at address 
65314 is set, data is present on the data in- 
put line (pin 2 of the connector). However, 
the computer requires a signal greater than 
+ 3 volts. An inexpensive two-transistor 
amplifier boosts the receiver phone jack 
signal to a higher level. Since the amplifier 
actually supplies a pulsating dc voltage, a 
digital filter (time delay) was incorporated 
into the receive routine. 

The purpose of the filter is to ensure that 
the computer disregards the high- 
frequency changes in the signal. A filter 
value of 30 is loaded initially. If on high- 
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40 

90 

110 300 

310-400 

410 

430-560 

570-660 

670-740 

750 830 

840 



Entry point o' the transmit mode 

Entry point of the message menu 

Decode of the menu selection 

Code practice generator section 

Entry point of the receive mode 

Store the transmit buffer and scanned 'He data when returm 

Calculate transmit speed factor and store 

Preview canned messages prior to transmission 

File update menu 

Beginning of file-handling routine 



Table 1. HAMSHACK functional-block line numbers 



to the transmit mode 



speed receiving some letters are lost, you 
can relax the filter. Enter Delay from the 
menu, and then a new lower value. The filter 
should be as high as possible (less than 
256) and yet receive properly. 

Decoding data-present signals from 
Morse to ASCII uses the same technique as 
the transmit portion. After loading a leading 
one and shifting left, a zero is loaded if the 
data is present less than two dot times, and 
a one is loaded if the data is present tor 
more than two dot times. A left shift is 
performed after each successive digit is 
loaded. During receive the dot time is 
dynamically adjusted. If data is not present 
for greater than two dot times, the letter is 
decoded and displayed on the upper por- 
tion of the screen. 

The table for decoding received signals is 
located at address hex 3F00. For example, 
the letter A is loaded as 00000101 during re- 
ceive (hex 05). By substituting into the table 
address, 3F05 becomes the decoder ad- 
dress. A PEEK to the decoder address will 
return the number 65, which is the value to 
be POKEd to video RAM to display the 
letter A. 



The Basic calling program is completely 
menu driven. The enter key is used as the 
transmit/receive switch and can be used to 
default to transmit mode from any menu. 
There are five message text buffers that can 
be pre-loaded and called up to transmit via 
the message menu. The up arrow key is 
used to enter the message menu from the 
transmit mode. Any message selected from 
the menu is displayed on the bottom por- 
tion of the screen for review before being 
transmitted. During review, if RST is to be 
sent, enter three numbers instead of a nor- 
mal review reply to change the RST report 
from 599 to the new numbers. 

Also callable from the message menu are 
three utility functions: 

• Speed allows entering a new transmit 
code speed 

• Delay allows entering a new receive filter 
delay value 

• Test sends random code for practice 
While in the transmit mode, the down ar- 
row calls up the current QSO log menu. You 
can make changes in any field from this 
menu. After a QSO is completed it can be 
saved to page 1 of video RAM from this 



Addrais 

1536-3071 

3098-3327 

14653-15167 

15168-15231 

15232 

15233-15234 

15235-15236 

15237-15737 

15738-15978 

15981-15982 

15983-15984 

15985-15986 

15987-15988 

15989 

15990-15991 

15992-15993 

15994-15995 



15996- 

15998- 

16000 

16001 

16002- 

16004- 

16014- 

16016- 

16026- 

16028- 

1S127 



15997 
15999 



16003 
16013 
16015 
16025 
16027 
16126 
16383 



Usaga 

QSO file storage 

M6S (line 7) used to store the transmit text composed during the receive mode 

Transmit routine 

Transmit conversion table (ASCII to Morse) 

Value to POKE to 65313 to turn on cassette relay 

Two times the transmit speed dot time 

Seven times the transmit speed dot time (word spacing) 

Receive routine 

Keyboard scan and character handling subroutine 

M6$ pointer (points to the next POKE position) 

"No data present" timer count on receive. Transmit pointer on transmit (points to posi 

tion of next letter position on the bottom of screen to be transmitted) 

Transmit buffer cursor counter (position on bottom of screen to display next letter from 

the keyboard) 

Top of screen cursor counter 

Value to POKE 65313 to turn off cassette relay 

Six times the receive dot time (used for word spacel 

Four times the receive dot time (used as dash compare for automatic speed adjustment) 

Two times the received dot time (used for dot/dash selection and for element/character 

selection) 

Receive dot time (used tor automatic speed adiustmenti 

Timing counter storage 

Received letter decoder value (value to display) 

ASCII value of last Key input 

Storage position pointer for scan of his name 

Name scan storage area 

Storage position pointer for scan of his call 

Call scan storage area 

Storage position pointer for scan of remarks 

Remarks scan storage area 

Receive Morse to ASCII decoder table 

Table 2. Memory use 



During transmit 

'—Call the message menu 
i — Call the current QSO file update menu 
•—Send A"R 

5 - Send a string of dots (errori 
& — Send SK 
Enter— Switch to the receive mode 

During racaive 

* — Start scanning his name 

t — Start scanning his call sign 

♦ — Start scanning his QTH 

Clear— Stop the scanning process 

Enter — Switch to the transmit mode 



Table 3. Key functions 



menu also. Depending on the amount of 
data in each field of the file, 15 to 30 files 
can be saved to RAM before taping and 
clearing the storage area. 

From the file update menu, reviews, tape 
saves, verifies and more can be done. A veri- 
fy must always be performed after a tape 
save to clear the file storage area. (Be sure 
to replace the cassette motor control plug 
into the cassette and remove this program 
before tape saves.) 

File data is saved to tape as a string with 
field separators as follows: 

STRINGS = "<" + T0S + "%" + T1S + '•%■•+ FQ$ + "V 
HC$4 '%" ♦ HN$ + '•%" + QT$+">" 
T0$ = 0SO start time 
T1$ = 0SO finish time 
FQS = Frequency used 
HC$ = His call sign (station worked) 
HNS = His name 
QTS = His QTH and other remarks 

By performing string searches for the 
separators, the file data can be recovered. 
(How about a program to check for dupli- 
cate QSOs during a contest, or to print the 
log? The log data is all available on tape, so 
let your imagination go and program your 
computer to do a little more of your work.) 

To ease data entry into the log and the 
canned messages, three arrow keys can be 
pressed during receive to scan and file data 
as it is displayed. The other ham's call, 
name and remarks can be scanned by 
pressing i. t, — respectively. The received 
video will be displayed in the inverse mode 
to verify what is scanned. Pressing clear 
stops the scan. Scanning erases any data 
that was in the scanned field of the log from 
a previous receive mode, but it is cumula- 
tive during a given receive mode until re- 
turning to the transmit mode. For example, 
the QTH could be scanned and the scan- 
ning stopped. Later during the same receive 
mode, his rig description may be scanned 
into the same file field. 

While in the receive mode, a message 
can be composed on the bottom of the 
screen. Since this message is POKEd di- 
rectly into M6$ (line 7 of the program), you 
must keep the text in the correct area. Back- 
spacing beyond the start position (print po- 
sition 288) or entering characters beyond 
the end of screen can destroy the Basic pro- 
gram. The technique of POKEing directly to 
a string constant proved to be the fastest 
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method of handling the message when re- 
turning to the transmit mode. 

One of the five message buffer numbers 
may be selected for the text when returning 
to transmit. If none is selected (you press 
only enter) buffer 1 is used. Because of this 
default, message 1 should not be filled 
when starting the program if you plan to 
prepare text while receiving. You may, how- 
ever, change any message during program 
execution by typing during receive and 



Transistor 2N3906 


(RS #276 1604) 


Transistor 2N3904 


(RS #276 1603) 


Diode 1N914 


(RS #276 1620) 


LED and holder 


(RS #276-068) 


Capacitor 01ut 


(RS #272-131) 


Resistor 10K ohms 


(RS #271 034) 


Resistor 5.6K ohms 


(RS #271-031) 


Resistor 330 ohms 


(RS #271-017) 


Resistor 1K ohms 


(RS #271-023) 


Power switch 


(RS #275-602) 


Speaker 2 " 


(RS #40-245) 


DIN Plug 


(RS #26-3020) 


Phone plug '« " 


(RS #42-2377) 


Phone |ack '•« ' 


(RS #274 255) 


Mini box 


(RS #270-251) 


Component board 


(RS #276-160) 


9 volt battery 


(RS #23-464) 


Battery holder 


(RS #270-326) 


Battery clip 


(RS #270-325) 


Table 4. 


Parts list 




Fig. 1. Schematic diagram (see Table 4) 



specifying the appropriate buffer number to 
store the text in. 

If the radio receiver is inactive, press 
enter to return to the transmit mode. After 
a minute or two in the receive mode with 
no activity, the automatic speed compen- 
sation software may not recover properly. 
This is not a problem because the trans- 
mit mode is the desired standby mode. 
From transmit the menu calls are avail- 
able and pressing enter immediately 
switches to the receive mode. 

During transmit a wraparound buffer 
(the bottom portion of the screen) is used 



for typing. As the program sends a charac- 
ter it clears it from the bottom buffer and 
displays it on the top of the screen. This 
allows the typing to be more than 200 
characters ahead of the transmitter. The 
buffer turned out to be a real plus for a 
moderate typist working at five-words-per- 
minute code speed! 

The Interface Amplifier 

Since the audio signal of my radio 
receiver was too low to be detected by the 
RS-232 input, a simple amplifier was re- 
quired. I decided on a very simple circuit us- 



Extended BASIC 



TRS-80 Color Computer 



The Champagne of Software 
For a Beer Budget! 



Over 75 quality programs a year 



for under 75c each! 



Ah. CHROMASETTE Magazine, the toast of the holiday 
season . and any season I A subscription to CHROMASETTE 
Magazine consists of 6 to 8 premium programs ON CASSETTE, 
delivered by First Class Mail to you and your computer every month I 
Tutorials, utilities, games, and practical programs to usher in a great 
new computing year I 

So. celebrate and get a subscription to CHROMASETTE 
Magazine 1 Or just take a little sip and try a back issue. 



The Bottom Line: 

$45 00 

6 months 16 issues! $25.00 

Single Copies 



udenc >*iii 6% io single copies 
North America - First Class postage iro 1 1 
Overseas — add SIO to subscriptions and SI to single copies 
Sent At. 



MasterCard 



The Fine Print: 

luty 1981 aua il i list Pr< Kjratns are for trie Extended BASIC model and occasionally (or disks 



-&vzoma$e±t£ 



Magazine PO Box1087 Santa Barbara, CA 93102 (805)963-1066 
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TRS-80 

Model I 



And In This Corner, 
Another Champion 

CLOAD'S DISK VERSION! 



TRS-80 
Model III 




Get 12 tapes OR disks a year containing over 75 quality programs — without knocking 
out your budget 1 

We finally gave in . . . After over FOUR years of publishing some of the best (aren't 
we pompous), useful and fun programs on tape, we are now offering CLOAD 
Magazine on disk, too! 

A subscription to CLOAD Magazine (tape or disk) consists of 6 to 8 ready-to- load 
programs delivered by First Class Mail every month. What a winner' 

Fight high software prices — Get a subscription to CLOAD Magazine. Or just 

throw a single punch and try a back issue . . . 



The Bottom Line: 








Tape 


Disk 


1 year ( 1 2 issues) 


$5000 


$95 00 


6 months (6 issues) 


$3000 


$5500 


Smgle Copies 






Back Issues 


$ 600 


$11 00 


Good Games # 1 


$1200 


$2300 


Adventures # 1 


$13 00 


$24 00 




(805) 962-6271 

P.O. Box 1448 
Santa Barbara, CA 
93102 



California residents add 6% to single copies. 

North America — F.rst Class postage included 

Overseas - add $ 1 to subscriptions and $ 1 to single copies Sent AO rate 

The Fine Print: 

All issues from Oct 78 available on tape Issues from Oct 82 available on disk, also Ask tor list (24 Level I issues also available) 



MasterCard/ Visa 
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ing parts available from the local Radio 
Shack store. 

The two-transistor circuit rectifies and 
produces a positive output voltage 
whenever a tone is present at the radio 
receiver earphone jack. An LED gives a 
visual indication that the proper level of out- 
put voltage is being supplied to the com- 
puter. In operation the receiver gain is 
adjusted to a level to activate the LED as no 
gain control was placed in the interface 
amplifier circuit. 

Figure 1 shows the schematic for the cir- 
cuit. Table 4 lists the components required. 
I used a general-purpose circuit board and 
just started soldering. Layout is not critical. 
If you can read a simple schematic and do a 
little soldering, you will have no trouble with 
the interface. 

Program Entry 

Since QSO logs are saved in page 1 of the 
video RAM, always perform a PCLEAR1 
when turning on your computer. Hamload 
(Program Listing 1) is run prior to Hamshack 
(Program Listing 2) to load the transmit and 
receive routines. Since Hamload contains 
all of the Assembly-language data, it is a bit 
tedious to key in. Be patient! Errors in data 
statements are difficult to find and have di- 
sastrous results. 

I wrote Hamshack in a packed form to 
conserve memory, so it is also a bit tedious. 



When keying it in, enter lines 5 and 7 exactly 
as listed! The receive routine POKEs direct- 
ly to M6$ and adding a space or changing a 
line number to two digits will cause 
problems. 

Some user-specific information must be 
inserted in lines 130, 140 and 160. Also, 
there is room for two additional messages 
in the message menu. By studying lines 



110-190, the addition should be self- 
explanatory. 

If some day you hear KA9EQD calling CQ, 
please give me a call. My Color Computer 
has been dying to talk to one of his 
own kind!B 

Michael Chuck, a mechanical engineer, 
enjoys amateur radio and model rail- 
roading. 



Program Listing 1 

10 CLS: PRINT" ASSEMBLY LANGUAGE LOADER" :CLEAR10 ,14650:FORK-15237T 

015978:READ A:POKE K f A:PRINT£256 ,K,A:NEXTK 

20 FORK=15979T016127:POKE K,0:PRINTe256 ,K,0:NEXTK 

30 FORK=16157T016382:POKE K, 0:PRINT§256 ,K,0:NEXTK 

40 FORK=16128T016157:READ A:POKEK,A:PRINT@256 ,K,A:NEXTK:POKE1616 

0,53:POKE16161,52:POKE16163,51:POKE16167,50:POKE1616 8,43:POKE161 

70,35:POKE1617 5,49:POKE16176,54:POKE16177,45:POKE16178,47:POKE16 

184,55:POKE16188,56:POKE16190,57:POKE16191,48:POKE16197,38 

50 FORK«=14653T015231:READA:POKEK f A:PRINTe256 f K,A:NEXTK 

60 POKE16204,63:POKE16213»46:POKE16234,59:POKE16237,40:POKE16243 

,44:POKE16248,58:POKE16383,0:CLS:PRINT"LOAD AND RUN hamshack": EN 

D 

70 DATA2 

6,204,0, 

60,204,0 

80 DATA2 

15,134,0 

204,62,1 

90 DATA6 

3,62,111 

3,62,126 

Listing continues 




SAVE MONEY ON 
TRS-80® COMPUTERS 




We have the largest Inventory in the 
Central United States. Immediate 
shipment directly to you from our 
warehouse. 



is Check with us and SAVE 



Call for our 
Prices! 

1-800-835-9056 

Kansas Residents: 
1-316-624-1919 (collect) 



TRS-80 is the registered trademark of Tandy Corporation 



All Inventory 100% TRS-80' Equipment 



* Free Price List 

* No Out-Of-State Taxes 

* F-48 Warranty form 

* Immediate Shipment 



* Payment Methods 
>s Visa or Mastercard 
is Bank Cashier's Checks 
\s Bank Money Orders 
^ Bank Wire Transfers 

Jimscot, Inc. 

1023 N. Kansas — Box 607 
Liberal, Ks. 67901 
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Listing continued 

100 DATA189, 61, 122, 182, 62, 128, 182, 62, 126, 126, 59, 240, 189, 61, 122,1 

82,62,129,129,13,38,1,57,126,59,219,182,255,34,129,7,38,23,252,6 

2,111,195,0,1 

110 DATA253, 62, 111, 189, 61, 122, 102,62,129, 129, 13, 38, 1,57, 126, 60, 2 

6, 126, 59, 133, 18, 252, 62, 126, 179, 62, 122, 45, 8, 182, C2, 128, 139, 1,1 83, 

62,128,252,62,126 

120 DATA17 9, 62, 124, 46, 24, 252, 62, 126, 253, 62, 124, 243, 62, 126, 253, 62 

,122,243,62,122,253,62,120,243,62,122,253,62,118,252,62,126,179, 

62,120,45,43,252,62,126 

130 DATA253, 62, 120, 182, 62, 120, 6 8, 183, 62, 122, 182, 62, 121, 70, 183, 62 

,123,182,62,122,68,183,62,124,182,62,123,70,183,62,125,252,62,12 

0,243,62,122,253,62,118 

140 DATA252, 62, 111, 17 9, 62, 122, 45, 3, 126, 60, 182, 204, 0,0, 253, 62, 126 

,253,62,111,126,59,240,204,0,0,253,62,126,182,62,128,183,60,196, 

182,63,0 

150 DATA183, 62, 128, 182, 62, 129, 129, 94, 39, 26, 129, 10, 39, 49, 129, 9, 39 

,72,182,62,128,128,64,46,8,182,62,128,139,64,163,62,128,126,61,6 

5,252,62,130 

160 DATA253, 60, 255, 195, 0,1, 16, 131, 62, 142, 39 ,3, 253, 62, 130, 182, 62, 

128,183,0,0,126,61,55,252,62,142,253,61,26,195,0,1,16,131,62,154 

,39,3 

170 DATA253, 62, 142, 182, 62, 128, 183, 0,0, 126, 61, 55, 252, 62, 154, 253, 6 

1,53,195,0,1,16,131,63,0,39,3,253,62,154,182,62,128,183,0,0,182, 

62,128 

180 DATA128, 64, 45, 3, 183, 62, 128, 252, 62, 115, 253, 61, 90, 195, 0,1, 16,1 

31,5,0,38,3,204,4,0,253,62,115,182,62,128,183,0,0,252,62,111 

190 DATA17 9, 62, 11 8, 46, 14, 204, 0,0, 253, 62, 111, 134, 1,183, 62, 126, 126 

,59,240,134,1,183,62,128,126,59,169 

200 DATA189, 161. 193, 129, 0,39, 8, 183, 62, 129, 18, 18, 126, 61, 189, 182, 6 

2,129,129,0,39,42,129,94,39,19,129,10,39,17,129,9,39,15,129,13,3 

9,41 

210 DATA129, 12, 39, 14, 126, 61, 232, 30, 137, 30, 137, 30, 137, 30, 137, 126, 

61,212,134,0,183,62,129,126,61,212,204,0,1,30,137,30,137,30,137, 

30,137,18 

220 DATA126, 61, 212, 252, 62, 109, 253, 61, 210, 134, 62, 183, 0,0, 30, 137, 3 

0,137,30,137,30,137,30,137,30,137,30,137,204,0,1,30,137,57,129,8 

,39,79,128,64 

230 DATA45, 37, 252, 62, 109, 253, 62, 12, 195, 0,1, 253, 62, 109, 252, 62, 113 

,253,62,15,195,0,1,253,62,113,182,62,129,183,0,0,183,0,0,18,126, 

62,101 

240 DATA252, 62, 109, 253, 62, 49, 195, 0,1, 253, 62, 109, 252, 62, 113, 253, 6 

2,54,195,0,1,253,62,113,182,62,129,183,0,0,139,64,183,0,0,126,62 

,101 

250 DATA252, 62, 109, 131, 0,1, 253, 62, 77, 195, 0,0, 253, 62, 109, 134, 32,1 

83,0,0,252,62,113,131,0,1,253,62,97,195,0,0,253,62,113,134,96,18 

3,0,0 

260 DATA1 8, 18, 134, 0,1 83, 62, 129, 57 

270 DATA0, 32, 69, 84, 73, 65, 7 8, 77, 83, 85, 82, 87, 68, 7 5, 71, 7 9, 72, 86, 70, 

0,76,0,80,74,66,88,67,89,90,81 

280 DATA204, 12, 126, 253, 62, 109, 182, 62, 114, 177, 62, 112, 3 9, 57, 182, 62 

,112,183,57,105,183,57,97,139,1,129,255,38,2,134,32,183,62,112,1 

82,5,0,183,62,130,134,96,183,5,0 

290 DATA1 82, 62, 116, 183, 57, 128, 139, 1,129, 255, 38, 2, 134, 0,183, 62, 11 

6,182,62,130,183,4,0,126,57,166,189,61,122,182,62,129,129,13,39, 

23,129,10 

300 DATA39, 19, 129, 94, 39, 15, 182, 62, 114, 129, 255, 3 8, 5, 134, 32, 183, 62 

,114,126,57,61,57,182,62,130,183,57,174,182,59,0,183,62,130,120, 

62,130,37,76,120,62,130,37,84,120,62,130,37,92 

310 DATA120, 62, 130, 37, 100, 120, 62, 130, 37, 108, 120, 62, 130, 37, 116, 12 

0,62,130,37,124,204,0,0,195,0,1,253,62,126,189,61,122,182,62,129 

,129,94,39,14,182,62,114,129,255,3 8,5,134,32,183,62,114,32,1,57, 

252,62,126,16,179,59,131,38,216,126,57,61 

320 DATA120, 62, 130, 37, 5, 189, 58, 205, 32, 3, 189, 58, 148, 120, 62, 130, 37 

,5,189,58,205,32,3,189,58,148,120,02,130,37,5,189,58,205,32,3,18 

9,58,148 

330 DATA120, 62, 130, 37, 5, 189, 58, 205, 32, 3, 189, 58, 148, 120, 62, 130, 37 

,5,189,58,205,32,3,189,58,148,120,62,130,37,5,189,58,205,32,3,18 

9,58,148 

340 DATA120, 62, 130, 37, 5, 189, 58, 205, 32, 3, 189, 58, 148, 204, 0,0, 195,0 

,1,253,62,126,189,61,122,182,62,129,129,13,39,22,129,10,39,18,12 

9,94,39,14,182,62,114,129,255,38,5,134,32,183,62,114,32,1,57,252 

,62,126,16,179,59,129,38,208,126,57,61,182,59,128,183,255,33 

350 DATA204, 0,0, 195, 0,1, 253, 62, 126, 189, 61, 122, 182, 62, 129, 129, 13, 

39,22,129,10,39,18,129,94,39,14,182,62,114,129,255,38,5,134,32,1 

83,62,114,32,1,57,252,62,126,16,179,59,129,38,208,182,59,128,183 

,255,33,204,0,0,195,0,1,253,62,126,189,61,122,182,62,129,129 

360 DATA13, 39, 22, 129, 10, 39, 18, 129, 94, 39, 14, 182, 62, 114, 129, 255, 38 

,5,134,32,183,62,114,32,1,57,252,62,126,16,179,62,107,38,208,182 

,62,117,183,255,33,204,0,0 

370 DATA195, 0,1, 253, 62, 126, 189, 61, 122, 182, 62, 129, 129, 13, 39, 22, 12 

9,10,39,18,129,94,39,14,182,62,114,129,255,38,5,134,32,183,62,11 

4,32,1,57,252,62,126,16,179,62,107,38,208,57 

380 DATA128, 5, 24, 26, 12, 2, 18, 14, 16, 4, 23, 13, 20, 7, 6, 15, 22, 29, 10, 8, 3 

,9,17,11,25,27,28,0,0,0,0,0,0,85,0,42,0,0,69,0,109,109,0,40,115, 

49,85,58,63,47,39,35,33,32,48,56,60,62,120,106,0,0,0,76 

390 END 




THE KING 

OF 

UTILITIES 

SUPER UTILITY PLUS 

"I believe 

SUPER UTILITY or 

SUPER UTILITY PLUS 

should be present at 

every TRS-80 disk 

installation. " 

We didn't say this; Paul Wiener did in 80 
Microcomputing, Jan. '82. ..but u>e sure 
agree with him! 

You heard about it! You read about it (80 
Microcomputing). Now get the "cadillac" 
at a special price! 

Compatible with MOD I, and MOD III, and 
all the current operating systems! Copy 
files from any DOS to any DOS. MOD I or 
III, without converting! 

Zap 

Purge 

Format 

Special Format 

Disk Repair 

Memory 

Hie Utility 

Tape Copy 

Format without erase 

Disk Copy 

Special Disk Copy 

Configurable System 

MUCH MORE Mod I & Mod III on Same Disk 

For MOD I/III . . . $74.95 

NEW 

Back up copy NOW included 



Abo Available: 

Super Utility Phis Tech. Manual. . . $14.95 

"Inside Super Unity Plus" $19.95 



A Division of Breeze/QSD, Inc. *" 
1 1500 Stemmons Fwy.. Dallas, Texas 75229 
To order call toll free 1-800 527 7432 
For product information (214) 484-2976 



^ See List of Advertisers on Page 451 
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The Spelling Bee Is Over 



Listen. We're going to let you in on an 
industry secret: It's not hard to make a good 
spelling checker. 

You see, although spelling checking is new 
for microcomputers, it's been around on big 
computers lor years. And when you get past all 
the talk, most spelling checkers work the same 
way. They compare what you've written with a 
dictionary -and report the errors. 

So is there any difference? You bet: the 
dictionary, and the price. 



Who Checks The Checker? 

The hardest part of a spelling checker to 
make is the dictionary. It's hard to pick the right 
words— and spell every one of them perfectly. 
That's why some popular spelling checkers don't 
even contain real dictionaries. They use formulas 
called 'hash tables." Which make a hash 
out of your spelling some of 
the time. 

Other spelling 
checkers "borrow" 
their words from 
printed dictionaries 
—or copy them 
from old word 
lists. Or give 
a programmer 
who can't spell 
"programmer" 
a chance to write his 
first dictionary. And 
as though all this 
wasn't bad enough, 
a lot of these 



-**>' 




companies want to charge you S 1 00. or S200 or 
even §300! 

Random House to the Rescue 

The Random House ProofRcadcr is based 
on the famous Random House Dictionary. It is 
the result of decades of careful work. And it was 
adapted for computer spelling checking by- 
professional editors, linguists and scholars. So you 
can depend on it. 

( )f course, our program is dam good, too. 
It's fast It doesn't take up tcx> much disk space. It 
shows you the error and the sentence it's in. It 
lets you correct the mistake without reediting. 
And if you don't know how to spell a word, it 
suggests the spelling. It even corrects 
your correction. 

Hie Random House ProofReader 
comes in sizes to fit all systems: 
20,000 words ( 55K), 32,000 
words ( 74K ). 50.000 words 
( 1 08K. ) and 85,000 words 
( 180K). You can add your 
own words widi a single 
keystroke. And it 
works with all CPM\ 
IBM Personal 
Computer 5 , and 
TRS-80- Model I/IH 
word processors.* 
How much docs 
the Random 
House 
ProofReader 
cost? Only S 50.00. 
Why do we sell it 
for S 50 when the 
others want 
up to 1300? 
Don't ask us. Ask them. 







The Random House 
ProofReader $ 50 

.-65 

For orders (X 1 information, call 505*281- 1634. VISA. MasterCard accepted Or write Random House ProofReader. Box 339-M, 
Tijcras, New Mexico 87059. Please enclose 150 and specify your computer mtxlcl. disk size and memory. Dealer inquiries invited. 

* Kjir1i.hi Houm and ilit Home design are revered trademarks <>l Random Home ln« < P M is ■ regbtcred 1r.1dcm.1rk of Digital Research. Im Fits ho is a trademark ..f Tamlx < orrx .ration 
IBM and IBM Personal Computer arc registered trademarks of lmrrruiion.il Business Machines ( orp Dictionary copyright c '*>**- Random House Inc Program and ad\rrtiscmcm 
copyright C l<)HJ Aspen Si .In* arc In. ITir I Ks so vrrsumsdonoi suggest i i.rrei I spellings 
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Program Listing 2 



5 CLEAR2000 ,14650 

7 M6$-"THIS STRING IS USED TO PASS THE TRANSMIT BUFFER INFORMATI 
ON FROM ASSEMBLY LANGUAGE TO THE BASIC MENU PROGRAM — IT IS ENT 
ERED AS 230 DUMMY CHARACTERS 1 1 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" 

10 CLS:INPUT"WPM";S:GOSUB570:CLS:K-PEEK(65313) :POKE15989 f K:S=K 

R 8:POKE15232,S:RS$="599":R4=1536:DEFUSRl=15282:DEFUSR2=14653 

20 INPUT-YOUR CALL" ;CS$:CLS:GOSUB1220: PRINT-MESSAGE #1" ; :PRINT@6 

6, ""; :INPUTM1$:CLS:GOSUB1220:PRINT"#2"; ! PRINT866,"" > :INPUTM2$:CL 

S:GOSUB1220 : PRINT"#3" ; : PRINT066 , ■ » , s INPUTM3$: CLS:GOSUBl220: PRINT 

"#4"; :PRINT@66,""; : INPUTM4$:CLS:GOSUB1220: PRINT" #5" ; 

30 PRINTe66,"";:INPUTM5$:CLS:POKE15985,5:POKEl5986 r 32 

40 POKE16001,0:PRINT@256, "TRANSMIT MODE"; :GOSUB680 : POKE15987 ,4:P 

OKE15988 F 0:POKE15983,5:POKE15984,32 

50 K=USR2(0) 

60 K=PEEK(15989) :POKE65313,K 

70 IF PEEK(16001)=10 GOTO750 

80 IF PEEK(16001)=13 GOTO410 

90 GOSUB670:POKE15 985,5:POKE15986,32 

100 PRINT0265, "MESSAGE MENU" : PRINT: PRINT "CQ CALL QTH RIG 
OVER NAME RST 73 QRM ANS 12 3 4 
5 TEST DELAY SPEED" : INPUT"SELECT" ; AS 

110 IFA$="CQ" THEN X$="CQ CQ CQ DE "+CSS+" K ":GOTO690 

120 IFA$="CALL" THEN X$=HC$+" "+HC$+" DE "+CSS4" KN ":GOTO690 

130 IFA$="QTH" THEN X$="QTH QTH ENTER YOUR QTH HERE !":GOTO690 

140 IFA$="RIG" THEN X$="RIG HR IS ENTER YOUR RIG HERE -":GOTO690 

150 IFA$="OVER" THEN X$="BK TO U "+HCS+" DE "+CS$+" KN ":GOTO690 

160 IFA$="NAME" THEN X$-"NAME IS ENTER YOUR NAME -":GOTO690 

170 IFA$="RST" THEN X$="RST RST "+RS$+" "+RSS+" - ":GOTO690 

180 IFA$="73" THEN X$="73 TO U AND URS "+HN$+" . HP TO WK U AGN S 

OON. DE "+CS$+" K ":GOTO6 90 

190 IFA$="QRM" THEN X$="QRM QRM PSE TRY AGN. DE "+CS$+" KN ":GOT 

0690 

200 IFA$="1" THEN X$=M1$:GOTO6 90 

210 IFA$="2" THEN X$-M2$:GOTO6 90 

220 IFA$="3" THEN X$=M3$:GOTO690 

230 IFA$="4" THEN X$=M4$:GOTO690 

240 IFA$="5" THEN X$=M5$:GOTO6 90 

250 IFA$="ANS" THEN XS=HC$+" DE "+CS$+" R R - OK ON L*ST XMIT "+ 

HNS+" - ":GOTO690 

270 IFA$="SPEED" THEN GOSUB670: PRINT@256 , "NEW WPM" ;: INPUTS :GOSUB 

570:GOSUB670:GOTO40 

280 IFAS= B DELAY" THEN GOSUB670 : PRINT@256 , "NEW FILTER DELAY"; :INP 

UTK:IFK<256 THEN POKE15242 ,K :GOSUB670 :GOTO40 ELSE PRINT'VALUE TO 

O LARGE": FORK =1 TO 100:NEXTK:GOTO280 

290 IFA$="TEST" GOTO310 

300 GOSUB670:GOTO40 

310 X$="":FORKK=1TO30:FORJJ=1TO5 

320 K=RND(47)+40:IFK-41 THEN K-35 

330 IFK=42 THEN K=38 

340 IFK-43 THEN K=40 

350 IFK>59 AND K<63 THEN GOTO320 

360 X$=X$+CHR$(K) 

370 NEXTJJ 

380 X$-X$+" " 

390 NEXTKK 

400 A$="S":GOTO710 

410 CLS:PRINT§256, "RECEIVE MODE" :PRINT$0 , "" ; :POKEl5996 ,0 

420 K»=USR1(0) :CLS:K=PEEK(15982)-26 

430 M7$=LEFT$(M6$,K) 

440 INPUT"BUFFER NUMBER (1-5)";K:0N K GOTO450,460 , 470 , 480 ,490 

450 M1$=M7$:GOTO500 

460 M2$=M7$:GOTO500 

470 M3$=M7$:GOTO500 

480 M4$=M7$:GOTO500 

490 M5S=M7$ 

500 IFPEEK (16003) =132 GOTO520 

510 HN$="":FORK=132TO PEEK (16003) : L=PEEK( 15872+K) :HN$«HN$+CHR$ (L 

):NEXTK:IF RIGHT$ (HN$,1) =" " THEN K=LEN (HN$) -1: HN$«LEFT$ (HN$,K) 

520 IFPEEK(16015)«144 GOTO540 

530 HC$="":FORK=144TO PEEK(16015) : L=PEEK( 15872+K) :HC$=HC$+CHR$(L 

):NEXTK:IF RIGHT$ (HC$, 1) =» " THEN K=LEN (HC$) -1 : HC$=LEFT$ (HC$,K) 

540 IFPEEK(16027)=156 GOTO560 

550 QT$="":FORK=156TO PEEK (16027) : L-PEEK (15872+K) :QT$-QT$+CHR$(L 

):NEXTK:IF RIGHT$ (QT$,1) =" " THEN K=LEN (QT$) -1 :QT$=LEFT$(QT$,K) 

560 CLS:POKE15985,5:POKE15986,32:GOTO40 

570 IFS<7.4 THEN S=150+31 . 25* (7 . 4-S) :GOTO660 

580 IFS<9.6 THEN S-115+15. 9091* ( 9.6-S) :GOTO660 

590 IFS<13 THEN S=85+8.8235* (13-S) :GOTO660 

600 IFS<16.8 THEN S=65+5 .2632* (16.8-R) :GOTO660 

610 IFS<22 THEN S=50+2. 8846* ( 22-S) :GOTO660 



Listing continues 




This Special Limited l.dition Patkage will be in high 
demand as only 500 copies will be made Ihev will be 
numbered I -500 and will be personally signed bv the 
authoi. Kim Watt YOUR name will be embedded in the 
program as the serial number The following is included 
with this SPTCIAl LIMITED PACKAGE 
I ) SUPT.R CJT1UTY PUIS S F in CMD Tile Format. 
Both MOD I and III versions are included, and your 
NAME will be the serial numbei I his will NOT be a 
prote<1ed disk, and you mas make as many BACKUPS 
as you wish The serial number is NOT changeable 

21 TWO attractive SU • St binders 
Binder * 1 will m< lude 

Three manuals in LARGt format 1 8 '. 2x1! I 
la) SUPER UTILITY • Manual 

(b) INSIDER SUPER UTlLrTY by Paul Wiener 
foreward by Kim Watt 

(c) SUPtR UTILITY TECH Manual b\ Kim Watt F, 
Pete Can 

3) Binder *2 will include IHt SOURC't. CODL tor 
SUPFR UTI1 ITY PI (IS 

Yes the SOURCt CODt. to tins MAJOR program will 
be available to 500 programmers This is TULLV 
commented by the author, Kim V^att and is a machine 
language programmer's dream come true' After 
reading this, your machine language programming skill 
should increase tremendously All of Kim's knowledge 
in ONE book! All at your disposal and for YOUR use ' 

4) The license to USF Kim Watt's sub routines 

will be granted to those 500 registered owners' F hese 
500 ONLY will be able to apply all ol Kim's magk to 
THEIR programs No royalty fee necessary In other 
words. IMPROVF YOUR PROGRAMS! Take Kim s ideas 
and expand on them! Never has anything tVtR been 
done like this before I hese 500 ONLY have the right to 
use our subroutines This information is NOT being put 
in the public domain We are allowing these 500 to use 
our routines by buying our special package All copy 
nghts and trademarks are retained bv Breeze QSD. Inc 

5) SU* St is NOT available Irom any dealer but only 
directly through Breeze QSD Inc Customers will be 
handled on a one-on one basis Confirmed orders wili 
be pre registered and a matching card must be returned 
by purchaser tor full support from Breeze QSD Inc We 
will know who each and every owner is. so full support 
can be given We DO want you to sign and return our 
registration card for this support to commence, 
however. No exceptions will be made 

6) This is a very important step that we are taking and 
only a select group can appreciate the value in a 
package like this. This is NOT for the general mass 
market It is a college education in machine language 
written by a recognized expert It IS SU' in CMD tile 
form It is a license to use Kim Watt s subroutines llisan 
opportunity to vastly improve your product It is a 
collector 5 item, also I irnited. Indeed Last but not least 
it is expensive. On the surface only, however, as this 
product will make you an expert programmer if that is 
what you want You can literally write a DOS from 
studying the code' It will also make you a member of an 
elite group that has access to Kim's knowledge and can 
USE that knowledge to YOUR benefit 

Source Code is FULLY Commented 

Price for the Super Utility Plus- 
Special Edition is 
$500 

Available later this year 

Call or write for more information 

•Credit to Kim Watt and Breeze QSD must be given in the 

program and in the documentation for sub routines used 

There is NO royalty fee to pay however 



A Division of Breeze QSD. inc. 

1 1500 Stemmons Fwy.. Dallas. Texas 75229 
To order call toll free 1-800 527 7432 

For product information (214) 484 2976 



■ See List ol Advertisers on Page 45 1 
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Decision Sunn v Software 



OPERATIONS 


STATISTICAL 


ECOPAK 


RESEARCH 


PACKAGE 




LP 


REGRESS 


FUTURE VALUE 


DT NAM 


MULTI-REG 


ANNUITY 


NETWORK 


MATRIX 


EFFECTIVE i 


PERT 


FUTURE 


DEPR 


EOQ 


FORECASTING 


SALVAGE 


LOT SIZING 


MARKOV 


NET PRESENT 


FORECASTING 


QUEUE 


VALUE 


DECIDE 


SIMULATION 


DCF RATE OF 


MRP 




RETURN 


TRANSPORTATION 




TRS- 


80' model land III 


APPLE II 




16 K- 


I Disk Drive 





nimmum system requirement 



$29.95 to 249 95 



OISCOUNTS 

for information 



(PLC ORDERS 



DECISION SCIENCE SOFTWARE 
865 Castle Ridge Road 
Austin, Texas 78746 

(SI2) J27-I463 MBI 

^ 394 WS/T 

'trademark of the Tandy Corp 



w& 



SAVEMONEY 
BUY D|RECI 



o/ RADIO 
SHACK 

EQUIPMENT 




UP TO 20°/oOFF TRS 80 ™ SOFTWARE 



(, 



Ijg.i&X&v^SPKlb 



Similar Discounts On 
All TRS 80 v Equipment 



Model III .... *1849 

2dtrs 232 26- '066 



Daisy wheel 

Printer II » <*. s 1589 



Line Printer VIII. s 499 



• "Profile" s 60 

iFor Mod Mi 26-1562) 

• "Scripsit" s 75 

(For Mod III 26-1563) 



FREE PRICE LIST 

GSB Electronics 

Cherry Hill Mall 
Cherry Hill. NJ 08002 

►-492 

TOLL FREE 
800-257-5225 

in NJ (609) 779-8877 

TM-TANDV CORP 



NEW PRODUCT RELEASE FROM WINN & HARRISON 

THE CHECK RECORDING SYSTEM 

MENU DRIVEN PROGRAMS USE SELF-EXPLANATORY SCREEN DISPLAYS 

EASY DATA ENTRY AND FAST RECONCILIATION 

STORES OVER 3,000 CHECKS ON A SINGLE MODEL III DISKETTE 

CLASSIFY CHECKS WITH UP TO 150 CLASSIFICATION CODES 

COMPLETE USER AND PROGRAMMER DOCUMENTATION 

REQUIRES MODEL I OR MODEL III, 48K, ONE DISK, PRINTER 



$29.95 



VISA & MASTERCARD WELCOME 
ADD $2.00 SHIP & HANDLE 
WV RESIDENTS ADD 5Z S.T. 
MONEY BACK GUARANTEE 



WTNN & HARRISON 
241 N. HILLS DR. 
NORTH HILLS, WV 26101 
(304) 428-7098 



.:,.:■■ 



CONVERT YOUR SERIAL PRINTER TO PARALLEL 



The UPI serial printer interfaces allow an ASCII serial printer 
to be connected to the parallel printer port on TRS-80 
Models I, II and III. 

Software compatibility problemsaie totally eliminated because 
the TRS-80"Thinksthat a parallel printer has been attached. 
No machine language driver needs to be loaded into high 
memory. VISACALC. SCRIPSIT. BASIC. FORTRAN, etc all 
work as if a parallel printer was in use. 

The UPI interfaces are completely selt contained and ready 
to use. A 34 conductor cable and connector plugs onto the 
parallel printer port of the Model I expansion interface or 
onto the parallel printer port on the back of Models II and 
III. A DB25 socket mates with the cable from your serial 
printer. The UPI interfaces convert the parallel output of the 
TRS-80 printer port into serial data in both the RS232-C and 
20 MA. loop formats. 



bd 



BINARY DEVICES 

Formerly SPEEDWAY ELECTRONICS 
11560 TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 
(317) 842-5020 ^ 106 



TRS 80 is j Irjdpmdik ol Tandy 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per word 

• Parity or no parity 

• ODD or EVEN parity 

NEW VARIABLE BAUD RATE MODELS 

Switch selectable from 110-9600 BAUD 

UPI-3VB for models I or III $149.95 

UPI-2VB for model II $149.95 

UPI-3VB-6 for model I or III with 6 ft. cable $159.95 

UPI-2VB-6 for model II with 6 ft. cable $159.95 



Shipping and handling on U.S. orders. 



$4.00 



90 day warranty on all interfaces, ten day return privilege. 
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Listing continued 

620 IFS<27.2 THEN S=40+l . 9231* ( 27 .2-S) :GOTO660 

630 IFS<36 THEN S=30+1.1364* (36-S) :GOTO660 

640 IFS<54 THEN S=20+.5556* (54-S) :GOT066fl 

650 S=53:GOTO640 

660 JJ=INT(S/256) :KK=S-JJ*256: POKE15979, JJ: POKE15980 ,KK:K = 2*S: JJ 

=INT(K/256):KK=K-JJ*256:POKE15233,JJ:POKEl5234,KK:K=6.5*S:JJ-INT 

(K/256) :KK=K-JJ*256:POKEl523 5, JJ: POKE15236 ,KK: RETURN 

670 PRINTe256,STRING$(255," "): RETURN 

680 PRINT@0,STRING$(255," ") : PRINT@0 , "" ; :PETURN 

690 GOSUB670:PRINTg256 r X$:PRINT?480,"S=SEND MESSAGE ";CHR$(94); 

"=MENU"; : INPUTA$:GOSUB6 80 

700 IFA$=CHRS(94) GOTO90 

710 IFA$="S" THEN GOSUB670 : PRINTG288 r X$; : K-LEN (X $) +32 : POKE15986 , 

K:GOTO40 

730 IF LEFT$(XS,3)="RST" THEN RS$-A$:X$="RST RST "+RS$+" "+RS$+" 

- ":GOTO6 90 /• 

740 GOSUB670:GOTO40 

750 POKE15985 , 5 : POKE15986,32 :GOSUB670 : PRINTg26 5 , "UPDATE MENU" :PR 
INT"C= ";HC$;:PRINT TAB(15)"N- " ;HN$:PRINT"F- ";FQ$;:PRINT TAB ( 1 
5)"X-START= ";T0$:PRINT"?= ■ ?QT$:PRINT"S-SAVE" : INPUT"SELECT" ;X$ 
760 IFXS="C" THEN GOSUB670: PRINT§256 , "CALL=" ;HC$: INPUT'ENTER HIS 

CALL" ; HC$ : G0T07 50 
770 IFX$="N" THEN GOSUB670 : PRINT3256 , "NAME=" ;HN$: INPUT'ENTER HIS 

NAME";HN$:GOTO7 50 
780 IFX$="F" THEN GOSUB670 : PRINT§256 , "FREQ-" ;FQ$: INPUT'ENTER THE 

FREQ" ; FQ$: G0T07 50 
790 IFX$-"X" THEN GOSUB670 : PRINT8256 , "START TINE-" ;T0$: INPUT'ENT 
ER THE START TIME" ;T0§:GOTO7 50 

800 IFX$-"/" OR X$ = "?" THEN GOSUB670 : PRINT§256 ,"REMARKS«=" ;QT$: IN 
PUT" ENTER REMARKS <QTH) " ;QT$:GOTO7 50 
810 IFX$=CHR$(94) GOTO90 
830 IFX$<>"S" THEN GOSUB670:GOTO40 

840 GOSUB670:PRINTe256, "ENTER THE STOP TIME"; x INPUTT1$:GOSUB670 
850 PRINT§265,"FILE MENU" : PRINT" T-TAPE ALL FILES" x PRINT" S-SAVE C 
URRENT FILE TO RAM" : PRI NT "V« VERIFY TAPE DATA"* PRINT "R-RE VIEW FIL 
ES":PRINT"Q»RETURN TO FILE DATA" : INPUT"SELECT" ;X$ 
860 IFX$="Q" GOTO750 
870 IFX$="T" GOTO920 
880 IFX$="S" GOTO950 
890 IFX$="V" GOTO980 
900 IFXS="R" GOTO1050 
910 GOSUB670:GOTO40 

920 GOSUB670:PRINTe256,"SET CASSETTE TO RECORD" : INPUT"PRESS ENTE 
R";A$:OPEN "O" , #-1, "FILE" 

930 FORKK«=1536TO3071: PRINT #-1 ,PEEK (KK) tNEXT 
940 CLOSE #-l:GOTO7 50 

950 X$="<"+T0$+"%"+Tl$+"%"+FQ$+"%"+HC$+"%"+HN$+"%"+QT$+">":AL»30 
71-R4:LS-LEN(X$) : IFLS>AL THEN GOSUB670 : PRINT@256 , "NO ROOM LEFT1" 
: FORKK=1TO3000 : NEXTKK : GOT07 50 

960 F0RKK=1 TO LS: A$-MID$(X$,KK,1) : JJ=ASC(A$) : POKE R4-1+KK, JJ: NE 
XTKK 

970 R4-R4+LS:HC$="" :HN$="" :QT$-"" :T0$=T1$:RS$="599" :GOTO750 
980 ON ERROR GOTO1030:GOSUB670: PRI NT §2 5 6 , "SET CASSETTE TO PLAY": 
INPUT"PRESS ENTER" ;A$: OPEN "I " , #-1 , "FILE" 
990 ON ERROR GOTO1040 :FORKK = 1536TO3071 : INPUT #-1 ,K: IFKOPEEK (KK) 

THEN PRINT" ERROR" 
1000 NEXTKK: INPUT*CHECK COMPLETE PRESS ENTER" :A$ 

1010 INPUT'CLEAR FILE (Y/N)";A$:IF AS-"Y" THEN R4 = 1536: FORKK«=153 
6 TO 3071: POKE KK,0:NEXTKK 
1020 CLOSE #-l:GOTO750 

1030 PRINT"ERROR":FORKK=1TO3000:NEXT:GOTO750 
1040 PRI NT" ERROR": NEXTKK 
1050 W2=1536 

1060 KK-0:F0$-"":F1$="":F2$="":F3$="":F4$-"":F5$-"" 
1070 JJ=PEEK(W2) :IFJJ»62 GOTO1180 
1080 IFJJ=37 THEN KK=KK+1 :GOTO1160 
1090 IFJJ=»60 GOTO1160 
1100 IFKK«=0 THEN F0$-F0$+CHR$(JJ) 
1110 IFKK=1 THEN F1$»F1?+CHR$ ( JJ) 
1120 IFKK=2 THEN F2$=F2$+CHR$ ( JJ) 
1130 IFKK-3 THEN F3$»F3$+CHR$ (JJ) 
1140 IFKK=4 THEN F4$=F4$+CHR$( JJ) 
1150 IFKK-5 THEN F5$=F5$+CHR$ (JJ) 
1160 W2-W2+1:IFW2>R4 GOTO750 
1170 GOTO1070 

1180 W2=W2+l:GOSUB670:PRINTe266,"FILE REVIEW" :PRINT"C=«" ?F3$; : PRI 
NT TAB(15) "N=";F4$:PRINT"F=";F2$;:PRINT TAB(15) "X=";F0$;" ";F1 
S:PRINT"7=";F5$:INPUT"Q=QUIT P=PROCEED";X$ 
1190 IFX$="Q" GOTO750 
1200 IFX$="P" GOTO1060 
1210 GOTO1180 

1220 PRINTe32.STRING$(32,"-"):PRINTe256,STRING$(32,"-"):PRINTe0, 
" " ; : RETURN 
1 230 END 
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THE MOST POWERFUL, FLEXIBLE 

DISK MAILING SYSTEM FOR THE TRS80 

'SUPPORTS 65,000 NAMES* 

PowerMAIL is a highly sophisticated 
mass mailing system designed to run 
under all of the popular DOS's currently 
available for the Mod I or III. The program 
is written entirely in machine language for 
maximum operation speed and occupies 
only 4K of the available RAM in your 
computer. There are no slow' periods 
when PowerMAIL is running. New 
features have been added to the program 
that others have always lacked. You now 
have the ability to keep track of mailings 
using the 24 'flags' that are incorporated 
into the PowerMAIL program. The 
PowerMAIL system will handle a file up to 
8 megabytes, or 65535 names, whichever 
is smaller. The program will run in as little 
as 32K and one disk drive, although 48K 
and 2 drives are desirable. The program 
will also sort the entire maximum file size 
and open up to 1 68 files simultaneously 
during the process Author Kim Watt 

For MOD I/IH...$ 99.95 

Hundreds of Satisfied 
Users... Scriplus 3.0 

Scriplus is a modification to 
Scripsit*'" which enables you to take 
advantage of the special functions, 
features, and print formats of your 
printer while your document is being 
printed. Allows you to: 

changa «Mp«nd«d print 
change no. of ckirtctrri par inch 
or yndfrlinf in aid- 1 ma' 

Features 

a Compatible with all current DOS s 1 1 ot III) 

a Modifies ALL versions of SCRIPSfT" 

a Allows usaqe of MOD I version on MOO II 

a Allows .MOD III versions to be BACKtD UP for your 

protection 
a Files can be killed loaded, merged, or chained from 

the Scriplus directory 
a Scnplus supplies an ALPHABETIZED directory with 

FREE space shown, 
a E M D retu rns to DOS READY instead of reboot] ng. 
a Printer can be stopped for insertion of text or forms 

alignment Inserted text can be edited prior to 

resumption of print ng. 
a Specifically wntten for the MX-80 but will work with 

any printer that accepts CHRS codes for control 
a Optionally select line feed after carnage return 

For MOD I/III . . . $39.95 



.4 Division of Breeze QSD. Inc *"* 378 
1 1 500 Stemmons Fwy.. Dallas. Texas 75229 
To order call toll free 1-800 527 7432 

For product information (214) 484 2976 
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REVIEW 



Pascal-80 



by J. B. Harrell, III 



P 



ascal-80 provides a serious version of the 
Pascal language to TRS-80 users. You might 
find its structured programming rewarding. 



• • • • 

Pascal 80 

New Classics Software 

239 Fox Hill Road 

Denville, NJ 07834 

Models I and III, 48K RAM, 1 disk 

drive 

$99 disk 

Pascal-80 is not "just another com- 
piler*' but an honest attempt to provide 
TRS-80 users with a meaningful system 
for this language. It is a monitor sys- 
tem that provides an interface to the 
disk-file structure, a text editor, the 
Pascal compiler, and the Pascal inter- 
preter. The system comes on a TDOS 
(tiny version of DOSPLUS) system 
disk in single-density, 35-track format 
for Model I users. 

Users are not limited to this operat- 
ing system; they can use Pascal-80 with 
any of the second-generation operating 
systems, such as NEWDOS80. 

Operation 

The system is easy to operate; you 
type the command Pascal from the 
DOS-ready prompt and follow the dis- 
played command menu. 

All the system functions of Pas- 
cal-80 are available from the monitor, 
making it easy to save and load files, 
compile, execute, and edit source text 
from the monitor. 
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The compiler /editor system uses an 
in-memory text buffer with 23K of 
memory space that holds about 1,100 
lines of code. The amount of source 
code that can be stored increases with 
use of text-compression techniques. 
Mr. Blank (one of the program's modi- 
fiers) has provided an Include compile- 
time option that lets you assemble a 
library of routines on the disk and 
compile only those routines you need 
by including them in your source pro- 
gram. This lets you create source pro- 
grams of a size limited only by your 
system's memory capacity. 

The in-memory compile feature also 
accounts for the compiler's incredible 
speed. When timed on a Model I run- 
ning at standard speed (1.77 MHz), I 
got compile rates averaging 1 ,000 lines 
per minute when listing to the video 
screen and 1 ,500 lines per minute using 
the NOLIST option. 

The system has some nice features 
available from the monitor to aid the 
user: The W command lets you write 
the compiled P-code to disk in a named 
file, and the X command lets you exe- 
cute this compiled code directly from 
disk. This allows you to compile 
lengthy programs once in the final ver- 
sion and then run them directly with- 
out compilation delays. In addition, 
when executing the compiled code 
from the disk, you gain an additional 
9K of memory, as the whole system, 



except the P-code interpreter, is over- 
laved by the compiled object code. 

Pascal-80 Hditor 

The Pascal-80 system has a full- 
screen editor that you can invoke from 
the monitor. Text displays on the video 
screen in a moving window of 15-line 
groups. By pressing the break key, the 
editor command menu displays at the 
bottom of the screen. 

The editor uses a blinking underline 
character (the normal cursor character) 
that moves by pressing the arrow keys. 
Unlike many text editors, each line is a 
separate entity and cannot be extended 
past 64 characters. The text lines are 
stored in the text workspace only after 
pressing enter. This includes updating 
any changes made to the line after it is 
originally typed. As with all the keys, 
the arrow keys auto-repeat to move the 
cursor as far as you want. If you try to 
pass the upper or lower boundaries of 
the video screen, it will scroll in that di- 
rection for as long as you press the re- 
spective arrow key. 

Cursor movement using the arrow 
keys is usually nondestructive; how- 
ever, you can correct errors by back- 
spacing over them using shift, left 
arrow. Or, you can use the text-over- 
write mode and just type over the line. 
Remember, you must press enter to 
save any line changes. 

The editor command menu gives a 
listing of the commands for editing the 
source program. Invoke each com- 
mand by using the control key, shift, 
down arrow. This is a change from the 
original Pascal-80 that used break to 

preface all editor commands. Break 

now writes an editor command menu 
on the bottom line of the screen where 



it remains until you exit the editor or 
press clear. 

The workspace stores the text using 
a text -compression algorithm that en- 
codes one or more blank spaces into 
one byte. This produces a significant 
file-size reduction, but this file format 
is not compatible with any text editor 
currently in use. The logical length of 
each line, including encoded blanks, is 
always 64 bytes and the individual lines 
are not separated by an end-of-line 
character (ODH). Even though the re- 
vised editor available with Pascal-80 
includes many of the necessary func- 
tions to efficiently edit text, it is still 
convenient to use a full text editor in 
many cases. Mr. Blank has provided 
conversion programs to convert text 
files to ASCII files and vice-versa. 

Pascal-80 Compiler 

The next major component in the 
Pascal-80 system is the compiler. This 
compiler generates a pseudo-code 
(commonly called a P-code) output in 
a one-pass compilation process. The 
P-code must be interpreted in order to 
be meaningful. The concept is based on 
compilers being able to operate on dif- 
ferent machines and produce code that 
was transportable from one installa- 
tion to the next. The P-code generated 
by Pascal-80 is not true P-code, but a 
compressed output requiring less space. 

There are six compiler options to di- 
vert compiler output from the video 
screen to the line printer and to control 
information regarding the stack space, 
symbol table space, and actual code 
generated. The compiler output can be 
suppressed except for error messages. 
Two options allow all variables to be 
preset to zero upon allocation and per- 
form a verify operation after disk file 
writes. 

The compiler implements a TRS-80 
version of the standard Pascal with 
some limitations and extensions. The 
reference manual with Pascal-80 does 
not describe the Pascal language and I 
suggest you buy Programming in Pas- 
cal by Peter Grogono (Revised Edi- 
tion, Reading, MA Addison-Wesley, 
1980) as a tutorial on the standard lan- 
guage. The following standard Pascal 
functions are not currently implement- 
ed in Pascal-80: 

• Variant records, which record defi- 
nitions that use the Case. . .Of variant 
structure to define multiple structures 
on the same data record. 

• The With. . .Do statement. 

• Pointer variables, including the New 
and Dispose statements. 

• File window (buffer) variables, in- 

^See List of Advertisers on Page 451 
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'I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BASIC 
is spent 
inserting 
my diskette. 

SCOTT ADAMS - PRES. OF ADVENTURE INTL. 



Reduce your programming time significantly with Snappware's EXTENDED 
BASIC. The program is written entirely in machine language for super fast 
execution and is fully integrated into the TRSDOS* BASIC interpreter, re- 
quiring no user memory. Here are just some of the ways EXTENDED 
BASIC can make your programming task easier: 

• Quick way to recover BASIC program following a New, System 
or Accidental re-boot. 

• Single character abbreviations for the most frequently used 
commands. 

• Six single key stroke commands to list the first, last, previous, 
next or current program line. Even edit current line. 

• A powerful cross-reference facility with output to display 
and/or printer. 

• Ability to trace a variable through the gode 

• Determine easily if a variable is in use. 

• Permits programmer to display and/or print the value of any or all 
program variables. 

• Identifies the variable type for all variables. 

• Lists each element of any array separately. 

• Program line renumbering facilities allowing for specification of 
an upper limit of the block of lines to be renumbered, relocation 
of renumbered blocks of code and duplication of blocks of code. 

• Cross reference facility for key words and character strings including 
global replacement of key works. 

• Compresses your BASIC program to an absolute minimum by remov- 
ing extraneous information. 

• Merge lines. 

• Deletes statements that could not be executed. 

If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 

MODEL II $200.00 

•TRSDOS™ Tandv Corporation MODEL III $125.00 
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Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513) 891-4496 
3719 Mantell 
Cinti., Ohio 45236 
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MODEL 3* 
CHARACTERS 

for Model 1* and LNW-80" 



Kit includes character genera- 
tor with Model 3 like char- 
acters and lower case letters 
with true descenders, software 
allows access to special char- 
acters in a manner identical 
to Model 3 from BASIC. 
Two alternate character sets 
that are software selectable in 
LNW and hardware selectable 
in MODEL 1. 



KT-1 for LNW-80 69.95 

KT-1 A for Model 1 69.95 

Assembled & tested add 15.00 

RS232 Board provides switches and 
Baud Rate Generator for LNW-80 

BD-3 12.95 

Complex Sound Generator Board for 

any 80 

BD-5 15.95 



THE MAINE SOFTWARE LIBRARY 
P.O. BOX 197 

STANDISH. ME 04084 ^% 



"Model 1 and Model 3 are products ot Hadio Shac 
LNW-80 is ,1 product ot LNW Research 



MBTRS-80- Model III I ■" 

WOBOS" I 



Basic Operating System 

WOBOS I is a menu driven, prestructured program m BASIC tnai 
provides access to over 30 utiaty functions during development or 
actual use of a program. Its unique layout slows you to develop 
your programs within a wen organized environment trial provides 
a very strong foundation to buad upon You always had to start 
from scratch before but now. alter loading WOBOS I. you'll start 
with over 11 K ot subroutines and system utilities Imagine what 
this can do tor your productivity* WOBOS I is not an accessory 
to your program. It actually becomes YOUR program! 




* il wji add murtltrequency SOUND to your ihs 80 

* ■ will ttandardiae your writing and seve you many hou 
of debugging and rewriting utility functions 

* It w>M help you structure YOUR OWN programs 
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ever write 



SA3C MOOCL l«l DISK. 



CCI021 I CD 1031 



CC1022 I CDK132 



DEMO TAPE ftO FULLY REFUNDABLE 
ON QUALITY CASSETTE * MANUAL 



ORDER PHONE 
(503)649-4526 



HST 



ONLY 

*35 



& 



SEND CHECK. MONEY ORDER OR NUMBER AND 
EXPIRATION DATE OF YOUR CREDIT CARD TO 

wo »" 179 

B040 SW 173 AVENUE BEAVERTON. OREGON »7O07 
JtJ„ a l,J k r'.r./Ur. „m. OJt 
■ Hill Is i !■ if ll«ll CI If. **\ 



I in) Pascal 
Test No. Benchmark Tesl Pascal-80 Disk Basic Fortran! V PC ode Z80 



I I-OR IX) LOOP 0.503ms 1.872ms 0.071ms 0.942ms 0.444ms 



A 1.0 



0.885ms 10.582ms 0.549ms 
I0.2l4msx 0.289msx 



3 IX = I 



0.460ms 3.192ms 0.019ms 0. 249ms 0.107ms 



4 A -At 1.0 4.084ms 14.191ms 3.194ms 

I2.454msx ().904ms\ 



5 


IX IX • 1 


0.956ms 


4.723ms 


0.039ms 


0.557ms 


0.162ms 


6 


IARRAY(I) 


2.743ms 


11.142ms 


0.066ms 


0.456ms 


0.213ms 



7 J K x I 



1.937ms 6.041ms 0.582ms 0.804ms 0.517ms 



8 A = BxC 9,979ms 11.206ms 5.869ms 

6.438ms\ 1.686ms\ 



9 POM -While Out l.24see 7.24sec O.I22sect |.33sec 0.70s« 



10 SET While Out 9.47scc 44.53sec 17.75sec 6.97sec 



Table I. Benchmark ( 'omparisons. The lor. . . Do loop benchmark lesi was limed for ID. (MM) 
executions oj tin- loop and ihe limes displayed arc the average values Jar one execution of the 
loop, inch oj die benchmark limes are listed m milliseconds, unless otherwise noted. I or each 
of tests 2-8, the statement listed was timed for ll).(MM) executions m a For. . . Do loop anil the 
average execution time for the statement is calculated from the difference in execution times for 
the lor. Do loop with and without the statement. The tests were run m single- and double 
precision floating-point arithmetic using Basic and Fortran to demonstrate the speed difference 
in the two arithmetic modes. Pascal-80 uses only the double-precision tl4 digits) mode. 



The time listed is tor execution of" the statement using single precision floating point 

values. 

This method executed so last that il was necessary to lime the execution of the program 

for an average over 1(X) executions. 



eluding the Get and Put procedures. 

• The procedures Pack and Unpack 
(all structures are already based on al- 
location on byte boundaries). 

• The Page procedure (but Write 
(LP,CHR(12)) is a good substitute). 

• File structures (i.e., Array of File). 
Sets are limited to 256 members, and 

if numeric, the set members must be in 
the range of 0-255. The identifier of a 
procedure or a function cannot be 
passed as a parameter to another pro- 



cedure or function. No expression 
passed as a value parameter can exceed 
510 bytes unless passed as a VAR pa- 
rameter. Integer variables used to ref- 
erence array elements in a record must 
be global variables. Local variables 
will not work. 

The character [ can be replaced with 
(. and ] replaced with .) on the Model I. 
The Model III has these characters and 
generates them on the display. Even 
though the Model I user will see the 



212 • 80 Micro. December 1982 



characters as up arrow and left arrow 
respectively, these characters will still 
compile and print correctly. Spaces are 
significant in some isolated Pascal-80 
situations where they would not be sig- 
nificant in standard Pascal. Mr. Blank 
is currently working on a release to im- 
plement these features. 

Many extensions have been added to 
this newer version of Pascal-80 and are 
listed below. 

• Arrays of characters can now be 
printed with a single statement. 

• The Read and Write procedures can 
now be used with nontext files in place 
of the Get and Put procedures. 

• When using string constants in as- 
signment statements and in compari- 
sons with character arrays, the con- 
stant on the right can be shorter than 
the item on the left and will be padded 
with blanks as necessary. If String is 
type ARRAY[1 . . 10] OF CHAR then 
STRING: = 'NAME' is valid and 
STRINO'NA' is True. (The right ar- 
gument must have at least two charac- 
ters to be a string and not a CHAR.) 

• PROC and FUNC are abbrevia- 
tions for the keywords procedure and 
function. 

• Predefined constants are MININT 
(-32,768), MAXINT (32,767), PI, 
true, and false. 

• Real variables have 14 digits of pre- 
cision and occupy eight bytes. The data 
type REAL6 is provided if this much 
significance is not needed and occupies 
four bytes. You save no time as all cal- 
culations are done in double precision. 
RE AL6 variables cannot be passed to a 
procedure or function as a value pa- 
rameter unless they are members of an 
array or record. 

• No files need be declared in the pro- 
gram header. In addition, the program 
name is optional. There are three de- 
fault files (INPUT, OUTPUT, LP) 
that are declared as File of Text. 

The following procedures have been 
added to the standard Pascal proce- 
dures/functions: 

• Call (address,value)— a type integer 
function that places the eight-bit value 
in the A register and calls the routine 
located at address. The eight-bit value 
in the A register on return is the func- 
tion value. 

• Close — closes disk files 

• CLS — clears the screen 

• EX (real-expression) — a type integer 
function that returns the exponent val- 
ue of the real -expression. 

• FP (real-expression) — a type real 
function that returns the mantissa of the 
real-expression as its function value. 

• INKEY— a function returning the 

s See List ol Advertisers on Page 451 
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I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BUILT 
FUNCTIONS is 
spent inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL 



Snappware's EXTENDED BUILT IN FUNCTIONS is a collection of much 
needed additions to the TRSDOS* BASIC interpreter which greatly ex- 
tends its convenience and utility. The following features become part of 
your BASIC language and provide the enhancements without requiring 
any additional memory. The most important component of EXTENDED 
BUILT IN FUNCTIONS is an in-memory sort routine, guaranteed to be the 
fastest general purpose in-memory sort on the market. Along with this 
you also receive other EXTENDED BUILT IN FUNCTIONS. Here is a 
sampling: 

SRT— Sorts one or more arrays into a specified sequence 
FMT— Arranges data into a string variable as with PRINT USING 
PDAT/UDAT$— Permits user to do arithmetic on dates. 
PK$/UPK$— Compresses strings to save disk space. 
ETIMS— Shows the difference between two times. 
CLEAR— Specifies the number of file blocks to be allocated when 
you specify high memory and string space. 
DELETE— Allows you to dynamically remove portions of a BASIC 
program. 

In addition to these, there are functions unique to Model II and to Model 

III. The exclusives to Model II are long error messages and PEEK/POKE. 

The exclusives to Model III are: 

SWAP— Supports exchange of variables with a single statement 

HEX$— Converts numbers to hexadecimal strings. 

RESTORE— Allows you to set READ pointer to location of choice. 

If you consider your programming time to be worth money, call us and let 

us show you how to get more of it. 

MODEL II $100.00 

MODEL III $ 75.00 



•TRSDOS™ Tandy Corporation 
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Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 



Cinti., Ohio 45236 
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value of the keyboard at the call in 
CHAR format. This function is identi- 
cal to the Basic INKEYS function. 

• MEM — an integer function that re- 
turns a value corresponding to the 
amount of memory remaining. 

• PEEK (address) — an integer func- 
tion that returns the eight-bit value 
from memory at address. 

• POKE (address, value) — normally, 
this is a procedure to place the eight-bit 
value at the address specified; how- 
ever, the procedure has been extended. 
The address and value parameters are 
interpreted as the x and y coordinates 
of the graphic pixel, and if address is in 
the range of 0-127, then a Set opera- 
tion is performed. If address ranges 
from 128-255, then a Reset is per- 
formed, and if address is in the range 
of 256 to 383, then a Point is per- 
formed with the result left in location 
21458 that can be accessed with a 
PEEK (0 if the point is off and nonzero 
otherwise). 

• Seek (expression, file name) — posi- 
tions the specified file name to the rec- 
ord in the file pointed to by the integer 
value of expression. 

A compile-time function is recog- 
nized to let you include source code 
from a disk file in the program current- 



ly being compiled. This is done by plac- 
ing the compiler command (*$ file 
name *) in the source program where 
the included code is to be inserted from 
the disk. This is a powerful addition to 
the original Pascal-80. The Case state- 
ment has two extensions from standard 
Pascal. An optional Else clause will be 
executed if no other case condition is 
satisfied, and if no satisfied case condi- 
tion and no Else clause exists, execu- 
tion passes to the next statement with- 
out generating an error message. 

Both integer and real values are dis- 
played using the same format descrip- 
tors, for example, Write (expression: 
fieldwidth:digits). A field width of 
zero produces a display in the default 
format for the displayed expression 
type. Similarly, a field width of - 1 
produces the display of the expression 
in scientific notation. 

In addition to the functions specified 
as part of the standard Pascal language 
and the extensions just covered, Mr. 
Blank has added the functions for ran- 
dom numbers. The Basic functions of 
RND(O) and RND(number) are coded 
in Pascal to provide linkage to the run- 
time package and are stored on the sys- 
tem disk so they can be included in any 
program. The POKE command ac- 



For TRS-80 Model I &H Users 

STOP 
DISK CRASHES 

We are proud to announce a modification 
that protects your diskettes against power 
failure while they are in the drives. 
Your data will be safe without diskette 
removal... so leave 'em in! 

This small PC board is simple to install (four 
solder connections on mod I only). Requires 
absoloutely no software changes! One year 
warranty. 

MODEL I equipped with Radio Shack. Shugart or Tandon drives ... $29.95 
MODEL HI Protects internal drives only $34.95 

Send check or mo to INTEGRATED DEVICES. INC. +Sl 50 PtH 

PO. Box 8385 
Haledon. NJ 07538 



MC & VISA customers please include card no., eip. date, and signature 
Or call our 24 hour order line 201 -956 8496 
Surry, no COO orders. 

Nl residents add 5% sales ta>. 
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cesses the graphic capability of the 
TRS-80. 

Pascal-80 provides an additional 
source-code procedure (GOTOXY) on 
disk to let you position the video sys- 
tem cursor to any screen location. The 
call GOTOXY (horizontal-pos,verti- 
cal-pos) specifies the cursor's location. 

Additional Features 

The Pascal-80 master disk contains 
the compiler system and several other 
files. These files contain the Pascal 
source code for graphics, random- 
number, and GOTOXY linkages, plus 
several demonstration Pascal pro- 
grams. Each program is designed to il- 
lustrate a feature of the Pascal 
language. 

In addition to the demonstration 
programs, there are two utilities to 
convert Pascal-80 text files to ASCII 
character files (ASCI I /CM D) and to 
convert from character format files to 
text format (TEXT/CMD). The 
ASCII files can be used with almost 
any word processor. I have had no 
problem using Newscript to read the 
files, but Electric Pencil needs a OOH 
byte at the current end-of-file prior to 
reading it with Pencil. 

The two remaining files (AU- 
THOR/SRC and AUTHCODE/ 
CMD) allow you to write an applica- 
tion program in Pascal, compile it and 
sell it as a CMD file that executes 
directly from the disk operating system 
command level. New Classics Software 
grants a license to original registered 
owners of Pascal-80 to distribute pro- 
grams compiled by Pascal-80, provid- 
ed you meet the requirements specified 
in the user's manual. A minimal pro- 
gram (BEGIN END.) compiled and 
converted to a CMD file requires nine 
granules of disk space due to the 
P -code's interpreter. 

Pascal -80's Performance 

I performed benchmark compari- 
sons using similar programs written in 
Pascal-80, Disk Basic, and Fortran. 
Table 1 reports the results of the com- 
parisons. The first eight tests were con- 
ducted using a simple For-loop exe- 
cuted 10,000 times. After determining 
the time for the For-loop, the times 
for each of the remaining tests were 
calculated. Test number 9 is a simple 
For-loop to white out the video 
screen by POKEing the value 191 
(BFH) from locations 15360 to 16383. 
Test number 10 is a nested For-loop 
to while out the video screen by use of 
the Set(x.y) command. 

Pascal-80's performance is out- 



standing considering the interpretive 
nature of its execution. From observ- 
ing the data in test 8 (and similar data 
for the computation A = B + C), it is 
obvious that the 14-digit precision of 
Pascal-80's floating-point arithmetic 
can make the program almost as slow 
as an identical Basic program if using 
extensive floating-point arithmetic. 
However, the converse statement that 
single-precision Basic can run faster is 
not necessarily true and you'll have to 
use many floating-point calculations to 
overcome the strength of the compiled 
source program. 

The data in tests two and four show 
that the Basic times are only slightly 
different and both single- and double- 
precision calculations are significantly 
slower than the corresponding double- 
precision statement executed in Pas- 
cal-80. This is because Basic must 
interpret each component of each 
statement every time it is executed and 
each constant must be converted from 
character format to binary every time 
encountered. Basic is spending most of 
its time in the conversion routines. 

The initial benchmark comparison 
yielded a surprise when test 10 was 
timed. Pascal-80 was slower than Basic 
for the screen white-out using the Set 
command. This was due to the addi- 
tion of the graphics commands as an 
afterthought and the use of Pascal-80 
as a software linkage to these high-per- 
formance routines. I immediately re- 
ceived an upgraded system implement- 
ing these commands as a special option 
of the POKE statement. 

The comparison to Tiny Pascal was 
included to demonstrate that the far 
more complex implementation of Pas- 
cal-80 does not suffer from a slow- 
down caused by size growth. Remem- 
ber, Tiny Pascal is only a very limited 
subset of the total language. 

Conclusion 

I have tried to portray Pascal-80 as 
the first real attempt to provide useful 
implementation of TRS-80 Pascal for a 
reasonable price. You should be using 
a Z80 compiler such as Fortran if speed 
is your major objective. But if ease in 
programming using this well-struc- 
tured language is your objective, then 
Pascal-80 is perfect. 

The ability to write, edit, compile, 
and debug your program in a friendly, 
interactive environment is a great in- 
structional tooI.B 

John Harrell can be reached a( 30 
Keklico Court West, Charleston, SC 
29408. 
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I BOUGHT IT" 

My biggest loss 
of programming 
time using 
Snappware's 
AUTOMAP and 
AUTOFILE is 
spent inserting 
my diskette." 

SCOTT ADAMS ■ PRES OF ADVENTURE INTL 



When working with direct files or creating a formatted screen, Autofile 
and Automap are indispensible aids. 

Autofile is designed to automate for the BASIC programmer the task of 
moving data elements to and from a direct file. Previously, this was a 
time consuming chore because the FIELDed variables may not be directly 
referenced by user logic. The FIELD statement was eliminated, thereby 
relieving you of the guessing game as to where the FIELDed variable is. 
In addition, the LSET and the CVx functions are performed automatically 
The software, when installed/becomes part of your BASIC interpreter 
providing the enhancements without additional memory 

Automap is designed to automate for the BASIC programmer the task of 
presenting information on the video display and accepting information 
from the keyboard operator. The software consists of two main compo- 
nents: the OFF-LINE COMPONENT used to describe to the system the 
screen formats and the ON-LINE COMPONENT from within your BASIC 
program to initialize a screen, send data to the video display and receive 
data from the keyboard operator. This facility when installed, becomes 
part of your BASIC interpreter. 

Both products complement one another and. if used in conjunction, can 
save a significant amount of programming time. 

If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



AutomapMODEL II 

MODEL III 

Autofile MODEL II 

MODEL III 



$100.00 

$ 75.00 

$ 75.00 

$ 60.00 



: ;;;'!' j-;V!;h::'H ;=:";:• i;; : H $ I! ::jH:~j::ir;L &?;. 
: :r' :: !!•::.•:' :-: : ": !;r : ;~ !:| : T: & 3 i54-fe.£ti »■" 



.sj l: " :H:..H: .::";:. :::"::. :::-•:. I::!:- 



Time saving power 
at your fingertips. 

CALL TOLL FREE 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513) 891-4496 
3719 Mantell 
Cinti., Ohio 45236 



■See List ol Advertisers on Page 451 
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TUTORIAL 



TRS-80 Tongues 



by Robert Nicholas and Philip Martel 



c 



an't decide which language to use? Here's a 
simple temperature conversion program in six: 
Basic, Fortran, Cobol, Pascal, APL, and Forth. 



Why buy another language when you 
already have Basic in your TRS-80? It 
all depends on what you want your pro- 
grams to do. Let's consider six lan- 
guages from the perspective of one sim- 
ple problem — a Fahrenheit-to-Celsius 
conversion. The examples will give you 
a feel for the languages' similarities and 
differences. 

Basic 

Nearly every home computer comes 
with Basic (beginners' all-purpose sym- 



bolic instruction code) built-in. The av- 
erage newcomer to computing can sit 
down with an introductory manual and 
begin writing simple programs in Basic 
within a few hours. Power! 

Basic is rather forgiving, and more or 
less conversational. While the more 
powerful commands of a modern ex- 
tended Basic appear strange, the core 
commands of the language are everyday 
words: GOTO, Return, If, Then, Else, 
And, Or, Let, Input, Print, Random, 
Read, Write, Run, Stop, New, + , - , * 



10 


REM BASIC PROGRAM TO 


CONVERT 


FAHRENHEIT 


TO 


CELSIUS 




20 


REM 


BOB NICHOLAS 












30 


REM ENTERING 


A VALUE 


OF -999S 


.99 


ENDS THE 


PROGRAM 




40 


CLS 
















50 


PRINTS 256, 


•DEGREES 


FAHRENHEIT " 


; 








60 


INPUT P 
















70 


IP P - -9999 


.99 THEN 


END 












80 


CLS 
















90 


C - (F - 32) 


* 5/9 














100 PRINTS 384, 


F; " DEGREES FAHRENHEIT ■ 


" ; 


C; " 


DEGREES 


CELSIUS" 
















110 GOTO 50 




















Program listing 1. 


Bask 


\ ersion 









(multiply), and / (divide). 

For instance, look at Program List- 
ing 1. This routine accepts a temper- 
ature in Fahrenheit degrees and con- 
verts it to Celsius via the formula C = 
5/9 (F -32). 

The first three program lines are re- 
mark statements, indicated by the Basic 
command REM. The programmer uses 
these lines as notes — they don't mean 
anything to the computer. 

The CLS in line 40 tells the computer 
to clear the screen. 

Line 50 tells the computer to print the 
phrase "Degrees Fahrenheit" at posi- 
tion 256 on the screen. (The TRS-80 has 
1,024 positions on the screen, broken 
down into 16 lines of 64 characters.) 

Line 60 waits for you to enter the de- 
grees in Fahrenheit you want converted 
to Celsius. Your entry will be stored in 
the computer as the variable F. 

Line 70 provides a means of escaping 
the program. If you enter the number 
-9999.99, the program ends. If the 
value of F is anything other than 
-9999.99, the program continues with 
line 80, which clears the screen again. 



The Key Box 

Model I or III 
Programming Languages 
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Line 90 calculates the Celsius equiva- 
lent to F. 

Now line 100 prints your value and 
the Celsius value on the screen at posi- 
tion 384. Line 1 10 tells the computer to 
go to line 50, where the program asks 
you for another Fahrenheit value to 
convert. 

You can enter whole numbers, deci- 
mal numbers, and positive and negative 
numbers into this program. All we said 
was Input F — we didn't have to specify 
that F could be either positive or nega- 
tive, or how many decimal places we 
were going to use. Well, that's not true 
of all computer languages. 

Fortran 

Fortran, an acronym for formula 
translation, is similar to Basic. How- 
ever, the input and output from Fortran 
generally require Format statements 
(something like Basic's Print Using). In 
addition, while Basic is usually inter- 
preted, Fortran is almost always com- 
piled. A compiled program runs faster 
than one that is interpreted. 

Lines 100 and 200 (see Listing 2) start 
with a C. They are comments — remarks. 
Lines 300 and 400 display "Type in 
Fahrenheit Value" on the screen. The 
first column holds Editor line numbers, 
not used by the Fortran program. To 
the right are Fortran line numbers, and 
they may be referred to in the program. 
Line 300 says write to the screen (logical 
unit number— LUN1) what's in line 15. 
Line 400 gives directions to skip a line 
(/), write the text in single quotes, and 
skip another line. 

Lines 500 and 700 cause the program 
to read the value F from the key- 
board (which is also referred to by 
the LUN 1) in a format (F15.0) that 
allows, but does not require, a deci- 
mal point. Line 600 goes to line 40 if F 
is less than (.LT.)-500. It could have 
been put after line 700, but we wanted 
to show the format statement separated 
from the I/O statement. 

One style of Fortran programming 
places all format statements at the end 
of the program. This is useful if a par- 
ticular format is used many times; it can 
be written once and found easily. 

Line 800 is the actual computation. 
Notice the decimal points. The distinc- 
tion between integers and real numbers 
is much stronger in Fortran than in Ba- 
sic. If you want a constant treated as a 
real number, you have to put in the dec- 
imal point. 

Real numbers, as a computer thinks 
of them, are numbers that can have 
fractional parts. Integers do not have 
fractional parts. In Basic, if you want to 

^See List of Advertisers on Page 451 
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I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
COLLEGE EDUCATED 
GARBAGE COLLECTOR 
is spent inserting 
my diskette." 

SCOTT ADAMS - PRES. OF ADVENTURE INTL. 



The Snappware College Educated Garbage Collector (SNAPP-VI) is an 
intelligent processing function which greatly improves performance of 
typical BASIC applications. And here's why. 
Microsoft uses a 'variable length string' in the BASIC interpreter. Each 
time the string is assigned a new value, it is relocated in a string pool. 
Periodically the string pool must be reorganized and condensed into a 
single contiguous area. Performing this string space reclamation is time 
consuming and inefficient because this approach evaluates and collects 
each string individually. The time required is roughly proportional to the 
square of the number of active strings in the resident program. During 
reclamation the system seems to 'lock-up' and does not respond to 
the operator until the process is completed. 

This time consuming approach requires a better solution. Snappware has 
developed a solution which takes advantage of the auxiliary memory 
available. SNAPP-VI requires only four bytes per active string as a work 
area. When free storage space is available, our system temporarily bor- 
rows, uses and returns the space to the free storage pool when com- 
pleted If storage is not available, our system will temporarily transfer out 
to disk enough of the BASIC program to make room for our work area and 
return the 'paged out' information to its correct location when completed. 

Benchmarked times show, in some situations, SNAPP-VI performs one 
hundred times as fast as the Microsoft approach 
If you consider your programming time to be worth money, call us and let 
us show you how to get more of it. 



MODEL II . 
MODEL III . 



'TRSDOS™ Tandy Corporation 

:v' : - ::i:. h.^:: Y":-:i:: : X: =:= ;= fc^grfft $ 

• •;: ". v.:: ! .: : : ! :•'.:" •:': :••.«: :" : :-:^.: : :- v v - 'A'.- 
.:■■.:• :•■:'. : .-:-\ Y :. : Y ■£ re.*; «.i : Y. 





:. :• 


::■ :•::.. :.: 


:• : : ! :; 










:••:.:•• 




:■ :•:.:• ' \" ' 






..::: ::.. .:. .:.:.. :•:■:.. :.::::. 





::.:"' ::■ :" 


: l .::: 

fill 


::::::. ::::::. 


ware 


■■:.■■■ : : 


H" 


j ;• ii 




; 



$100.00 

$ 75.00 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513)891-4496 
3719 Mantell - 
Cinti, Ohio 45236 E 
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00100 


C 


PROGRAM TO CONVERT FAHRENHEIT TO CELSIUS 


00200 


C 


BY 


PHIL MARTEL 


00300 


10 




WRITE(1,15) 


00400 


15 




FORMAT(/' TYPE IN THE FAHRENHFIT VALUE'/) 


00500 






READ (1,20) F 


00600 






IF (F .LT. -500.) GOTO 200 


00700 


20 




FORMAT (Fl 5.0) 


00800 






C=5./9.*(F-32.) 


00900 






WRITE(1,30) F,C 


01000 


30 




FORMAT(1X,G10.3, ' DEGREES FAHRENHEIT IS ' 


01100 




1 ,G10.3," DEGREES CFTST'IS') 


01200 






GOTO 10 


01300 


201 




STOP DONE 


01400 






END 

Program Listing 2. Fortran Version 



000100 IDENTIFICATION DIVISION. 

000110 PROGRAM-ID. FAHRENHEIT. 

000120 AUTHOR. BOB NICHOLAS. 

000130***************************************************** 

000140* THIS PROGRAM ACCEPTS A TEMPERATUPS IN FAHRENHEIT * 

000150* DECREES FROM -9999.98 TO 9999.99 AND CONVERTS IT * 

000160* TO CELSIUS DEGREES. * 

000170* A VALUE OF -9999.99 ENDS THE PROGRAM. * 

000180***************************************************** 

000190 

000200 ENVIRONMENT DIVISION. 

000210 CONFIGURATION SECTION. 

000220 SOURCE-COMPUTER. TRS80-I . 

000230 OBJECT-COMPUTER. TRS80-I. 

000240 

000250 DATA DIVISION. 

000260 WORKING-STORAGE SECTION. 

000270 77 FAHRENHEIT PIC S9(4)V99. 

000280 77 CELSIUS PIC S9(4W99. 

000290 77 QUESTION PIC ZZZ9.99-. 

000300 77 ANSWER PIC ZZZ9.99-. 

000310 

000320 PROCEDURE DIVISION. 

000330 10-MAINLINE. 



000340 

000350 

-9999.99. 

000360 

000370 

000380 

000390 

000400 

000410 

000420 

000430 

000440 

000450 

000460 

000470 



DISPLAY " 
PERFORM 

STOP RUN. 



' ERASE. 
20-CONVFRSION 



UNTIL FAHRENHEIT 



20-CONVERSION. 

DISPLAY "DEGREES FAHRENHEIT" LINE 5 POSITION 2. 
ACCEPT FAHRENHEIT LINE 5 POSITION ?8 

SIZE 8 PROMPT CONVERT. 
COMPUTE CELSIUS = FAHRENHEIT - 32) * 5 / 9. 
MOVE FAHRENHEIT TO QUESTION. 
MOVE CELSIUS TO ANSWER. 
DISPLAY QUESTION LINE 07 POSITION 02 ERASE, 

" DEGREES FAHRENHEIT = ", 

ANSWER, " DEGREES CELSIUS". 



000480 END PROGRAM. 



Program Listing 3. (<>/><>/ Version 



use integers you have to use DEFINT or 
place a °/o after the variable name. In 
Fortran, a variable that starts with the 
letters I through N or a number without 
a decimal point is assumed to be an 
integer. 

Line 900 outputs the Fahrenheit and 
Celsius values. Line 1000 is the Format 
statement for line 900. The IX specifies 
that the first character is a blank. This is 
needed because the first character out- 
put is a printer control character. Cer- 
tain nonblanks can produce odd results. 
The G10.3 outputs a number with 10 
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spaces allocated, up to three of which 
are after the decimal point. 

Line 1 100 is a continuation of line 
1000. The & in column 6 indicates a 
continued line. Anything but a zero or 
blank will do. 

Line 1300 stops execution of the pro- 
gram, prints Stop Done and returns to 
DOS. Line 1400 tells the compiler to 
stop. Unlike Basic, where an Fnd state- 
ment can occur anywhere, in Fortran an 
End must only be the last statement in 
the program. 



Cobol 

Cobol (common business-oriented 
language) programs tend to be lengthy. 
The language demands a certain amount 
of structure — every Cobol program (see 
I i sting 3) consists of four blocks re- 
ferred to as divisions. These are: Identi- 
fication division (lines 100-180); Envi- 
ronment division (lines 200-230); Data 
division (lines 250-300); and Procedure 
division (lines 320-480). 

The Identification division indicates 
the name o\' the program (line 1 10) and 
the author (line 120). You can also indi- 
cate the date the program was written 
and 'he date it was compiled. Generally, 
the only thing required by Cobol is the 
Program ID. Each of these lines is re- 
ferred to as a "paragraph." 

I ines 130 180 arc remarks, indicated 
to the editor by an asterisk in the first 
column following the line number. As 
m Fortran, the line numbers are for 
editing purposes only. Notice also that 
'ines (sentences) end in periods. 

The Environment division is broken 
down into sections. The Configuration 
section is broken down into two para- 
graphs that record the source computer 
(the computer on which the program is 
to be compiled) anil the object comput- 
er (the computer on which the program 
will be run) In addition, if the program 
contains am files to be processed, they 
must be spelled out in the Input /Output 
section. 

The Data division is broken down in- 
to three possible sections: File section, 
Working -storage section and Linkage 
section. Only the Working -storage sec- 
tion appears in this program. Every var- 
iable used in the execution of the pro- 
gram must be specifically mentioned in 
one of these three sections. If the vari- 
able is one of the fields in a file, it would 
appear in the File section. If it is a non- 
file variable used in the process of exe- 
cuting the program, it would be in the 
Working-storage section. And if this 
were a subroutine called from another 
computer program, the variables being 
passed back and forth would have to be 
in the I inkage section. 

This may seem tedious compared to 
the convenience of Basic, but it provides 
the programmer far greater control over 
the information being processed. Addi- 
tionally, whereas Basic variables can be 
two characters long and Fortran vari- 
ables can be six, Cobol variables can be 
up to 30 characters long. This makes 
reading and editing Cobol programs 
easier. 

In this program, we have four vari- 
ables defined in the Working-storage 



Call or Write 
Your Nearest 
Snappware 
Distributor 



MICRO-80 

284 Goodwood Road 
Clarence Park 
Adelaide South Australia 
Ptv(08) 2117224 

DIG1-TEK SYSTEMS 
66 Thornridge Circle 
Kitchener Ontario N2M-4V9 
Ph-(519) 742-8206 

STRAWFLOWER ELECTRONICS 
50 North Cabfilfo 
Half Moon Bay 
California 94019 
Ph-(415) 726-9128 

COMPUTER MAGC 
115 Wiltshire Avenue 
Louisville, Kentucky 40207 
Ph-(502) 893-9334 

E-C DATA 
Tornevangsvej 88 
P.O.B. 116 
DK-3460 

Birkerod, Denmark 
Ph +45/2/81/8191 

SYSTEM SOFT 
49, Dunvegan Drive 
Rise Park 

Nottingham, England 
NG5 5Dx 
Ph-(0602) 275559 

CUSTOM COMPUTING 
104 Bushwick Rd. 
Poughkeepsie, NY 12603 
Ph-(914>471-9318 

AEROCOMP 
Redbird Airport 
Hanger 8 

Dallas, Texas 75232 
Ph-(214)339-5104 



ppware 
Goes On Trial! 

You Be 
The Judge! 

Snappware knows your programming time is valuable That's why we are 
offering a trial package that will cut your programming time up to 75%' 

This unprecedented offer allows you to judge for yourself the value of our 
software using your hardware at your convenience. Our five best selling 
products: EXTENDED BASIC, EXTENDED BUILT IN FUNCTIONS. COLLEGF 
EDUCATED GARBAGE COLLECTOR. AUTOMAP and AUTOFILE. are all 
available to you on a trial basis for only $50.00 for the Model II and 
$35.00 for the Model III. We're convinced that after you see how well our 
software helps you perform programming tasks, you will purchase them 
like thousands of others have. 

Our trial package consists of a master diskette which may be used to 
create one working copy. Your purchase price for the trial package will be 
credited toward the purchase of any software Snappware sells 

If for any reason you are not satisfied, just return the trial diskette and 
working copy and we will refund your money, no questions asked With 
an unconditional guarantee like this, you can't lose 

Call our toll free number 800-543-4628 to put us on trial We're sure your 
verdict will be: Snappware saves you time and money 



MODEL II Trial Package $50.00 

MODEL III Trial Package $35.00 






'Sk i:i. 



Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 
COLLECT: (513) 891-4496 
3719 Mantell 
Cinti., Ohio 45236 



■See List ol Advertisers on Page 451 
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(* 10*) (* 
*) 

(* 20*) (* 


FAHRENHEIT TO CELSIUS CONVERSION IN TINY PASCAL 


BY PHIL MARTEL *) 


(* 30*)VAR F,C,CINT,CFRAC,FLAG : INTEGER; 


(* 40*)BEGIN 


(* 50*) 


FLAG :«= 1; 


(* 60*) 


WHILE FLAG =1 DO 


(* 70*) 


BEGIN 


(* 80*) 


WRITE ( 'TEMPERATURE IN FAHRENHEIT'); 


(* 90*) 


READ(F#) ; 


(* 100*) 


IF F<« -500 THEN FLAG := 


(* 110*) 


ELSE BEGIN 


(* 120*) 


C :- (F-32)*5; 


(* 130*) 


CINT := C DIV 9; 


(* 140*) 


CFRAC :=(ABS(C) MOD 9) *10 DIV 9; 


{* 150*) 


WRITE (Ft, 'DEGREES FAHRENHEIT IS 


' ,CINTt, ' 


. ' f CFRACt f 


(* 160*) 


' DEGREES CELSIUS' ,13) ; 


(* 170*) 


END (* FOR THE CASE WHERE F > -500 *) 


(* 180*) 


END (* OF THE WHILE LOOP *) 


(* 190*)END. 




Program Listing 4. Pascal Version 



0: 


CLS 


1: 


# 28 31 


0: 


FTOC 


1: 


CLS 


2: 


BEGIN : 'ENTER DEGREES FAHRENHEIT ' ; 


3: 


F-^q 


4: 


CLS 


5: 


C-»- (F - 32) x 5 % 9 


6: 


F ; 'DEGREES FAHRENHEIT = ';C ; 'DEGREES CELSIUS' 


7: 


-►-BEGIN 




Program Listing 5. API. Version 



section: Fahrenheit, Celsius, Question, 
and Answer. The 77 in front of them is 
a level number. The 77 level can appear 
in either the Working-storage or Link- 
age sections. It is used for variables that 
are not subdivided. Subdivision is one 
of the main advantages of Cobol. It 
provides the programmer with easy ref- 
erence to a variable and to any prede- 
fined subsections of it. A subdivision is 
shown by a 01 level number with sub- 
levels. For instance: 



01 NAME. 

03 LAST-NAML 
03 FIRST-NAME 
03 INITIAL 



PICX05). 
PIC X(I2). 
PICX(I). 



This gives us a 28-character field 
called Name, a 15-character field called 
Last Name, a 12-character First Name 
and a one-character middle Initial. The 
X(15) specifies a field that will accept all 
keyboard characters. A( ) is used to 
specify alphabetic characters only, 
while 9( ) specifies numeric only. 

Fahrenheit has a picture of S9(4)V99. 
The S means the value can be negative. 
If the S is left off, -25 and 25 both be- 
come positive 25. The 9(4) means that 
up to four digits may follow. V is an as- 
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sumed decimal point . And the 99 allows 
up to two digits following the decimal 
point. The result is that Fahrenheit must 
be between -9999.99 and 9999.99. If 
you enter 25, the V assumed decimal 
point will convert it to 25.00. 

Celsius has a similar picture. Fahren- 
heit and Celsius must have assumed 
decimal points (the V) because they are 
used in calculations. However, when we 
want to show these values on the screen 
or on paper, we have to include the deci- 
mal point in the picture. Hence, we have 
two new variables. 

Question will be used in printing the 
value entered for Fahrenheit. The pic- 
ture clause is ZZZ9.99-. The Zs sup- 
press leading zeros in the answer so that 
0003.45 appears as 3.45. The dash 
means that we will have any negative 
sign printed after the number (3.45-). 

Answer has a similar picture and is 
used in printing the value of Celsius on 
the screen. All these pictures are the 
equivalent of the Format statements in 
Fortran. 

It is not at all unusual for the Data 
division to be the longest part of a Co- 
bol program. Every variable used has to 
be carefully and explicitly defined. 

Suppose we want to express the 



equivalent of our Cobol line 270 
FAHRENHEIT PIC S9(4)V99 in Ba- 
sic. This would require the following 
additions to our Basic program follow- 
ing line 60 INPUT F: 

61 IFF< -9999.99 OR 

F > 9999.99 THEN OOTO 60 

62 LET X = INT (X • 100) 100 

Line 61 assures us that F is w ithin the 
proper range. Lines 62 and 63 detect if 
there are more than two digits following 
the decimal point. If there are, they get 
knocked off. And even this doesn't fin- 
ish the task. Remember that if we enter 
25 for the value of Fahrenheit, we will 
get 25.00. The Basic program would 
still print plain old 25. If we wanted the 
decimal format, we would have to use a 
Print Using statement in Basic. So if 
you are looking for this type of control 
in a business or commercial application, 
Cobol is by far preferable to Basic. 

And finally, on to the Procedure divi- 
sion — the part of the program that actu- 
ally does something. The Procedure di- 
vision is broken down into paragraphs. 
This program contains two paragraphs 
in this division: 10-MAINLINE and 
20-CONVERSION. All lines in a para- 
graph must be indented at least four 
spaces. Further indentation (such as 
lines 410, 460, and 470) is optional and 
strongly recommended. 

While Cobol is a fairly standardized 
language, those commands relating to 
screen output tend to vary from com- 
puter to computer and compiler to com- 
piler. As a result, some references with- 
in the Procedure division detract from 
the normal high degree of readability of 
the language. For instance, line 340 
DISPLAY "" ERASE is the equivalent 
of CLS in Basic — it clears the screen. 

If you glance through the rest of the 
Procedure division, you will notice 
there are no CiOTOs even though they 
are available in Cobol. Good Cobol 
tends to be GOTOless programming. 
The program is written as a series of 
modules organized into paragraphs or 
sections made up of paragraphs. When 
you need to use a given module, you 
perform it, as in line 350. 

PERFORM 20-CONVFRSION 
UNTIL FAHRENHEIT = -9999.99. 

Paragraph 20-Conversion will run 
continually (like a subroutine) until we 
enter -9999.99 as the value of Fahren- 
heit. Then execution drops to line 360, 
and the program stops. Note that in Co- 
bol we perform or GOTO paragraphs 
rather than line numbers as in Basic. Big 



• FREE SHIPPING • 

WITHIN CONTINENTAL 48 STATES 




ARE YOU A DREAMER? 

IMAGINE THIS . . . 



TRY 
US! 



You place your order and it arrives when expected. "What do 
you know, they did ship that day!" You open your package and 
SURPRISE, it's what you ordered, not last year's version six times re- 
moved "Wait a minute, I must have paid full retail to get this kind of 
service. H'mm, that's not it. These prices are among the lowest. What's 
the catch? I've got it 1 They charged me large shipping and handling charges. 
No, not that either. It says here 'Free shipping within the Continental 48 States 
via UPS ground.' Only the differential is charged for UPS Blue or 1st Class. Now 
I've got it, it's only a dream!!!" 

At Micro Images your dreams become reality! How do we do it? Simple, we tell the truth. If 
the item you order is not in stock — we tell you. If we cant ship that day — we tell you. 
Which version? We tell you. Why are we telling you this? The answer is easy. This is what we 
do best and what separates us from the competition, AND WE WANT YOU TO KNOW. 



LAZYWRITER 

Latest Version Mod l/l 1 1 s 1 59.95 
See Below For New Options 



MAXI MANAGER 

Manager with Utility -$119.95 
Maxi Utility Only -$44.95 



SUPERUTILITY + 

Mod l/lll -Limited Time Only s 46.95 
SEE NEW BOOK BELOW 



MZAL - Ver. 2 
Mdl lor III —$134.95 



MAXI CRAS 

Mdl l/lll —$84.95 

MAIL $84.95 STAT $179 95 



LDOS 51 

MDL I or III — $114.95 



GEAP $42.95 

with Dot Writer - $69.95 



NEW SCRIPT- 7.0- $114.95 
with Mailing Label Opt. -$124.95 
Mailing Label Opt. Only - $27.95 



New Random House Version 
Proofreader t>v Aspen Mod mil $49.00 

Proof-Edit by Aspen Mod l/lll $25.00 

Grammatik d. Aspen ... Mod i/ih $49.00 

SPECIAL All 3 FOR ONLY $110.00 



MULTI DOS- $74.95 

Specify Mdl III or Mdl I 
Single or Double Density 



DOSPLUS 



Version 3. 4S/3.4D/3.4MI 
Version II For Model II 



$119.95 
$199.95 



UNITERM Modi/Ill 
UNITERM/80 Mod 



/III 



$74.95 
$84.95 



MICROSOFT 

Fortran 80 or A.L.D.S $89.95 

Basic Compiler $179.95 

Editor/Assembler + r* Df $27.95 D s>-S45.95 



HEXSPELL 2 Mod i/iii $94.95 



POSTMAN MASS MAILING SYS. 

Standard Ver. Mod l/lll $118.95 

with Postwriter Mod I'lll . . . $159.95 



DATA-WRITER Mod 1/116I 14.95 



SFINKS 3.0 Disk Mod l/lll $36.95 
SFINKS Chess Tutor Mod l/lll $17.95 



cnAC Mod II 4.0.. 
tUHO Mod I.IM 3 5 



$74.95 
$69.95 



LAZYWRITER OPTIONS 

LAZYDOC $54.95 

LAZY TAB $13.95 

LAZYCALC $27.95 

LAZYDRAW + DO $18.95 

Tab. Calc. Draw+ Do All 4 $37.95 



BOOKS 



Disk + Other Mysteries - ug — $20.95 

Basic Decoded ug . . $27.95 

Custom TRS-80 - ug $27.95 

Basic Faster & Better - ug $27.95 

Mdl 11/16 Visicalc - w.c. Brown $16.95 

Mdl l/lll ViSiCalC - WC Brown $16.95 

Copynaht Kit $11.95 

Inside SuDerutility Plus $17.95 



LNW-Doubler 5/8 $205.95 

Includes Dosplus 3.4D 



SOOPER SPOOLER -byCompulink 

16K Parallel I/O Unit $334.95 

46K Memory Opt - $149.95 Serial I/O Opt. • $89.95 
Complete Unit - All Options $549.95 



LYNX auto dial/answer Mod l/lll $239.95 



• * PRINTER STANDS + * 





SPACE AGE NO FRILLS 

MX 80 Clear $27.50 MX 80 Clear $13.50 

MX 80 Bronze . $29.95 MX 80 Bronze . $15.95 
Microline 82A Space Age Bronze $29.95 



• VISION FRIENDLY • 

Vision Friendly is an eye exercise package lor Ihe Model III which 
comes with a Green. Blue and Ambef screen and a short graphic 
program The package combines color & graphics to relax your 
eyes and ease eye strain. Each screen is a lull grade quality 
screen which needs no glue. tape. etc. to attach and can be 
remo/ed without a trace The three plexiglass screens are more 
than worth the price We are so sure you will like this package we 
are offering a 10 day money back guarantee. J29 95 



FREEDOM TECHNOLOGY INT'L 

Freedom Option $199.95 

Freedom Plus S399.95 



MICROBUFFER Practical Peripherals 
Parallel or Serial (Epson) $149.95 



RIBBONS 

ZIP BOX RELOADS M Dz. Dz. 

Epson MX 70/80-20 Yds. . 24.00 42.00 

Epson MX 100 30 Yds 30.00 52.00 

LP-l/ll/IV-16 Yds 18.00 32.00 

Centronics 730/737/739 

and 779-16 Yds 18.00 32.00 

AH ZIP BOXES are individually sealed black nylon 
and require no rewinding 

CARTRIDGES Each Dozen 

Epson MX70/80 8.95 90.00 

LP-III/V 6.50 70.00 

Centronic 702/03/04/53 ... 11.00 120.00 

RS DSY WHL II Muit, strike. . . 6.50 70.00 

Diablo Hytype II Muit. strike . . 6.50 70.00 

Qurne 300.000 chr Muiti strike 6.50 70.00 

Nee SPIN H-Yield Mum strike 7.00 75.00 

MICRLNE 80/82A783A Spl . . N/A 24.00 

Minimum order 3 cartridges • any mix. For smaller 
quantities add $150 per'order. All our reloads and 

i'i i .s' at .mutactured by one of the oldest and 

most reputable ribbon Mfg s in the country 

***** QUALITY GUARANTEED ***** 



GAMES 



Tape 

Sea Dragon 1 7.95 

Penetrator 22.45 

Defiance 

Panik 17.95 

Armored Patrol 17.95 

Eliminator 17.95 

Starfighter 22.45 

Forbidden Planet or City 

Strike Force 14.50 

Voyage of Valkyrie 31.95 

Bounceoids or Sp. Castle. 14.50 

The Institute 17.95 

Fortress or Alien Def 14.50 

Any Big 5 Program 14.50 



Disk 

22.45 
22.45 
22.45 
22.45 
22.45 
22.45 
26.95 
34.95 
17.95 
34.95 
17.95 
20.95 
17.95 
17.95 



TO ORDER 

CALL OR 

WRITE TO: 



MICRO IMAGES 

14603 25th Road 

Flushing, N.Y. 11354 

(212)445-7124 



PHONE HOURS: 

Mon.-Frl. 

10 AM-9 PM 

Sat. 

IS? 10 AM-5 PM 



ORDERING INFORMATION 
No credit cards at these low prices Add $2 00 or all COD orders Certified Ck/MO/COD 
shipped immediately. Please allow 2 weeks for personal checks For extra fast service 
phone ir your COD order Free shipping within Continental 48 states via UPS ground For 
Canada. Hawaii. Alaska, applicable shipping and insurance charges apply Prices subject to 
change without notice. New York State residents please add appropriate sales tax 
The items listed above are a cross-section of our product line We carry the fun line of most 
companies listed in this ad plus much more SEND FOR YOUR FREE CATALOG. 
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deal? You bet! How many times have 
you gone crazy trying to find the line 
number for your Basic subroutine or 
GOTO after renumbering a program? 
This problem doesn't exist in Cobol. 

Now for the conversion and display 
portion of the program — line 390 prints 
Degrees Fahrenheit on the screen. Note 
that you get to state the screen position 
as a line number and position (column) 
number — much easier to locate than the 
Basic PRINT® value. 

Lines 400 and 410 are the equivalent 
of Input F. Note again that we get to 
state the screen position for the input. 
We set a size of eight, because our pic- 
ture for Fahrenheit in Data division al- 
lows eight positions: one for the sign, 
four digits, a decimal point, and two 
more digits. The word Prompt tells the 
computer to put hyphens on the screen 
showing how many places are available 

for data entry ( ). Finally, Convert 

tells the computer to store whatever is 
entered on the screen (string informa- 
tion) in Fahrenheit as a numeric value. 

Line 420 does the actual conversion 
from Fahrenheit to Celsius. We Com- 
pute the value of Celsius. 

Line 430 moves the value stored in 
Fahrenheit into Question for printout 
on the screen with the assumed decimal 
point in Fahrenheit (line 270) shown as 
indicated in the picture of Question (line 
290). Line 440 does the same thing for 
Celsius. 

Lines 450-470 format the screen 
printout of the input and the answer. 
Notice again that we get to specify the 
line and the position. The Erase state- 
ment clears the screen before the re- 
sponse is printed. 

Line 480 (End Program) is required 
by the Cobol compiler, like Fortran. 

Pascal 

Radio Shack's Tiny Pascal lacks 
many features of a full Pascal, especial- 
ly in the variety of data types — files, 
records, pointers, real numbers, and 



user-defined types. These data types are 
not needed, but they are a convenience 
and make programs more self-docu- 
menting. We used the method described 
in John Harrell's article "Modifying 
Tiny Pascal for Disk" (80 Micro, June 
1981, p. 154) to put the Tiny Pascal sys- 
tem and source programs onto disk. 

Pascal, unlike Basic or Radio Shack's 
Fortran, does not use line numbers. As 
a convenience, we have put numbers in 
comments (*like this*) at the beginning 
of each line. 

Tiny Pascal compiles into an inter- 
mediate code called P-code, which is 
then interpreted. But for all practical 
purposes it is a compiler like Fortran. 

Lines 10 and 20 (see Program Listing 
4) are comments. The variables are de- 
fined in line 30. In Pascal, all variables 
must be defined at the start of the pro- 
gram or subroutine where they are used. 
This makes you more aware of the vari- 
ables you are using and also allows the 
compiler to run faster. 

Line 40 starts a block. All Pascal pro- 
grams are composed of blocks, each of 
which begins with Begin and ends with 
(you guessed it) End. The main block 
ends at line 1 50. The period after End at 
line 1 50 tells the compiler it is the end of 
the program. 

Line 50 sets the variable Flag for the 
While loop in line 60. While Flag equals 
one, it repeats the block in lines 70-180. 

Line 80 asks for the Fahrenheit tem- 
perature and line 90 reads it in. The # in 
line 80 tells the system the input will be a 
decimal integer. 

Line 100 tests the Fahrenheit value to 
see if it is less than or equal to -500. If it 
is, the flag is set to zero to end the While 
loop. If not, then the block in lines 1 10- 
170 is entered. 

Lines 120-140 calculate CI NT, the 
integer part of the temperature, and 
CFRAC, one digit after the decimal 
point. Lines 150 and 160 print the re- 
sults. Again, § indicates that a decimal 
integer should be printed. The 13 at the 



1 : 

2 | 
3 

4 

5 : 

6 

7 

8 

10 

11 

12 

13 

14 



FAHRENHEIT TO CELSIUS CONVERSION PROGRAMS) 
FC 32 - 50 * 9 / ; ( REPLACES F WITH 10 * C ) 
FTOC DUP . " DEGREES FAHRENHEIT IS " 

FC DUP ABS <# # 46 HOLD #S SIGN #> TYPE 

" DEGREES CELSIUS " ; 
FCPROG BEGIN CR " TYPE IN FAHRENHEIT VALUE " CR #IN 

FTOC END ; 



Program Listing 6. forth Version 



end does not have a #, so it is treated as 
a character, in fact a carriage return. 

APL 

APL (a programming language) is 
quite different from all the other lan- 
guages discussed in this article. For one 
thing, it is essentially mathematical. 
Where most languages work with one- 
dimensional values (scalars), APL can 
deal with multidimensional blocks of 
data (matrices) just as handily. 

APL does not use standard algebraic 
notation for its calculations — there is no 
hierarchy of operations as in algebra. A 
mathematical expression is simply eval- 
uated from right to left. You can force 
order if you wish by using parentheses. 
The reason for this unusual feature is 
that APL has many operators besides 
the usual +,-,*, and / of Basic or For- 
tran. Defining a reasonable hierarchy 
and keeping track of it would be very 
difficult, so Dr. Iverson, the developer 
of APL, avoided the issue. 

Another major difference lies in the 
structure of a program. APL deals with 
a workspace rather than a program. 
Each workspace is composed of labeled 
functions that call one another as re- 
quired. You execute one function from 
another merely by naming it. 

For instance, in the APL workspace 
shown in Program Listing 5, we have 
two functions: CLS and FTOC. We ini- 
tially enter the workspace through 
FTOC. The first thing FTOC does is 
execute the CLS function. 

The CLS function has one com- 
mand: ft 28 3 1 . The # is the equivalent of 
CHR$ in Basic, so this line performs 
CHRS(28) and then CHR$(31)— it 
homes the cursor to the upper left cor- 
ner of the screen and clears the screen 
from the cursor to the end. The result is 
a completely cleared video screen. 

This brings us back to line 2 of 
FTOC. We label this line as Begin (we 
will want to come back to this spot later 
in the program) and then print "Enter 
Degrees Fahrenheit." (Note that you 
don't have to say Print. All output goes 
to the screen by default.) 

Look at line 3. The small letter q 
stands for the APL command Quad. 
This equivalent of the Basic command 
Input is for numeric input only. Quote 
Quad is used for entering string infor- 
mation. In APL, line 3 would be phrased 
as ASSIGN F QUAD. (Assign— shown 
by the back arrow — is the equivalent of 
the equals sign in Basic.) You aren't 
limited to just typing in a number in 
APL. You could enter a mathematical 
expression (such as 5 + 3) or even a var- 
iable name (C, for example). 
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WE WILL NOT BE UNDERSOLD 



SOFTWARE 



APPLE SOITWARE 



COMPUTERS 



MICROPRO 




MICROPRO 


Wordstar 


S239.O0 


Wordstar 


Mailmerge 


$89.00 


Mailmerge 


Customization Notes 


$359.00 


Soellstar 


Spell star 


S239.00 


DataStar 


Datastar 


$199.00 


CalcStar 


Calcstar 


$199.00 


VISICORP 


MICROSOFT 




VisiCalc 


Basic Interpreter 


$349.00 


VisiTerm 


Basic Compiler 


$389.00 


VisiDex 


Fortran 80 


$499.00 


Vis i Plot 


Cobol80 


$695.00 


VisiFile 


DATA BASE 




VisiSchedule 


FMS80 


$595.00 


VisiTrend/Plot 


dBase II 


$599.00 


MISCELLANEOUS 
Micro Courier 
Screen Director 


NEW! DM PC SOITWARE 


NEW! 






Executive Briefing System 


INFORMATION UNLIMITED 




Supercalc 


Easy Writer 


$289.00 


Personal Filing System 


Easy Speller 


$149.00 


PFS Report Wnter 


Easy Filer 


$319.00 


Word Handler 


V1SICORP 




ENTERTAINMENT 


Visicalc 256K 


$199.00 


Beer Run 


VisiDex 


$199.00 


Zork I II 


VisiRle 


$229.00 


Deadline 


Vi8iTrend/VisiPlot 


$229.00 


Chop Lifter 


MICROPRO 




Cannonball Blitz 


Wordstar 


$239.00 


Knights of Diamonds 


MISCELLANEOUS 




Midnight Magic 


Supercalc by Sorcim 


$229.00 


Wizardry 


Superwriter by Sorcim 


$289.00 


Tuesday Morning Quarterback 


Home Accountant Pius 


$139.00 


Crush. Crumble & Chomp 


ENTERTAINMENT 




Datestones of Ryn 


Deadline 


$39.00 


Mortoc's Tower 


Temple of Apshai 


$29.00 


Snack Attack 


Curse of Ra 


$15.99 


Star Blazer 







DISK DRIVES 



CCI 100 for the TRS-80 Model 1 

S'A 40 track $299.00 
CCI 189 for the Zenith Z-89 

5V« 40 track $379.00 

CORVUS 5M with Mirror $3089.00 

CORVUS 10M with Mirror $4489.00 

CORVUS 20M with Mirror $5389.00 

CORVUS Interfaces CALL 
RANA SYSTEMS add-on Disc Drive for the Apple ll 

Elite One 40 Track CALL 

Bite Controller CALL 

Elite Two 80 Track CALL 

Elite Three 80 Track doubte-sided CALL 



DISKETTES 



Maxell 5'/4 single side 
Maxell 8 single side 
Maxell 5</4 double side 
Maxell 8 double side 
BASF 5V« 
BASF 8 
Verbatim 5Y« 
Verbatim 8 
Wabash 5% 



$39.00 

$49.00 
$45.00 
$55.00 
$26 95 
$36.00 
$26.95 
$36.00 
$21.95 



IRM PC ACCESSORIES 



64K Card by Microsoft 

Joystick by T 4 G 

128K Card 

192K Card 

256K Card 

Combo Card by Apparat 

Call for more IBM PC add-ons 



$435.00 
$49.00 
$579.00 
$629.00 
$699.00 
$249.00 



For fast delivery, send certified checks, money 
orders, or call to arrange direct bank wire 
transfers. Personal or company checks require 
one to three weeks to clear. All prices are 
mail order only and are subject to change 
without notice. Call for shipping charges. 



$199.00 
$89.00 
$149.00 
$199.00 
$189.00 

$199.00 
$79.00 
$199.00 
$169.00 
$199.00 
$259.00 
$239.00 

$219.00 
$1 29.00 
$169.00 
$199.00 
$115.00 
$75.00 
$169.00 

$28.00 
$26.95 
$39.00 
$24.95 
$29.95 
$29.95 
$32.00 
$45.00 
$24.95 
$24.95 
$15.99 
$15.99 
$23.95 
$24.95 



APPLE ACCESORIES 



ADVANCED LOGIC 

Add-Ram 16K Card 

Z-Card CP/M for the Apple II 

Smarterm 80 Column Board w/Softswitch 

Z-80 Card by Microsoft 

16K Card by Microsoft 

32K Card by Saturn 

Keyboard Enhancer II by Videx 

Videoterm by Videx 

Game Paddles by TG 

Joystick by TG 

Numeric Keypad by Keyboard Co. 

ALF 9 Voice Board 

ALF 3 Voice Board 

System Saver by Kensington 

Versacard by Prometheus 

Microbuffer II 16K w/graphics 

Microbuffer II 32K a /'graphics 

APPLE INTERFACE CARDS BY CCS 

Serial Asynch #7710 

Centronics «7729 

Call for other CCS cards 



$99.00 
$225.00 
$249.00 
$319.00 
$159.00 
$199.00 
$125.00 
$259.00 

$49.00 

$49.00 
$139.00 
$159.00 
$229.00 

$75.00 
$229.00 
$259.00 
$299.00 

$139.00 
$149.00 



RAM 



16K Ram Kit for Apple II; TRS80 
200 nano seconds, 41 16 chips 



$17.50 



Dealer (National/Interna- 
tional) Inquiries Invited. 

Send for FREE catalogue 



$485.00 
$265.00 
$569.00 

$359.00 



CALIFORNIA COMPUTER SYSTEM 

Mainframe 2200a 

Z-80 CPU 2810a 

64K RAM 2065 

Floppy Controller 2422a 

ZENITH 

Z-89 48K CALL 

Z-90 64K CALL 

MOO CALL 

Call For Prices On The Complete Zenith Lme 

CASIO FX702P Pocket Computer $1 79.00 

Sanyo MBC 1000 64K CALL 

Call For Prices On Complete Sanyo Computer Line 

PRINTERS 



NEC 7710 Serial 

NEC 7720 KSR 

NEC 7730 Parallel 

NEC 3510 Serial 

NEC 3520 

NEC 3530 Parallel 

NEC 8023 Dot Matrix 1 0Ocps 

Epson MX -80 

Epson MX -SOFT 

Epson MX-100 

IDS Micro Prism 

IDS Prism 80 

IDS Prism 132 

Okidata Microline 80 

Okidata Microline 82A 

Okidata Microline 83A 

Okidata Microline 84 

Datasouth 180 COS 



$2395.00 

$2749.00 

$2395.00 

$1850.00 

$2099.00 

$1850.00 

$539.00 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 



MONITORS 



Amdek 13" Color 
Sanyo 9" B & W 
Sanyo 9" Green 
Sanyo 12"B4W 
Sanyo 1 2" Green 
Sanyo 1 3" Color 
Zenith 1 2" Green 
Zenith 1 3" Color 
Bectrohome 1 3 ' HI-RES 

Color Monitor 
Bectrohome 1 3" Color 
Bectrohome 1 2" BAW 
Bectrohome 1 2" Green 
Bectrohome 9" B&W 
Bectrohome 9" Green 



$329 00 
$135.00 
$140.00 
$179.00 
$189.00 
$359.00 
$105.00 
$339.00 

$829.00 
$349.00 
$179.00 
$189.00 
$149.00 
$159.00 



SPECIAL Or THE MONTH 

IDS MICRO PRISM 

Dot Matrix - correspondence 

quality 110 CPS 
Dot Plot Graphics CALL 



TERMINALS 



ADDS Viewpoint 
Zenith Z-19 
Televideo910 
Televideo 925 
Televideo 950 



$495.00 
$679.00 
$595.00 
$779.00 
$969.00 



TELECOMMUNICATIONS 



Prentice Star Modem 
Novation Cat Modem 
Novation D-CAT 
Novation AUTO-CAT 
Novation APPLE CAT 
Hayes Smart Modem 
Smart Modem 1 200 
Hayes Micro-Modem 
Hayes Chronograph 
Signalman Mark I 



$129.00 
$139.00 
$149.00 
$199.00 
$299.00 
$249.00 
CALL 
$295.00 
$225 00 
$85.00 




The CPU Sh 

TO ORDER CALL TOLL FREE 1 -800-343-6522 



100 



I » 



420-438 Rutherford Ave., Dept. Ml 12, Charlestown, Massachusetts 02129 




Hours 9 AM - 9 PM (EST) Mon.-Fri. (Sat. till 6) 
Technical information call 617/242-3361 



TWX- 710-348-1796 



Massachusetts Residents call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 



• See List o) Advertisers on Page 45 ' 
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Line 4 calls the CLS function again. 
Line 5 computes the value of C, and line 
6 prints the answer. Line 7 branches to 
Begin, our label for line 2. (The right ar- 
row is used for the Branch function.) 

Forth 

Forth is an abbreviation for Fourth- 
generation language. However, the sec- 
ond-generation system on which it was 
originally written only allowed five- 
character program names. Hence, 
Fourth became Forth! 

Forth is different. On the positive 
side, you are almost forced to write 
structured code in Forth. Forth is exten- 
sible. If you need a feature (say the arc- 
tangent of the ratio of two numbers) 
you can add it. The feature is then as 
much a part of the language as any 
other word. 

On the negative side, writing a pro- 
gram in Forth is different than writing a 
program in Basic, Fortran, Cobol or 
Pascal, and is more like APL. You must 
learn the jargon. 

As it comes out of the box, Forth 
does not support floating-point num- 
bers, although you can add that 
capability. 

Forth is a stack-oriented language. 
This means arithmetic statements are in 



Reverse Polish Notation (RPN)— the 
system used by Hewlett-Packard calcu- 
lators and internally by almost all com- 
puters. Numbers are entered onto a 
stack (the HP calculators have an enter 
button; Forth just requires a space) and 
then operations are performed on the 
numbers on the stack. For instance, 1 
+ 2*3 would be written 1 2 3 * + in 
Forth. 

In Program Listing 6 line is a com- 
ment. Comments in Forth are enclosed 
in parentheses. Note the word pro- 
grams — there are three programs in this 
block: FC, FTOC, and FCPROG. (A 
block in Forth is very much like a work- 
space in APL.) 

Line 1 is the definition of FC. Colons 
start a definition, and semicolons end it. 
FC starts with a Fahrenheit value on the 
operand stack, pushes 32 onto the 
stack, subtracts the top of stack (TOS) 
from the next value down, pushes 50 
onto the stack, and so on. As the com- 
ment says, 10 times the Celsius value is 
left on the stack. 

As 1 mentioned before, Forth uses in- 
teger arithmetic. Unless you use a float- 
ing-point or multiple-precision pack- 
age, numbers are limited to the range 
32767 to -32768. As the program is 
written, the Fahrenheit value must be 



less than 656 degrees. With a larger 
value, the multiplication by 50 will 
overflow. 

However, a built-in operator (*/) per- 
forms a multiply followed by a divide. 
The results of the multiplication are dou- 
ble precision. Using this operator would 
allow temperatures up to 5,930 degrees 
Fahrenheit to be converted. 

Lines 2, 3 and 4 define a program, 
FTOC, that prints "Degrees Fahrenheit 
Is," takes the number on the stack and 
converts it using FC, and prints the re- 
sult and then "Degrees Celsius." The 
code in line 3 between the words DUP 
and TYPE outputs the number as a 
signed number with one decimal place. 

Lines 5 and 6 define the third pro- 
gram, FCPROG. This is the outer pro- 
gram — it runs an endless loop with the 
BEGIN and O END, asks "Type in 
Fahrenheit Value," inputs the value, 
and calls FTOC, which does the conver- 
sion and outputs the result. ■ 



Robert Nicholas (2-B Lennox 
Heights, Lenox, MA 01240) runs a 
data-processing center. Philip Martel, 
an electrical engineer, can be reached at 
748 Tyler St., Pittsfield, MA 01201. 



Experience the 

Magazine 

of the Future . 



The Programmer's Institute's magnetic magazines 
will entertain, educate, and challenge you. 

Each issue features ready-to-load programs ranging from 
games, adventures, home applications and utilities to personal 
finance, educational, and our unique teaching programs. Our 
magazines include fully listable programs, a newsletter con- 
taining descriptions and instructions for all programs, and notes 
on programming techniques used. 



TM 




for the TRS-80 COLOR Ext. Basic 



1 ORDERING INFORMATION 


Subscriptions* Cassette 


Diskette 


Year $50.00 


$75.00 


Vi Year $30.00 


$45.00 


Trial Issue $10.00 $15.00 

* Add $2.00 postage and handling. 
ALL SOFTWARE REQUIRES 16K. 



"Received my first copy 
. . . it's great! Please 
rush to me one of each 
back issue, so I'll have a 
complete set." 

R.G., Chicago, IL 



"Not only are the games 
fun and the applications 
useful, but the quality of 
the programs is excellent. " 
S.P.. Midwest 
Computer Software Sales 



See your local dealer or order direct: 
THE PROGRAMMER'S INSTITUTE 

a division of FUTUREHOLSE 
P.O. BOX 3191, DEPT. 1-B 
CHAPEL HILL, NC 27514 



FREE CATALOG AVAILABLE UPON REQUEST. 




1-919-489-2198 

10 AM - 9 PM, Mon - Sat 
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TRS-8CT 

2 Disk Model III 
#26-1066 $1849.00 




#26-3004 Color Computer 

$299.95 
#26-6001 TRS-80 Model 16 

$4099.00 

2%OFF! with cash 

BODEX CORP 

222 E. Main St. 
Marlboro, MA 01752 

(617)485-5115 



PARENTS! 



Want to STIMULATI your 
child'* LEARNING? 



l|T T.C*E. ,HOW TOU how! 



All PROGRAMS HAVI RUN 'KID . Mil NT. AND 10 UC A TOR TISTID 

PtRSONALIltO A.1.C (cOMPlITi SIT ONIY ON DISK) 
Aa*H«IIT: Child r*tB««4* *» HI. RIS. GRAPHICS 
B.ASIC MATH: Laarnlna t* ADDA SUBTRACT through <«untloa 
COUNTING: U»«i GRAPHICS »• r«pr»*«nt numbiri 

Stt a SPELL- IT 

Display, GRAPHICS h> r*pr«Mnt m wmr*. (MM Af-tm ■ 

'yp+t l« Hm> <wr«i if . r<n , tM cor met ■pciUna. f tutor 909 m 

TEACHING CLOCK __ 

Tho fwn wot M UARN Tlmo -^jf* 

EnCLCSE TC.J* LhUH'S NA~t . ... 

mao; *n EDUCATIONS NEfcJ JRi'i .. -AibL 

rts-AO COLOR COMPUTER EDUCATOR 

••308 



cflssEr-E version 



l»l9-*3 



9<»S:C *i«t m Itl4.35 



«H.9S 



• 19.35 



%2*. V- 



"? I tfcf-RD 
I'M [Tandy Corp, 



R-illILX Mi'?.? 'TIV 'j'J '■'■■"•^ 



ICE. PROGRAMS INC. 

P.O.B»x 2477 
Gal lrt*r* burg, MD 3 OR 79 
(301) M31I4* 



ATAMAN * 
Data Manager 



MULTI-PURPOSE RLE HANDLER 

BUILD RLE IN MINUTES 

UNLIMITED BACKUP 

AUTO SCREEN FORMAT 

AUTO TOTALS A SUBTOTALS 

HANDLES NEARLY 3000 RECORDS 

FIELD TESTE0 OVER 1 YR 

MODEL I OR III 

FORM LETTER WMTER/AD0RESS MERGE 

SYSTEM REG: 2 DRIVES. 4BK 

ABSOLUTELY NO PROGRAMMING 

MULTIPLE FILES ON 1 DISK 

COMPLETELY USER FRIENDLY 

AUTO PRINT FORMAT 

MENU DRIVEN 




SORTS IN MINUTES-NOT HOURS 

USERS GUIDE ON DISK 

SUPPORTS EPSON, OKIOATA, RS PRINTERS 

AUTOMATIC COLUMN AVERAGING 

STATE MODEL ft PRINTER WHEN ORDERING 

INFOANOUIRY 305-351-042* 

ORDERS ONLY 800-327-6590 

VISA OR MfC ACCEPTED 

$09.95 

FLORIDA RESIDENTS ADO S% 



A String Systems -" 3 

1446 HAGEN LN, ROCKLEDQE, FL 32955 



You've invested a lot of time and money into your computer . . . 
It's time that investment paid off! 





THE COLOR ACCOUNTANT 



The Programmer's Institute introduces THE COLOR ACCOUNTANT, the only complete personal financial package 
specifically designed for the TRS-80 COLOR computer. This unique package includes: 



1. Complete Checkbook Maintenance 

2. Chart of Accounts Maintenance 

3. Income /Expense Accounts 

4. Net Worth Statement 



5. Payments/Appointments Calendar 

6. Color Graph Design Package 
(graphs any files) 

7. Check Search 



8. Home Budget Analysis 

9. Decision Maker 
10. Mailing List 



After the initial setup, THE COLOR ACCOUNTANT requires less than an hour of data input each month. 

The checkbook maintenance program is the key to the entire package. Once your checkbook is balanced, the checkbook summary file will 
automatically update the home budget analysis, net worth, and income/ expense statements. You can then graph any file, record bills and 
appointments, make decisions, print a mailing list, analyze various accounts or stocks, and even calculate taxes. 

All programs are menu-driven and allow add /change /delete. Each file and statement can be listed to screen or printer, and saved to cassette 
or diskette. THE COLOR ACCOUNTANT also comes with 40 pages of documentation that leads you step-by-slep through the entire package. 
The TRS-80 COLOR Ext. Basic requires I6K for this package. ($74.95 cassette, $79.95 diskette). 

See your local dealer or order direct: 

on 



The perfect supplement to THE COLOR ACCOUNTANT. The Tax Handler includes: 

1. Complete Form 1040 

2. Schedule A (Itemized Deductions) 

3. Schedule (i (Income Averaging) 

This year let The Tax Handler prepare your taxes ($24.95 cassette, $29.95 diskette). 



THE PROGRAMMER'S INSTITUTE 

a division of FUTUREHOUSE 
P.O. BOX 3191, DEPT. I-B 
CHAPEL HILL. NC 27514 




1-919-489-2198 

JM\^^M^1or^a^^^ 
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ENCYCLOPEDIA FOR THE TRS-80* 



AND 

ENCYCLOPEDIA 

LOADER 




fY<> C 



$oP 



v?a 



ve 



ENCYCLOPEDIA LOADER' 






>■ .... 



& 



*!&*> 









What is ENCYCLOPEDIA LOADER™? It is a 
dump, on 30 minute cassettes, of most of the 
programs contained in the ENCYCLOPEDIA 
FOR THE TRS-80. It gives you the ability to 
load those programs quickly and easily, 
saving you hours of keying in programs 
and correcting keyboard errors. ENCY- 
CLOPEDIA LOADER helps you realize 
the full potential of your computing 
time. Individual cassettes are priced 



at $14.95. The entire ten volume set is only 
$119.97. That's a $149.50 value! And again, 
we pay the shipping and handling charges. 

So push your TRS-80 to its limits and 
maximize your computing time with ENCY- 
CLOPEDIA FOR THE TRS-80 and ENCYCLO- 
PEDIA LOADER. Use the attached card for 
ordering, or fill in the coupon and mail today 
to: Wayne Green Books. Sales Dept., Peter- 
borough, NH 03458 






& 






^ 




CALL TOLL FREE 
1-800-258-5473 for credit card orders. 



VISA' 




"TRS-80 is a trademark of the Radio 
Shack division of Tandy Corp. 

The ENCYCLOPEDIA FOR THE TRS-80* 
is a Wayne Green publication . 

ENCYCLOPEDIA LOADER™ is manu- 
factured by Instant Software, a division 
of Wayne Green Inc. 

Dealer Inquiries Invited. 



Wayne Green Books. 

A division of Wayne Green Inc. 

Pine St., Peterborough, NH 03458 



ENCYCLOPEDIA FOR THE TRS-80* & ENCYCLOPEDIA LOADER™ 



TV 



In Order Complete VH (and vase an evlra SI5.00)* 
Knivcloprdia f.ir the TKVRO*. Volume-. I I0, 
plus FREE Volume I ol I ncvclopcdia I o.idcr ' sl 
Hard I uvcr hdillua tMHOUl 
tnoelnprdia tor the TRvM*. Volume I It), 
plot FREE Volume I ot Lncvclopcdia loader 
s,,fi< ovwGMmiENMML 
spu imiihih: 

I no dopedia l.uadrr ' M Volumes I - 10 LL8000 $1 IM1 

a $14" JO value 

•Save $15.00 shipping and handling charge. When you order a 

complete an ol Encyctopcdiai 01 Loaders, WE hay the 
SHIPPINGI 



SlW.Stl 



MW.50 



In Oraai "single Volumes 
I'lcise indicate the Volume Nov and which cdilion sou prel'e 
Hard (over edition . SIV.V5 per val. 



■ $10.95 per Mil. 



Volume(s) • 

Ball Cover edil 

Volume! ■ i * 

t ncvelopedia I oader 3 $14.95 per cassette 





Shipping and handling: $150 per volume lor single volumes 
books and cassettes, $10 00 per item foreign ait mail 
Ml Encyclopedias shipped UPS with complete street addr 
all I oaden shipped 1st class mail 



Payment enclosed 



_ MasterCard 



1 ; VISA 



AmEx 



Card I 

Signature. 

Name 

Address 

C ii> 



InterBank I 

Card Expires. 



State 



.Zip. 



WAYNE GREEN BOOKS • SALES DEPT. •PETERBOROUGH, NH 03458 

EN12 



PUSH YOUR TRS-80* TO ITS LIMITS 



Voiumi 1 ^ 

Do*n me Read 

A'te' !heGcd-u5" 

Bus "ess Forms The invoice 

mo* Much interest' — Tne Rule o' 78 

Computer Education 

Measu- ng instructional E'tectiveneat 

With the TSS-6C 
Using a *RS-80 !c 'abu at* Student Rat-gs 
S*o-ds and Sorcery i 
The President Decides 
Babe Ruth Is Alive ano Well 

and Hitting Home funs on My TRS-80 
Four Graphics Methods 
TRSpirograph 
Aoventures HI Rosela^d 
Punch Out You' Dis«s 
Bu "i a S-ooce'S'jOce- 
Ca-Pooi 

Doctor Your RecO'OS 
Computaca- 

B.O-Ba-S B'Orn,Tnms m Bar G'aph Form 

TTY inte-tace 

Why Bother tc mte-'ace 

into the 80 S P»r" I. Par) n Pan I 
P-.nier Ca 'brat on 
De ay Loos 



How? 

You don't have to add on peripherals 
You don't have to add on memory 
You just have to add on information with 
ENCYCLOPEDIA FOR THE TRS-80* 



Volume 2 

The Name and Add-ess c » 

Expense Report 

Story Math 

Sm e — TRS8C Lc.es »c_ 

Kero 

Tie AttacK 

Worksheet 

Curve Plotter 

Chip Tester 

Build a Light Pen 

BASIC Word Processor 

States Wor«ed 

A Program 'or fiad Amatej" 
Pe-so-a P'cpety inventory 
Testing • 2 3 
Decode CW D"ec'i, 

'rom tne Cassette Earplug 
into the 80 s Pa-t iv Pan V 
EDTASM to' Mode m 
Put Some F ash into You' Menu 
FILEX A Communication Packa 

File E»change 



Volume 4 

Mailing L.St tor a Sma" BuS'heSS 

Business Forms-The Statement 

Grade Calculator 

Classroom Doodles 

Asleroid Adventi -e 

Compukala 

Puzzle' 

On Your Mark. Get Set. and Go 

p-ogram an EPRCM 

PanMutue 

Income Tai Withholding 

An Automatic Cassette Tape interlace 

Send and Recede RTTY n basic 

A Be'ter Way 

Do- t Be a Sic* POKE 

Take a PEEK at tc- Computer 
Hairy B. Nary and He«> Dec ma 
Instant lnde>er P-ogramm ng n D S" 9AS C 
UniKey tor tne Mode' i 
BREAK Disable 
Z-80 Disassembler 



F,e.Form 
Inventory 

A gec-a -tc 

Sucermaze 

M.cro Basketball 

images 

Regulate Your Video Monitor 

CTR 80 Modilicalions 

The Great Girl Scout Cookie Caper 

Two Energy Savers 

Listen To Your Keyboa-d 

A Deluxe E-sans.on ime-'ace 

interlacing tr-e TRS-8C 

to me Meath h<« p- rte- 
Savmo Mac- -e Language Be ! o* BAS'C 
CiSAB— Back*a-3s Basic 
into the 80 s Part VI Part VII 
Spoo a-d Despoc 
Renumoe-mg Made Eas T 



HiHoS- ve-' 

Accountant s Aid 

Vocabulary Bu'lde- 

Numerical Exp-ession Input ir Level II 

Pre-School Math 

A Day al the Races 

Star Dreck 

S' de Show 

G-apns P'us 

Interrupt Mode I 5 

Reverse Video Hardware Modification 

Team Stats 

Loans— Do You Reaiiy 

Know the Cost of You'S 7 
A Home-B-e* mte-tace 
A Mand.e on Programming Store and * 
Prime UP You- 80 
•he Z-80 s H dden Abiht.es 
KBFIX Your BASIC Programs 
File Name 
Macros: Let Your Micro Do the Work 



The Encyclopedia for the TRS-80* is the largest single 
source of TRS-80 information in the world. All ten vol- 
umes are loaded with practical programs and articles 
designed to take you and your computer beyond the lim- 
its of the manufacturer's documentation into a new and 
exciting world. 

Each volume contains between 15 and 20 articles ac- 
companied by diagrams and program listings. Virtually 
all of the articles are totally new and cover such topics 
as utility, tutorial, business, word processing, educa- 
tion, hardware, graphics, games and more. If you were 
to purchase individually all the programs contained in a 
single volume, it would cost you more than the $109.50 

price of an of an entire ten 
volume soft-cover edition. 
Think of it — over 150 pro- 
grams for $109.50. That's 
less than 73$ per pro- 
gram! And, when you buy 
a complete set, soft or 
hardcover edition, we pay 
the $15.00 shipping and 
handling charges. PLUS 
you get Volume 1 of EN- 
CYCLOPEDIA LOADER™ 
absolutely free— A $14.95 
value. 

■Programs contained on Encyc'ooedia Loader 
Book >s needed to use Loader 



Volume 6 

Exponents Smoothing 

• vote- Recist-at'on 

• Keeping Track- 
Student Scheduling and Attendance 

Pan i 
Pan ii 

• Space Misson 
Slot Machine 

Level ii G-aph cs Code 
Ne* Compu S«etch 
As You Like It With the PR 80 
- Add poCV Cacab.'ity to Your TRS80 
Magazine index 

• Monev Mirje- 

Groupies A Strategy to Group L ke Obiect 
Stick With it 
■ Eas, Select' c.'Mi Ou!r_„t 'o- the TRS-80 
Take Me to Your Solenoids 
Omowaid Better Sorts ol Th.ngs 
Random DiSt"butior. Graphics 
Using LMOFFSET 
Extractor An Ace n the He e' 
Page P--nt Your Listi-gs 
Let Your T "S 80 Do the Typing 



Volume 7 


7 


• Po "land figure Charting 




lo- Stocks and Commodities 




Dividend Reinvestment Plan 




Keeo-nq T-ack — 








Pan in 




Pan IV 




Roulette 




Five Snort Games 




Ru&ik s CubeiTMi Manipulator 








Memo', S'ze-20K' 




• 2-s» BAS'C word Processo* 




The B g Game 




Usi-g the use'u UART 




Sfmg Proti ems m the IRS «0 




Hex Octal and Binary 




to Der.nral Conversions 




■ EMOD FOIASM Modil cat Oris 




tor the Model III 




• Renumber One 




• Command 





Volume 8 
ss P'ed ic ! ion s from t he TRS-80 



8 



etical Apph 



atio 
i Progr, 



, ol 



Supe- Cur 

Queer Rama s Cave 

TRS-80 Jukebo. 

'nstant Graphics tor Everyone 

Sc-een Ed'tor for Graphics Creations 

Li*e-case Driver tor the TRS80 

Minor Monitor Maintenance 

Can You Fma that Suds'? 

Controlling You' Home with You' "RS-80 

Spea* 'o- You-se ' 

A Speech Synthesizer 'or the TRS 80 
Computer Number Systems and 

Anthmelic Operations — Part I 
Down in the Oumps Examining Memory 
New Disk Owners Denght 
Generate 
»'0'essionai Look ng List ngs 

*.ih aTeietypeiTM' 
Mort Patc-es to EDTASM 



Your Fan Share 
Getting Yoi.r Bean 
Doll Yowsetl Maz 



• .■<)..- 



_e't R ant lor -re Coo- Computer 

Supe' Fast Graphics HI BASIC 

Recreating G-aph.cs 

"J.-a- ' ■■>:- .i .'. •- - Bh 

EPROM Programmer 

-.•::• ' 

you' Pe-so-a' E«oense Account 

Ceiest *J Sc't*a-e 

Mode O Port 

ABim Precisior 

Computer Number Systems and Antn 
Ope' al « -Part II 



Sic 



'Sc> 



'RSDOS Mjt.pleCo 
Oandyzap 



ill Pr: 



10 



■ P an Ahead — A Program lo- P-ojecl Planning 

• Check Storage Prog -am 
' Loan Amortization 

• Ph, si ;s m Motion Exp Ormg the P-o.'ect le 

Prooiem 
Another Mag c Tne* 
Satan s Square 
Card P'ay.ng 
Unlocking the Colo' Compute' Graphics 

Character Code 

■ SBLOCK 

G-ac- :s a-S ZBAS'C =a~ "»■■ =a-' : 
Hear; BAS HeanOM 

• Piannmg Yoi.r Reti'ement 

Low ResouliO" Voice to' tne CotOf Compute* 
Alan joystick to TRS-80 Interlace 
Screen Status Byte 
t RS-80— Cryptographer 
" Lazy Logic T-aine' 

• Modify. ng SdPSit IC Send Conl-o 

Cha-acie-s lo Pnnfart 

• Shonstutt 

COMPLETE INDEX FOR Al> 10 VOLUMES 



UTILITY 



A software solution. 



Grandpa "Spooled" His 
Computer 



Tom Shield 

40 Lake Park Road 

Champaign, IL 61820 



Most large computers oper- 
ate on a time sharing ba- 
sis; the computer does a little of 
each of the many tasks it has to 
do at a time so that it can pro- 
cess all the tasks at the same 
time. Many peripherals are slow- 
er than the CPU itself; items 
such as terminals, printers and 
card readers run much slower 
than the CPU can drive them. 
The CPU can service each pe- 
ripheral and complete many 
other tasks before servicing the 
peripheral again. There is no 
need for time sharing to allow 
many users on a TRS-80, since 
most of us have only one ter- 
minal, but most of us do have a 
printer and need a spooler. 

Many spooling methods store 
the data quickly and then print 
the data while the CPU is doing 
other tasks. One method in- 
volves an extra CPU and mem- 
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ory. A second method, which I 
will present, involves using the 
computer's memory together 
with an interrupt routine to send 
characters to the printer. Both 
methods have advantages and 
disadvantages. The hardware 
method is invisible to the user 
and leaves all the machine's 
memory free, but at a prohibitive 
price. The second choice, a soft- 
ware spooler, is not invisible to 
the user and, depending on the 
buffer size, can drastically de- 
crease available memory. On 
the other hand, it is less expen- 



sive. Thus the software solution 
Is the choice of most small sys- 
tem users. 

Operation 

Spooling requires two separ- 
ate actions— storing the data 
and then sending it to the printer 
intermittently so the computer 
can do other tasks. The informa- 
tion must be intercepted before 
it is sent to the printer. The 
Model III PRCHAR (003BH) rou- 
tine jumps out into RAM at 
4025H and finds a JP 03C2H in- 
struction returning it to ROM. It 



is simple to change this to the 
address of my storage routine. 
At the point the routine jumps to 
RAM, the character to be printed 
is in the C register and the regis- 
ters are saved on the stack in 
the order HL,DE,IX,HL,BC (the 
first is an extra to balance the 
stack). I save the contents of the 
C register, POP the saved regis- 
ters off the stack, and return to 
the calling program. 

The Z80's first maskable inter- 
rupt causes a jump to 38H in the 
ROM and disassembly shows a 
subsequent jump to RAM at 













Program Listing 


1 


ROUTINE TO 


DUMP BUFFER TO 


PRINTER BY A 


USR 


CALL 


FD70 


F3 






DI 






'DISABLE INTERRUPTS 


FD71 


21 


C2 


03 


I D 


HL.03C2H 




'REPLACE JUMP TO STORE - 


FD74 


22 


26 


40 


LD 


(4026H) ,HL 




• ROUTINE TO DISABLE SPOOLER 


FD77 


ED 


4B 


FC FD 


LD 


BC, (FDFCH) 




"GET END POINTER 


FD7B 


20 


FE 


FD 


LD 


ML, (FDFEH) 




'GET BEGINNING POINTER 


FD7E 


7E 






LD 


A, (HI ) 




'SET CHARACTER FROM BUFFER 


FD7F 


CD 


3B 


00 


CALL 


003BH 




•PRINT IT 


FDB2 


23 






INC 


HL 




"POINT TO NEXT ONE 


FOB'S 


CD 


8D 


02 


CALL 


02SDH 




■CHECK FOR BREAK 


FD86 


C2 


t>:> 


FE 


JP 


NZ.FE60H 




' IF BREAK EXIT 


FDB9 


E5 






PUSH 


HL 




'SAVE CURRENT LOCATION 


FD8A 


ED 


42 




SBC 


HL.BC 




'CHECK FOR END 


FDBC 


El 






F-OP 


HL 




'RESTORE CURRENT LOCATION 


FD8D 


C2 


7E 


FD 


JP 


HZ , FD7EH 




'LOOP IF NOT DONE 


FD90 


CD 


5u 


Ft 


CM 1 


FESOH 




"RESET POINTERS 


Fvrs 


21 


An 


FD 


LD 


HL.FDAOH 




■STORE ROUTINE ADDRESS 


FD96 


22 


26 


40 


LD 


(402&H) , HL 




'CHANGE PRCHAR JUMP 


FD99 


hb 






fc I 






'ENABLE INTERRUPTS 


FD9A 


C9 






RET 






'RETURN TO CALLER 


F09B-FD9F 




00 




NOP 




















Listing continues 




TM 



HI-OCTANE IBM PC POWER 
FOR YOUR TRS-80 

WITH 

//MERLIN 

FEATURES 

Hardware 

•8088 16-Bit juP 

• Optional 8087 
Co-Processor 

• 64K Byte RAM 
(256K Byte 
expansion) 

• 8K EPROM 




8 Vectored 
Interrupts 
Real Time Clock 
RS232C Serial 
I/O (optional) 
Centronics Print- 
er Port (optional) 



Software 

• CP/M 86* 

• IBM PC* Disk 
Format 

• TRSDOS~CP/M86 
File Transfer 
Utilities 



WATCH FOR MULTI-TASKING O.S. 
Available for TRS-80 Models I or III 



Prices start at $1195 

Complete with Power Supply 
and Enclosure 



A 



-546 



miCRD PROJECTS 

Engineering Inc. 

10810 Washington Blvd., Suite C 

Culver City. CA 90230 

213/202-1865 



/4MERLIN is a registered trademark of Micro Projects Engineering Inc. 'CP/M and *CP/M 86 are registered trademarks of Digital 
Research, Inc. 'IBM PC is a registered trademark of IBM. MS DOS is a registered trademark of Microsoft Inc. Wordstar and Calcstar 
are registered trademarks of Micropro International Inc. TRS-80 and TRSDOS are registered trademarks of Radio Shack Inc. 



4012H. There a JP 3018H instruc- 
tion takes the program back into 
ROM. I inserted a routine with a 
simple change in this jump ad- 
dress. Since the interrupt routine 
must continue after the inserted 
routine is done, I saved and 
restored all registers. A JP 3018H 
instruction ends the routine. 

The programs in Listing 1 ac- 
complish what I have just de- 
scribed for a 48K Model III with or 
without disks. There are three 
main programs, two subroutines 
used by the main programs and 
two short programs to enable 
and disable the spooler. The pro- 
gram to store all characters sent 
to the printer resides at FDAOH; 
the program inserted in the inter- 
rupt sequence is at FEOOH. The 
program at FD70H accessed by a 
USR call from Basic dumps the 
buffer to the printer. The enable 
spooler routine at location 
FE40H puts in the addresses of 
my routines instead of the ROM 
addresses; the routine at FE70H 
reverses this process, disabling 
the spooler. With the routine at 
FE40H set as the starting point 
for execution after loading from 
disk, the spooler is on immedi- 
ately after loading. The disable 
spooler routine is called from Ba- 
sic via a USR call. 

These programs use a pre- 
defined buffer area and commu- 
nicate the current buffer end 
and beginning by using four 
bytes of memory as pointers. 
Addresses FDFCH and FDFDH 
hold the end of buffer address, 
FDFEH and FDFFH hold the be- 
ginning address. Initializing the 
pointers to the starting value of 
F000H sets the limits on the buf- 
fer; you can replace FOOOH at 
address FE51H with any start- 
ing address of the buffer. The 
next time the buffer is empty the 
pointers will be reset to this new 
value. The end of the buffer is 
set at FD60H so the program is 
not written over. 

The programs also check 
memory bytes used as switches 
to control the spooler's opera- 
tion. The byte at FDFAH con- 
trols whether the characters are 
stored or sent directly to the 
printer; a zero value here selects 
storage and anything else re- 
verts to normal operation. Ad- 
dress FDFBH controls the inter- 
rupt routine. If it is zero, the cur- 
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Listing 1 continued 



ROUTINE TO STORE ALL CHARACTERS SENT TO PRINTER 



FDAO 


F3 






Dl 




FDA1 


F5 






PUSH 


AF 


FDA2 


3A 


FA 


FD 


LD 


A, <FDFAH) 


FDA5 


FE 


00 




CP 


OOH 


FDA7 


28 


03 




JR 


Z.FDAEH 


FDA9 


Fi 






POP 


AF 


FDAA 


FB 






El 




FDAB 


C3 


C2 


03 


JF 


03C2H 


FDAE 


79 






LD 


A,C 


FDAF 


ED 


SB 


FC 


FD LD 


DE, (FDFCH) 


FDB3 


12 






LD 


(DE) .A 


FDB4 


13 






INC 


DE 


FDB5 


21 


60 


FD 


LD 


HL.FD60H 


FDB8 


ED 


52 




SBC 


HL.DE 


FDBA 


CA 


CA 


FD 


JP 


Z.FDCAH 


FDBD 


ED 


33 


FC 


FD LD 


(FDFCH), DE 


FDC1 


Fl 






POP 


AF 


FDC2 


El 






FOP 


HL 


FDC3 


Dl 






POP 


DE 


FDC4 


DD 


El 




POP 


IX 


FDC6 


El 






POP 


HL 


FDC7 


CI 






F-OP 


EC 


FDC8 


FB 






EI 




FDC9 


C9 






RET 




FDCA 


21 


C2 


03 


LD 


HL.03C2H 


FDCD 


22 


26 


40 


LD 


(4026H) , HL 


FDDO 


2A 


FE 


FD 


LD 


HL, (FDFEH) 


FDD3 


7F 






LD 


A, (HL) 


FDD4 


D5 






PUSH 


DE 


FDD5 


CD 


3B 


00 


CALL 


003BH 


FDD8 


Dl 






POP 


DE 


FDD9 


23 






INC 


HL 


FDDA 


CD 


8D 


02 


CALL 


02BDH 


FDDD 


C2 


60 


FE 


JP 


NZ.FE60H 


FDEO 


E5 






PUSH 


HL 


FDE1 


ED 


52 




SBC 


HL.DE 


FDE3 


El 






POP 


HL 


FDE4 


C2 


D3 


FD 


JP 


NZ.FDD3H 


FDE7 


CD 


50 


FE 


CALL 


FE30H 


FDEA 


21 


Ao 


FD 


LD 


HL, FDAOH 


FDED 


22 


26 


40 


LD 


(4026H) ,HL 


FDFO 


C3 


CI 


FD 


JP 


FDC1H 


FDF3-FDF9 


OO 




NOP 


SWITCHES AND POINTERS 




FDFA 


oo 










FDFB 


00 










FDFC 


00 










FDFD 


FO 










FDFE 


00 










FDFF 


FO 










ROUTINE 


INSERTED 


IN INTERRUPT SEQUENCE 


FEOO 


F5 






PUSH 


AF 


FECI 


3A 


FB 


FD 


LD 


A, (FDFBH) 


FE04 


FE 


00 




CP 


OOH 


FEO& 


28 


04 




JF 


Z.FEOCH 


FE08 


Fl 






POP 


AF 


FE09 


C3 


18 


30 


JP 


3018H 


FEOC 


DB 


F8 




IN 


A, (FBH) 


FEOE 


E6 


FO 




AND 


FOH 


FEIO 


FE 


30 




CP 


30H 


FE12 


C2 


08 


FF 


JP 


NZ.FE08H 


FE15 


E5 






PUSH 


HL 


FE16 


D5 






PUSH 


DE 


FEW 


2A 


FE 


FD 


LD 


HL, (FDFEH) 


FE1A 


ED 


5B 


FC 


FD LD 


DE, (FDFCH) 


FE1E 


E5 






PUSH 


HL 


FE1F 


ED 


52 




SBC 


HL.DE 


FE21 


El 






POP 


HL 


FE22 


CA 


2E 


FE 


JP 


Z,FE2EH 


FE25 


/E 






LD 


A, (HL) 


FE26 


D3 


F8 




OUT 


(F8H) ,A 


FE28 


23 






INC 


HL 


FE29 


22 


FE 


FD 


LD 


(FDFEH) ,HL 


FE2C 


IB 


03 




JR 


FE31H 


FE2E 


CD 


50 


FE 


CALL 


FESOH 


FE31 


Dl 






POP 


DE 


FE32 


El 






POP 


HL 


FE33 


F 1 






POP 


AF 


FE34 


C3 


18 


SO 


JP 


3018H 


FE37-FE3F 


00 




NOP 


ROUTINE 


TO 


ENABLE 


THE SPOOLER 


FE40 


21 


AO 


FD 


LD 


HL, FDAOH 


FE43 


22 


26 


40 


LD 


(4026H) ,HL 


FE46 


21 


OO 


FE 


LD 


HL, FEOOH 


FE49 


22 


13 


40 


LD 


(4013H),HL 


FE4C 


C-3 


2D 


40 


JP 


402DH 


FE4F 


00 






NOP 





DISABLE INTERRUPTS 

SAVE AF 

BET SWITCH VALUE 

IS IT ZERO"' 

CONTINUE IF IT IS 
•RESTORE AF 

ENABLE INTERRUPTS 
•RETURN TO PRCHAR IN ROM 

TRANSFER CHARACTER TO A 

GET END POINTER 

SAVE CHARACTER 
•NEXT LOCATION 

END OF bUFFER 
•CHECK FOR OVERFLOW 
• IF IT IS DUMP BUFFER 
•REPLACE POINTER 
•BALANCE STACK 
•BALANCE STACK 
•RESTORE REGISTERS 



'ENABLE INTERRUPTS 

•RETURN TO CALLER 

•ORIGINAL ADDRESS 

•REPLACE IT 

'GET BEGINNING POINTER 

'GET CHARACTER 

•SAVE END POINTER 

'PRINT CHARACTER 

•RESTORE POINTER 

'NEXT CHARACTER 

•CHECK FOR BREAK 

'ON BREAK EXIT 

'SAVE CURRENT LOCATION 

'CHECK FOR END 

'RESTORE CURRENT LOCATION 

'LOOP IF NOT DONE 

•RESET POINTERS 

'STORE ROUTINE ADDRESS 

'CHANGE PRCHAR JUMP 

'GOTO EXIT 



'SWITCH FOR STORAGE 
'SWITCH FOR INTERRUPT 
•END OF BUFFER POINTER 

'START OF BUFFER POINTER 



SAVE AF 
•GET SWITCH VALUE 
'IS IT ZERO^ 

IF IT IS CONTINUE 
•RESTORE AF 
•RETURN TO INTERRUPT 
'GET PRINTER STATUS 

• CHECK I T 

' IS IT 48'? 

•EXIT IF NOT READY 

•SAVE HL.DE 

•GET BEGINNING POINTER 
•GET END POINTER 
•SAVE CURRENT LOCATION 
'CHECK IF BUFFER IS EMPTY 
'RESTORE CURRENT LOCATION 

• IF EMPTY GOTO EXIT 
•GET CURRENT CHARACTER 
'SENT IT TO PRINTER 
•POINT TO NEXT CHARACTER 
•REPLACE POINTER 
•DON'T RESET POINTERS 
•RESET POINTERS 
'RESTORE REGISTERS 



CONTINUE WITH INTERRUPT SEQUENCE 



'LOCATION OF STORE ROUTINE 
'CHANGE PRCHAR JUMP 
'LOCATION OF INTERRUPT ROUTINE 
'CHANGE INTERRUPT JUMP 
'RETURN TO DOS 



SUBROUTINE TO RESET POINTERS TO START OF BUFFER 

FE50 21 00 FO LD HL, FOOOH 'START OF BUFFER 



Listing 1 continues 



QUALITY PERFORMANCE... 

...PROFESSIONAL RESULTS 

TRS-80 FLOPPY /HARD DISK SOFTWARE 



RECORDS MANAGEMENT DATA MANAGEMENT 



File Card 



Model I or III 48K, 1 Disk 



Model I or III 48K, 1 Disk 



Stat-to-Plotter 



One easy-to-use program replaces your 
filing cabinet and its contents! No need to 
keep changing between word processor, data- 
base manager, mailing list, file index, or desk 
calculator. We put it all together in FILE 
CARD. 

Your database entries and related texts 
appear on screen together with many options 
for sorts, global searches, reports, and labels. 
FILE CARD frees the user to dream creatively 
and work efficiently. Typical applications are: 

Personnel/case records 
Patient/client histories 
Library indexes and abstracts 
Art collection commentaries 
Customer/sales activities 
Product quality profiles 
Vendor information 

Model 11/16 64K, 2 Disk $224.50 



SPECIALIZED 
SOFTWARE 

HI-RES PRINTING WITH 
EP-Graphics 

Add our graphics commands to BASIC. 
By creating a magic slate in memory, you can 
now print HI-RES charts and graphs. The 
printouts are full-size printer/plotter emula- 
tions. Requires user to write short BASIC 
programs and have EPSON MX-80 or 100 
with Graftrax. 



Use your multipen intelligent plotter 
from Radio Shack or Houston Instruments 
to produce publication quality graphics. 
Numerical entries from database, datafile, 
or keyboard are passed through Radio 
Shack's Statistical Analysis Programs. The 
results are automatically plotted on paper 
or projection transparencies. The graphs and 
legends are accurate enough for scientists 
and engineering presentations. 



Model 11/16 64K, 2 Disk 



$79.50 



CREATE A DISK LIBRARY 

Catalog 

"Where did I put that program?" With 
CATALOG, a few keystrokes will find any 
program/file in your collection. The screens, 
sorts, printouts, and ability to handle "funny" 
disks make this the professional's choice. 

Model I 48K, 1 Disk $69.50 

EDUCATION ASSISTANCE 

Tumble 

Explore the realism of rotating images 
with smooth, real-time graphics. Adjust 
speeds and tilts from either keyboard or 
joystick with this simple, fun, educational 
package. 



$39.50 



PROJECT MANAGEMENT 
Gantt-Pack V 3.0 

This FAST, flexible, powerful program 
can manage all your scheduling needs. Use 
the GANTT-PACK charts to visualize: 

Hourly client/patient visits 
Daily appointments and meetings 
Weekly work crew assignments 
Monthly short course offerings 
Yearly research projects 

The GANTT-PACK charts and tables help 
manage time and organize activities. We 
$99.50 automated and enhanced the information 
available on the charts, and made them very 
easy to update or change. Engineers have 
used this technique for over fifty years. Now 
everyone can benefit without having to be a 
draftsman or programmer. 

We are especially proud to offer this pro- 
gram with similar screens, printouts, and file 
structures for all these computers. 



Model I or III 48K, 2 Disk 
Model 11/16 64K, 2 Disk 



$224.50 
$224.50 




SERVICE, QUALITY AND RELIABILITY FOR: 

Small businesses, professionals, government contractors, major 
corporations, schools and colleges, and people from all walks of life. 



09 



LIBRA LABORATORIES, INC. 

495 MAIN STREET, METUCHEN, NEW JERSEY 08840 



201-494-2224 



Terms: 

Orders shipped UPS free for M/C, VISA, check, or money order. 

Orders shipped UPS COD. for purchase order number. 

International orders add 10%. 

Please specify computer model. 



Dealer Inquiries Invited: 



Radio Shack Trademark of Tandy Corporation. 
TRS-80 Trademark of Tandy Corporation. 
Epson Trademark of Shinshu Seiki Co., Ltd. 
HI-PLOT Trademark of Houston Instruments. 



^See List ol Advertisers on Page 451 
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rent byte in the buffer is sent to 
the printer every interrupt cycle, 
otherwise nothing is done. This 
allows all the data printed by a 
program to be stored and 
dumped at once, using the rou- 
tine at FD70H after program ex- 
ecution is complete. If the buffer 
is filled, the contents will be 
sent to the printer regardless of 
the status of the byte at FDFBH. 
This ensures no lost data on buf- 
fer overflow. 

Use 

The spooler program given 
here is invisible; when in place 
the only sign of its operation is 
the Ready prompt under Basic 
or DOS while the printer is run- 
ning. The program can be en- 
tered with a disk system by us- 
ing Debug to POKE the values 
into memory and then using 
DUMP to save it to disk. When 
dumping the program to disk, 
set TRA = OFE40 so the program 
is enabled immediately when it 
is called under DOS. Make sure 
the pointers are included in the 
dump and are both set to FOOOH; 



Listing 1 continued 








FE53 


22 


FE FD 


LD 


(FDFEH) ,HL 


•RESET START POINTER 


FE56 


22 


FC FD 


LD 


(FDFCH) ,HL 


•RESET END POINTER 


FE59 


D9 




RET 




•RETURN 


FE5A-FE5F 


00 




NOP 




EXIT ROUTINE UN BREAK 






FEAO 


LD 


50 FE 


CALL 


FE50H 


'RESET POINTERS 


FE&3 


21 


Ao FD 


LD 


HL.FDAOH 


•LOCATION OF STORE ROUTINE 




22 


26 40 


LD 


(4026H! . HL 


■REPLACE JUMP ADDRESS 


FEA9 


hb 




EI 




'ENABLE INTERRUPTS 


FE6A 


a 


19 1A 


JP 


1A19H 


■JUMP TO BASIC READY 


FE&D-FE6F 


OO 




NOP 




ROUTINE 


TO 


DISABLE 


THE SfOOLER BY A USR CALL 




FE70 


21 


C2 03 


LD 


HL.03C2H 


' ORIGINAL PRCHAR ADDRESS 


FE73 


22 


26 4u 


LD 


(4026H) ,HL 


" REPLACE I T 


FE76 


21 


IB 30 


LD 


HL,301BH 


•ORIGINAL INTERRUPT ADDRESS 


FE79 


22 


1 5 40 


LD 


(4013H) ,HL 


'REPLACE IT 


FE7C 


L'V 




RET 




•RETURN TO CALLER 


Listing 


1 : 


Commented disassembly o4 spooler 


as it should 






be loaded intc 


memory. 





or the program will try to send 
the empty buffer to the printer. 
Set the switch values to the sta- 
tus desired when the program is 
loaded. Without disks, use List- 
ing 2 to POKE the program into 
memory. At FE4CH the jump to 
DOS (402DH) is replaced with a 
return (C9) instruction allowing 
the spooler to be enabled by the 
Basic USR call in the program. 



Program Listing 2 



CLS:DEFINT I 

SUM-* 

PRINT'PROGRAM TO LOAD SPOOLER FOR THE" 

PRINT'HODEL III, BY TOM SHIELD, AUGUST 1981' 

PRINT'MEMORY SIZE SHOULD BE SET AT 61418" 

FORI— 656 TO -388 "LOAD FROM PD78H TO FE7CH 

READ BYTE 

POKE I, BYTE 

SUM-SUM+BYTE 

' NEXT I 

I IF SUM034143 THEN PRINT'CHECK SUM ERROR, CHECK 'DATA' STATE 



Listing 2 continues 




AT LAST!!! A Micro-Design 
Model III System Upgrade. 

The MicRO-DisiqiN MocJeI III upqRAcfe iNcludES MicRO-DEsiqNs exceptjonaI MDX 6 disk 

CONTROllER DO ARd, ONE 40 TRACk doublE dENSJTy Disk DRiVE, NECESSARy iNSTAllATJON CAblES ANd 
hARdWARE. ( ~ 



For Mori InIohmaiion & tun Liu hah hi 
CaII or Write 

MICRO-DESIGN 

6>01 MancNaca RoacJ 
Austin Tixas, 78745 

1-800-531-5002 




S«» our Full P«g« Ad on Pag* 407 
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Mod III GRAFYX SOLUTION $299.95 .« 

• 512 x 192 Dot Graphics increases resolution 16 X (better than Apple] 

• Extensive Business, Personal, Educational, and Scientific applications 

• 14 BASIC commands set and reset Points, Lines, Circles, Boxes, etc. 

• Allows Display and Printout of detailed Line, Bar, and Pie graphs 

• 80 Character/line display compatible with BASIC programs and DOS 

• Price includes 98K bits memory, 30 programs, 52 page manual 

• Plug-in, clip-on board eliminates soldering for easy installation 







f 



$40 



1+ 



VALID ii-i to 12-31-82 



Min iiurttuMfiK Culv> Soli" i« 80-C.nln. M-lu.n ihi- 
i mjpon wilh rrKivi'dlKNi Uum l.. in i- . 




Mod I, III 80-GRAFIX** $169.95 ,<* 

• Create and Save 128 programmable hi-resolution characters/shapes 

• Characters are generated within an 8 x 12 matrix (Mod I: 6 x 12) 

• Great for creating game figures, symbols, and alternate character sets 

• Excellent software support (20 programs) & extensive documentation 

• Module easily installs within the computer with no soldering 



Manual only $15 
Products guaranteed 
Dealers welcome 

^ See List ol Advertisers on Page 451 



Micro-Labs, Inc. 214-235-0915 

902 Pinecrest, Richardson, Texas 75080 



FREE shipping 

Prepaid or COD 

Tx. res add 5% 
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Under Basic answer the mem- 
ory size question with 61400 to 
protect the program and its buf- 
fer. Different buffer sizes require 
a different setting. Under DOS, 
the program needs to be pro- 
tected from being overwritten by 
commands that use the top 
180H of memory. Executing a 
Clear (MEM =0F000) under DOS 
allows the spooler to execute 
under DOS as well as Basic. 
Failure to do this causes the ma- 
chine to hang up when the pro- 
gram is erased and the interrupt 
sequence branches to a nonex- 
istent routine. 

The spooler stores data and 
sends it to the printer when it is 
available; since the buffer size is 
fixed, only a limited amount of 
data can be stored. If the buffer is 
filled faster than it is printed, it 
will eventually be full. When this 
happens the whole buffer is 
dumped to the printer so that no 
data are lost. Since this is done 
by the character storing routine, 
the Ready prompt will not appear 
until the buffer is empty and nor- 
mal operation has resumed. If 
you do not want the buffer con- 
tents or simply need to stop 
sending data to the printer, Break 
stops execution and clears the 
buffer. This is also true for the 
routine to dump the buffer via a 
USR call. Since the interrupt 
routine only sends data to the 
printer when it is ready you can 
put your printer off-line to change 



or adjust the paper while a pro- 
gram is running without stopping 
its execution. 

A spooler is a very useful util- 
ity but you must understand 
what it does to maximize its use. 
If a program producing output is 
slower than the printer you do 
not need the spooler: The printer 
will be ready when the program 
needs it. If you use programs 
that need large amounts of 
memory or do word-processing 
with big documents, using mem- 
ory as a buffer is detrimental to 
normal operation. On the other 
hand, if you have a short pro- 
gram to LLIST, after which you 
would like to look at a disk direc- 
tory or run the program, it is 
great to get the Ready prompt 
almost before the printer starts. 
Or if you want to print 10 each of 
various mailing labels you can 
enter the next address while the 
previous one is still printing! 
The advantages are endless. 
The sound of most printers is 
not very musical; with a spooler I 



Listing 2 continued 


MEHTS":BND ELSE PRINT'LOAD COMPLETE, AND SPOOLER RUNHING* 


121 POKE 


16526, 64:POKE 16527,254 'WITH DISKS DEFUSR0-IHFE40 


130 X-USR(B) 'OR X-USR0(0) WITH DISKS 


140 PRINT'SOME IMPORTANT ADDRESSES AREi* 


150 PRINT" -448 (1HPE40) -LOCATION OP ENABLE SPOOLER ROUTINE" 


160 PRINT" -400 (IHPE70) -LOCATION OF DISABLE SPOOLER ROUTINE" 


170 PRIN" 


" -656 (4HFD70) -LOCATION OF PRINT BUFFER ROUTINE* 


160 PRINT" -518 (iHPDPA) -LOCATION OP STORE SWITCH" 


190 PRINT" -517 (4HPDPB) -LOCATION OP INTERRUPT SWITCH" 


200 END 




210 DATA 


243, 33, 194, 3, 34, 38, 64, 237 


220 DATA 


75, 252, 253, 42, 254, 253, 126, 205 


230 DATA 


59, 0, 35, 205, 141, 2, 194, 96 


240 DATA 


254, 229, 237, 66, 225, 194, 126, 253 


250 DATA 


205, 80, 254, 33, 160, 253, 34, 38 


260 DATA 


64, 251, 201, 0, 0, 0, 0, 


270 DATA 


243, 245, 58, 250, 253, 254, 0, 40 


280 DATA 


5, 241, 251, 195, 194, 3, 121, 237 


290 DATA 


91, 252, 253, 18, 19, 33, 96, 253 


300 DATA 


237, 82, 202, 202, 253, 237, 83, 252 


310 DATA 


253, 241, 225, 209, 221, 225, 225, 193 


320 DATA 


251, 201, 33, 194, 3, 34, 38, 64 


330 DATA 


42, 254, 253, 126, 213, 205, 59, 


340 DATA 


209, 35, 205, 141, 2, 194, 96, 254 


350 DATA 


229, 237, 82, 225, 194, 211, 253, 205 


360 DATA 


80, 254, 33, 160, 253, 34, 38, 64 


370 DATA 


195, 193, 253, 0, 0, 0, 0, 


380 DATA 


0, 0, 0, 0, 0, 240, 0, 240 


390 DATA 


245, 58, 251, 253, 254, 0, 40, 4 


400 DATA 


241, 195, 24, 48, 219, 248, 230, 240 


410 DATA 


254, 48, 194, 8, 254, 229, 213, 42 


420 DATA 


254, 253, 237, 91, 252, 253, 229, 237 


430 DATA 


82, 225, 202, 46, 254, 126, 211, 248 


440 DATA 


35, 34, 254, 253, 24, 3, 205, 80 


450 DATA 


254, 209, 225, 241, 195, 24, 48, 


460 DATA 


0, 0, 0, 0, 0, 0, 0, 


470 DATA 


33, 160, 253, 34, 38, 64, 33, 


480 'IN LINE 490 FOR DISKS REPLACE 201->195,0->45,0->64 


490 DATA 


254, 34, 19, 64, 201, 0, 0, 


500 DATA 


33, 0, 240, 34, 254, 253, 34, 252 


510 DATA 


253, 201, 0, 0, 0, 0, 0, 


520 DATA 


205, 80, 254, 33, 160, 253, 34, 36 


530 DATA 


64, 251, 195, 25, 26, 0, 0, 


540 DATA 


33, 194, 3, 34, 38, 64, 33, 24 


550 DATA 


48, 34, 19, 64, 201 













Program Listing 3 


FEBO 


7E 






LD 


A, (HL> 


'BET 1ST CHARACTER AFTER FILESPEC 


FE81 


FE 


OD 




CP 


ODH 


' IS THERE NONE? 


FE83 


CA 


DC 


FE 


JP 


Z , FEDCH 


•THEN JUST ENABLE SPOOLER 


FE86 


CD 


OO 


f-f- 


CALL 


FFOOH 


'CONVERT TO HEX 


FE89 


E5 






PUSH 


HL 


•SAVE POSITION 


FEBA 


21 


00 


10 


LD 


HL, lOOOH 


'MULTIPLIER FOR 1ST DIBIT 


FE8D 


D5 






PUSH 


DE 


'SAVE DE 


FEBE 


CD 


4E 


44 


CALL 


444EH 


'CALL »DMULT 


FE91 


Dl 






POP 


DE 


'RESTORE DE 


FE92 


65 






LD 


H,L 


'MOVE MIDDLE BYTE 

Listing 3 continues 



C & S Electronics Mart Ltd, 



Dcakrr R 491 



32 E Main Street. Milan. Michigan 48160 



Telephone (313) 439-1400 — 439-1508 



26-1061 Model 111 4K lev. ] 




$650.00 


26-1062 Model HI I6KLev.U 




805.00 


26-1065 Model 111 48K 1 disk 




1660.00 


26-1066 Mod. Ill 48K 2 disk/RS-232 


2050.00 


26-4002 64K Model 11 1 disk 




2995.00 


26-3001 Color Comp. 4K Lev. 




300.00 


26-3002 Color Comp. 16K Lev 


Ilext. 450.00 


26-3003 Color Comp. 32K Lev 


Uext. 590.00 


26-3022 O-Drivc for C.C. 




520.00 


26-3023 1-3 Drives for C.C. 




340.00 


26-5000 Videotex! 4K 




320.00 


26-5001 Videotex! 16K 




420.00 


26-3501 Pocket Comp. 




135.00 


26-3503 Interface 




26.00 


26-3505 Printer/Interface 




115.00 




We will match or beat any price in the United States. 



Prices can change uirhoui notification. All prices are cash prices: there u ill he a 4% handling charge for credit card use 



Colter 



48 K 2 disk drive 40 track 


$1800.00 


48 K 2 disk/RS-232 


1875.00 


48 K 2 disk/80 track 


1950.00 


48 K 2 disk/80 track/RS-232 


2025.00 


Printers 




Comet Printer 


340.00 


Smith Corona TP- 1 


695.00 


Line Printer V 


1595.00 


CItoh8510 


700.00 


Line Printer VI 


950.00 


Line Printer VII 


280.00 


Line Printer V1U 


670.00 


Daisy Wheel II 


1675.00 


Quick Printer 


275.00 


Quick Printer II 


170.00 


Plotter 


1320.00 



S 138 
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| Listing 3 continued 










FE93 


6F 






LD 


L,A 


'HOVE LOWER BYTE 


FE94 


EB 






EX 


DE.HL 


'SAVE RESULT 


FE93 


El 






POP 


HL 


'RESTORE POSITION OF BUFFER 


FE96 


23 






INC 


HL 


'NEXT CHARACTER 


FE97 


CD 


OO 


FF 


CALL 


FFOOH 


■CONVERT TO HEX 


FE9A 


E5 






PUSH 


HL 


•SAVE POSITION 


FE9B 


21 


oo 


Ol 


LD 


HL.OIOOH 


'MULTIPLIER FOR 2ND DIGIT 


FE9E 


D5 






PUSH 


DE 


'SAVE DE 


FE9F 


CD 


4E 


44 


CALL 


444EH 


•CALL »DMULT 


FEA2 


Dl 






POP 


DE 


'RESTORE DE 


FEA3 


65 






LD 


H,L 


'MOVE MIDDLE BYTE 


FEA4 


bF 






LD 


L.A 


'MOVE LOWER BYTE 


FEAS 


ED 


5A 




ADC 


HL.DE 


•ADD IN EARLIER RESULT 


FEA7 


EB 






EX 


DE.HL 


•SAVE IT 


FEA8 


El 






POP 


HL 


•RESTORE BUFFER POSITION 


FEA9 


23 






INC 


HL 


•NEXT CHARACTER 


FEAA 


CD 


OO 


FF 


CALL 


FFOOH 


•CONVERT TO HEX 


FEAO 


E5 






PUSH 


HL 


•SAVE POSITION 


FEAE 


21 


10 


00 


LD 


HL.OOIOH 


•MULT FOR 3RD DIGIT 


FEB1 


D5 






PUSH 


DE 


'SAVE RESULT 


FEB2 


CD 


4E 


44 


CALL 


444EH 


•CALL »DMULT 


FEB5 


Dl 






POP 


DE 


•RESTORE TOTAL 


FEB6 


65 






LD 


H,L 


•MOVE MIDDLE BYTE 


FEB7 


6F 






LD 


L,A 


"MOVE LOWER BYTE 


FEB8 


ED 


5A 




ADC 


HL.DE 


'GET TOTAL 


FEBA 


EB 






EX 


DE.HL 


'SAVE IT 


FEBB 


El 






POP 


HL 


'RESTORE BUFFER POSITION 


FEBC 


23 






INC 


HL 


'NEXT ONE 


FEBD 


CD 


OO 


FF 


CALL 


FFOOH 


'CONVERT TO HEX 


FECO 


bF 






LD 


L.A 


'LOW ORDER BYTE 


FECI 


26 


OO 




LD 


H.OOH 


•HIGH ORDER BYTE 


FEC3 


ED 


SA 




ADC 


HL, DE 


■ADD TO TOTAL 


FEC5 


11 


OO 


80 


LD 


DE.BOOOH 


'LOWER LIMIT ON BUFFER 


FEC8 


E5 






PUSH 


HL 


•SAVE TOTAL 


FEC9 


ED 


52 




SBC 


HL.DE 


•CHECK IT 


FECB 


El 






POP 


HL 


•GET TOTAL 


FECC 


FO 


DC 


FE 


JP 


H.FEDCH 


•EXIT IF TOO LOW 


FECF 


E3 






PUSH 


HL 


•SAVE TOTAL 


FEDO 


11 


60 


FD 


LD 


DE.FDt.OH 


•UPPER LIMIT ON BUFFER 


FEDS 


ED 


52 




SBC 


HL.DE 


'CHECK IT 


FEDS 


El 






POP 


HL 


'GET TOTAL 


FED* 


F2 


DC 


FE 


JP 


P.FEDCH 


'EXIT IF TOO HIGH 


FED9 


22 


51 


FE 


LD 


(FE51H) ,HL 


'CHANGE BUFFER POINTER 


FEDC 


21 


AO 


FD 


LD 


HL.FDAOH 


'STORE ROUTINE ADDRESS 


FEDF 


22 


26 


40 


LD 


(4026H),HL 


•CHANGE LPRINT JUMP 


FEE2 


21 


OO 


FE 


LD 


HL.FEOOH 


' INTERRUPT ROUTINE ADDRESS 


FEES 


22 


13 


40 


LD 


<4013H),HL 


'CHANGE INTERRUPT JUMP 


FEE8 


C3 


2D 


40 


JP 


402DH 


•JUMP TO DOS 


FEEB- 


FEFF 


OO 




NOP 


'OR ANYTHING 


FFOO 


7E 






LD 


A, (HL) 


'GET CHARACTER 


FFOl 


FE 


40 




CP 


40H 


'COMPARE TO 40H 


FF03 


F2 


o« 


FF 


JP 


P.FFOAH 


' IF LETTER JUHP 


FF06 


DE 


F2 




SBC 


A.2FH 


'CORRECTION FOR NUMBERS 


FF08 


18 


02 




JP. 


FFOCH 


'GOTO RETURN 


FFOA 


DE 


37 




SBC 


A.37H 


'CORRECTION FOR LETTERS 


FFOC 


C9 






RET 




•RETURN 


Listi 


ng 3i 


Routine to a 


•t the buHer 


tin Hh»n tha apoolvr 






1 % 


called from DOS. It la 


simply jililed to th* 






rmmt a* th« 


program mi th TRA-FE80 on duap to disk. 



spend less time listening and 
staring at a lifeless screen. 

Program Refinements 

I have made two additions to 
the program for DOS users only. 
You can solve the problem of ex- 
ecuting a CLEAR (MEM = xxxxx) 
by applying the following patch 
to the spooler once it is on disk: 

PATCH SPOOL/CMD (ADD = 0FE59.FIND 
■ C9000000.CHG = 221 144C9) 

This patch automatically pro- 
tects the spooler from DOS. The 
program in Listing 3 sets the 
start of the buffer when the 
spooler is called from DOS. Add 
this segment to the end of the 
spooler program and DUMP from 
FD70H to FFOCH to disk setting 
TRA =0FE80. The program reads 
the first four characters after the 
filespec (the normal TRSDOS 
syntax) and uses that address as 
the new beginning for the buffer. 
You must enter the address in 
hexadecimal format with no 
leading characters. To set the 
start of the buffer to DOOOH ex- 
ecute under DOS: SPOOL DOOO. 
If no address is entered the 
default value of FOOOH is used as 
before. Note you must still pro- 
tect the spooler under Basic. An- 
other useful trick is to DUMP the 
code at FE70H to FE7CH with 
TRA=0FE70 under the name of 
SPOOLOFF. Entering SPOOL- 
OFF from DOS turns the spooler 
off. ■ 



THE 



SPECIALS 

COLUMN 



PMC-81 16K $499 
TIMEX 1000 $85 

Offer Ends December, 1982 

24 HRS ORDERS ONLY CALL 
800-633-2252, Ext 720 



All Other Calls 313-538-1 112 



BARGAIN 



PRICES ! 



TR8-80 COMPATIBLES 

PMC-81 16K 
PMC-81 48K 
PPtC"o1 cpm 
LNWB0 48K 
LMWeO H 48K CPM 

EXPANSION INTERFACES 

LNW32K 
HOLMES Wl 16K 
HOLMES IM2/IM2P 32K 
FREEDOM OPTION 
FREEDOM PLUS 

DtSKDaiVES 

BASF40TRKS/S 

TAMDOft 

100-1 40TRK S/S 

100-2 40TRK D/S 

100-3 80TRK S/S 

100-4 30TRK D/S 

AM ELECTROffCS 

5 MEG HARD DISK W DOS 



BARE 
$199 
$280 
$280 

S340 



J565 

$715 

$770 

$1295 

$1595 



$349 
$109 
$129 
$199 
$399 

$215 
COMPL 
$235 
$319 
$319 
$375 

$1679 



C-rrOH F 10 PAR/SER 




$1365 


c-rroH PROWRrrER par 




$469 


crroH PROWRrrER ser 




$569 


F 10 TRACTOR FEED 




$195 


crt monitors 






AMDEK: Bfc w 100 M9 


GREEN 


• 1S9 


COLOR $359 


KB 


$739 


MODEMS 






MtCROPERPHERAL 






MocW 1/* COLOR 




$189 


ANCHOR AUTOMATON 






SIGNALMAN DR CONN 




$85 



SOFTWARE 

LAZY WRITER 
ELECTRIC WEBSTER 
MAX! MANAGE 
POSTMAM 
DOS PLUS 3.4 



1159 
$145 

$89 
$119 

$99 



MICHIGAN RESIDENTS ADD 4* TAX - CALL FOR POSTAGE - PRICES ARE DBCOUNTED FOR CASH AND MONEY 
ORDERS ( NOW CERTt-IED CHECKS ALLOW i WEEKS TO CLEAR) - MASTERCARD & VISA ADD 3*. - HO COD. - MAI 
ORDER ONLY 




%/BCP A COMPUTER OUTLET 

W bVI #% 16727 Patton. Detroit MJ48219 



-518 
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UTILITY 



LOAD 80 



Now where did I put these files? 



Diskmap 



LCDR John B. Harrell, III 
RR 1, Box 841, TatnicRd. 
Wells, ME 04090 



I have wondered many times 
just how the Disk Oper- 
ating System places files on the 
disk. I have had to worry about 
the placement of files when 
moving from one disk system to 
the other especially if the track 
count for the drives is different. 
One may easily find file loca- 
tions with a utility such as 
Apparat's Superzap and a refer- 
ence such as the TRS-80 Disk 



and Other Mysteries by H.C. 
Pennington. This is time-con- 
suming and requires constant 
reference to the book to remem- 
ber what the information pre- 
sented means. 

Diskmap uses the information 
in Pennington's book to present 
file structure concisely. Figure 
1 shows the type of display 
that Diskmap constructs, re- 
peated four times to map a 40- 
track disk. I have found it useful 
to look at the directories of 
disks with no system on them. 
Diskmap was written to be inde- 
pendent of the major operating 
systems primarily by the inclu- 
sion of disk read and manipula- 
tion routines. 

Floppy Disk 
Formatter/Controller 

At the heart of this utility pro- 





•DISK GRANULE MAP' 




DRIVErO NEWDOS80 02/20/81 GRANS FREE:3 


TRKS LOCKED OUTrO 




1ST GRANULE 


2NDGRANULE 


TRACK NUMBER: 


< BOOT/SYS >.<- 


- SYSO/SYS >. 


TRACK NUMBER: 1 


.< SYSO/SYS >.<- 


- SYSO/SYS > 


TRACK NUMBER: 2 


.<- LMOFFSET/CMD — >.< — 


LMOFFSET/CMD — >. 


TRACK NUMBER: 3 


.<— LEVEL1/CMD ->.<- 


— LEVEL1/CMD >. 


TRACK NUMBER: 4 


.<— LEVEL1/CMD — >.< — 


— LEVEL1/CMD >. 


TRACK NUMBER: 5 


.< BUILDER >.< — 


— BUILDER >. 


TRACK NUMBER: 6 


.< VERIFY/JCL >.< — 


SPOOLER/CMD — >. 


TRACK NUMBER: 7 


.<- SPOOLER/CMD — >.< - 


> 


TRACK NUMBER: 8 


.< >.<— 


SAMPLE01/BAS — >. 


TRACK NUMBER: 9 


.<— SAMPLE01/BAS — >.< — 


SAMPLE01/BAS — >. 




PRESS ANY KEY FOR NEXT 10 TRACK DISPLAY 




Fig. 1. Disk Granule Map 





gram are the disk control and in- 
put routines. To understand 
these routines, you must under- 
stand how the disk is interfaced 
with the expansion interface 
and the Western Digital FD1771- 
01 floppy disk formatter/con- 
troller chip. 

The Floppy Disk Controller 
(FDC) takes commands from the 
computer and uses them to 
position the proper disk head 
and to read data from or write 
data to the storage medium (the 
disk). The FDC interface to the 
computer is an 8-bit bidi- 
rectional bus for data, status, 
and command transfers. On the 
TRS-80 this interface consists of 
memory-mapped addresses for 
each FDC register. Data flow to 
or from the FDC is controlled by 
one of the addresses in Table 1 
in a memory-store or memory- 
load operation. 

There are eleven commands 
used with the FDC: These com- 
mands are divided into four 
groups. Refer to Table 2 for the 
structure of the commands. 
Each command is issued to the 
FDC by a store operation to the 
command register (X'37EC) us- 
ing the appropriate command. 
Obtain the status of the com- 
mand just issued from a load 
from the Status register 
(X'37EC); interpret it by refer- 
ence to Table 3. A Read Sector 
command is performed by first 
seeking the correct track and 



looking at status to determine 
the state of the Busy bit, while 
waiting for the command to ter- 
minate. The appropriate sector 
number is then stored in the 
Sector register and the Read 
command is issued. The pro- 
gram then polls the DRQ and 
BUSY bits to determine the 
state of the Read command. 

The Restore command reposi- 
tions the disk head over track 
zero and the FDC Track register 
is set to zero at the termination 
of the operation. The h field, the 
Head Load flag, causes no ac- 
tion on the TRS-80 as the head is 
loaded when the disk is selected 
and the drive motor is turned on. 
The v flag causes the FDC to 
verify that the track number on 
the track last read is the same 
as the contents of the Track reg- 
ister. The last field, rr, controls 
the rate at which the FDC issues 
stepping pulses to the disk. The 
stepping rates for the disk head 
given in Table 2 are for an FDC 
using a one Megahertz clock; a 2 
MHz clock halves these times. 
These three fields are the same 
for the remainder of the Type I 
commands. 



The Key Box 

Basic Level II 

Model I 

16K RAM 

TRSDOS 

One to four disk drives 
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The Seek command tells the 
FDC to compare the track num- 
ber in the Data register (a previ- 
ous instruction must load the 
Data register) with the current 
contents of the Track register. 
The FDC then issues the ap- 
propriate number of stepping 
pulses in the correct direction to 
cause the head to travel to the 
desired track. 

The Step command causes 
the FDC to issue one step pulse 
to the selected drive's head. The 
direction of the Step is the same 



as the direction of the last Step 
issued. The u field updates the 
Track register to the proper 
value for the corresponding 
track. If the u flag is not used, 
the user must keep track of the 
disk head location. 

The two commands Step-in 
and Step-Out are similar to Step 
except that the direction of head 
travel is explicitly defined in the 
command. All fields in these 
commands operate as in the 
Step command. 

The second group of FDC 



TRS-M ADDRESS 


MEMORY LOAD 


MEMORY STORE 


X37EV 


N/A 


Select drive & start 


X37EC - 


Read STATUS reg 


Load COMMAND reg 


X37ED 


Read TRACK reg 


Load TRACK reg 


X37EE' 


Read SECTOR reg 


Load SECTOR reg 


X37EF- 


Read DATA reg 


Load DATA reg 




Table 1. Memory Map 



PE 


COMMAND 


I 


RESTORE 


I 


SEEK 


I 


STEP 


I 


STEP IN 


I 


STEP OUT 


II 


READ COMMAND 


II 


WRITE COMMAND 


III 


READ ADDRESS 


III 


READ TRACK 


III 


WRITE TRACK 


IV 


FORCE INTERRUPT 



FLAG BIT SUMMARY 

h = 1 Load head at beginning (TRS-80 default loads the head when the motor 

is started and the drive selected) 
h = Do not load head at beginning 

v = 1 Verify on last track 
v = No verify 

rr = Stepping motor rate (bits 0-1) (step rate is for 1 MHz clock in the FDC) 
0=12 msec per track 

1 = 12 msec per track 

1 = 20 msec per track 
1 1 = 40 msec per track 

u = 1 Update TRACK register 
u = No update 

m = 1 Read or write multiple records 
m = Read or write single records 

b = 1 IBM standard format (128. 256. 512. or 1024 bytes) 
b = Non-standard (length is multiple of 16 up to 4096) 

aa = Data Address Mark 

= FB data mark (normal data mark) 

1 = FA data mark (user defined) 

1 = F9 data mark (user defined) 

1 1 = F8 data mark (deleted data mark) 

s = 1 Synchronize to address mark 
s = No synchronize 

mi = Interrupt Condition Flags 

0000 = Terminate and force not busy with no interrupt 
bit = interrupt on not ready to ready transition 
bit 1 = interrupt on ready to not ready transition 
bit 2 = interrupt on index pulse 
bit 3= interrupt immediately 

e = 1 Enable HLT. HLT, and the 10 msec delay 

e = Head is assumed engaged and there is no delay 

Table 2. FDC Command Summary 



commands are data movement 
commands for reading and writ- 
ing data to or from the disk. The 
adaption used to transfer data 
in the TRS-80 is called Pro- 
grammed input/output. The Z80 
Central Processing Unit (CPU) 
must continually poll the FDC 
and be ready to accept or pro- 
vide data. This concept is op- 
posed by the Direct Memory Ac- 
cess (DMA) method. With DMA 
the FDC actually demands and 
receives full control to the ad- 
dress and data busses of the 
computer; data transfers direct- 
ly to the memory store without 
the CPU. This allows overlapped 
execution with data transfer and 
alleviates the I/O bound central 
processor. 

There are several require- 
ments before the performance of 
Read or Write commands. First, 
the drive must be selected and 
the motor must be up to normal 
operational speed. TRSDOS and 
NEWDOS 2.1 assume that this 
time delay is approximately one 
second. NEWDOS80 sets this 
delay at one-half second. Sec- 
ond, a Seek instruction must po- 



sition the head over the appro- 
priate track. Third, the Sector 
register in the FDC must be set 
to the number of the sector to be 
read or written. 

The format of the Read and 
Write commands is in Table 2. 
Note that they have similar 
fields of m, b, and e. The m field 
enables a multiple sector trans- 
fer of information. The FDC 
transfers information and up- 
dates the sector register until 
the sector register contains a 
number larger than the highest 
sector number on the track or 
until a Force Interrupt command 
is loaded into the Command reg- 
ister. The b field identifies the 
format type as standard IBM or 
non-standard. This changes the 
FDC's interpretation of the sec- 
tor length code and is part of the 
record identification. The e field 
is not used in the Model I. On the 
Write command, the aa field 
specifies the type of Data Ad- 
dress Mark (DAM) for the sector 
transferred. The standard DAM 
is an X'FB' for all sectors other 
than the directory (DIR/SYS), 
which uses DAM X'FA' to show 



"Your Business Computer Headquarters" 



Compare the 
Victor 9000 Desktop 
Business Com pu ter 



TRS-80 



Business 
Computers 

128k Model 161 




Trie Victor 9000 OeaMop amines* 
Computer give* you me kind of 
memory, storage capacity and toft- 
war* mat buslne** appucaoons de- 
mand Juu compare tne Victor 
9000 wUfi me competition . and 
were confident you'll pick Victor 

VICTOR 



(all For <Ju"U-« !: 

Compare and youl pkfc Victor. 




Model 111 

48k. 2 Drive 

SI 950 
48K. 1 Drive 

•IS?] 

16k 

. 1839 



Call For QUOTES On 
Complete Product Line 



m 800-351-1580 

In Texas Call Collects 913-283*2920 

Van Horn Office Supply 

701 W. Broadway - 169 P.O. Box 1060 

Van Horn, Texas 79855 



^See List of Advertisers on Page 451 



80 Micro, December 1982 • 237 



read protection. This is why you 
get error code six if you attempt 
to read the sector in Basic. You 
can read the directory from a 
Basic program if you trap this er- 
ror and if you change byte 01 in 
sector 1 (the HIT sector) from 
2CH to C4H. 

Group III commands include 
the following: Read Address, 
Read Track, and Write Track. 
These commands are used to 
format a disk and to verify that it 
can be read. The Read Address 
command reads the six identifi- 
cation bytes from the disk in the 
next ID field.These six bytes are: 

• Track Address (zero to num- 
ber of track minus one) 

• Side Number (usually reflects 
the side of the disk; in TRSDOS 
disks this value is zero) 

• Sector Address (usually zero 
through nine) 

• Sector Length 

• Two CRC bytes 

Read Track reads the entire 
track of information: the data, 
the ID bytes and all the gaps. In- 
formation is transferred similar 
to the Read command. The Data 
Request Bit (DRQ) signals when 



data has been assembled by the 
FDC and is ready for transfer. 

Write Track is used principal- 
ly to format the disk by writing 
appropriate control information 
to the disk. This command is not 
normally used to write data to 
the disk as several bytes have 
special meaning to the FDC 
(bytes X'F7' through X'FE'). The 
use of these special bytes is 
described in Table 4. 

The last command group has 
only one command. Force Inter- 
rupt stops the FDC and forces it 
to generate an interrupt. If any 
conditions in the command are 
set (see Table 2), the command 
forces the FDC to terminate, 
drop the BUSY status bit, and in- 
terrupt. If none of these condi- 
tions are selected, the FDC 
terminates the current opera- 
tion and resets BUSY without 
interrupt. 

Disk structure is generally 
standard IBM format; the disk is 
formatted using sector multi- 
ples of 128 bytes (128,256,512, or 
1024 bytes). The non-standard 
disk is formatted to use a sector 
having a length that is a multiple 
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NEW! 

From CECDAT, INC. 
The Font Lower/Case 
Character Generator 

Professional quality video 
for the TRS-80 Model 1. 



Designed especially for The Patch(CECDAT) owners 
but works with any conventional L/C Mod. 

CHRS(0) THRU CHRS(255) 

ASCII CONTROL CODES 

ALPHA/NUMERICS 

TRS GRAPHICS 

REVERSE VIDEO, TOO 

• Check off style instructions, example machine 
code and basic routines included. 

L/C KIT AVAILABLE $9.95 

Ask for Catalog 
Only the cream of the crop - - for you. from HACKS. 




HACKS 

MICROCOMPUTERS INC. 



P.O. BOX 12963 
HOUSTON. TEXAS 77017 

713-455-3276 „ 2 44 



Status for Typt I commands 



BiT 


NAME 


S7 


Not Ready 


S6 


Protected 


SS 


Head Loaded 


S4 


Seek Error 


S3 


CRC Error 


S? 


Track Zero 



sc 



Busy 



Status for Type ll/lll commands 


BIT 


NAME 


S7 


Not Ready 


S6 


Record Type 




Write Prot 


ss 


Record Type 




Write Fault 


S4 


Rec Not Fnd 


S3 


CRC Error 


S2 


Lost Data 


Si 


Data Req 


so 


Busy 



MEANING 

The selected drive is not ready 
The Write Protect tab is on the disk 
Indicates the head is loaded and engaged 
The desired track was not verified 
There was at least one CRC error on a track 
verification operation 

The current position of the head is over track 
zero 

The index mark from the dnve has Deen de- 
tected by the FDC 
The FDC has a command in progress 



MEANING 

The selected drive is not ready. Type ll'lll 
commands will not execute if the drive is not 
ready 

On a Read record, this bit indicates part of a 
two bit representation which is indicative of 
the type of Data Address Mark (DAM) en 
countered. On a Write record, this bit re 
fleets write protect status 
On a Read Sector command, this is the sec- 
ond of the bits for type of DAM found On a 
Write Track command, it indicates a write 
fault 

The sector and/or the track were not found at 
the current head location. 
A CRC error was detected during a read 
command 

The program did not respond to the DRQ 
within the time frame of being able to read 
or write two bytes to the disk 
The Data register has been filled when exe- 
cuting a Read command or has been emp- 
tied while performing a Write command 
The FDC is busy with the current command 



Table 3. Status Register Summary 



of 16 bytes; this length varies 
from 16 to 4,906 bytes if the 
track is large enough. 

The type of sector to be read 
or written is determined by the 
b flag in the command; the 
length is determined from the 
sector length field stored in the 
ID field (remember the informa- 
tion read using a Read Address 
command?). 

Diskmap 

Diskmap uses little sophisti- 
cated coding and no trickery to 
provide the disk user with a visu- 
al display of every file on the 
disk. Using the NEWDOS80 in- 
formation, I could have written 
this utility to default to the 
parameters identifying each 
disk at a system boot. This would 



Byte Description 

F7H Write CRC bytes 

F8H-FBH Write Data Address Marks 

FCH Write Index Address Mark 

FDH Spare 

FEH Write ID Address Mark 

Table 4. Special Bytes 



have made Diskmap incompati- 
ble with the other disk operating 
systems so the user defines the 
directory track and the number 
of tracks at assembly time. As 
Program Listing 1 shows, this 
version was assembled with the 
directory default set to track 
17 and the number of tracks set 
at 40. 

Diskmap performs a disk map 
on a systemless disk. If you 
have a single disk drive system, 
it becomes very difficult to do 
even a directory (particularly in 
NEWDOS80 where a new over- 
lay is loaded for each command 
entered). Hold the break key 
down after entering the com- 
mand name. The program will 
pause; place the appropriate 
disk in drive and then press 
Enter to map the disk. 

Clock interrupts must be 
turned off when attempting any 
data transfer to or from the disk. 
Failure to turn off the 25 msec 
interrupt terminates the disk 
read or write with the Lost Data 
bit posted. This means that the 
FDC attempted to access the 
Data register twice without an 
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TRS-80 COLOR 



OSI 



AARDVARK 
VIC-64 VIC-20 



SINCLAIR TIMEX 




QUEST - A NEW IDEA IN ADVENTURE 
GAMES! Different from all the others. 
Quest is played on a computer generated 
map of Alesia. Your job is to gather men 
and supplies by combat, bargaining, explor- 
ation of ruins and temples and outright 
banditry. When your force is strong enough, 
you attack the Citadel of Moorlock in a 
life or death battle to the finish. Playable 
in 2 to 5 hours, this one is different every 
time. 16k TRS-80, TRS-80 Color, and Sin- 
clair. 13K VIC-20. $14.95 each. 




ADVENTURES!!! 

These Adventures are written in BASIC, are 
full featured, fast action, full plotted ad- 
ventures that take 30-50 hours to play. (Ad- 
ventures are interactive fantasies. It's like 
reading a book except that you are the main 
character as you give the computer com- 
mands like "Look in the Coffin" and 
"Light the torch.") 

Adventures require 16k on TRS80, TRS80 
color, and Sinclair. They require 8k on OSI 
and 13k on Vic-20. Derelict takes 12k on 
OSI. $14.95 each. 

ALSO FROM AARDVARK - This 
TRS-80 Color and OSI ), business 



CATERPILLAR 
O.K., the Caterpillar does look a lot like a 
Centipede. We have spiders, falling fleas, 
monsters traipsing across the screen, poison 
mushrooms, and a lot of other familiar 
stuff. COLOR 80 requires 16k and Joy- 
sticks. This is Edson's best game to date. 
$19.95 for TRS 80 COLOR. 

PROGRAMMERS! 

SEE YOUR PROGRAM IN THIS SPACE!! 

Aardvark traditionally pays the highest com- 
missions in the industry and gives programs 
the widest possible coverage. Quality is the 
keyword. It your program is good and you 
want it presented by the best, send it to 
Aardvark. 

ESCAPE FROM MARS 

(by Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANET. You'll have to explore a Martian 
city and deal with possibly hostile aliens to 
survive this one. A good first adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVENTURE. 
It is a treasure hunt in a pyramid full of 
problems. Exciting and tough I 

HAUNTED HOUSE (by Bob Anderson) 
It's a real adventure — with ghosts and ghouls 
and goblins and treasures and problems — 
but it is for kids. Designed for the 8 to 12 
year old population and those who haven't 
tried Adventure before and want to start 
out real easy. 

DERELICT 

(by Rodger Olsen & Bob Anderson) 
New winner in the toughest adventure from 
Aardvark sweepstakes. This one takes place 
on an alien ship that has been deserted for a 
thousand years — and is still dangerous! 
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TUBE FRENZY 

(by Dave Edson) 
This is an almost indescribably fast action 
arcade game. It has fast action, an all new 
concept in play, simple rules, and 63 levels 
of difficulty. All machine code, requires 
Joysticks. Another great game by Dave 
Edson. TRS 80 COLOR ONLY. 16k and 
Joysticks required. $19.95. 




Please specify system on all orders 

is only a partial list of what we carry. We have 
programs, blank tapes and disks and hardware. 



CATCH'EM 

(by Dave Edson) 
One of our simplest, fastest, funnest, all 
machine code arcade games. Raindrops and 
an incredibe variety of other things come 
falling down on your head. Use the Joy- 
sticks to Catch'em. It's a BALL! — and a 
flying saucer! — and a Flying Yl— and so 
on. TRS 80 COLOR. $19.95. 

BASIC THAT ZOOOMMS!! 
AT LAST AN AFFORDABLE COMPILER! 

The compiler allows you to write your 
programs in easy BASIC and then auto- 
matically generates a machine code equiv- 
alent that runs 50 to 150 times faster. 

It does have some limitations. It takes at 
least 8k of RAM to run the compiler and it 
does only support a subset of BASIC- 
about 20 commands including FOR, NEXT, 
END, GOSUB, GOTO, IF, THEN, RETURN, 
END, PRINT. STOP, USR (X), PEEK. 
POKE, *,/,+, -, > . < ,=, VARIABLE 
NAMES A-Z, SUBSCRIPTED VARIABLES, 
and INTEGER NUMBERS FORM 0-64K. 
TINY COMPILER is written in BASIC. It 
generates native, relocatable 6502 or 6809 
code. It comes with a 20-page manual and 
can be modified or augmented by the user. 
$24.95 on tape or disk for OSI, TRS-80 
Color, or VIC. 

i lot of other games (particularly for the 
Send $1 .00 for our complete catalog. 



AARDVARK - 80 
^gf 2352 S. Commerce, Walled Lake, Ml 48088 

(313)669-3110 

Phone Orders Accepted 8:00 a.m. to 4:00 p.m. EST. Mon.-Fri. 
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YOU'VE SEEN THE ADS MIR OTHER DRAWING PROGRAMS. SOMF 

CHARGE AS MUCH AS »I',«.>V I- OR THE ABILITY TO ADD GRAPHICS 
TO YOUR PRINTOUTS. CRAYON ISN'T A CONVERTED TEXT PROCE SSOR 
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VERY FINEST GRAPHIC'S FDITOR PUSS I Rl F . COMPLEX GRAPHICS 
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RUN YlXJR CARTOONS FROM BASIC AT ASSEMBLY LANGUAGE 
SPEEDS. SF^EEDS OF -.5 FRAMES/SECOND POSSIBLE. USE IT 
TO DESIGN DISPLAYS f OR USE IN BASIC «. ASSEMBLY PROGS 
•). MANAGE DISEFTTF DIRECTORIES. PRINT THEM. SEARCH THEM. 
COMMENT THEM. MOD "> DIR. WORE S ON A TRSDOS SYS. ONLY. 
4). DRAW ANYTHING »OU DESIRE ONTO THE SCREEN AND PRINT II 

OUT OR SAVE IT TO DISE /TAPE l*> TO M SCREENS/FILE. 

5i. SCREEN FILES MAKE CRAYON A FAST EASY WAY TO KEEP AN 

ELECTRONIC NOTEBOOK . FAST. EASY INFORMATION RETREIVAL. 
6>. FREFORM ALL VIDEO WORE SE4EET FUNCTIONS RIGHT ON SCREEN 



ES 



fX 



II. USER FRIENDLY • 42 PAGE DOC'S. OFFSET E>R INTE D. I NDE XED 

21. NINE CHARACTER USER DEFINED CURSOR. 

3). 16 LETTER COMMANDS FOR GRAPHICS ENTRY. 

4). COPY CHARACTERS IN ANY DIRECTION PAST. 

51. UPPER/LOWER CASE SUPPORT WITHOUT DRIVERS. 

61. DO AI I OF THE FOLIOWING ON VARIABLE LENGTH LINES 
COPY Fill DELETE -EXCHANGE MOVE PULL-UC/.C INVERT 
GRAPEIICS PRINT .JUSTIFY TEXT- BUFFER /RE ST ORE TO SCREEN. 

7). UTILITIES INCLUDE MASE - AUTOMATIC PRINT* NUMBERS 

CURSOR 1(X;ATI0N AND VALUE 3 SE1ECTIVE CI S ' S-PATTERN - 
EXTRA BUFFERS COMBINE SCREENS HEXDUMP SEARCHES. MORE 

81. FULL DISE / CASS I/O DIR-WR I TE-LOAD-APPEND-COPY -E ILL 
SCREENPR1NI OUTPUTS CODES TO DRIVE ANY PARALLEL PRINTER 
PROFESSIONAL L V WRITTEN I. SUPPORTED NO F>ROGRAMMING REQUIRED 
OVER 9lf COMMANDS FAST / EASY / FUN >- ALL MACHINE LANG. 

CASS MOD l>--»-.5.«ttf / DISE MOD 1 OR 3-*4S. CM 1 CJE> PROGRAM 
WOmS IN I6E . OR MORE AND ADJUSTS TO MEMORY SIZE CHANGES. 
ESPECIAILY FOR MX -EM. MICROLINEEM AND OTHER BLOCK. GRAPHIC 
PRINTERS. PRINTER NOT REQ. FOR FILE HANDLING ♦ CARTOONS. 
t_ LIBERAL DEALER TERMS AVAILABLE - INQUIRIES INVITED U 



"/ turn interrupts off at 

the beginning and re-enable 

interrupts at the end. . . " 



intervening access to the Data 
register by the computer. I turn 
interrupts off at the beginning 
and re-enable interrupts at the 
end as I do not use the display 
clock. Disable interrupts before 
each disk I/O operation and re- 
enable interrupts before each 
exit or the exit from the read/ 
write routine. 

Next, determine the drive 
number (drive always for the 
break key pause) and from this 
the proper select bit. The select 
bit is always 2**N (N = 0,1,2,3). 
The DOS command buffer is 
scanned for a X*OD' following 
Diskmap; if none is there, it 
checks for a blank. The drive 
number is then checked for 
validity. 

After the proper drive has 
been determined, the FDC is 
issued a Reset to Not Busy com- 
mand. The drive is selected and 
a loop is entered waiting for a 
change in the Index pulse as the 
drive rotates the disk. If approx- 
imately two full revolutions pass 
without a change in the Index 
pulse, the drive is declared not 
ready and the utility terminates 
in error. 

Next, the user must reselect 
the drive and establish the head 
position. The FDC remembers 
the head location (Track regis- 
ter) for only one drive at a time; 
this is only valid if the update 
flag was used when moving the 
head last. The program per- 
forms a Restore to Track Zero 
command using the 20 msec/ 
track stepping time. This moves 
the head to track zero and resets 
the Track register to zero. Next, 
the Data register is loaded with 
the number corresponding to 
the Directory Track number 
(default value is 17 decimal) and 
a Seek command moves the 
head to track 17 on the selected 
drive. In lines 116-134 (see the 
Listing) the Push/Pop sequence 
is a delay between use of the 
X'37EC port to address the 
Command register and then ad- 
dress the Status register. The 
Bit instruction tests the Busy bit 



to determine when the operation 
is complete. 

Lines 135-138 establish con- 
ditions necessary to perform the 
sector read loop. Line 139 
issues the Read Record com- 
mand (see Table 2); the heart of 
the read loop is lines 147-153. 
The DRQ bit is tested to see if a 
data byte has been assembled, 
ready for the computer to store 
(DRQ=1). If DRQ is not true 
("true'* refers to single bits 
equaling one), then the Busy bit 
is checked. If Busy is still true, 
continue to status DRQ until a 
byte is ready. When DRQ is true, 
a byte has been assembled and 
may be stored in the buffer. 

When DRQ and Busy are both 
false, one sector has been read 
and the FDC is no longer busy. 
The Status word is examined for 
any errors detected on the read. 
No attempt is made to examine 
the status word for information 
concerning the Data Address 
Marks just read. I have assumed 
that the directory track was read 
and did not check for the appro- 
priate DAM (a Directory Track is 
read-protected by writing the 
sectors with a DAM of X'FA' 
rather than the IBM normal of 
X'FB'). 

The disk sector read routine is 
repeated nine more times to 
copy the entire directory track to 
the buffer. Beginning at the ad- 
dress specified by Buffer is the 
GAT sector of the directory. The 
GAT sector contains the Gran- 
ule Allocation Table beginning 
at offset byte 0; the Track 
Locked Out Table beginning at 
offset byte 60H; and the disk 
name and creation date starting 
at offset byte DOH and D8H re- 
spectively. This information is 
used in lines 170-232 to build 
the subtitle line for the video 
screen. 

The string array MAP con- 
tains 80 entries corresponding 
to each granule; each entry is 13 
bytes long. This allows the map 
to be built prior to display using 
filenames in the form of FILE- 
SPEC/EXT. This array must be 



240 • 80 Micro, December1982 



SStfHl 

PUTS THE 

POWER IN 

YOUR HAND 

TO REMOVE 




• Printer paper dust 

• Dust data processing equipment 

• Dust your computer room 
"Clean Room" clean 

2 CLOTHS FOR $ 2 95 ppd 

VISA • MASTER • CHECK 

MWB INDUSTRIES, INC. 

2013 FRANKLIN STREET 

DETROIT, MICHIGAN 48207 

(313)259-1104 

DEALERS INQUIRIES INVITED *' 90 



Tired of just 
PEEKing around??? 

DIJ.DfiTV 

The Disassembler 

That Even Tracks 

Down DATA!!! 



*> 



For your disassembler wouldn't you like one that -- 

• Outputs" '(57T? i>fh 'Cass? ■ 
vera j*i 
instead of Ihe meaningless equivalent ". 



• Automatically identities such data areas' 7 

• Outputs fully labeled EDTASM-format code to 
display, printer, cassette or disk? 

• Relocates itself to any desired RAM area, up/down 
one byte or as many as required? 

• Runs on trs' 80 Model I (Level II) or Model III. 
I6K or more, cassette or disk? 

To order Dl In DAT* phone (513) 435-4480 
(M-F, 9 a m. - 5 p.m bST). or send check or money 
order for 
H1354-10. (Cassette) $24 95 

• 1 50 shipping 
R1354-20. (Model III diskette) $29 95 

• 1 50 shipping 
to the address below 

(Ohio residents please add 6% sales tax ) 




Software 



HUMBUG! 

(to high prices) 

TRS 80™* Model III 48 K 
2 Disk Drive 

|3 Tandon drives SS/DD 

fvl Astec Power Supply 

40/80 track support on 
controller board 

G3 TRS DOS 

120 day warranty 

$1695 complete 

♦ Trade Mark Tandy Corp. 

ASHLAND COMPUTER 

1716 Wilshire Blvd. 

Ashland, KY41101 

(606) 325-2210 

Call 10 6 M-F 




^ 



We've done it again! 

We said we had the best system, and now... 
8" double density is here for Model IlVs. 



Check out these Features - 

^568K of storage on a single sided 8 inch drive, when used with our controller & speedup MOD and DOS plus 3.4. 
^The maximum storage capacity of your Model 3 will be 4.544 Megabytes - without a hard disk. »^0ne 5 'A single 
sided and one 8 inch single sided drive will store 676K, with a full blown DOS plus 3.4. ^One 5V« single sided and 
one 8 inch double sided drive will store 1.244 Megabytes, with a full blown DOS plus 3.4. *-Mix and match 5Va and 
8 inch drives, in any density, single or double sided. • All under software control. 

We will also be able to provide DOS plus 3 4 on 8 inch diskettes (Final price being negotiated) 

1 Speedup lor 8 inch drives only $89 00 2. General purpose speed up, which aiso worns with 8 inch drives $129 00 

Here's 3 good reasons to buy our system - 



1 VERSATILITY 

Our own proven dependants drive controller win on* you ire 
hardware 10 run almost any drive conhguratwi you can imagine.' 

• 5M and 8 men drives m any combination 

• Interna 1 'e«1e"iai d'lve combinations | Up to * a drives external! 

• Sngh and dual - headed drive ambulations 



2 QUALITY 

• We use quality dnVes MPI and now new generation Semens 

• Vfc construct ou' own c*sk «*e mstanaurjn Ms ot heavy 
steel no smettng Problems' 

• We are now using a teld proven switching supply 



3 PRICE 

• I :i i' i .Ml' first _' - 

• Second internal drive) 

• Thro dr>ve |5Vt t«opy w*h daMei 

• Fourth dnve ii .'• ttwy) 



S679 
$779 
J3M 
S329 



DEALERS WE HAVE DEALS EOR YOU TOO WRITE OR PHONE • 



these sound bke gtod deals but you don't have the Model III 
yet we ve got the answei 
T*S 00 Model III 4*K TRS DOS 7 drives J1899 




rP Proce// Control Technology 

^T 8030 Lorraine Ave , Suite 128 • Stockton. California 95210 • (209) 952-6576 



J 



■See List of A dvertisers on Page 451 
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X 

DC 
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PRACTICAL • ORIGINAL • SINGULAR • SUPERB • UNUSUAL 

Complete 24,800-word ; 
REFWARE Thesaurus 2.0 

Save TIME. 

Improve your WRITING. 

Help your SPELLING. 

REFWARE Thesaurus 2.0 takes just 7 seconds on the Model 
III to find groups of synonyms and related words for 24,800 
nouns, adjectives, verbs, and adverbs. (Takes a few seconds 
longer on Model I.) Substitutes synonyms in your own 
sentences. And helps you find the correct spelling of hard- 
to-spell words. 

Essential for anyone who uses a personal computer as 
a word processor to write letters, reports, articles, or 
books. 

"...one of the pioneering reference tool programs." 

—Interface Age, August 1982 

"...absolutely no programming knowledge whatsoever is 
required..." — Computronics, April 1982 

"All this is done very fast; faster than a search 
through a conventional thesaurus..." 

—80 Microcomputing, April 1982 
REFWARE THESAURUS 2.0 

24,800 adjectives, nouns, verbs, and adverbs assist you in 
choosing the most accurate words in your ads, letters, 
reports, and speeches. 

REFWARE THESAURUS Builder 1.0 

Series of eight Basic utility programs enables physicians, 
educators, lawyers, businessmen, or other professionals 
to develop specialized computer thesaurus disk programs 
of hard-to-remember technical words for personal use. 
Functions independently of Thesaurus program. 

REFWARE THESAURUS User's Manuals: Complete 
descriptions of use of each of the above programs. In- 
cluded at no additional charge with each program listed 
above. 

MINIMUM System Required TRS 80* Mod I or Mod III 
48K with two disk drives. 

*A Trade mark of Tandy Corporation 

Credit card order* phon* (01 4) 2384896 
Dealers: Writ* for discount pric**. FREE demonstration disk with 
minimum ord*r. 

REFWARE* Reference Software Division 

David C. Whitney* Associates, Inc. 

P.O. Box 451, Chappaqua, N.Y. 10514 
*A trademark of David C. Whitney Associates, Inc. 
Specify Mod I ( ) or Mod III ( ) 
Single Density ( ) or Double Density ( ) 
Qty. Title Unit Price Total 





Complete 24,800-word 
Refware Thesaurus 2.0 


$89.95 






Thesaurus Builder 1.0 


$149.95 




Sales Tax 
(N.Y.state residents only) 




Postage and handling 


S 3.00 


Enclosed $ ( ) Check ( ) Money Order Tr)TA . 

Bill: ( )Visa ( ) MasterCharge 


s 



Card# 



Exp. Dale Interbank # 

Signature 

Name Phone ( 



CC Address 

Ui 

Ul City State Zip 

(j Mailed First Class, but allow 3 to 4 weeks for delivery, no COD. orders 

•AHiaoMasivad • 318VNUVW3U • indiiixs • aiavmvANi 



zeroed before proceeding. 

To build the array Map, lines 
260-306 read all non-null entries 
in the directory and reconstruct 
the filespec for each in the loca- 
tions in MAP corresponding to 
the extent information in each 
File Primary Directory Entry 
(FPDE). 

Interspersed with the FPDEs 
in the directory may be File Ex- 
tension Directory Entries (FXDE). 
Table 5 explains the byte/bit 
structure for FPDEs and FXDEs 
found in the directory. FXDEs 
are an additional area for the 
disk operating system to keep 



information about the FPDEs. 
The last entry in the chain of in- 
formation concerning the file's 
disk location must start with an 
X'FF' byte. If the DOS must have 
more than four entries to con- 
tain the information about a file, 
the last entry in the FPDE starts 
with X'FE' and the second byte 
is a Directory Entry Code (DEC) 
describing the location of the 
corresponding FXDE in the di- 
rectory. When an FXDE is de- 
tected in line 298, the IX register 
is set to the appropriate value in 
the buffer corresponding to the 
location of the FXDE. This is per- 



ByteO 



Bit 7- 


Bit 6- 


Bit 5— 


Bit 4- 


Blt 3— 


its 2-0— 



Byte 1 

Byte 2 
Byte 3 

Byte 4 
Bytes 5-C 
Bytes D-F 
Bytes 10-11 
Bytes 12-13 
Bytes 14-15 



Bytes 16-17 
18-19 
1A-1B 
1C-1D 
1E-1F 



Bit record for file attributes 

1 = FXDE, = FPDE 

1 = System File, 0= Not System File 

Not used 

1 = Directory entry is assigned to a file 

= Directory entry is free 

1 = Invisible file. = Visible file 
Protection attributes for each file 
111 — No access is allowed 
110— Execution access only 

101 — Read/Execute access 
100— Write/Read/Execute access 
011 — Not used 

010— RenamerWrite/Read/Execute access 
001 —Kill/Rename/Write/Read/Execute access 
000— Full access 

Not used in an FPDE; in an FXDE, this byte is used as a DEC 
to point back to its FPDE. 
Not used in an FPDE or FXDE. 

Used as the end of file byte pointing to the relative byte in 
the sector that is the physical end of this file. 
Logical record length (0 = 256 bytes). 
File Name, left-justified blank-filled format. 
File Name Extension in same format. 
Two byte hash-code value for the update password. 
Two byte hash-code value for the access password. 
This is the EOF sector or the number of the sectors in the 
file. If Byte 3 is 00H then this is the actual sector count. If 
Byte 3 is not 00H then the actual sector count is this value 
plus 1. 

These last five pairs of bytes form extent information which 
locate the file on the disk. Each 2-byte extent has the track 
number for the file, the starting granule, and number of con- 
tiguous granules for this extent. If more extents are needed 
to describe a file than are available in the FPDE, the last ex- 
tent is coded to point to an FXDE for additional extent stor- 
age. 
Consider the following Extent: 

1C24 
The first byte of this extent is the track number of the start of 
the file in this extent, e.g. track 1CH or 28. The second byte is 
two packed values which are the granule number (0 or 1) and 
the number of contiguous granules in this extent less one. In 
this example 24H is 0010 0100 binary. The left three bits rep- 
resent the granule number and the right five bits represent 
the count of contiguous granules; 001 = granule 1 or sector 5 
and 00100 - 4 + 1 or five contiguous grans in this extent. If 
the first byte is FFH, this signifies the end of the file extents. 
A first byte of FEH signifies a pointer to an FXDE follows in 
the second byte and may be interpreted as follows: The left 
three bits of the second byte multiplied by 32 is the offset of 
the FXDE in the directory sector described by the right three 
bits. These three bits are the offset from the HIT sector: add 
two to them to reflect the right sector on the directory track. 
The extent FE 63 is interpreted as follows: 63H equals 01 10 
0011 binary. The right three bits plus two tell you that the 
FXDE is in sector 5 on the directory track and the FXDE is in 
entry 011 binary*20H or offset address 60H. The only bytes 
used in constructing an FXDE are bytes 0. 1, and 16 through 
1F; all other bytes are zeroed. 

Table 5. FPDC and FXDE directories 
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formed by the code in lines 
464-474. 

Having constructed the Map 
array, the screen is cleared and 
the prototype structure is 
displayed by the code in lines 
312-343. Once this is com- 
pleted, the PAGES and TRK 
counters step through the Map 
array and display the disk map 
10 tracks at once (see lines 
348-447). 

Diskmap On Disk 

If you have an editor/assem- 
bler capable of reading and 
writing disk source files, enter 
the source code and assemble 
the program to disk. 

If you are not so fortunate, 
enter the code into the tape 
version of the editor/assembler 
and assemble and write the ob- 
ject code to tape. When you 
have created an object tape, use 
LMOFFSET or Tapedisk to load 
the tape to disk. The disk Dump 
command for Tapedisk is "F 
DISKMAP/CMD:d 5300 5846 
5300". 

Compatibility 

This utility runs under NEW- 
DOS80, NEWDOS 2.1, and TRS- 
DOS. Diskmap uses a few ROM 
routines that are relatively in- 
dependent of the TRS-80 ROM 
configuration. 

This useful program now 
resides on my disk along with 
DIRCHECK and SUPERZAP as 
one of my most-used utilities.! 







00001 
00002 






Program Listing 










* 










* 






00003 


* 






>> DISKMAP 


• 






00004 


* 










• 






00005 


* 










• 






00006 


* 


<DISKMAP> 


IS A UTILITY WHICH WILL READ THE DIRECTORY 


• 






00007 


* 


OF ANY DISK AND DISPLAY THE 


CONTENTS OF THE DISK IN 


« 






00008 


* 


A MAP BY GRANULES. ALSO DISPLAYED IS INFORMATION 


* 






00009 


* 


SUCH 


AS DISK NAME, CREATION 


DATE, DRIVE NUMBER, THE 


• 






00010 


* 


NUMBER OF 


GRANULES FREE AND 


THE NUMBER OF TRACKS 


* 






00011 


* 


LOCKED OUT. THIS UTILITY MAY BE USED WITH A SINGLE 


* 






00012 


* 


DISK 


SYSTEM TO MAP A DISKETTE HAVING NO SYSTEM FILES 


* 






00013 


* 


USING THE 


"PAUSE* OPTION SINCE <DISKMAP> HAS ITS OWN 


* 






00014 


• 


DISK 


I/O ROUTINES. 




* 






00015 


* 










• 






00016 


* 






WRITTEN BY J.B. HARRELL, 03/07/81 


* 






00017 


* 






30 KEKLICO COURT WEST 


• 






00018 


* 






CHARLESTON, SOUTH 


CAROLINA, 29408 


• 






00019 
00020 
00021 


* 










. 






















00022 














5300 




00023 
00024 
00025 






ORG 


5300H 






5300 


F3 


00026 DSKMAP 


DI 




;TURN OFF INTERRUPTS 




5301 


3A4038 


00027 






I.D 


A, (3840H) 


;LOAD BREAK KEY ROW TO 




5304 


E604 


00028 






AND 


4 


;TEST FOR "PAUSE" OPTION 


5306 


2822 


00029 






JR 


Z,DSKMP1 


;NO PAUSE 




5308 


CDC901 


00030 






CALL 


CIS 


; CLEAR THE SCREEN 




530B 


21163C 


00031 






LD 


HL,VIDEO+22 






530E 


222040 


00032 






LD 


(CURSOR) ,HL 






5311 


217B56 


00033 






LD 


HL, TITLE 


;WRITE TITLE HEADER 




5314 


CD3956 


00034 






CALL 


OUTSTR 






5317 


213857 


00035 






LD 


HL.PRMPT0 


;WRITE PROMPT REQUESTING 


531A 


CD3956 


00036 






CALL 


OUTSTR 


; DISKETTE MOUNT 




531D 


CD4900 


00037 DSKMP0 


CALL 


GETKEY 


;WAIT FOR ANY KEY 




5320 


FE0D 


00038 






CP 


CR 


;TEST FOR <ENTER> 




5322 


20F9 


00039 






JR 


NZ,DSKMP0 


;WAIT FOR <ENTER> 




5324 


1601 


00040 






LD 


D,l 


;SET DEFAULT DRIVE TO 




5326 


1E30 


00041 






LD 


E,'0' 


(DRIVE AND GO 




5328 


1832 


00042 






JR 


NOPARS 






532A 


1601 


00043 


DSKMP1 


LD 


D,l 


;DEFAULT DRIVE SELECT BIT 


532C 


1E30 


00044 






LD 


E,'0' 


(DEFAULT DRIVE NUMBER 




532E 


3A1F43 


00045 






LD 


A, (CMDBUF+7) 


;SEE IF PARS OR NOT 




5331 


FE0D 


00046 






CP 


CR 


;BY TEST FOR A CR 




5333 


2827 


00047 






JR 


Z, NOPARS 






5335 


FE20 


00048 






CP 


■ ' 


;HAS TO HAVE ONE SPACE 




5337 


201A 


00049 






JR 


NZ, ERROR 






5339 


3A2043 


00050 






LD 


A, (CMDBUF+8) 


;GET DRIVE PARAMETER 




533C 


5F 


00051 






LD 


E,A 


(SET IN OUTPUT REG 




S33D 


FE30 


00052 






CP 


•6' 


(TEST FOR 0, 1, 2, 3 




533F 


281B 


00053 






JR 


Z, NOPARS 






5341 


CB22 


00054 






SLA 


D 






5343 


FE31 


00055 






CP 


<V 


,■ (D) HAS DRIVE SELECT BIT 


5345 


2815 


00056 






JR 


Z, NOPARS 


(WHICH IS 2*«N WHERE N 




5347 


CB22 


00057 






SLA 


D 


(IS THE DRIVE NUMBER 




5349 


FE32 


00058 






CP 


•2' 






534B 


280F 


00059 






JR 


Z, NOPARS 






534D 


CB22 


00060 






SLA 


D 






534F 


FE33 


00061 






CP 


■3' 






5351 


2809 


00062 






JR 


Z, NOPARS 


Listing 


continues 



DISCOUNT COMPUTERS 

100% RS COMPONENTS, NO FOREIGN DRIVES OR MEMORY— FULL WARRANTY 



16K COLOR COMPUTER 427.00 

32K COLOR COMPUTER 497.00 

16K MODEL III 815.00 

48K MODEL III, 1 DR 1549.00 

48K MODEL III, 2 DR. RS232 1795.00 

64K MODEL II, 1 DR 2499.00 

128K MODEL 16, 1 DR 3898.00 

128K MODEL 16, 2 DR 4510.00 



DMP-500 PRINTER 1398.00 

DMP-100 PRINTER 299.00 

DMP-200 PRINTER 599.00 

DWP-410 DAISY 1195.00 

DAISY WHEEL II 1599.00 

1 DR. EXPANSION MODEL II 919.00 

8.4 MEG HARD DISK MODEL 11/16 3599.00 

ALL RS SOFTWARE 20% OFF 



CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS. 

(817) 825-4027 

NOCON A ELECTRONICS • Box 593 • Nocona, TX 76255 



80 Micro, December 1982 • 243 



••••••••••• 



Jf 
Jf 
Jf 

* 
Jf 
Jf 
Jf 
Jf 
Jf 

4 

jf 



PLEASE 



jf 



jf 

if 

* 
jf 
jf 
* 



Give Us 

A Chance to Save 

You the Largest 

Amount Possible on 

TRS-80™ 

Products 
Get Your Best 
Jf Price - Then Call Us jf 
Jf 1800-762-6661 * 

Jf 

Jf 
Jf 
* 
Jf 
>f 
>f 
Jf 
* 
Jf 
* 
>f 
Jf 
Jf 



OUR PRICES 
Start 
at a 15% Discount 




SAVE 




We also handle 

VIC -20 
Okidata - Atari 

RAND'S 

COMPUTER CORNER 

101 W. FRY BLVD. 
Sierra Vista, Az. 85635 
In State 602-458-2477 



• 130 



TRS-W it ■ trademark o< Tandy Corporation 



Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
>f 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 



>f 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 

••••••••••• 
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Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 
Jf 



Listing continued 












5353 219156 


00063 


ERROR 


LD 


HL.ERR1 


{ILLEGAL PARAMETER FOUND 


5356 CD3956 


00064 




CALL 


OUTSTR 




5359 C3EE55 


00065 
00066 




JP 


DOS EXT 


; RE ENABLE INTERRPUT - RET 


535C 7A 


00067 


NO PARS LD 


A,D 


;SAVE SELECT BIT 


535D 321857 


00068 




LD 


(SELBIT) ,A 




5369 7B 


00069 




LD 


A,E 


;SAVE DRIVE NUMBER IN 


5361 32BAS6 


00070 




LD 


(DRNR) ,A 


; VARIOUS MESSAGES 


5364 32D156 


00071 
00072 




LD 


(DRVNR) ,A 






00073 


; NOW 


THAT THE 


PARAMETER HAS 


BEEN DECODED, THE NEXT TASK 




00074 


I IS TO SELECT 


THE DRIVE AND 


TO SEE IF IT IS READY BY 




00075 


; READING THE 


INDEX PULSE BIT AND MAKING SURE THAT IT 




00076 


1 CHANGES PRIOR TO TWO FULL DISKETTE REVOLUTIONS. IF 




00077 


; IT DOES - OK 


, IF NOT - THEN DISKETTE IS NOT READY FOR 




00078 


j A VARIETY OF 


REASONS. 






00079 










5367 3ED0 


00080 




LD 


A,0D0H 


;FDC COMMAND - QUIT OPS 


5369 32EC37 


00081 




LD 


(CMDREG) ,A 


; TERMINATE, RESET "BUSY" 


536C 3M857 


00082 




LD 


A, (SELBIT) 


;GET DRIVE SELECTED 


536P 32E137 


00083 




LD 


(SELECT) ,A 


; SELECT IT AND START MTR 


5372 010080 


00084 




LD 


BC,8000H 




5375 CD6000 


00085 




CALL 


DELAY 


jWAIT ONE-HALF SECOND 


5378 3A1857 


00086 




LD 


A, (SELBIT) 


; RES ELECT DRIVE 


537B 32E137 


00087 




LD 


(SELECT) ,A 




537E E5 


00088 




PUSH 


HL 




537F El 


00089 




POP 


HL 


I WASTE TIME 


5380 E5 


00090 




PUSH 


HL 




5381 El 


00091 




POP 


HL 




5382 3AEC37 


00092 




LD 


A, (STATUS) 


;READ STATUS REGISTER 


5385 E602 


00093 




AND 


2 


; INDEX PULSE BIT 


5387 5F 


00094 




LD 


E,A 


;SAVE IT 


5388 011027 


00095 




LD 


BC, 10000 


1 COUNT FOR APPRX 2 REVS 


538B 3A1857 


00096 




LD 


A, (SELBIT) 




538E 32E137 


00097 




LD 


(SELECT) ,A 




5391 3AEC37 


00098 


TEST 


LD 


A, (STATUS) 


;GET STATUS WORD 


5394 E602 


00099 




AND 


2 




5396 BB 


00100 




CP 


E 


;SEE IF INDX BITS ARE = 


5397 200E 


00101 




JR 


NZ, READY 


J NO - IT MUST BE OK 


5399 0B 


00102 




DEC 


BC 


;DECR COUNT 


53 9A 7 8 


00103 




LD 


A,B 




S39B Bl 


00104 




OR 


C 




539C 20F3 


00105 




JR 


NZ,TEST 




539E 21AE56 


00106 




LD 


HL.ERR2 


jDRIVE X IS NOT READY 


53A1 CD3956 


00107 




CALL 


OUTSTR 




53A4 C3EE55 


00108 
00109 




JP 


DOSEXT 






00110 


r now 


THAT THE 


DRIVE HAS BEEN 


DETERMINED TO BE IN AN 




00111 


j OPERATIONAL STATUS, RESTORE 


THE DRIVE TO TRACK TO 




00112 


; LET 


THE FDC KNOW WHERE THE 


HEAD IS AND THEN SEEK THE 




00113 


j "DIRTRK". READ 10 SECTORS 


FROM "DIRTRK" AND STORE IN 




00114 


; BUFPER FOR LATER USE. 






00115 










53A7 3A1B57 


00116 


READY 


LD 


A, (SELBIT) 


j RE SELECT DRIVE 


53AA 32E137 


00117 




LD 


(SELECT) ,A 




53AD 21EC37 


00118 




LD 


HL, CMDREG 


;SET UP ROUTINE 


53B0 360E 


00119 




LD 


(HL) ,0EH 


; RESTORE - 20NS/TRACK 


53B2 E5 


00120 




PUSH 


HL 




53B3 El 


00121 




POP 


HL 




53B4 E5 


00122 




PUSH 


HL 




53B5 El 


00123 




POP 


HL 




53B6 CB46 


00124 


READ1 


BIT 


0,(HL) 


;TEST FOR BUSY BIT 


53B8 20PC 


00125 




JR 


NZ.READ1 


»WAIT TILL NOT BUSY 


53BA 3E11 


00126 




LD 


A, DIRTRK 


;SET UP SEEK 


53BC 32EF37 


00127 




LD 


(DATARG) ,A 




53BF 361E 


00128 




LD 


(HL) ,1EH 


j SEEK - 20MS/TRACK 


53C1 E5 


00129 




PUSH 


HL 




53C2 El 


00130 




POP 


HL 




53C3 E5 


00131 




PUSH 


HL 




53C4 El 


00132 




POP 


HL 




53C5 CB46 


00133 


READ 2 


BIT 


■r(HL) 




53C7 20FC 


00134 




JR 


NZ,READ2 


;WAIT FOR NOT BUSY 


53C9 010060 


00135 




LD 


BC, BUFFER 


fBC HAS BUFFER ADDR 


53CC 11EF37 


00136 




LD 


DE, DATARG 




53CF AF 


00137 




XOR 


A 




53D0 32EE37 


0013B 




LD 


(SECTOR) ,A 


> START AT SECTOR 


53D3 368C 


00139 


READ 3 


LD 


(HL),8CH 


j READ SECTOR 


53D5 E5 


10141 




PUSH 


HL 


; WASTE TINE 


53D6 El 


00141 




POP 


HL 




53D7 E5 


00142 




PUSH 


HL 




S3D8 El 


00143 




POP 


HL 




53D9 1803 


00144 




JR 


READ5 




53DB 0F 


00145 


READ 4 


RRCA 




;TEST BUSY BIT 


53DC 300A 


00146 




JR 


NC,READ6 


7 NOT BUSY - DONE OR ERROR 


53DE 7E 


00147 


READS 


LD 


A, (HL) 


jGET STATUS WORD 


53DF CB4F 


00148 




BIT 


IrA 


;TEST FOR "DRQ"-DATA REQ 


53E1 28F8 


00149 




JR 


Z, READ 4 


;NO DRQ - CHECK BUSY 


53E3 1A 


00150 




LD 


A,(DE) 


jDRQ - GET NEXT BYTE 


53E4 02 


00151 




LD 


(BC) ,A 


; STORE BYTE 


53E5 03 


00152 




INC 


BC 




53E6 1BF6 


00153 




JR 


READ 5 


;GO FOR MORE 


53E8 7E 


00154 


READ6 


LD 


A, (HL) 


jFDC STATUS WORD 


53E9 E61C 


00155 




AND 


1CH 


;TEST POR REC NOT FND, 


53EB 2809 


00156 




JR 


Z , READ7 


iCRC ERR, LOST DATA 


53ED 211957 


00157 




LD 


HL,DIRERR 


; DIRECTORY READ ERROR 


53F0 CD3956 


• 0158 




CALL 


OUTSTR 




53F3 C3EE55 


00159 




JP 


DOSEXT 




53F6 3AEE37 


00160 


READ7 


LD 


A, (SECTOR) 


;GET CURRENT SECTOR NR 


53F9 3C 


00161 




INC 


A 




53FA 32EE37 


00162 




LD 


(SECTOR), A 


; UPDATE IT 

Listing continues 




□ 



□ 



\ COMPUTER CONNECTION 



Vt'u Toll Free Order Number 





Printer Stands 

Hid I he paper mess on 

yoilf computer desk Our 

pi inter stand allows your 

pa pel to he ted from under 

the printer, making room 

for the used paper to stack 

hehmd the print out of the way. Available with 

an optional removable shell (Shown) for easy 

computer forms change Available in 1 arge 

size also, tor MX- KM) and other large printer users 

also. Also available with center slot foi bottom 

feed printers 

Regular Stand (WOO 10) $29.95 

Regular w shell "(30001 1 ) $44 95 

I arge Stand (300020) $34.95 

Large w shell ( 30002 1 ) $49.95 

Large w slot (300050) $49.95 



B.T. Hard Disks 

We want you to have all the power that your TRS- 
I RS-80 is capable, at prices that have other manu- 
facturers cross-eyed! These Five. Ten and Fifteen 
Megabyte units are easy to use. just plug them into 
the expansion buss of your Model I or Model III. 
Comes complete with the fantastic DOS PI I IS 4.0 
Operating System' Available in configurations: 
5 Megabyte Fixed. 10 Megabytes. 15 Megabyte 
Fixed. Look at the incredible low prices 
of our systems! 
SYSTEM PRICING 
5 Megabyte Winchester Fixed Disk 
201505 Model I Version $2399.95 

203505 Model III Version 2399.95 

10 Megabyte Winchester Fixed Disk 
201510 Model I Version $2549.95 

203510 Model III Version $2549.95 

15 Megabyte Winchested Fixed Disk 
201520 Model I Version $2699.95 

203520 Model III Version $2699.95 

Add $10.00 shipping and handling 




MAILABLE 

X 

ur\<j 9r 



HQk 



□ 



Upgrade Kit 

Putting Disk drives into your I RS-80 Model III 
will turn it into the powerful computer it was 
designed to be I he B.I. Enterprises DISK 
DRIVE INSTAI I A I ION KIT is easy to do and 
represents a substantial savings over the cost il 
done by Radio Shack. 

I he kit was designed to be installed by a non- 
technical person, and takes an average of 45 to 75 
minutes to complete. The only tools necessary are a 
phillips and flat head screw driver and a pair of 
diagonal cutters. No cutting of traces or soldering 
is necessary. The full instruction procedure was the 
topic of a feature in SO US Magazine in the 
May. 1982 issue, and was given high marks for 
ease ol installation. 

KIT CONSISTS OF: 

• FIX' III B* Micromainframe Controller 
Board assembled & tested 

• Switching power supply 

• Disk drive mounting brackets 

• All cables and hardware 

• Instructions with diagrams 

• Drives are optional 

♦I DC NIC Board optional at additional cost 
supports 8 inch external drives and extended 
density 5-Va inch drives (dual headed and 80 
track) 



203103 


Disk Upgrade Kit B Version 






w hardware 


$279.95 


203104 


Disk Upgrade Kit C" Version 






w hardware 


$309.95 


203113 


Disk Upgrade B. Version 






w/2 40tk &32K 


$799.95 


203114 


Disk Upgrade C Version 






w/2 40tk & 32K 


$829.95 


203115 


Disk Upgrade C Version 






w/2 40tk DH & 32K 


$1029.95 


203118 


Disk Upgrade C. Version 






w 2 80tk & 32K 


$1029.95 


203117 


Disk Upgrade C Version 






w 2 80tk DH & 32K 


$1229.95 


203003 


1 IK III B Controller Board 






Only 


$139.95 


203004 


FDC III C Controller Board 






only 


$169 95 


200500 


Switching Power Supply 






(3 voltages) 


$99.95 


203010 


Controller Assembly Kit 


$75.00 


203510 


Controller Assy kit 






w power Supply 


$174.95 


DH 


Dual Headed 






B. T. Enterprises 

I0B Carluugh Road ih-ahr Inquire* Welcome 

Bohemia, N. Y. 1 1716 Prices Subject to change 

516 567 8155 (voice) N. > \S. Residents Add Tax 

516 588 5836 (modem) ^300 

B.T Enterprises is a di\iM«n <«l Bi-lcch Enterprise! Ik 



New Toll Free Lines for 

out of New York State 

orders 

800 645 1165 

WELCOME 



^See List of Advertisers on Page 451 
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RAPID 




The eye is 

still faster 

than the 

hand, true. 

But when 

RAPID 

passes its hand, you have the 

most reliable backup in less than 

45 seconds, with Verify AND 

Error Correct. 

TRS-80 Model II w/2 disk + 64K 

$48 

ALDEVCO (513) 561-7671 

5725 Dragon Way 
Cincinnati, Ohio 45227 



Introducing: 

THE ALL-PURPOSE SHOPPER 

A complete guide to 
fast and economical shopping 

****************** 

• Models i & III. IBM 

• Menu driven for efficient operating 

• Complete documentation 

• All systems are disk based 

• Run-time diskette 

• Soon to be available on models II & 
Apple II 

****************** 

Due to (he number of options available, please write 

for more details and price information 

(Written inquiries please include a 

self-addressea stamped envelopes 

AFTER PLAYING GAMES SO LONG 

ITS TIME FOR SOME: 
SERIOUS PERSONAL COMPUTING 
P.O. BOX 7059 S. NASHUA. N.H 03060 

603-888-1376 ^528 



Eight good reasons 
for using a Mod III: 

1. ffiitlibiZ " General Ledger 

Accounting System 

2. Accounts Receivable 

3. Accounts Payable 

4. Full-Service Payroll 

5. Order Entry & Invoicing 

-with Inventory Interface 
-with Accts. Rec. Interface 

6. Fixed Assets Accounting 

7. Job Cost Accounting 

8. Cost Estimating Systems 

-for Manufacturing 
-for Food Service 

At selected Dealers or 
from the publisher 

Npjipnthr Jrutirams 

44 Third Ave., Ste. F 
Chula Vista. CA 92010 

714-425-5501 ."> 
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53FD FE0A 


00163 




CP 


10 


•TEST FOR FULL TRACK READ 


53FF 20D2 


00164 
00165 




JR 


NZ,READ3 






00166 


; THE DIRECTORY HAS BEEN READ TO 


THE BUFFER AND NOW 




00167 


; READ 


THROUGH 


THE "GAT" SECTOR 


(SECTOR 0) AND SET LP THE 




00168 


; TITLE LINE FOR THE SCREEN. 






00169 










5401 010600 


00170 




LD 


BC,8 


BYTE COUNT FOR NAME 


5404 11D556 


00171 




LD 


DE.DKNAME 




5407 21D060 


00172 




LD 


HL,GAT+0D0H 


START OF DISK NAME 


540A EDB0 


00173 




LDIR 






540C 010800 


00174 




LD 


BC,8 


LENGTH OF DATE 


540F 21D860 


00175 




LD 


HL.GAT+0D8H 


START OF CREATION DATE 


5412 11DF56 


00176 




LD 


DE.DATE 




5415 EDB0 


00177 




LDIR 






5417 0E00 


00178 




LD 


C,0 


COUNT TRACKS LOCKED OUT 


5419 0628 


00179 




LD 


B,NRTRKS 




541B 216060 


00180 




LD 


HL.GAT+60H 


START OF TRK LOCKED OUT 


541E 7E 


00181 


TRKS 


LD 


A, (HL) 




541F FEFC 


00182 




CP 


0FCH 


CODE FOR NOT LOCKED OUT 


5421 2801 


00183 




JR 


Z,TRKS2 




5423 0C 


00184 




INC 


C 




5424 23 


00185 


TRKS2 


INC 


HL 




5425 10F7 


00186 




DJNZ 


TRKS 


LOOP FOR FULL DISK WORTH 


5427 69 


00187 




LD 


L,C 


SET UP CONVERSION 


5428 60 


00188 




LD 


H,B 


H-0 


5429 CD9A0A 


00189 




CALL 


HLACC 


(HL)— >4121H, 2~>40AFH 


542C CDBD0F 


00190 




CALL 


CVTASC 


CONVERT NUMBER TO STRING 


542F 23 


00191 




INC 


HL 


SKIP LEADING BLANK 


5430 7E 


00192 




LD 


A, (HL) 


GET FIRST DIGIT 


5431 110857 


00193 




LD 


DE,TLO 




5434 12 


00194 




LD 


(DE) ,A 


STORE IN HEADING 


5435 23 


00195 




INC 


HL 




5436 13 


00196 




INC 


DE 




5437 7E 


00197 




LD 


A,(HL) 


GET NEXT DIGIT 


5438 B7 


00198 




OR 


A 


TEST FOR TERMINATION 


5439 2801 


00199 




JR 


Z,TRKS3 




543B 12 


00200 




LD 


(DE) ,A 




543C 0E00 


00201 


TRKS3 


LD 


C,0 


COUNT OF FREE GRANULES 


543 E 0628 


00202 




LD 


B,NRTRKS 




5440 210060 


00203 




LD 


HL,GAT 


START OF GRAN ALLOC TBI. 


5443 7E 


00204 


GRANS0 


LD 


A, (HL) 


GET NEXT BYTE 


5444 FEFC 


00205 




CP 


0FCH 


BOTH FREE GRANS 


5446 2004 


00206 




JR 


NZ,GRANS1 




5448 0C 


00207 




INC 


C 




5449 0C 


00208 




INC 


C 




544A 180C 


00209 




JR 


GRANS3 




544C FEFD 


00210 


GRANS1 


CP 


0FDH 


CODE FOR ONE FREE 


544E 2003 


00211 




JR 


NZ.GRANS2 




5450 0C 


00212 




INC 


C 




5451 1805 


00213 




JR 


GRANS3 




5453 FEFE 


00214 


GRANS2 


CP 


0FEH 


CODE FOR THE OTHER FREE 


5455 2001 


00215 




JR 


NZ,GRANS3 




5457 0C 


00216 




I NC 


C 




5458 23 


00217 


GRANS3 


INC 


HL 


BUMP POINTER 


5459 10E8 


00218 




DJNZ 


GRANS0 


LOOP FOR FULL DISK 


545B 69 


00219 




LD 


L,C j 


SET UP CONVERSION 


545C 60 


00220 




LD 


11, B , 


H-0 


545D CD9A0A 


00221 




CALL 


HLACC 


(HL) — >BASIC AC CUM 


5460 CDBD0F 


00222 




CALL 


CVTASC , 


CONVERT TO STRING 


5463 23 


00223 




INC 


HL 




5464 11F456 


00224 




LD 


DE, GRANS 




5467 7E 


00225 




LD 


A,(HL) , 


GET FIRST DIGIT 


5468 12 


00226 




LD 


(DE) ,A 




5469 23 


00227 




INC 


HI. 




546A 13 


00228 




INC 


DE 




546B 7E 


00229 




LD 


A,(HL) 


GET NEXT DIGIT 


546C B7 


00230 




OR 


A • 


TEST FOR TERMINATOR 


546D 2801 


00231 




JR 


Z.GRANS4 




546F 12 


00232 
00233 




LD 


(DE) ,A 






00234 
00235 
00236 


; ZERO 


MAP ARRAY AND VARIOUS VARIABLES 


5470 214658 


GRANS4 


LD 


HL.MAP ; 


SET UP MAP STRING ARRAY 


5473 114758 


00237 




LD 


DE.MAP+1 




5476 010F04 
5479 3600 


00238 




LD 


BC,1039 ; 


COUNT FOR 13*80 ARRAY 


00239 




LD 


(HL) ,0 ; 


PROPOGATION CHARACTER 


547B EDB0 


00240 




LDIR 






547D AF 


00241 




XOP 


A 




547E 323657 


00242 




LD 


(PAGES) ,A 




5481 32D157 


00243 
00244 




LD 


(TRK) ,A 






00245 


• START 


TO BUILD THE MAP STRING ARRAY OF FILESPEC'S AT 




00246 


; THE LOCATION 


CORRESPONDING TO THE LOCATION OF THE FILE 




00247 


• ON THE DISKETTE. THIS IS DONE 


BY LOOKING AT THE FIRST 




00248 


• BYTE 


OF EACH 


PILE DIRECTORY ENT 


RY (FDE) STARTING WITH 




00249 


THE SECOND SECTOR OF THE DIRECT 


ORY. IF IT IS (WHICH 




00250 


• MEANS 


THE FDE 


IS EMPTY) OR 90H 


(WHICH MEANS THAT THE 




00251 


• FDE IS REALLY 


A FILE EXTENSION 


DIRECTORY ENTRY (FXDE) 




00252 


• OF AN 


ALREADY 


EXISTING FPDE) THEN IGNORE IT. LOOK AT 




00253 


THE FDE ENTRIES FOR ALL THE RES 


T AS THEY ARE THE FILE 




00254 


PRIMARY DIRECTORY ENTRIES (FPDE 


). UTILIZE THE "EXTENT" 




00255 


INFORMATION IN EACH FPDE (AND CORRESPONDING FXDE, IF 




00256 


NECESSARY) TO 


STORE THE FILESPE 


C IN THE MAP TABLE IN 




00257 
00258 
00259 


THE LOCATIONS 


CORRESPONDING TO 


TRACK/ASSIGNED GRANULES 


5484 210062 




LD 


HL.FDES t 


START OF FDE'S IN BUFFER 


5487 E5 


00260 


SCAN 


PUSH 


HL ; 


SAVE POINTER ON STACK 


5488 7E 


00261 




LD 


A,(HL) 


GET BIT RECORD OF FDE 

Listing continues 



246 • 80 Micro, December 1982 



Listing continued 










5489 B7 


00262 


OR 


A 


•TEST FOR NULL 


546A 2857 


00263 


JR 


Z, SCNNXT 




548C FEW 


00264 


CP 


90B 


jTEST FOR FXDE ENTRY 


548E 2853 


00265 


JR 


2, SCNNXT 




5490 CD4256 


00266 


CALL 


FLSPEC 


; BUILD FILESPEC TO PILBMN 


S493 DDE1 


00267 


POP 


IX 


iFDE POINTER 


5495 DDE5 


00268 


PUSH 


IX 




5497 011600 


00269 


SCAN1 LO 


BC.22 


;0FFSET OF EXTENT 81 ft 


549A DD09 


00270 


ADD 


IX, BC 


R] 


549C DD7E00 


00271 


LD 


A, (IX) 


j GET TRACK t 


549F FEPP 


00272 


CP 


0FFH 


;TEST FOR BUD OF XTMT 


54A1 2840 


00273 


JR 


Z, SCNNXT 




54A3 CD0856 


00274 


CALL 


STORIT 


t STORE FILESPEC 


54A6 DD23 


0027 5 


INC 


IX 




54A0 OD23 


00276 


INC 


IX 




54AA DO7E00 


00277 


LD 


A, (IX) 


(TRACK FOR EXTENT 12 


54AD PEPP 


00278 


CP 


•PPH 


;TEST FOR END 


54AP 2832 


00279 


JR 


Z, SCNNXT 




54B1 CD0856 


00280 


CALL 


STORIT 




54B4 DD23 


00201 


INC 


IX 




54B6 DD23 


00202 


INC 


IX 




54B8 DD7E00 


00283 


LD 


A, (IX) 


; TRACK FOR EXTENT 03 


54BB PEPP 


002B4 


CP 


0FFH 




54BD 2824 


00285 


JR 


Z, SCNNXT 




S4BF CD0856 


00286 


CALL 


STORIT 




54C2 DD23 


00287 


INC 


IX 




54C4 DD23 


00288 


INC 


IX 




54C6 DD7E00 


00289 


LD 


A, (IX) 


} TRACK FOR EXTENT «4 


54C9 PEFF 


00290 


CP 


0FFH 




54CB 2816 


00291 


JR 


2, SCNNXT 




54CD CD0856 


00292 


CALL 


STORIT 




54D0 DD23 


00293 


INC 


IX 




54D2 DD23 


00294 


INC 


IX 




54D4 DD7E00 


00295 


LD 


A,(IX) 


/TRACK FOR EXTENT* 5 


54D7 FEFF 


00296 


CP 


0FPH 


;TEST FOR END OF EXTENTS 


54D9 2808 


00297 


JR 


Z , SCNNXT 




540B FEPE 


10298 


CP 


0FEH 


;TEST FOR FXDE ENTRY NEXT 


54DD CAP255 


00299 


JP 


Z,FXDE 


{PROCESS IT 


54E0 CD0856 


00300 


CALL 


STORIT 




S4E3 El 


00301 


SCNNXT POP 


HL 


j GET POINTER TO FOE 


54E4 012000 


00302 


LD 


BC,32 


; LENGTH OF ONE FDE 


54E7 09 


00313 


ADD 


HL.BC 


;BUMP POINTER 


54E8 3E6A 


00304 


LD 


A,BUFFER+0A00H<-8 jTEST FOR END OF BUFFER 


54EA BC 


00305 


CP 


B 




54EB 209A 


00306 
00307 


JR 


NX, SCAN 






90308 


; NOW THAT THE NAP ARRAY HAS BEEN CONSTRUCTED, DISPLAY 




00309 


S THE DISK GRANULE NAP ON THE 


VIDEO IN FOUR PAGES OF 




00310 


; TEN TRACKS 


PER PAGE WITH A HEADER AT TOP EACH TIME. 




00311 








S4ED CDC901 


00312 


DISP CALL 


CLS 


; CLEAR THE SCREEN 


S4F0 21163C 


00313 


LD 


HL,VIDEO+22 


j START OF TITLE 


54F3 222040 


00314 


LD 


(CURSOR) ,HL 




54P6 217B56 


00315 


LD 


HL, TITLE 


;TITLE LINE 


54F9 CD3956 


00316 


CALL 


OUTSTR 




54FC 21CB56 


00317 


LD 


HL.DKMSG 


j DRIVE , NAME , DATE , ETC . 


54FP CD39S6 


00318 


CALL 


OUTSTR 




5502 21913C 


00319 


LD 


HL,VIDEO+145 


; START OF GRANULE MAP 


5505 222040 


00320 


LD 


(CURSOR) ,HL 




5506 21D557 


00321 


LD 


HL,LINE3 




550B CD3956 


00322 


CALL 


OUTSTR 




550E 21D13C 


00323 


LD 


HL,VIDEO+209 


; START OF LINE 4 


5511 11D23C 


00324 


LD 


DE,VIDBO+210 




5514 012E00 


00325 


LD 


BC,46 




5517 36BC 


01326 


LD 


(HL) ,141 


i GRAPHICS BLOCK 


5519 EDB0 


00327 


LDIR 




;DRAW LINE 


551B 3EBP 


00328 


LD 


A, 191 


{GRAPHICS BLOCK 


551D 32D13C 


00329 


LD 


(VIDEO+209) ,A 


t DIVIDE COLUMNS 


S520 32E83C 


00330 


LD 


(VIDEO+232) ,A 




5523 32PF3C 


•0331 


LD 


(VIDEO* 255) ,A 




5526 3E0A 


00332 


LD 


A, 10 


» NUMBER OF "LINEN* "S 


5528 11003D 


00333 


LD 


DE, VIDEO* 256 


I START OP DISPLAY 


552B 014000 


00334 


DISP1 LD 


BC,64 


» BYTE COUNT 


552E 210558 


00335 


LD 


HL, LINEN 




5531 EDB0 


00336 


LDIR 




; WRITE ONE LIME 


5533 3D 


00337 


DEC 


A 


;TEST FOR END 


5534 20P5 


00338 


JR 


NX,DISP1 




5536 21913F 


00339 


LD 


HL,VIDEO+913 


; BOTTOM LIME 


5539 11923F 


00340 


LD 


DE,VIDEO+914 




553C 012E00 


00341 


LD 


BC,46 




5S3F 3683 


00342 


LD 


(HL),131 


»LINB BLOCK 


5541 EDB0 


00343 
00344 


LDIR 








00345 


r SCREEN IS FORMATTED, NOW WRITE 10 TRACKS WORTH OF 




00346 


t FILESPEC'S 


TO THE FORMATTED 


SCREEN 




09347 








5543 2A36S7 


00348 


DISP0 LD 


HL, (PAGES) 


«GET CURRENT PAGE 


5546 E5 


00349 


PUSH 


HL 




5547 CI 


00350 


POP 


BC 


jPAGE*10 


5548 29 


00351 


ADD 


HL,HL 




5549 29 


00352 


ADD 


HL,HL 




554A 09 


00353 


ADD 


HL.BC 




554B 29 


00354 


ADD 


HL,HL 


; PAGE" 10 4-TRK -TRACK # 


5S4C ED5BD151 


00355 


LD 


DE, (TRK) 


t CURRENT TRK IN PAGE 


5550 19 


00356 


ADD 


HL,DE 




5551 D5 


00357 


PUSH 


DE 


;SAVE CURRENT TRK NR 


5552 220357 


00358 


LD 


(TRKNR) ,HL 


;SAVE COMPUTED TRK NR 


5555 CD9A0A 


00359 


CALL 


HLACC 


; INTEGER HL— >ACCUM 


5558 CDBD0F 


00360 


CALL 


CVTASC 


; CONVERT FOR OUTPUT 

Listing continues ( 




If you 
ever wished that 
you had a better program- 
ming language, PASCAL 80 may 
be the language you dream about. It is 
a compiled language, faster, more ac- 
curate and easier to modify than Basic. 
Yet it is so easy to use that you can 
forget the hassles and diskette spinning 
of other compiled languages, including 
other versions of Pascal. 

Now you can create your own com- 
mand files that execute from DOS 
without having to load a language into 
the computer first, but do it with far less 
work than machine language. You can 
sell your compiled programs without any 
royalty payments! 

Although designed for teaching and 
ideal for that purpose, PASCAL 80 also 
allows serious applications with a full 
fourteen digits of accuracy, even on log 
and trig functions! 

Both random and sequential access 
files arc supported, without cumber- 
some format statements. 

PASCAL 

features of 
as a num 
eluding 
graphics 
sions i 
WRIT 
ELSE 
usefu 

PASCAL 80 allows you to create files 
on the TRS-80* Model I, Model III, 
LNW-80, PMC-80, or LOBO MAX-80 
that will run on any of the other 
machines under TRS-DOS*, LDOS, 
NewDOS, NewDOS 80, DBL-DOS or 
DOS Plus. 

PASCAL-80 

PASCAL 80 is used in dozens of High 
Schools, Colleges, and Technical 
Schools, and has been favorably re- 
viewed in Byte, Creative Computing, 
and other magazines. 

You get all of this at a bargain price of 
only $99 plus $2 shipping. If you call and 
order by MasterCard or VISA, we will 
even credit you $1 for the phone call. 
Call or send your check today! 



NEW QLASS1CS SOFTWARE 

^^n 239 Fox Hill Road -^ 
\S 03 Denville, NJ 07834 *^^ 
•^ (201) 625-8838 „2» ^^ 

TRS-0O*and TRS-DOS arc trademarks of Radio Shack, 
LNW-80 of LNW Research. PMC-00 of Personal Micro 
Computers. LOBO. LDOS. and MAX-80 of Lobo Systems. 
DOS-Plus of Micro Systems Software. NewDOS and 
NewDOS 00 of Apparat, and DBL-DOS of Pcrcom. 
PASCAL 00 is a trademark of New Classics Software. 
Poiater Variables. Variant Records. NEW. DISPOSE. 
WITH, GET, and PUT are not impiemened in PASCAL 00. 



JP«0jkffers most of the 

StapMard Pascal as well 

of usBBl extensions, in- 

»EEK^l0KE, CALL and 

id^P>ascal 80 exten- 

READ and 

files, 

other 




•See List ot Advertisers on Page 451 
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MICROSETTE 



DISKETTES CASSETTES 




We now offer 5 '4-inch single sided, 
soft sector, single or double density 
diskettes, in addition to our quality 
short length cassettes. 

Our Prices Include 
Boxes and Shipping 



CASSETTES 


Item 


10 Pack 


50 Pack 


C-10 


$ 7.50 


$ 32.50 


C-20 


9.00 


39.00 


C-60 


11.00 


50.00 


C-90 


15.00 70.00 


DISKETTES 5 '/i -inch 


MD-5 | $25.00 $110.00 



UPS shipment in continental 

U.S.A. only. 

We cannot ship to P. O. Boxes. 



1 1 • ■ ! 1 1 


Qty 


Price 


Total 


















SUBTOTAI 




Calif. Cust add Sales Tax 




TOTAL 





Shipping address enclosed 
Check or money order enclosed C 
Charge to: Visa [ J MasterCard !~ 

Account No. 

Expiration Date 



Signature 



MICROSETTE CO. 

475 Ellis St., Mt. View, 
CA 94043 (415)968-1604 
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Listing continued 












555B 


Dl 


00361 




POP 


DE 


;GET TRK NR FOR INDEX 


555C 


EB 


00362 




EX 


DE,HL 


;DE-PTR TO STRING, HL-TRK 


555D 


29 


00363 




ADD 


HL,HL 


;*2 


555E 


29 


00364 




ADD 


HL.HL 


;*4 


555F 


29 


00365 




ADD 


HL,HL 


;*8 


5560 


29 


00366 




ADD 


HL.HL 


;*16 


5561 


29 


00367 




ADD 


HL.HL 


;*32 


5562 


29 


00368 




ADD 


HL.HL 


;*6 4 


5563 


010D3D 


00369 




LD 


BC.VIDEO+2S6+13 


;BASE FOR TRACK NUMBER 


5566 


09 


00370 




ADD 


HL.BC 




5567 


E5 


00371 




PUSH 


HL 




5568 


1A 


00372 


01SP2 


LD 


A,(DE) 


;GET STRING VALUE 


5569 


B7 


00373 




OR 


A 


;TEST FOR BYTE TERMINAL 


556A 


2805 


00374 




JR 


Z.DISP3 




556C 


77 


00375 




LD 


(HL) ,A 




556D 


13 


00376 




INC 


DE 




556E 


23 


00377 




INC 


HL 




556F 


18F7 


00378 
00379 




JR 


DISP2 




5571 


2AD357 


00380 


DISP3 


LD 


HL,(TRKNR) 


;GET TRACK NR AS INDEX 


5574 


29 


00381 




ADD 


HL.HL 


; DOUBLE TO GET GRANULE 


5575 


E5 


00382 




PUSH 


HL 




5576 


Dl 


00383 




POP 


DE 




5577 


29 


00384 




ADD 


HL,HL 


;*2 


5578 


19 


00385 




ADD 


HL,DE 


;*3 


5579 


29 


00386 




ADD 


HL,HL 


;*6 


557A 


29 


00387 




ADD 


HL.HL 


;*12 


557B 


19 


00388 




ADD 


HL.DE 


j*13 


557C 


114658 


00389 




LD 


DE.MAP 


;BASE ADDRESS 


557F 


19 


00390 




ADD 


HL,DE 


;BASE+GRANULE*13 


558a 


Dl 


00391 




POP 


DE 


jLINE ADDR 


5581 


D5 


00392 




PUSH 


DE 


;KEEP IT 


S5B2 


E5 


00393 




PUSH 


HL 


;SAVE MAP ARRAY ADDR 


5583 


EB 


00394 




EX 


DE,HL 




5584 


010A00 


00395 




LD 


BC.10 


,-TAB OVER TO FILESPEC 


5587 


•9 


00396 




ADD 


HL.BC 




5588 


1A 


00397 


DISP30 


LD 


A,(DE) 


;GET NEXT FILE CH 


5589 


B7 


00398 




OR 


A 


;TEST FOR TERMINAL 


558A 


2805 


00399 




JR 


Z,DISP4 




558C 


77 


00400 




LD 


(HL) ,A 


; STORE IT IN LINE 


558D 


13 


00401 




INC 


DE 




558E 


23 


00402 




INC 


HL 




558F 


18F7 


00403 




JR 


DISP30 




5591 


012100 


00404 


DISP4 


LD 


BC.33 


;TAB TO 2ND GRAN ON LINE 


5594 


Dl 


00405 




POP 


DE 


; STRING ARRAY ADDRESS 


5595 


El 


00406 




POP 


HL 


;LINE ADDRESS 


5596 


09 


00407 




ADD 


HL,BC 




5597 


EB 


00408 




EX 


DE.HL 




5598 


010D00 


00409 




LD 


BC,13 


;BASE+13«(GRANULE*1) 


559B 


09 


00410 




ADD 


HL,BC 




559C 


7E 


00411 


DISP5 


LD 


A, (HL) 


;GET FILESPEC NEXT CH 


559D 


B7 


00412 




OR 


A 


;TEST FOR TERMINAL 


559E 


2805 


00413 




JR 


Z.DISP6 




55A0 


12 


00414 




LD 


(DE) ,A 




55A1 


23 


00415 




INC 


HL 




55A2 


13 


00416 




INC 


DE 




55A3 


18F7 


00417 




JR 


DISP5 




55A5 


3AD157 


00418 


DISP6 


LD 


A , ( TRK ) 


;INCR CURRENT TRK ON PAGE 


55A8 


3C 


00419 




INC 


A 




55A9 


32D157 


00420 




LD 


(TRK) ,A 




5 5 AC 


FE0A 


00421 




CP 


10 


;TEST FOR 10 THIS PAGE 


55AE 


2093 


00422 




JR 


NZ,DISP0 


;FILL UP SCREEN 


55B0 


3A3657 


00423 




LD 


A, (PAGES! 




55B3 


3C 


00424 




INC 


A 




55B4 


323657 


00425 




LD 


(PAGES) ,A 


; UPDATE CURRENT PAGE 


55B7 


FE04 


00426 




CP 


4 


;TEST FOR ALL DONE 


55B9 


2816 


00427 




JR 


Z,EXIT 




55BB 


21D63F 


00428 




LD 


HL.VIDEO+982 




55BE 


222040 


00429 




LD 


(CURSOR) ,HL 




55C1 


217A57 


00430 




LD 


HL.PRMPT1 




55C4 


CD3956 


00431 




CALL 


OUTSTR 




55C7 


CD4900 


00432 




CALL 


GETKEY 




55CA 


AF 


00433 




XOR 


A 


;ZERO LOCAL PAGE TRK CNT 


55CB 


32D157 


00434 




LD 


(TRK) ,A 




55CE 


C3ED54 


00435 
00436 




JP 


DISP 


.•DISPLAY NEXT 10 TRACKS 


55D1 


21D13F 


00437 


EXIT 


LD 


HL,VIDEO+977 




55D4 


222040 


00438 




LD 


(CURSOR) ,HL 




55D7 


21A257 


00439 




LD 


HL.PRMPT2 




55DA 


CD3956 


00440 




CALL 


OUTSTR 




5 5DD 


CD4900 


00441 




CALL 


GETKEY 




55E0 


FE40 


00442 




CP 


'•' 


;CHECK FOR DISPLAY AGAIN 


55E2 


200A 


00443 




JR 


NZ, DOSEXT 


;NO - EXIT 


55E4 


AF 


00444 




XOR 


A 




55E5 


323657 


00445 




LD 


(PAGES) ,A 


.•RESET POINTERS 


55E8 


32D157 


00446 




LD 


(TRK) ,A 




55EB 


C3ED54 


00447 




JP 


DISP 


; REDISPLAY THE MAP 


55EE 


FB 


00448 


DOSEXT 


EI 






55EF 


C32D40 


00449 

00450 




JP 


DOS 








00451 


; ROUTINE <FXDE> IS USED BY THE MAP BUILDER TO RESET THE 






00452 


; IX REGISTER 


TO THE CORRECT LOCATION IN THE BUFFER WHICH 






00453 


; WILL 


CORRESPOND TO THE FXDE LINKED TO THE CURRENT FPDE. 






00454 


; THE 


INFORMATION IS EXTRACTED 


FROM THE SECOND BYTE OF 






00455 


; THE 


EXTENT, 


EG. "FE 44" IS READ AS FOLLOWS: 






00456 


; 


X'FE' 


-EXTENT POINTS TO 


FXDE 






00457 


; 


X'44' 


-010 00 100B 








00458 


; 


THE 1ST 3 BITS IS THE LOCATION OF THE FXDE IN THE 






00459 


; 


DIRECTORY SECTOR IDENTIFIED BY THE LAST 3 BITS. 






00460 




010B- 


2 ■■> THE FXDE IS 


IN 2*20H«40H ENTRY" IN 

Listing continues 



Word Processing 

Software 

for TRS-80* 

Model I 




World's most popular word 
processing package. Fully 
proven Electric Pencil* now 
enhanced and offered in 16K 
cassette version only. 

• Easiest to learn 

• Simple to operate 

• Full screen editing 

• Global search & replace 

• Powerful insert/delete 

• Dynamic print formatting 

• No control key mod. 

Send check or MO for $24.00 
plus sales tax for Calif, 
cust. UPS shipping in USA 
prepaid. 



$ 24.00 

$10.00 for manual only 

"Electric Pencil licensed to PMC 
Software by Michael Shrayer. 
TRS-80 trademark of Tandy Corp. 



PMC SOFTWARE 

^242 

475 Ellis St. Orders (415) 962-0318 

Mtn. View, 

CA 94043 Info (415)962-0220 



PMC 



SOFTWARE. 



Proven Software Solutions 

for the TRS-80, PMC-80 & 81 User 

At VERY Special Prices 



GAMES 







0u' 






Da 


TiH 


UM 


P-cr 


THM 


UN 


MM 


Advanced Operating Syiltms 










VOYAGE OF THE VALKYRIE 




SCOTT ADAMS ADV 


•1.12 ft »3 




32K I ft III 


39 95 


32 00 


32K 1 ft III 


39 95 


3100 


T 16K 1 ft III 


29 94 


24 00 


SCOTT ADAMS ADV »4. a5 ft a6 










32K 1 ft III 


39 95 


3100 


Adventure International 




SCOTT ADAMS ADV IT, »8 ft »9 




ARMOR PATROL 






D 32K 1 ft III 


39 95 


3100 


D32K I & III 


24 95 


19 00 


SCOTT ADAMS ADV #10 »11 ft ai2 


T 16K 1 4 III 


1995 


1500 


D32K 14 III 


39 95 


31 00 


COMBAT 






SEA DRAGON 






D 32K 1 & HI 


20 95 


1800 


32K 1 ft III . 


24 95 


19 00 


T 16K I & III 


IS M 


15 00 


T 16K 1 ft III 


19 96 


1500 


CONOUEST OF CHESTERWOOO 


SHOWDOWN 






32K 1 & Ml 




16 00 


D 32K 1 ft III 


20 95 


16 00 


T 16K I ft III . . . . 


19 95 


15 00 


T 16K 1 ft III ,... 


1495 


1200 


DEMON VENTURE »1 


— 




♦ silver flashpinball i 




REIGN OF THE REO DRAGON 




32KI&III 


19 95 


1500 


D 32K 1 ft III 


24 95 


19 00 


T 1BK 1 ft III 


1495 


1200 


ELIMINATOR 






SKY WARRIOR 






D 32K 1 ft III 


24 95 


19 00 


32KI& III 


20 95 


16 00 


T 16K 1 ft III 


19 95 


1500 


T 16K I ft III 


14 95 


1100 


GALACTIC EMPIRE 






SPACE INTRUDERS 






T 16K 1 ft III 


14 95 


1200 


D32K I ft III ... 


20 95 


18 00 


GALACTIC REVOLUTION 




T 16K 1 A III 


1995 


15 00 


T 16K 1 ft Ml 


14 95 


1200 


STAR FIGHTER 






GALACTIC TRADER 






D32K Ift III 


29 95 


23 00 


T T6K 1 ft III 


14 95 


12 00 


T 16K 1 ft III 


24 95 


19 00 


GALACTIC TRILOGY 






STAR TREK 3 5 






32KI& Ml 


39 95 


30 00 


O 32K 1 ft III 


1995 


1500 


LUNAR LANDER 






T 16K 1 ft III 


1495 


11 00 


D32K 14 III 


20 95 


16 00 


TREASURE OUEST 






T 16K I ft III 


14 95 


1100 


D 32K 1 ft III . . . . 


19 95 


15 00 


MACES* MAGIC al 


BARLOG 




T 16K 1 ft III 


1495 


11 00 


D32K 1 


29 95 


23 00 








MACES 4 MAGIC >2 






Automated Simulations (1 




STONE OF SISYPHUS 






CRUSH. CRUMBLE ft CHOMP 




D 32K 1 


29 95 


23 00 


D 32K 1 ft III 


28 9< 


23 00 


MACES 4 MAGIC e3- 






T 16K 1 ft III 


29 95 


23 00 


MOHTON s FORK 






DUNJONOUEST- 






D32KI 


29 95 


23 00 


HELLFIRE WARRIOR 






MISSILE ATTACK 






D32KI& III 


39 95 


30 00 


D 32K 1 ft III 


20 95 


16 00 


T 16K 1 ft III 


39 95 


30 00 


T 16K I ft III 


14 96 


11 00 


DUNJONOUEST- 






OTHER VENTURE »2 






KEYSOF ACHERON 






CROWLEY MANOR 






D 32K 1 ft III 


1995 


1500 


D 32K I ft III 


20 95 


16 00 


T 16K 1 ft III 


19 95 


1500 


T 16K I ft III 


19 95 


15 00 


DUNJONOUEST- 






OTHER VENTURE a3 






SOHCERER OF SIVA 






ESCAPE FROM TRAAM 




O 32K 1 ft III 


29 95 


23 00 


O 32K 1 ft III 


20 95 


16 00 


T 16K 1 ft III 


29 95 


23 00 


T I6K 1 ft HI 


19 95 


1500 


OUNJONOUEST- 






OTHER VENTURE «4 






TEMPLEOFAPSHAi 






EARTHOUAKE SF 1906 




D 32K 1 ft III 


39 95 


30 00 


O 32K 1 ft III 


20 95 


16 00 


T 16K 1 ft III ... 


3995 


30 00 


T 16K 1 ft III 


19.95 


1500 


DUNJONOUEST- 






OTHER VENTURE »S 






UPPER REACHES OF APSHAI 




DEATH PLANET 






32KI&III 


19 95 


1500 


T I6K 1 4 HI 


1995 


1500 


T 18K 1 ft III 


19 95 


15 00 


PLANETOIDS 






• RICHOCHET 






O 32K 1 ft III 


20 95 


'600 


D 32K 1 ft III 


19 95 


1500 


T 16K 1 ft III 


'995 


1500 


T 16K I ft III 


19 95 


1500 



■•*: 



in * 



UH 



Maj 



ATTACK FORCE 

32Klftlll 19 96 15 00 

T16KI&UI 15 95 12 00 

COSMIC FIGHTER 

32KI&IH 19 96 15 00 

T 16KI& III 15 96 12 00 

DEFENSE COMMAND 

D32KUIH 19 95 15 00 

T 16K I ft III 15 96 12 00 

GALAXY INVASION 

D32KI&III 19.95 15 00 

T 16K I ft HI 15 96 12 00 

METEOR MISSION 

D32KI4III 19 95 15 00 

T 16KI& III 15.96 12 00 

ROBOT ATTACK 

D32K I ft III 19 95 15 00 

T16KI&MI 15 96 12 00 

♦ STELLAR ESCORT 

32KI&III 19 95 15 00 

T 16K I ft III 16 95 12 00 

SUPER NOVA 

D32KI4III 19 96 15 00 

T16KI&NI 15 96 12 00 

Corn toll 

♦ BOUNCEOIDS 

D32KI&III 19 96 15 00 

T 16K I ft III 15 95 12 00 

SCARFMAN 

D32KI&HI 19 95 15 00 

T16KI».III . 15 95 12 00 

SPACE CASTLE 

D32KI&III 19 95 15 00 

T16KI4III 15 95 12 00 

Mad Systems 

ASYLUM 

32Klft.HI .... 22.95 18 00 

T16KIAIII 19 95 15 00 

♦ ASYLUM II 

D32KI&IM 22 95 18 00 

Tl6Klftlll 19 95 15 00 

DEATHMAZE 5000 

D32KI&IH 17 95 14 00 

T 16K I ft III 14 96 11 00 

LABYRINTH 

32Klft.HI ... . 17.9S 14 00 

T 16K I ft III 14 96 11 00 

WARRIOR OF RAS- 0UN2HIN 

48KI&HI 29 96 23 00 

T48KI4III 29 95 23 00 

WARRIORS OF RAS- KAIV 

D 48K I ft III 29 95 23 00 

T 48K I ft III 29.95 23 00 

WARRIORS OF RAS— THE WYLDE 

46KI&HI 29 95 23 00 

T 4BK I ft III 29 95 23.00 

Melbourne House Soltware 

PENETRATOR 

D 32K I ft III 24 95 20 00 

T 16K I ft III 24 95 2000 



Now Twice As Many Programs! 



EDUCATION 

Advanced Operating Systems 
MOSTLY BAS'C 
EDUCATIONAL PKG 7 PRG 

' 18K 1 ft ill 24 95 2000 

MOSTLY BASIC 
SCIENT.FXPKG 7 PRG 

T16KI4III 24 96 20 00 

TIME OUNGEON- 
AMERICAN HISTORY 

T16KI&III 24 95 20 00 

TIME DUNGEON- 
WORLD HISTORY 

T 16K I ft III 24.95 20 00 

Automated Simulations (EPYX) 
JABBERTALKY 

D 32K I ft III 29 95 23 00 

' 16K I 4 HI 29 95 23 00 



BUSINESS 



Small Business Systems Group 
ACCOUNTS PAYABlE 

48KI&HI 196 00 155 00 

ACCOUNTS RECEIVABLE 

D 48K I ft III 195 00 155 00 

GENERAL LEDGER 

D48Klftlll 196 00 155 00 

INVENTORY CONTROL 

48KI&HI 195 00 155 00 

PAYROLL 

48Klft.ll 195 00 '55 00 



WORD PROCESSING 

Aspen Soltware 
GRAMMATIK 

32K I 59 00 46 00 

PROOF EDIT 

32K I 30.00 23.00 

PROOFREADER 

D32KI ... 54 00 42.00 

SOFTSCREEN 

D48KI .... 69 00 54 00 

SOFTTEXT 

48K I ... 69 00 54 00 

Michael Shrayer Soltware 
ELECTRIC PENCIL 

T 16K I '00 00 24 00 

INFO. PROCESSING 

Adventure International 
' MAXICRAS 

D 48K I ft III 99 96 79 00 

MAXi MANAGER 

48K I ft III 99 95 79 00 

> MAXI MANAGER UTILITY PACK II 

48KI&HI 49 95 39 00 

> MAXI STAT 

D48KI&IH '99 95 147 0C 

Auks 
►COMPUTER FILING SYSTEM (CFSl 

32K I ft III 69 00 55 00 

Oan Haney Associates 
ELECTRIC SPREADSHEET 

D32Kiftlll 69 95 65 00 

T 16K I ft III 34 95 30 00 



OPERATING SYS. 

Micro Systems Soltware 
DOS P. US V3 3S 

32KI 100 00 60 00 

UTILITIES 

Adventure International 
DIRECTORY INFO MGT II (DIM II) 

D32KI&III 24 95 19.00 

Howe Soltware 
MON3 

T 16K I 39 95 3100 

MON4 

32K I 49 96 39 00 

STERM 

T16KI 69 95 55 00 

SYSTEM DIAGNOSTIC 

32KI&III 99 95 79 00 

MISCELLANEOUS 

Adventure International 

HINT SHEET for single) 

Adventure »1 thru «'2 

1 00 1 00 

Software Affair 

ORCHESTRA 85 

T 16K I 99 95 96 00 

D 16K I 99 95 95 00 



NEW 



PMC SOFTWARE 

475 Ellis St., Mt. View, CA 94043 

Orders: (41 5) 962-0318 Information: (41 5) 962-0220 



Terms fOR 'AST OFlNErTY sen* cwWMc 
USA u«o»y PROS WClUOf UPS con 



money orders VISA or MasterCard number and tiyrjton date Personal chews reqiare 3 ana 
• detvejry Mo not use P Boil CALIFORNIA customers add 6" 7*t !>• Pnces subject to change 



.-See List ot Advertisers on Page 451 
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RAT -MAZE MANIA 

New Arcade Game With 
Real Time Graphics, 
Music and Sound Effects 




Object is to guide the rat through 
mazes which change randomly while 
an intelligent dog chases the rat. 

CAN YOU OUTWIT THE DOG ??? 

$14.95 

• Music & Sound effects 

• High Scores saved with Disk Ver 

• Alpha Joystick compatible 

• Tape version req 16K L2, Disk Ver 
works with most DOS req 32K 

14.95 for tape and disk version on 
tape. $2.00 Shipping, CA add 6% tax 
When ordering specify Mod. I or III 

SHELBOY ENTERPRISES 

P.O. BOX 1757 MANTECA, CA 95336 
(209) 239-6775 . g , 



WILD 



TRSDOS Enhancement 
Use "wild - card" 
file names with your DOS corn- 
wands (APPEND. COPY, DIR. KILL, 
LIST, etc.)* Select files based 
on character strings, position, 
type, ...» Hon scrolling display 
• "All except" switch* (Yes, No, 
Quit, Go) processing controls* 
Example: Delete all files except 
those with a 2nd letter of "D", 
WILD KILL -!D*:1 

Model 3 disk $25 

CrpCpTQ Sound A Graphics 
LrrLUID Effects Editor 
Add high speed graphics I sounds 
to BASIC programs* Create/Edit 
effects & save them in RAM or on 
disk* Screen portions saved and 
recalled to any location* 3 re- 
call modes (replace, add, and 
erase)* Text I special character 
support* Sounds generated with 
cassette port* User specified 
tones and durations* Screen for- 
matted input routines provided* 
Demo programs and a two player 
game included* 8K+ machine code 
editor with 2K run time module* 
32K and 48K version on same disk 
Manual $5, with Model 3 disk $39 

Send SASE for more information 
Else check or money order to: 

*»350 

Ledford Computer Services 
23007 La Pierre Drive 
Mounts ake "terrace, WA 98043 
*TRSD0S is a TANDY Corp. Trademark 



Listing continued 
















00461 


; 


SECTOR 6 OF THE DIRECTORY TRACK (100B-4, SO 






00462 


I 


THIS 


IS THE 4TH SECTOR 


FROM THE "HIT" SECTOR) 






00463 










55F2 


DD7E01 


00464 


FXDE 


LD 


A, [IX+1) 


;GET THE BIT RECORD 


55P5 


E607 


00465 




AND 


7 


j GET SECTOR NUMBER 


55F7 


C602 


00466 




ADD 


A, 2 


/OFFSET COUNT 


55F9 


C660 


00467 




ADD 


A,BUFFER<-8 


(CORRECT FOR MEM ADDR 


55FB 


67 


00468 




LD 


H,A 




55PC 


DD7E01 


00469 




LD 


A, (IX+1) 


/GET BIT RECORD 


55PP 


E6E0 


00470 




AND 


0E0H 


/STRIP OFF ENTRY LOC 


5611 


6F 


00471 




LD 


L,A 




5662 


E5 


00472 




PUSH 


HL 


/SET UP ADDR IN IX 


56i3 


DDE1 


00473 




POP 


IX 




5685 


C39754 


00474 
08475 




JP 


SCAN1 


/BACK IN BUSINESS 






00476 


/ SUBROUTINE 


<STORIT> USES THE 


TRACK NUMBER IN (A), THE 






00477 


j GRANULE NUMBER WHICH IS BIT 5 OP THE SECOND BYTE OF 






00478 


; EXTENT TO 


tNDEX THE MAP TABLE AND STORE THE "FILESPEC 






00479 


J IN <FILENN> IN THE NUMBER OP 


CONTIGUOUS ENTRIES IN MAP 






00480 


; ACCORDING TO THE LOW ORDER S 


BITS IN THE SECOND BYTE 






00481 


; OP THE EXTENT. 








00462 










5608 


6F 


00483 


STORIT 


LD 


L r A 


/TRACK NR TO HL 


5619 


2600 


00464 




LD 


H,0 




560B 


29 


00485 




ADD 


HL,HL 


;*2 - GRANULE NUMBER 


560C 


DD7E01 


00486 




LD 


A, (IX+1) 


/GET SECOND BYTE 


sffr 


CB6F 


00487 




BIT 


5, A 


/TEST FOR GRANULE 0/1 


5611 


2801 


00466 




JR 


Z,STORl 




5613 


23 


00489 




INC 


HL 


/COMPUTED GRANULE NUMBER 


5614 


E61F 


00490 


STOR1 


AND 


31 


/GET GRANULE COUNT 


5616 


3C 


00491 




INC 


A 




5617 


47 


00492 




LD 


B,A 


/SET UP LOOP 


5618 


CD1E56 


00493 


STOR2 


CALL 


MOVE IT 


/MOVE FILESPEC 


561B 


10FB 


00494 




DJNZ 


STOR2 




561D 


C9 


06495 
00496 




RET 










00497 


/ SUBROUTINE 


<MOVEIT> IS USED TO MOVE THE FILESPEC 






06498 


/ CONTAINED IN <FILENM> TO THE 


13 BYTE VECTOR POINTED 






00499 


/ TO BY 


THE HL REGISTER (WHICH 


IS TAKEN AS A GRANULE 






00500 


; NUMBER TO INDEX THE <MAP> ARRAY) 






06501 










561E 


E5 


00502 


MOVE IT 


PUSH 


HL 




561F 


Dl 


06503 




POP 


DE 




5620 


E5 


06304 




PUSH 


HL 


/SAVE POINTER ON STACK 


5621 


29 


00505 




ADD 


HL,HL 


/INDEX* 2 


5622 


19 


60506 




ADD 


HL,DE 


/INDEX* 3 


5623 


29 


00507 




ADD 


HL,HL 


;INDEX*6 


5624 


29 


00508 




ADD 


HL,HL 


/INDEX*12 


5625 


19 


00509 




ADD 


HL,DE 


/INDEX*13 


5626 


114658 


00516 




LD 


DE r MAP 


/BASE 


5629 


19 


00511 




ADD 


HL,DE 


/BASE+INDEX«13 


562A 


110B57 


00512 




LD 


DE,FILENM 




562D 


1A 


00513 


MOV 


LD 


A, (DE) 


/MOVE CHARACTER 


562E 


B7 


00514 




OR 


A 




562F 


2805 


00515 




JR 


Z.MOV1 


/EXIT ON TERMINAL 


5631 


77 


00516 




LD 


(HL) ,A 




5632 


23 


00517 




INC 


HL 




5633 


13 


00518 




INC 


DE 




5634 


18P7 


00519 




JR 


MOV 




5636 


El 


00520 


MOV1 


POP 


HL 


/RESTORE POINTER 


5637 


23 


00521 




INC 


HL 




5638 


C9 


00522 

00523 




RET 










00524 


/ SUBROUTINE 


<OUTSTR> COPIES THE INPUT STRING TO THE 






00525 


; VIDEO 


DISPLAY UNTIL A TERMINAL CHARACTER OF IS 






00526 


; DETECTED IN THE INPUT STREAM 








00527 










5639 


7E 


00528 


OUTSTR 


LD 


A, (BL) 


/GET NEXT CHARACTER 


563A 


B7 


00529 




OR 


A 




563B 


C8 


00530 




RET 


Z 


/RETURN ON END OF STRING 


563C 


CD3300 


00531 




CALL 


DISPL 


/DISPLAY IT 


563F 


23 


00532 




INC 


HL 




5640 


18F7 


00533 
00534 




JR 


OUTSTR 








00535 


/ SUBROUTINE 


<FLSPEC> BUILDS FILESPEC IN THE FORM OF 






00536 


/ "PILES PEC/ EXT' FROM THE INFORMATION IN THE FPDE IN THE 






00537 


j DIRECTORY POINTED TO BY THE 


HL) 






00538 


; THE RESULT 


IS RETURNED IN THE LOCATIONS STARTING AT 






60539 


; <FILENM> AND TERMINATING WITH A BYTE 






00540 










S642 


E5 


00541 


FLSPEC 


PUSH 


HL 


/SAVE FPDE POINTER 


5643 


010500 


00542 




LD 


BC r 5 


/OFFSET FOR NAME 


5646 


09 


00543 




ADD 


HL.BC 




5647 


110B57 


00544 




LD 


DE,FILENM 




564A 


0608 


00545 




LD 


B,8 


/MAX LENGTH OF NAME 


564C 


7E 


00546 


FLS0 


LD 


A, (HL) 


/HOVE ONE CHARACTER 


564D 


12 


00547 




LD 


(DE) ,A 




564E 


23 


00548 




INC 


HL 




564F 


FE20 


00549 




CP 


' ' 


/TEST FOR EARLY END 


5651 


2803 


00550 




JR 


Z,PLS1 




5653 


13 


00551 




INC 


DE 




5654 


10F6 


00552 




DJNZ 


FLS0 


/LOOP FOR WHOLE NAME 


5656 


AF 


00553 


FLS1 


XOR 


A 




5657 


12 


00554 




LD 


(DE) ,A 


/TERMINATE NAME 


5658 


El 


00555 




POP 


HL 




5659 


010D00 


00556 




LD 


BC,5+8 


/OFFSET FOR EXTENSION 


565C 


09 


00557 




ADD 


HL.BC 




565D 


7E 


00558 




LD 


A,(HL) 


/TEST FOR NOT NULL 


565E 


FE20 


00559 




CP 




/IF SO- RETURN 


5660 


C8 


00560 




RET 


Z 


Listing continues 
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Listing continued 












5661 EB 


00561 




£X 


DE,HL 




5662 362F 


00562 




LD 


(HL), •/' 


;SET EXTENSION IN FILENM 


5664 23 


00563 




INC 


HL 




5665 77 


00564 




LD 


(HL) ,A 


;MOVE 1ST CHAR 


5666 EB 


00565 




EX 


DE.HL 




5667 13 


00566 




INC 


DE 




5668 23 


00567 




INC 


HL 




5669 7E 


00568 




LD 


A, (HL) 


;TEST FOR TERM 


566A FE20 


00569 




CP 


• ' 




566C 280A 


00570 




JR 


Z, FLEXIT 




566E 12 


00571 




LD 


(DE) ,A 




566F 13 


00572 




INC 


DE 




567B 23 


00573 




INC 


HL 




5671 7E 


00574 




LD 


A,(HL) 


; THIRD CHARACTER 


5672 FE20 


00575 




CP 


1 ' 


; TEST FOR TERM 


5674 2802 


00576 




JR 


Z, FLEXIT 




5676 12 


00577 




LD 


(DE) ,A 




5677 13 


00578 




INC 


DE 




5678 AF 


00579 


FLEXIT 


XOR 


A 




5679 12 


00580 




LD 


(DE) ,A 


; FORCE TERMINAL 


567A C9" 


00581 
00582 
00583 




RET 








00584 


; DATA 


DEFINITION W.EA 






00585 










567B 2A 


00586 


TITLE 


DEFH 


'• DISK GRANULE 


MAP *' 


568F 0D00 


00587 




DEFW 


CR 




5691 0D 


00588 


ERR1 


DEFB 


CR 




5692 2A 


00589 




DEFM 


'*••* ILLEGAL DRIVE NUMBER 1 ' 


56AC 0D00 


00590 




DEFW 


CR 




56AE 0D 


00591 


ERR2 


DEFB 


CR 




56AF 2A 


00592 




DEFM 


'*♦** DRIVE ' 




56BA 3 


00593 


DRNR 


DEFM 


'0 IS NOT READY I • 




00594 




DEFW 


CR 






00595 


DKHSG 


DEFM 


'DRIVE: ' 




56C9 0D00 


00596 


DRVNR 


DEFM 


'• 




56CB 44 


00597 


DKNAME 


DEFM 


•DISKNAME ' 




56D1 30 


00598 


DATE 


DEFM 


•MM/DD/YY GRANS FREE:' 


56D5 44 


00599 


GRANS 


DEFM 


'0 TRKS LOCKED OUT: ' 


56DF 4D 


00600 


TLO 


DEFM 


•0 • 




56F4 30 


00601 




DEFB 







5708 30 


00602 


FILENM 


DEFM 


•FILESPEC/EXT' 




570A 00 


00603 




DEFB 







570B 46 


00604 


SELBIT 


DEFB 







5717 00 


00605 


DIRERR 


DEFB 


CR 




5718 00 


00606 




DEFM 


•**** DIRECTORY 


READ ERROR 1 ' 


5719 0D 


00607 




DEFW 


CR 




571A 2A 


00608 


PAGES 


DEFW 







5734 0D00 


00609 


PRMPT0 


DEFW 


0D0DH 




5736 0000 


00610 




DEFM 


'PLACE THE DISKETTE TO MAP IN DRIVE 0' 


5738 0D0D 


00611 




DEFB 


CR 




573A 50 


00612 




DEFM 


'PRESS <ENTER> 


TO CONTINUE' 


575E 0D 


00613 




DEFW 


CR 




575F 50 


00614 


PRMPT1 


DEFY. 


'PRESS ANY KEY 


FOR NEXT 10 TRACK DISPLAY' 


5778 0D00 


00615 




DEFB 







577A 50 


00616 


PRMPT2 


DEFM 


'PRESS @ TO DISPLAY AGAIN,' 


57A1 00 


00617 




DEFM 


'ANY OTHER KEY 


TO EXIT' 


57A2 50 


00618 




DEFB 







57BB 41 


00619 


TRK 


DEFW 







57D0 00 


00620 


TRKNR 


DEFW 







57pl 0000 


00621 


LINE3 


DEFB 


191 




57D3 0000 


00622 




DEFM 


' 1ST GRANULE ' 


57D5 BF 


00623 




DEFB 


191 




57D6 20 


80624 




DEFM 


' 2ND GRANULE ' 


57EC BF 


00625 




DEFW 


191 




57ED 20 


00626 


LINEN 


DEFM 


'TRACK NUMBER: 


' 


5803 BF00 


00627 




DEF3 


191 




5805 54 


00628 
00629 




DEFM 
DEFB 


| . 




5816 BF 




191 




5817 20 


00630 
00631 




DEFM 
DEFW 


| - 


. ■ 


582D BF 




191 




582E 20 


00632 










5B44 BF00 


00633 












00634 


; SYSTEM LABEL 


DEFINITIONS 






00635 












00636 












00637 


CMDBUF 


EQU 


4318H 


;DOS COMMAND BUFFER 




00638 


STATUS 


EQU 


37ECH 


;FDC STATUS REGISTER 


4318 


00639 


CMDREG 


EQC 


37ECH 


;FDC COMMAND REGISTER 


37EC 


00640 


SECTOR 


EQU 


37EEH 


;FDC SECTOR REGISTER 


37EC 


00641 


DATARG 


EQU 


37EFH 


;FDC DATA REGISTER 


37EE 


00642 


SELECT 


EQU 


37E1H 


;FDC SELECT LINES 


37EF 


00643 


BUFFER 


EQC 


6000H 


; DIRECTORY BUFFER 


37E1 


00644 


GAT 


EQU 


BUFFER 




6000 


00645 


FDES 


EQU 


BUFFER+0200H 


; START OF FDE'S IN BUFFER 


6000 


00646 


VIDEO 


EQU 


3C00H 




6200 


00647 


DIRTRK 


KQU 


17 


j DIRECTORY ON TRK 17 


3C00 


00648 


NRTRKS 


EQU 


40 


.•NUMBER OF TRACKS 


0011 


00649 


DOS 


EQU 


402DH 




0028 


00658 


CURSOR 


EQU 


4020H 




4020 


00651 


CLS 


EQU 


01C9H 


; BASIC CLEAR SCREEN 


4020 


00652 


HLACC 


EQU 


0A9AH 


;ROM ROUTINE HL — >ACCUH 


01C9 


00653 


CVTASC 


EQU 


0FBDH 


;ROM CVT ACCUM TO STRING 


0A9A 


00654 


GETKEY 


EQU 


0049H 


;WAIT FOR KEY 


0FBD 


00655 


DISPL 


EQU 


0033H 




0049 


00656 


DELAY 


EQU 


0060H 




0033 


00657 


CR 


EQL" 


13 




0060 


00658 










000D 


00659 










5846 


00660 


MAP 


EQU 


S 


; STARTING ADDRESS FOR MAP 


5300 


00661 




END 


DSKMAP 





EIGHTY 

SYSTEM 

NEWSLETTER 

FOR TRS-80* USERS 
(Mod. I/II/III/16/COLOR) 



(flltf SJSJW 



(Also for dealers, mfg. and 
industry personnel.) 

Published 52 times per year 
and mailed First Class 

□ Latest TRS-80* System News 

□ Product Notes & Reports 

□ New Hardware & Software 
D Industry Trends 

□ User Notes & Comments 

D TRS-80* Article Summaries 

RATES 

$39.00 Year - First Class 
(US, Canada & Mexico) 

$75.00 Year- Foreign (Air) 

(Must be in US Funds) 

SAMPLE COPIES $2.00 



EIGHTY SYSTEM NEWSLETTER 

3001 Route 27 Franklin Pk., NJ 08823 

D $39.00 (1-Year Subscription) 
□ $75.00 (Foreign-Air-US Funds) 
D $ 2.00 (2 Sample Issues) 

Name 



Company 
Address _ 

City 

State 



Zip 



(MC & VISA OK-Include card number, 
expiration date & signature.) 

•TRS-80 is a Registered Trademark of Tandy 
Corporation/Radio Shack Div. 



• See List ot Advertisers on Page 45? 
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GAME 



Scramble space ships instead of eggs. 



Astro-Scramble 



Randy Long 
4791 Torida Way 
Yorba Linda, CA 92686 



Combining Astro-Blasters 
and Scramble yields the 
fast action arcade game, Astro- 
Scrambler. I'll use an earlier ver- 
sion, a game called Dodge, to 



demonstrate the evolution of 
Astro-Scrambler. To better un- 
derstand Astro-Scrambler, let's 
walk through Dodge. 

Program Sketch 

To start, we need a spaceship: 



20 CLS: RANDOM: P = 31 
30 PRINT 096O,"" 
40 PRINT «P, CHR$<130)CHR$<175) 
CHRS<135); 



HS 






High score 


HU 




— 


Highest set reached 


A$(1 


-26) 


— 


Objects which shoot at you 


N$ 




— 


Credit 


OS 




— 


Downward Line Feed 


US 




— 


Upward Line Feed 


LS 




— 


IN KEYS 


L 




— 


Lights new high score 


P 




— 


Ship position 


c 




— 


Used in PEEKing 


T 




— 


Used in loops 


N 




— 


Score counter 


B 




— 


Number of objects in each set 


U 






Number of sets passed 


xs 






Used in instructions 




Table 1. List of Variables 



60 IFPEEK(14400) = 32THEN 

P=P-2: IFP<2THEN P = 3:GOTO 

70 ELSE 70 
70 IFPEEK(14400) = 64THEN 

P=P + 2: IF P>890THEN P = 890: 

GOTO 80 
80 REM used later 
100 GOTO 30 



The ship's location is the vari- 
able P (see Table 1). P is in- 
creased or decreased (and the 
ship moved to either side) with 
the left and right arrow keys. 
PEEK (14400) is the fastest way 
to scan the keyboard to check 
which key is being pressed. 

Type this addition into your 
program: 

30 PRINT <3 960+RND(60). CHRS<174) 
CHRS(191)CHR$(157) 

Since line 30 does not have a 
semi-colon at the end, the 
screen moves up one line to 
print the next asteroid. The pro- 
gram, as it is now, is fast and 
fun, but not very challenging— 



Program Listing 1. Astro-Scrambler 

IS ' ASTRO-SCRAMBLER BY RANDY LONG 

2 9 ' 4791 TORIDA HAY 

38 ' YORBA LINDA, CAL. 92684 

48 ' (714) - 526 - 1641 

SI CLEAR 1111 :BS-628I iHU-26 :DIH AS (26) 

61 NS • CHRSU98) ♦ ■ SI-MICROCOMPUTING* 

71 D$ - CHRS(26) :US - CBRSI27) :GOSUB 311 

88 PRINT! 961, "PUSH ENTER TO START/P-POINT' I :GOSUB 431 :CLS : IPLS«'P'THEN L 

-I :PRINTTAB(6) CHRS (23) 'POINT CHART' : PRINT: PRINT: PRINT'EACH CRASH - 211 P 

OINTS'xPRINT: PRINT: PRINT: PRINT'TOTAL NUMBER OP SHIPS' :PRINT'AT END OP TRIP 

♦ 6IS*:ELSE 181 
91 LS « " sPRINT :PRINT"EACH SET PASSED * 181 EACH* : PRINT: PRINT'EACH 

OBJECT PASSED +18 POINTS' :GCTO 88 
111 POR T • 1 TO 25 :AS(T) - " iNEXT T 
111 L - I :AS(1) -CHRS (166) *CHRS (153) :AS(2) -CHRS(174) ♦CHRSU91) +CHRS (157) 

:AS(3) -STRINGS(2,27)+CHR$(176)*CHRS(26)*STRINGS(2,B)*CHRS(166)+* '♦CHRSll 
53)*CHRS(26)+STRING$(2,8) +CHRS(131) 

128 AS (4) -US+CHRS(152)*CHRS(167)+CHRS(151)*CHRSU64)*DS*STRING${4,8)+CHRS( 
137) ♦CHRS(185)+CHR$(183)+CHRS(158) :AS(5) -US*CHRS(16B) +CHR$(184) +CHRS(191) 
+CHRS(191)+CHRS(188)*CHRS(176)+DS+STR1NGS(6,8)*CHRS(139)+CHRS(191)*CHRS(191 
)+STRINGS(2,143)+CHRS(135) 

138 AS(7) «AS(6) :AS(8) -US+US+CHRS (168) +CHR$(14B) +CHRS1131) +CHRS(141) +CHRS 
(14I)+CHRS(144)+D$+STRINGS(6,8)+CHRS(165)+CHRS(144)+CHRS(134)+CHRS(153)+CHR 
S(137)-fCHRS(162)+CHRS(132)*D$+STRINGS(6,B)+CHRS(138)-K:HRS(14B)+CHRS(164)*CH 

RSU521+CHRSU29) 

148 AS(9) -CHRS(1B4)+CHRS(189)+CHR$(144)-K:HR$(237) : AS(1B)-CHRS(138) +CHRS (17 
5)+CHRS(135) 



Listing continues 



you can fly unchallenged 
through the asteroids. 

PEEKing locations 15360- 
16383 makes the computer look 
one space ahead of your ship. If 
it finds something in this space 
it reasons you have crashed into 
an asteroid. If nothing is in this 
space you continue flying. 

Now add this line: 

50 C = PEEK(15360+P + 65): IF C = 32 
THEN 60 ELSE PRINT ®P- 3. 
"BOOM!!";: GOTO 50 

The variable C is assigned the 
ASCII code number of the space 
in front of your ship. If nothing is 
there, C will equal 32. If it does 
not equal 32, you have run into 
an asteroid. 

You now have version 1: 
Dodge. To stay alive you must 
dodge the objects shooting at 
you. 

In Program Listing 1, I added 
many new objects and a scoring 
system creating the game As- 
tro-Scrambler. This game is just 
like a real action arcade. It is not 
easy to win! 

Program Modifications 

For a longer game change 
line 280 to: 

280 N = N + 1 :B = B+1 :IF B = ### THEN 
B = 0:U = U+1 :IF U = 26 THEN 300 

Make ### high (60) for a longer 
game or low (15) for a shorter 
game. 

Make your own objects shoot 



The Key Box 

Basic Level II 

Modell 

4KRAM 
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PRIORITY ONE ELECTRONICS 



Hi 



3 DRIVE MODEL II MASS STORAGE FROM SSSSL «. ffl 
AT LAST! An Alternative to Radio Shack's Over-Priced, Over-Sized Model II Disk Expansion! 



The International Inslrumentaton THIN THREE" disk drrve enclosure is 
I the perfect alternative to Hadio Shack s expensive, bulky disk expansion 
box tor the Model II. The THIN THREE * is desxjned to hold three hall 
swT.indon TM848-1 8" disk dnves These are the same drives Radio 
Shack is using in the new Model 16" The THIN THREE" occupies less 
than halt ol the space requited lor Radio Shack s disk box. leavng you 
more room to work Best o( all the THIN THREE" with dnves and cables 
installed is prced al only $1715.80. THAT $ $55500 LESS THAN THE 
RADIO SHACK DISK BOX! 




FEATURES 

• Connects directly to the disk enpanson port on the back or you Model ll 
no hardware modifications are lequired completely Model II compatible 

• F ittered positive pressure lorcad ai cooling 'oi dust tree, reliable disk 
drive operation 

• Internal data cable lor easy hook-up 

• AC input via 3 wire I toot international coroVsocket set 

• AC input EMI filtered to six amps to help prevent dsk crashes due tc 
power spikes and line noise 

• Sine out chassis with hont panel puis for easy access to dnves 

• Disk Environment Monitor Panel monitors supply voltages and 
displays internal case temperature on standard DVM Alarm sounds 
it case temperature exceeds safe limits, protects your disks 

• I » alumnum rear panel with socketed power pass devices for cool 
trouble free power 



fci 



JO 




• 14 gauge main chassis 

• Easy externally replaceable tan filter 

• Integral power supply with 5V*>6A/-5V.<«1A/24V;«6A. 

• Double-sided custom PC power board and supply engineered 
especially tor the THIN THREE ' 

• Eadl DC supply and AC separately fused 

• Overvoitage protected 5V supply 

• LED power supply monitors and test lacks for each supply on rear 
pane 1 

8LP0SIIITRS A 8. T with external data cable ana $1 795.00 

IIIM?PATCH TRSDOS ENHANCEMENT PACKAGE 
(Shooed Motor FieigM Ccflect) 

III TRSOOS UTILITY ENHANCEMENTS 

Tins package ol 1 ? individually selcctableutilrty programs sdesxjned lor 
the sophistcated Model II TRSDOS * user Each utility is designed to 
increase system efficiency by overcoming the limitations ol TRSDOS ' 
Here are three examples 

• Modifies TRSDOS" 2 or 2.0 A to run with DC motor disk drives such 
as the Tandon TM848 I 

• Elimination of password protection on TRSDOS" files to allow total 
user rnampulaton of these files 

• Jhanges TRSDOS" stepiate from 20ms to 12ms. user may ad|ust to 
as low as 6ms 

MMKMICa 



Supplied on 8 drsk 



$9995 



IRS80 Model II THS8OM00WI6 TRSOOS. and Rado Shack are trademarks 
of Tandy Corp thin thru is a trademark 01 inteniatonal Instrumentation 



MORE PERIPHERALS FOR THE TRS-80 MODEL II 



* Also For Your TRS-80 Models I and III 



" from SELLUM 

LETTER QUALITY PRINTERS 




80 CHARACTERS PER SECOND!! 



That s aver three times as fast is Radio Shack s Daisy Wheel II 

"he Fuiitsu SP83 letter quality printer horn Seium is not only the 
fastest daisy wheel letter quality printer on the market it is also the 
most versatile It may be hooked up to either the parallel or one of the 
serial ports on you Model it* It has five different printer protocols hurt 
m so it will run with just about any word processing package on the 
market including SCRiPSIT" The prnter is built to be solid and quiet it 
won t shake the office down with every carnage return It also has a 1 6K 
butler (48K optional) The buffer allows your computer to send data out 
to the pnnter and not have to wait tor it before altowmq you to continue 
No more staring at the screen waiting lor the punter to finish" 
MORE SPECIAL FEATURES: • /80 CPU • 50-19 2K baud on serial 
mtclace • Distinct alarm sound for each error condition • Intelligent 
bi-directional logic seeking • Complete word processing leatures 
including sub and super script, underlining and double-strike char- 
acters • Auto reprint • Auto Clear • Proportional spacings and 
supports automatic justification • Front panel forms control • Com 
patible with most mechanical sheet leeders • Quiel 60* • Six 
month warrantee 



Pari hi 



Description 



Usl Price SALE 



BLP0BSURF86 Printer w/16K buffer $3495 00 S2795 00 

SLP0BSLMFS6B40 Printer w/48K buffer $3895 00 $3095 00 

8LSIMFB6VFT Opbonal vertical forms tractor $ 799.00 

ILSIMPS34O02 Mode' II Parallel CaWe $ 90.00 

0LSIHPES4OO3 Model l/lll Parallel CaWe S 99.09 

Primer shipped via motor lieighi coOjl 

8 CP/M SOFTWARE FOR MODEL II 

MICROPRO INTERNATIONAL 



HIMOSWOSTH 

SLMOSMLMRE 

81M0SSPSTR 

ILMOSCALSTR 

(LMOSDATSTR 

81MDSSUPSET 



Wordstai vV 
Mail Merqe" 
Bpel Star 
Cat Star 

Data Star- 

Si. [.l-r. 1" 



S249 CO 
$100.90 
SI 50.00 
$200 00 
$200 00 
$150 00 



9LS9RCAI 



ILMCF-SASC 
BlhtOSMFT 



rademark o' Micropro International 
SORCIM 
SUPtRCAlC- a Superw Electro™ $229 00 
RRiahllhhhl 
'Trademark ol Sorcim 

MICROSOFT 
BASlC-80- Verson SX Extended $300.00 
Disk Basic 

BASIC- Compiler Version 5X $395.00 

FORTRAN-80- $500 00 



'Trademark o< Microsoft Consumer Products 



OKIDATA DOT MATRIX PRINTERS 



COMPARE OKIDATA' S FEATURES TO 

ANY OTHER PRINTER! 
COMPARE PRIORITY ONE'S PRICES 

TO ANY — THEN DECIDE!! 
Ill T BE FOOLED BY THOSE WHO TRY TO SOAK 
YOU FOR THE TRACTOR 



HI DIRECTIONAL 

9 i 9 Matrix lAJph 



• 8u CPL P 10 CPI lor 82A 

• 13? CPl $ 10 CPt for S3A 

• ! ■ I > MaM lor graphics & 84 

• •!. !i"rr 1 ■ . . ir ■ ■ •-•■•. DAI ;. •■ I CM 

• 5 8^ 10 or t6 Characters Parallel 4 1 200 baud Senal I/O 
per incf • s«« Test 

All Okidata printers leature 10 Iront panel switch selectable from 
lengths from 3' to 14" Front or bottom paper loading of up to four part 
forms tear bar. and out of paper switch Most important of all OKIDATA 
printers are built to survive the business or industrial envionmenl where 
you'l use them AH ot these leatures make OKIDATA the best value in 
low cost printers' 
PART NO. DESCRIPTION SAtt 

ILPOUKMMTS fJKlCATA tJ2A w/tractt 4 rjrapfKS 
unionisms OKIDATA 83A w/lractor 4 grapKcs 
I10KISIR2HF %ou Baud 2K Serial butMr/titertace 
IL0IIIATS4AP 1 \2 001 suiter parallel Werface with 
graphics and tractor 
132 coi printer 9600 buad serial ?K inter 

lace, graphcs and tractor 
5 Model ii Parallel Cable 
5 Model vim Parallel Cable 
IICN00IISER9F g OKIDATA Serial Interlace Cable 

Shipping Weights B2A 25 lbs 83A 4 84 35 



8LIIIBATS4AS 



IIPRIAMPSII 

IU«JW9fnM 



1539.00 
750.00 
149.00 
1095.00 

$1250.00 



MODEMS 



+1* 



Q) Hayes 



SMARTMODEM 




.. O.-ffic 



chamber Jp^^ 

> Pnrl 



SEND $1.00 TODAY 
FOR THE NEW. FULL COLOR 
SPRING 1982 ENGINEERING 

SELECTION GUIDE! 




The HAYES Smartmodem will alow you to take advantage of the many 
database services available for your TRS-80 such as Dow Jones the 
Source and others The Smartmodem runs directly off an RS232 serial 
port 

FEATURES: • Auto Answer. Auto Dial • Variable data formats • 
300 baud • Internal lb Microprocessor with 2Kb contiol program • 40 
character command butler • Easy to program with simple commands 
Irom your keyboard 

PART N9. DESCRIPTION LIST PRICE SALE 

lilcmzOOP Smartmodem (Sh Wt 6 lbs 1 S2/9Ji $225.00 
IIICN9400P Smartmodem 1200 baud Srl'W $649.00 

I19CRR300P i hronograph 'Sh wt 3 trs) S249UU $205.00 

eiCNDRSazSF 8 RS232 Class t Cable SUM 

THE STAR 

by 
PRENTICE 

• to (i buad • M 103 and 

• Exclusive triple seal acoustic 1 

• Sell Test • Runs off RS232 Port 
ILPRNSTAN HS232 ITL 20 Ma Current Loop S19900 S1Z7.00 
ILCNIRS2329F 8 RS232 Class I Cable $19.95 

5 DISKETTES! 

SOFT SECTOR 

40 TRACK SINGLE SIDED 

DOUBLE DENSITY WITH 

HUB REINFORCING RIN6S 

PACKAGFOF- TO $19.95 

BONUS! 

FREE!! HASSETTE 10 i 
LIBRARY CASE WITH 
PACKAGE OF 10 DISKETTES 

« S4.IS MLIIE!! 91PRISS99 'ShWtZlbs) 

11PRIM0 package o< 80 less library Case $120.00 

ELECTRONICS 





PRIORITY 

9161 DEERING AVE • CHATSWORTH, CA 9131 . 
ORDER TOLL FREE (800) 423-5922 CA, AK, HI CALL (213) 709-5464 

Terms IS VISA MC BAC Check Money Order US Funds Only CA resxJenls add 6^ Sales Tax MINIMUM PREPAID ORDERS1500 include MINIMUM 
SHIPPING 4 HANDLING of S3 00 for the first 3 lbs plus 40t lor each additonal pound Orders over bu lbs sent Ireignl collect Just in case please include you 
phone runbw Prices subtect to change without notice we will do our best :o maintain prices through December 15 198? Credit Card orders wrti be charged 
appropriate treqht " you haven t eceived your Spring 82 Eigwieermg Selector Guide, send SI 00 lor your copy today* Sate prices are lor preparf orders onty 



at you by putting your string in 
at line 210. Change what is in the 
quotes to your new object (for 
example, 210 A$ (21) = "XX + 
XX":). 

Change your ship's looks in 
line 240. Try this: 

240 PRINT* P. CHRS033) CHR*191) 
CHRJ<13B); 

For a more colorful game 
change line 230 to: 

230 PRINT© 960+ RNOflJCfc AJ(RNO(26)) 

To make your ship move fast- 
er from side to side change line 
260 and 270: 

280 IF PEEK<144O0)«32 THEN P = P-4: 

IFPOTHENP-3 
270 IF PEEK<14400)*64 THEN P-P + 4: 

IFP>6MTHENP>S90 

Enjoy, good luck and keep 
trying! ■ 

Randy Long, an 18 year-old 
Senior at Troy High School in 
Puliation, CA, plans to enroll at 
California State Polytechnic 
University to study Computer 
Sciences. 



Program continued 



156 A*U1)-0*'KU*<164)^NR8(189)*CHR$(144)*DJ*STRING$(3,8)*CHR$(175)+CHR$( 

175)K»»«ilj3j ,»*I121-US+D{*0$+CHR${X4J)*0**CTRS(B)*CHR$(14»)«$JCHRS(8) + 

CHR*(149)Vb9*CRR9(8)*CRRS(149) I At (15) -U8«CHR$(134)+CHRS(l79)*CHR$(132)+DS 

+6TRINC$(3,9>+CM$(176)+C8R$(191) 

Iff Af<13) -A$(13)+CHR$(176) 

17f POR T ■ 1 TO 2 lA$(14) -A$(14)+CBRS(168) +CHRSU89) +CBRS(2S6) (NEXT T 

1M A$(1S> -AI(12)*CHRS(261)*A$<12) xAS(16) -CHR$(149) : ASU7) -CHRSU91) +CHR 

1(238) 

198 Af(18) -08*08+C8 jPOR T • 1 TO 3 (AS(IB) "AS ( 18) ♦ STRINGS (5, 191) +D$*STRI 

NGf(S,8) iHSXT T 

288 Af(19) •0$*O$*CHR*(1*8)*CBR$(188)«0$*STRIIIG$(2,8)-m:hR$(176)^CHRS(181)«C 
■«8(144)*D8*STllllG8(4,8)«a»$(151)+STRIllG$(2 f 143)+CHRS(135)*CHR$(149) :A$(2 
• ) -CHRI{131)*CHR$(17S)*CHRJ(144)+CBR$(248) 

218 A*[21) -"0" :A$(22) -'A A* iA$(23) -STRINGS{3, 91) +CBR$(212) ♦STRINGS) 

3,91) t*8(24) -••-•-•-•• tA8(25)-"<»()*>" 
229 CU iRMBXM |P«31 
238 PRIRTI 939448*0(68), A$(U) 
241 nUHTt P,Ctt$(13B) CBRS(175) CBRS(135)i 

2SS C • PBH( 1S366+P+6S ):IF C - 32 THEN 248 ELSE TOR T - 1 TO 28 i PRINT* 
P-l,"8O0NI*| I PRINTt P-2,8TRING$(7,126+RND(63))> x PRINT* P+63, STRING? (5, 128 
+RMD<63))| t PRINTt P+68+RND(3),CHR$(128+RND(63))j iPRINTf P*66*RND(3) ,CBR$( 
126+RMD(63))r i NEXT T iCOSOB 488 

268 IP PEEE( 14488 )■ 32 THIN P-P-2 IIP P < 3 THEN P - 3 iGOTO 278 
278 IP PBSR( 14488 )• (4 THEN P»P*2 tIP P > 899 THEN P - 898 (GOTO 288 ELSE 
288 

289 N - N + 1 :B - B + 1 :IP B - 35 THEN B » 8 iU • U ♦ 1 tIPU-26 TBEN 3 
88 

298 OOTO 239 

388 PRINTt 988,i sPOR T - 1 TO 199 I PRINT TAB(13)*TOU HADE IT THROUGH THE S 
CRAMBLBRIII* iRBXT T iGOSOB (• 
318 CU i PRINT CHR$(23)| 

328 PRINT* 84, "A 8 T R -" I PRINT TAB(4)'S CRAHBLER' (PRINT 
338 PRINT I PRINT I PRINT iPMNT Nt tPRINT" USING THE RIGHT AND LEPT* iPRINT 
"ARROW EIX8 TOO HOST HANUVIR* I PRINT" YOUR SHIP THNOOGH THE SCRAMBLER' :PRIN 
T* TIN IDEA IS TO GO AS PAR AS" 

348 PRINT*POSJILBLB INTO THE SCRAMBLER* I PRINT 'TOO EARN EXTRA SHIPS AND* :P 
BINT' POINTS BY CONTINUALLY NOTINC" iPRINT'YOOR SHIP TO THE RIGHT.* 
358 > - H ♦ ( P«16 ) >H - N ♦ ( 16**U ) 
388 IP N > RB TUN HS - M :HD - U iL « 1 
379 IP U > NO TUN BU • U :HS - ■ :L - 1 
3B8 PRINTt 192, "LAST TRIP »USING"M*«t"» H jtPRINT" 
CORE *H8|I PRINT" SET "BOj lO • 8 iN - 
KM HIGH SCORE •••••; 
399 RETURN 
4*8 * 

419 IP P < 64 THEH PRINTt 896, "SORRY, YOU ARE OUT OP SHIPS I* s PRINT TAB (29) 
•PLAY AGAINI' tPOR T - 1 TO 2999 iNBXT T sGOTO 69 ELSE 429 
429 P - P -64 |H - N - 2*6 tU - U - 1 iCLS iB « 9 : RETURN 
439 ' 

449 XS - STRINGS ( 31, 129*RND( 621) I PRINTt 128, X9) J PRINTt 328, X5| 
4S8 IP L • 1 PRINTt 328,"""« NBN HIGH SCORE ****"; 

468 LI ■ INKBTt I It LS - " THEN 448 ELSE IP LS - CHR$(13) THEN RETURN ELSE 
IP L$ - "P" THEN RETURN ELSE 446 



SET "UiPRINT"HIGH S 
IIP L - 1 THEN PRINTt 32B,"*"*" S 
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With Acorn 
Programs, 
Your TRS-80 
Does Things 
You Wouldn't 
Think Possible 

He* 1 



Finefont 

By Vincent Bly from Acorn 



Now Epson owners can have true letter-quality print- 
ing with FINEFONT at 10. 11, or 12 characters per 
inch. 



Fine-font and 

standard Epson 



With boldface, underlining and incremental spacing 
(for proportional right justification). 32 special char- 
acters Including those needed for mathematics, 
plus a graphic editor to create or edit character sets. 
It supports all Epson print modes, and is compatible 
with word processors including Model I SCRIPSIT 
with SUPERSCRIPT, Model III SCRIPSIT, and Lazy 
Writer (Model I, III). Print speed is approx. 20 CPS, 
unldirectionally. It's compatible with most DOS s In- 
cluding LDOS 5.1. TRSDOS, NEWDOS/80 Ver 2.0. 
Requires following Epson printers: MX-60; MX-80 
RT with Graftrax-80 or Graftrax-plus: MX- 100 with 
Graftrax plus only 

Requires 48K Disk, $49.95* 




By Richard Wilkes from Acorn 

Using your Superscript modified Scnpsil Word Pro- 
cessor and a compatible printer, you can now 
underline, boldface, insert text during printout slash 
zeros, set type pitch, subscript and. of course. 
superscript 1 You can even read your directory and kill 
files without ever leaving Scnpsit 
Superscript conies with drivers lor popular serial and 
parallel printers (now including Centronics 73/ and 
RS Daisy II), and easy instructions tor patching to 
your Scripsit program (does not include Scnpsit). 

32K Disk, $49.95 Use Model I Scnpsit • 



'plus $2.00 shipping and handling 



With our sophisticated programs, you're never disappointed. And, our 
customer service is unparalleled in excellence. 



Evade 



By Tim Knight 

You're in charge of the USS Krestan, a tn-ship on In- 
terstellar exploration. You must defend yourself 
against groups of enemy aliens, each requiring a dif- 
ferent strategy Then you can go for the big points by 
docking with another ship. Be careful, or your ship will 
be vaporized! Now you're ready for the evil Mali 
cians . . and the meteor showers. Not for the faint- 
hearted! 

16K Tape or 32K Disk: TRS-80 I & III. 
$19.95 plus $2.00 shipping and handling 



King 
of the 
Jungle 




By Patrik Vandewaiie 

An unusual combination of fast pmball action plus 
the challenges and dangers of an arcade game. Score 
points as yoo maneuver your ball from obstacle to 
obstacle, while moving through the lungle searching 
for the hidden crown You start with 5 balls and get 
another lor each 10,000 points. Choice of 3 screens, 
Joystick compatible. 

16K Tape or Disk: TRS-80 i & III. 
$19.95 plus $2.00 shipping and handling 




Demise 

By P. Case 

Shoot down the enemy ships which are coming— and 
firing — at you. After obliterating them all, you must 
carefully navigate a tunnel before you are in the clear 
You can move your ship left, right, up. down and 
diagonally; your weapons include a laser cannon and 
"smart bombs" that render •// ships on the screen Im- 
potent You start with 5 ships and get another ship 
and "smart bomb" for each 10,000 points 3 levels of 
play, great sound effects. 
16K Tape or Disk: TRS-80 I & III. 
$19.95 plus $2.00 shipping and handling 




Enemy 
Evasion 

By Raul Rivera 
An original fast-paced arcade style game requiring 
quick mental and physical reflexes. You must control 
your Rover to avoid oncoming Roveian Ramcraft. You 
gam points for each successful pass through the 
"death lanes", but the Ramcraft speed increases as 
you play. If you reach the double bonus mode, watch 
out for the land pellets they drop! Joystick 
compatible. 

32K Disk: TRS-80 I & III. 

$19.95 plus $2.00 shipping and handling 



Acorn Software 



Q/^WVI Products, Inc. 
634 North Carolina Avenue, S.E. Washington, D.C. 20003 
We've Grown On You. 

To Order By Phone CALL: (202) 544-4259 

Dealer Inquiries Only, Call Computer Software Distributors: (800) 424-3708 



1 Please send 


these Acorn Prog 


rams: 


□ Please send you 


r catalog ■ 










| Charge to: 
1 VISA I 


MASTERCARD 


TOTAL: 
□ CHECK ENCLOSED 


$ 




| CARD NO. 
■ Name 






EXP 


DATE 


T-12 | 


. Address 


* City 

mkk . 




State 




Zip 





TECHNIQUE 



Checking the odds. 



Craps Unrolled 



Bruce Chaffee 

6571 Edgemont 

Huntington Beach, CA 92647 



A chance remark by a Las 
Vegas devotee about losing 
his shirt at craps led to an inter- 
esting experiment which dem- 
onstrates the power and versa- 
tility of the TRS-80. 

The premise is simple: To find 
the probability of winning at 
craps, simulate the game on the 



computer and play a huge num- 
ber of games. The probability of 
winning should then be close to 
the ratio wins over wins plus los- 
ses. If this ratio is greater than .5 
you may expect to win more of- 
ten than lose, and craps is a 
good bet. Is it really that easy? 
Here are two such programs, 
using the rules shown in Fig. 1. 
Program Listing 1 plays the 
game 10,000 times and Program 
Listing 2 allows you to choose 
the number of games the com- 
puter will play. If you load and 
run the program in Listing 2 (set 
the number of games at about 
10,000), you will probably ob- 
serve that the first few digits 
soon settle down to .49XXXX. 
Sounds great! All you need do is 
let the computer run until more 



Trial 


Number 


Probability 




Of Games 


of Winning 


1 


10,000 


.4969 


2 


10,000 


.4928 


3 


10,000 


4923 


4 


10.000 


.4972 


5 


10,000 


5003 


6 


10,000 


.4958 


7 


10,000 


.4882 


8 


10,000 


.4956 


9 


10,000 


.4802 


10 


10,000 

Table 1 


.4911 



and more digits stay fixed. 

Problems 

Assuming that the roll of real 
dice is random, we are still left 
with two problems with our sim- 
ulation. First, how certain are 
we of an answer close to the real 
answer? Second, how random 
are the "pseudo-random" num- 
bers the computer generates? 

To answer the first of these 
questions, play 10,000 games 10 
times, and use the standard de- 
viation of the 10 individual re- 
sults to estimate the accuracy. 
We will approach the second 
question more indirectly. If we 
calculate the actual result from 
principles of probability, we can 
then compare the theoretical re- 
sult to the experimental result. 
The agreement, or lack of it, will 
be a test of the random number 
generator. 

Random Numbers 

I have provided an outline of 
the calculation of the theoreti- 
cal answer. You may want to 
skip the calculation and simply 
note the result at the end of this 
paragraph. 

P(win) = P(win (irst roll) + P(win on 

subsequent rolls) 

P(win first roll) = P(7 first roll) + 

P(11 first roll) = 6/36 + 2/36 



Calculating P(win first roll) is 
easy. Calculating P(win on sub- 
sequent rolls) is a bit more com- 
plicated because winning can 
occur if you roll a 4, 5, 6, 8, 9 or 10 
on the first roll and then match 
your point before you roll a 7. 
You can calculate these proba- 
bilities separately and then add 
them. For example: 

P(win with point = 4) = P(4 on first roll) [P(4 

on second roll) + P(no win on second 

roll) # P(4 on third roll) + . . .) 

P(win with point = 4) = 3/36(3/36 + 
3/36(1 - 9/36) + 3/36(1 - 9/36)' + . . .) 

Notice the right side is a geo- 
metric series which you can 
add. It equals 1/3. The other 
cases are similar, yielding a the- 
oretical result of .492929, a 
repeating decimal. 

Program Listing 3 is a pro- 
gram to analyze the data. 

I put the program in Listing 1 
in a loop which executed the 
Random command after each 
10,000 games, and found the ten 
results shown in Table 1. The re- 
sults can be summarized by say- 



The Key Box 

Basic Level II 
Model I or III 
16K RAM 
Printer required 
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ing the overall average is .49304 
and the standard deviation is 
.00569351. That is, with: 

SO percent certainty 492659<p<. 493422 
68.3 percent certainty 492471<p< 493609 

95.6 percent certainty 491901 <p< 494179 

99 .7 percent certainty 491332<p<.494748 

From before, the true answer is 
.492955, so the experimental an- 



swer is off by [.49304-.492929] 3 
.0001 1 1 , which is much less than 
one standard deviation. 

The method seems to work. 
We did something more than ap- 
proximate an answer we already 
knew. The method would not 
have worked if the pseudoran- 



Wln 



First Roll 
7,11 


Subsequent Roils 

Match first roll. 


2, 3 or 12 


or "point" 
7 



Figure 1 



5 DKFlWt I,S,J,H 

6 FOR HU-1T016 

7 I-6lS-6:J-6lW-6lL-B 

16 CLSiPRIWT632,CHRS(32)|:PRIlrT'16,B6e GAKS'il 

14 • 

15 ■ • •••• SBT up HEADINGS ••••• 

16 ' 

3t PRINTC128, 'FIRST ROLL" 

41 PRINT* 2 56," SUBSEQUENT ROLLS* 

59 PRINTC512,*NINS" 

61 PRINT ".5 27, "LOSSES" 

71 PRINTI542, 'TOTAL* 

86 PRINTC7I4," 'PROBABILITY" 

84 " 

85 * ••••• HAIH LOOP ••••• 

86 • 

91 FOR 1-1 TO N 

188 S1-RND(6)+RND(6) 

128 IF SI- 2 OR Sl-3 OR Sl-12 THEN L-L+l: GOTO 

ES HERE 

138 IF Sl-7 OR Sl-11 THEN H-W+l: GOTO 228 

148 J-B 

158 S2-RND(6)+RND(6) 

178 J-J+l 

188 IF S2-S1 THEN W-W+ll GOTO 228 

198 IF S2-7 THEN L-L+l: GOTO 228 

288 GOTO 158 

285 ' 

286 ' ••••• print RESULTS ••••• 

287 • 

228 PRINT8686,(W+L) 

236 PRINT6776,CHRS(38) jW/(W+L) 

246 NEXTI 

388 LPRINT'RANDOH EVERY 18,666 W -*;W;"L -*>L>' 

316 RANDOM 

326 NEXT NU 



■TRY OTHER RUL 



P - *ftf/(V*L] 



Program Listing 1 



5 DEPINT S,J: H-6:L-8 

16 CLS:PRINT632 r CHRS(32)|:INPUT'NUNBER OF GAMES'jN 

14 • 

15 ' ••••« SET UP HEADINGS ••••• 

16 ' 

38 PRINT6128, 'FIRST ROLL" 

46 PRINT82 56, "SUBSEQUENT ROLLS' 

58 PRINT8512, 'KINS' 

66 PRINT85 27, "LOSSES' 

76 PRINT6542, 'TOTAL' 

86 PRINT6764," PROBABILITY" 

84 ' 



RAIN LOOP 



85 ' 

86 ' 
96 FOR 1-1 TO N 

95 IF INT(N/1666)'1666-N THEN RANDOM 

166 S1-RND(6)+RND(6) 

116 PRINT«146,S1 

128 IF SI- 2 OR Sl-3 OR Sl-12 THEN L-L+l: GOTO 216 

ES HERE 

136 IF Sl-7 OR Sl-11 THEN W-W+l: GOTO 216 

146 J-B 

158 S2-RND(6)+RND(6) 

166 PRINT0326+J*3,S2 

176 J-J+l 

186 IF S2-S1 THEN W-W+l: 

196 IF S2-7 THEN L-L+l: 

268 GOTO 156 

265 ' 



"TRY OTHER RUL 



GOTO 216 
GOTO 218 



266 ' ••••• print RESULTS ••••• 

267 ■ 

216 PRINT#326,CHR$(36) : PRINT* 384,CHR$(36) 
226 PRINT6576 ,H: PRINTf 591 ,L: PRINT6666 , (N+L) 
236 PRINT«776,CHRS(36) ;W/(H+L) 
246 NEXTI 
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THERE'S A NEW TERM 

FOR MOD III USERS . . . TELETERM 

The TELETERM Communications System is the most powerful 
and most user-oriented terminal package available today for 
the TRS-80 Model III I 

TELETERM will turn any Model III. with at least 32 K of 
memory, single disk drive, and RS-232-C board and modem into 
an Intelligent Terminal capable of communicating with nearly 
all types of computer hardware AND, it will allow you to define 
its parameters in virtually any way you wish ! 

Only TELETERM gives you these (plus many more) features, 
all in a single package: 



DIRECT TRS-80 to TRS- Makes transmitting as easy 
80 DISK TO DISK TRANS- ► as copying a file I 
MISSION* 



DIRECT FILE TRANS- 
MISSION FROM DISK 



..► 



Eliminates buffer limitations 



SUPPORT S PROMPTED 
OR NON-PROMPTED ► 
TRANSMISSION 



Flexible capabilities 



ON- LINE/ OFF-LINE 
TEXT EDITOR 



Creation of text for trans- 
mission and review and mod- 
ification of memory buffer 



VIDEO PAGING 



Communicates at Baud rates 
^ above 300 with no character 
loss due to scrolling 



SPLIT-WINDOW VIDEO 



Separate simultaneous view- 
ing of typed and received 
data. 



RECALL SCREEN 



Allows you to review pre- 
vious 1 5 lines received 



WORD WRAPPING 



Automatically "wraps" words 
extending past a line's end 
instead of "chopping" them 



USER-DEFINABLE 
TRANSLATION TABLES 



Allows you to define and 
save as an initialization table 
nearly all RS-232 and local 
parameters, as well as many 
system functions 



VIDEOTEX CODES 
SUPPORTED 



Access timesharing systems 
that require Videotex codes 



•when communicating witn another TELETERM jystem 
•'to any computer with which you can communicate 

TO ORDER - Complete the coupon below and mail it with your check. 

money order. VISA or MasterCharge # to 

TELEXPRESS. INC.. P.O Box 217, Willingboro. NJ 08046 



Name 



Address 



City. State. Zip. 
Phone 



Send me copies of TELETERM @ S 1 25 00 per copy | includes Users Manual) 

Send me of the TELE TERM User's Manual at $ 1 .00 per copy (Refundable 

when TELETERM program is purchased | 

Payment Check _ Money Order VISA MasterCharge 

Credit Cards Only Acer # Exp Date . 

Amount of Payment S_ 



Please note Credit card holders may expedite their orders by phoning |609| 
877-4900 



^ 



TniXPRcSS " ln< . PO Box 21 7. U/illingooro, NJ 08046 
TRS-80 is a trademark of the Tandy Corporation. 



; 
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1-800-521-4372 







LOU Pr i ces/FRST Ser v i ca/5a+ i if act i on Guar wit m 

34 North Clk Street Bandueky, Michigan 49471 

P*ilT"ZL"""«T"Ma"""cZLL FOR ANYTHING- - HI FILL YOUR «N F»«T« 
-.....—— 1 -800-621-4372 (FREE out aid* Michigan) —-—■■■■■■ 

HX-SO RIBBONS (in cartrage) RES. 814.83 88.83 < HOW • > 

......_—— 313-648-2341 (MICH. RESIDENTS) ■■■ ■■■ ■■■ 

•It Modal III laval III 14K Special Frica 8 8** »■! 

•I* MODEL III 48K DISK! (408B/4088) TR9-OOS 81SS8 • •» 

• > GET ON OUR MAILING LIST AND GET 3X OFF ON SE LECTED ORDERS •• 

- Order • Dmcription Ratal I — Special - 

COLOR COMPUTER COLOR COMPUTER COLOR COMPUTER COLOR COMPUTER 

tt 16K 8398 (WON') 32K (EXT) 8488 (WON 1 ) 6«K («XT) 8988 l!l 

OlOOlC Color Spaca Invadara 821.89 18.89 

0IOO2C Bpaca Uv 821.89 18.89 

01OO3C Mataorioda 821.89 18. 83 

010O4C Battla Flaat 821.89 18.83 

01OO4C Spaca Tradar «14.89 12.89 

01OO3C Madnaaa and tha Mln 818.83 17.89 

01OO6C Ghost Gobbler 821.89 18.89 

01OO7C Color Bcarfmmn 818.83 17.89 

OlOOBC Lothar'a Labyrinth 814.83 12.83 

01OO8C Aleatrat II 811.83 10.89 

OIOIOC Laaar Command 810.89 8.83 

01 OUC Cosmic Supar Bowl 814.83 12.83 

O1012C Color Bonanza 848.83 38.89 

01013C Typing Tutor Itapa utility) 818.83 17.83 

O1014C Maatar Control < tapa ut I 1 I ty ) 824.83 22.83 

01013C Maatar Control II (disk) 828.83 27.83 

01016C Tapa Directory 814.89 12.83 

01017C Diaaaaambler 6808 Itapa) 814.83 12.83 

01BO1C LOWER CASE OPTION (HARDWARE) 878.83 74.83 

• (*« MODEL I a III t MODEL I a 1 1 1 t MODEL I a III •»*•» 
It All progrema-hardware-eof tmere ate. availlable - call' • • 

0B0O04 HUX.TID08 (Diek Opar at 1 ng Syatam) ra g 888 only B8 

018O14 Lyn. Telephone Modem 8288 248 

08808A MAYES SMART MODEM (ay favorite) 8278 only 228 

013014 Bug ♦ (tape utility) 814.83 12.83 

013O24 Tape Copy (tape utility) 814.83 12.89 

013O34 TCIB/HAKE VC (disk) 848.89 44.83 

013O44 Postman 2.0 (mail utility) 8123 88 

013O34 MX-PRO (dtak) 824.83 22.83 

GAMES - GAMES - GAMES • GAMES - GAMES - GAMES - GAMES - GAMES 

010014 Caterpiller (0)18.83/17.83 IT) 13. 83/13. 83 

01OO24 Alien Defense (D) 18. 83/ 17. 89 (T) 13. 83/ 13. 83 

01OO34 Fortreaa (0)18.83/17.83 (T) 13. 83/13. 83 

0ir>O44 Super Vadera <D) 18.83/ 17. 83 (T) 13. 83/ 13. 83 

010034 Super Nova (0)18.83/17.83 (T) 13.89/13. 83 

010064 Gala»y Inveeion (0)18.83/17.83 (T) 13. 83/13. 83 

010074 Coamlc Fighter <D> 18. 83/ 17. 83 (7)13.83/13.83 

08OO14 PFNETRATOR (0)24.83/20.83 (T ) 24. 83/20. 83 

0B0024 HOPPV (FROGGER) (D) 1 8. 83/ 17. 83 (T ) 14. 83/ 14. 83 

090034 CATERPILLAR (0)18.83/17.83 (T) 13. 83/13.83 

0BO104 CYBORG (NEW) (D) 24. 83/22.83 <T> 18. 83/17. 83 

0BO114 OUTHOUSE (D) 18. 83/ 17. 83 (Tl 13. 83/13.83 

MORE GOODIES MORE GOODIES MORE GOODIES MORE BOOOIEB 

0B0<>1A Printer Standa Clear 824.83 Bronxe 827.83 

0BBO11 Aerocomp Doubler Li at 8138 Special 134 

OSeOlE Practical Peripherlala Print Buffer (EPSON) • 138 ( 

OG701A WABASH DISKS (Single Dans.) Hat 821.89 t 18.89 I 

087i"i?A WABASH DISKS (D/D 77/BO trk) list 834.88 t 32.88 t 

OB703A WABASH DISKS (D/D BO 2-eldee>liat 842.89 t 38.89 • 

UB704A WABASH FLIPPYS ( Call 1 -BOO-421 -4372/313-649-2341 I 

CALL FREE FROM OUTSIDE MICHIGAN (24 hr HOTLINE) 800-421-4372 
MICHIGAN REBIDENTS 1-3 13-648-2341 (the LON price* pay for It) 
MAJOR CREDIT CARDS ACCEPTED OVER THE PHONE - C.O.D. - M. 0. - 

prices subject to change without notice 83. OO shipping - 

To Order by Mail Include (1> Full Name (2) Phone 8 (3) Order 
(4) Model (3) Mem Size (6) Dlak or Tape (7) Charge 8 (S) Ad 
ordered from (*»> Single or Double Density -Disk (10) Exparat- 
Date or Credit Card t(alloM too weeks for checks to clear)! 



1-800-621-4372 




mm\ 





dom numbers were not close to 
random. The results suggest 
that the pseudo-random num- 
bers were suitable for this tech- 
nique and next time you can use 
them with more confidence. 

Final Thought* 

It is very difficult to control 
the seed number of the random 
number generator. This makes it 
difficult to duplicate an experi- 
ment. 

Are the results presented here 
too good? The overall average is 
surprisingly close to the true val- 
ue. In other experiments the 
overall average was not so 
close. I selected the data pre- 
sented here because they are 
the first 10 results produced af- 
ter I turn on the machine, and in 
this sense they can be dupli- 
cated. 

If you ran the program with 
10,000 games, then you might 
think that 20,000 games would 
give an answer that is twice as 
accurate. Such is not the case. 
In general, the expected error 
varies as 1V"n. In other words, 
to get one more significant digit 
(decrease the error by a factor of 
10) you must increase the num- 



ber of trials by a factor of 100 (to 
1 ,000,000). Often, other methods 
of increasing accuracy are more 
productive. 

If you change the rules of the 
game, what happens to the 
probability of winning? The first 
time I played craps we used the 
rule that you did not lose if you 
got a three on the first roll. That 
is, three was just like any other 
point. Does this change things 
much? Change line 120 by delet- 
ing OR S1 = 3, and see what the 
simulation tells you. (The theo- 
retical value is .50681.) 

The Monte Carlo technique, 
of which this is a crude example, 
can be used on very difficult 
problems to give an approxi- 
mate answer. The method does, 
however, lead fairly quickly to 
some unavoidable mathemat- 
ics. I have tried to minimize the 
math used here in order not to 
obscure the central ideas. You 
can refer to any standard text on 
statistics for a more detailed ex- 
planation. ■ 

Mr. Chaffee received a mas- 
ter's degree in mathematics. He 
works as a consultant in micro- 
computer applications. 



PROGRAM TO ANALYZE DATA 



II ' 

IS CLS 

21 INPUT* HOW MANY NUMBERS' >N 

31 DIM N(N) 

41 POR I»l TO N 

SI INPUT'ENTER NUMBER") Nil) 

61 NEXT I 

7i i ..... p IHD sun ••••• 

81 SUM - I 

91 POR 1-1 TO N 

III SUM ■ SUM + N(I) 
111 NEXT I 

121 ' ••••• AVERAGE •••*• 

13f AVG - SUN/N 

141 ' ••••• SIGMA • •••■ 

151 DEV - I 

161 POR 1-1 TO N 

171 DEV - DEV ♦(AVG-N(I)) 12 

161 NEXT I 

191 SIC • SQR(DEV/(N-1)) 

2|| ■ •»»•» RESULTS *•«** 

211 POR I - 1 TO N 

221 LPRINT N(I) » 

231 NEXT I 

241 LPRINT 

245 LPRINT 

251 LPRINT ' HVG - ') AVG 

261 LPRINT "STANDARD DEVIATION -"[SIG 

271 LPRINT 

275 LPRINT*5I% CERTAINTY "|SUM-.67*SIG( " <- SUM <- "jSUH+.67"SI 



•;SUM-SIGx" <- SUM <• "(SUM+SIG 
";SUM-2"SIG;" <• SUM <- ";SUH*2*SIG 
"»SUM-3*SIGj" <- SUM <« ";SUM+3*SIG 



,pi 



•P" <- "; (SUM* 
c- "; (SUM+SIG) 



281 LPRINT"68.3t CERTAINTY 

285 LPRINT"95.6% CERTAINTY 

291 LPRINT"99.7t CERTAINTY 

311 LPRINT 

311 LPRINT 

321 LPRINT'ANALYSIS OP AVERAGE VALUE* 

325 LPRINT*5t% CERTAINTY 

• 67-SIO/N 

331 LPRINT'68.3t CERTAINTY 

/N 

335 LPRINT"95.6% CERTAINTY 

SIG1/N 

341 LPRINT*99.7% CERTAINTY 

SIG)/N 

351 LPRINT 

361 LPRINT'TRUE VALUE - .492929' 

371 LPRINT'THIS DIPPERS PROM THE AVERAGE BY'jABSI ,492929-AVG) 

381 LPRINT'THIS REPRESENTS " | ABS ( . 492929-AVG) /SIG; " STANDARD DEVIA 

T IONS' 



'» (SUM-.67"SIG)/N;' 
";(SUM-SIG)/N;' <- 
"j(SUM-2«SIG)/N;" 
'l (SUM-3'SIG)/N[" 



<- 'P' 



, p . 



"r (SUM*2« 
"; (SUM*3< 



'^'•w"»w*' 



LCU Prices FF5T Service 5a + i sf ac* 1 or Guara^ee 
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IT'S MORE FUN THAN A THREE-RING CIRCUS 



V 



& 



■*& 



EDUCATIONAL 
M FEATURES i 

EXPANDS CREATIVITY 

DEVELOPS KEYBOARD SKILLS 

GEOGRAPHICAL QUIZZES 

MATH AND WORD GAMES 



* 



* 



7 

JOUR CHILD WILL BE CAPTIVATI D 
for hours with your gift of the 60 programs in 
Computer Carnival. Tests of skill, haunted houses, 
mazes, wizards and dragons are all a part of this 
funhouse book. Written in TRS-80* Level II Basic. 
Author Richard Ramella creates many characters, from the 
mysterious Sugar Louie to the mystical Madam Zelda, as he 
takes your child through his arcade of games, graphics and 
quizzes. 

Carnival Companion"' is a 30-minute cassette 



mm 
ma 



LARGL KLADABLE TYPE 
SPIRAL BINDING 
* SHORT, EASY-TO-TYPE 

PROGRAMS # 

READY-TO-LOAD CASSETTE 
OF THE LONGER LISTINGS 
AND 

MORE 



of the longer listings which eliminates the 
aggravation of typing and searching for errors, 
leaving more time to spend on the midway. 



Toll Free 1-800-258-5473 tor your credit 
[card order. Or mail your order with pay- 
ment or complete credit card informa- 
tion plus $2 shipping and handling to: 
Wayne Green Inc. 
Attn: Book Sales 
Peterborough, NH 03458 
Deaier Inquiries Invited 



All orders shipped I 'PS il 
complete street address 
is provided. 



msem 



MRS Wli*., 

••.Ill.-n 

- Ilk 

I 



["] COMPUTER CARNIVAL and CARNIVAL 
COMPANION CC7389 $24.9 
COMPUTER CARNIVAL (book only) BK7389 $16.97 

(ln< lude $2.00 per order tor shipping and handling t harges.) 
I I Payment enclosed ~j M( ~ I VISA "I Amtx 

Cards Expires MC B.ink# _ 



Package price: 
$24.97 
Book only: 
$16.97 



If 



N.iiih 



Photo- 
copied 
coupon is 
jeeept- 

j l>U- for o«- 
denng 



>s & City 



Zip 



CC12 



o 



\ 



u 






A LOCKED DOOR. A DEAD MAN 

Atd 12 feu. (>«*•*• Mte 





1 



REWRITING 



THEM AS EAST AS 



At the rate we're going, 
we'll have these pages 
filled by 2083. And by 
2084, people will be 
clamoring for the next 
Infocom creation. 

We hate to disappoint our 
public. So we keep you waiting. 
Because while the software facto- 
ries are cranking out arcade game 
after arcade game, pulpy adven- 



WE CAN! 



ture after trite fantasy, we're , _ ..,_ __ 

writing and rewriting, honing and poll recently voted ZORK™ I and 

perfecting. Before a single person ZORK II the most popular adven- 

enters one of Infocom's worlds, tures of 1981. 
it must be crafted into a living, And now, for the moment, your 

riveting, definitive experience. wait is over. ZORK III, your final 



step in the underground 
trilogy, and STARCROSS,™ 
an exploration of a new 
dimension in science fiction, 
are ready for you. 
Look at them up there, 
Judging from the public's reac- the little worlds of Infocom. As 
tion, it's worth the wait. For our universe expands, compan- 

instance, Creative Computing ions will come to help fill that vast 

welcomed DEADLINE ™ as expanse of white space. Till 

"thoroughly engrossing and real- then, they'll continue to stand 
istic," while a Softalk readers' oi/%«*» no fv.~ k«o+ ~( «n ~~„„:ui. 



alone as the best of all possible 
worlds. 

inpocom 

55 Wheeler Street, Cambridge, MA 02138 



Infocom's worlds are available for Apple? Atari? IBM, TRS-80? Commodore, NEC, Osborne, CP/M? and DEC." 

Apple is a registered trademark of Apple Computer, Inc. Atari is a registered trademark of Atari, Inc. TRS-80 is a registered trademark of Tandy Corporation 
LF/M is a registered trademark of Digital Research, Inc. DEC is a trademark of Digital Equipment Corporation. 



UTILITY 



LOAD 80 



Find it fast in your Basic programs. 



Search Them Strings 



John R. Gunter 
Charles Gunter 
756 Twin Branch Drive 
Birmingham, AL 35226 

If necessity is the mother of 
invention, then aggravation 
must be a close relative. That's 
why I wrote this string search util- 
ity. Written in machine language 
for a 16K Level II TRS80, it 
searches even the largest of Basic 
programs in 10 seconds or less. 

Search is a small program 
that takes about 365 bytes of 
memory. I kept it short by using 
ROM routines extensively. 

It's simple to use: Single keys 
command everything. It's also 
easy to access: You need only 
five keystrokes to get from 
Basic to the utility; only one key 
to return to Basic. 

Inspiring Aggravation 

The aggravation that inspired 
this program started with a Basic 
simulation game that we bought. 
Never willing to let well enough 
alone, we immediately set out to 
modify the new program. Enter 
the aggravation. This was one of 
those packed Basic programs. 
You know the kind— when you 
list it, the screen turns almost 
solid white as a blizzard ot sym- 
bols fly past. 

After some frustrating at- 
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tempts to find things in the pro- 
gram, we called a time-out to 
write the search utility. 

The simulation program filled 
the top half of the screen with 
labels and numbers that were 
the results of complex equa- 
tions. To find out which vari- 
ables drove the numbers on the 
screen, we input the label into 
the search utility. A few seconds 
later, the print message was on 
the screen, complete with vari- 
able name. 

Next, by searching for the var- 
iable name, we found the equa- 
tion that calculated the variable. 

Now, we wanted to see how 
the factors in the equation be- 
haved, so we wrote some print 
statements for the bottom part 
of the screen. Just as we were 
starting to learn something, one 
of the simulation program's 
"disaster messages" appeared 
on the screen — where else, but 
right on top of our newly in- 
serted print statements. 

Back to the search utility, and 
in a few seconds the Print @ 
statement appeared on the 
screen. We moved the Print @ 
lower on the screen and went 
back to run the Basic program. 

Zap! Another disaster mes- 
sage. A second search showed 
that this disaster message was 
another Print @ for the same 



location. Being clever, we de- 
tected a pattern emerging. Time 
for another search, this time for 
Print @ and the appropriate 
screen locations. This search lo- 
cated all the rest of the disaster 
messages, which we then moved. 

We were all set! Then, all of our 
messages began flashing like a 
neon sign. We returned to the 
search utility once again to look 
for a clear to the end of the screen 
message (PRINT CHR$(31)). We 
moved all these. 

Next, we wanted to write 
some equations of our own, but 
which variables were free (that 
is, unused in the program)? We 
picked a variable name we liked, 
and entered it as a search argu- 
ment in the utility program. If the 
"string not found" message 
came back from the utility, the 
variable was free for us to use. 

Using the Utility 

To use the utility, set the 
memory size to 32425. Then type 
SYSTEM and respond to the *? 
prompt with the program name 
SEARCH. 

When the program has 
loaded, type / and press Enter. 
This loads the start address of 
the utility into 418FH. This is the 
DOS jump address for the com- 
mand NAME. 

Now, load the Basic program 



you want to search. 

To access the utility, type 
NAME and press Enter. The 
screen clears and the message 
"output to printer (Y/N)?" ap- 
pears. When you make your selec- 
tion, the message "enter string:" 
appears. Type the string you want 
to search for and press Enter. 

If the utility finds the string, it 
lists the Basic line containing it 
on the screen or printer, which- 
ever you selected. 

To continue searching for 
subsequent occurrences, press 
Enter. To start a new search, 
press Break. To return to Basic, 
press shift up-arrow. 

When the search reaches the 
end of the Basic program, the 
message "string not found" will 
appear on the screen (even if you 
selected the printer as the output 
device). At this point either 
Break or shift up-arrow is valid. 

Details of the Utility 

Search, shown in Program 
Listing 1 is completely relo- 
catable. Just redefine the first 
line. Note that the buffer 
variable extends from the end of 
the program, so don't jam the 
program against something 
else. I allowed 28 bytes. 

Lines 140 to 170 put the start 
address in the NAME jump ad- 
dress and return you to Basic. 



Lines 220 to 290 ask for your 
choice of output device. If you 
don't want to use a printer, 
delete the lines that have an as- 
terisk in the comment column. 

If you select the printer, a one 
is stored in the output device 
control byte (lines 300-310). If 
not, the screen is the output 
device, since the byte is initial- 
ized to zero (lines 200-210). 

Next, the program outputs the 
prompt to enter the string (lines 
360-410). The character is ac- 
cepted (line 450), checked for 
enter (line 460), stored in the buf- 
fer (lines 530-540) and displayed 
on the screen (line 550). 

The utility stores the pointer to 
the first line in PRSADD (lines 
650-660). Similarly, it recovers 
and stores the pointer to the next 
line in NXTADD (lines 670-710). 

The contents of the Basic line 
are read into the input buffer us- 
ing a routine from the ROM that 
also expands the Basic tokens 
(lines 770-820). (For an explana- 
tion of the structure for Basic line 
storage in memory, see William 
Barden's column "The Assembly 
Line" in the January, 1961 issue of 
80 Microcomputing.) 

Next, Search compares the 
first character of the string you 
want to each character in the 
Basic program line (lines 
840-960). If the first character 
matches (line 970), it compares 
subsequent characters (lines 
1020-1050). 

If all characters match, it out- 
puts the line number (lines 
1110-1160) and its contents 
(lines 1170-1220). Following this, 
the program waits for input (line 
1230), accepting either Enter 
(lines 1240-1250), Break (lines 
1260-1270) or Shift up-arrow, 
(lines 1280-1290). 

If it finds no match in a line, 
the NXTADD becomes the 
PRSADD. It checks to determine 
if this is the last line (lines 
720-760). If so, it outputs the 
"string not found message" 
(lines 1310-1360); only Break or 
Shift up-arrow (lines 1370-1410) 
are valid now. 



A Basic Approach 

If you haven't an assembler, 
don't despair. I have provided 
not one, but two Basic programs 









Program Listing 1. 


Search 




00100 


SEARCH UTILITY POR BASIC 


PROGRAMS 




00110 


FOR 


16K LEVEL II TRS-80 






00120 










7EA0 


00130 START 


EQU 


7EA0H 


j DETERMINES PROGRAM LOCATION 


7E96 


00140 




ORG 


START- IB 


jSET MEM SIZE TO THIS VALUE 


7E96 21A07E 


00150 




LD 


HL, START 


;PUTS START ADDRESS IN THE 


7E99 228F41 


00160 




LD 


(418FH) ,HL 


;"NAME" JUMP ADDRESS 


7E9C C36600 


00170 




JP 


66H 


.•RETURN TO BASIC 


7EA0 


00180 




ORG 


START 




7EA0 CDC901 


00190 


START 


CALL 


1C9H 


; CLEAR THE SCREEN 


7EA3 AF 


00200 




XOR 


A 


j*SET OUTPUT DEVICE TO BE 


7EA4 329C40 


00210 




LD 


(409CH) ,A 


1 *THE SCREEN 


7EA7 21A17F 


00220 




LD 


HL,MSSG1 


; 'POINT TO MESSAGE 1 1 


7EAA CDA728 


00230 




CALL 


28A7H 


; 'OUTPUT IT TO THE SCREEN 


7EAD CD4900 


00240 




CALL 


49H 


;*GET A CHARACTER FROM KEYBOARD 


7EB0 F5 


00250 




PUSH 


AF 


;*SAVE THE CHARACTER AND 


7EB1 CD3300 


00260 




CALL 


33H 


.••DISPLAY IT ON THE SCREEN 


7EB4 Fl 


00270 




POP 


AF 


.••RESTORE THE CHARACTER AND 


7EB5 FE59 


00280 




CP 


59H 


.••SEE IF IT'S A "Y" 


7EB7 2005 


00290 




JR 


NZ f NOPRNT 


;*IF NOT SKIP THE NEXT 2 LINES 


7EB9 3E01 


00300 




LD 


A,l 


;'SET THE OUTPUT DEVICE 


7EBB 329C40 


00310 




LD 


(409CH) , A 


;*FLAG TO PRINTER 


7EBE 3E0D 


00320 


NOPRNT 


LD 


A, 13 


; 'OUTPUT CARRIAGE RETURN 


7EC0 CD3300 


00330 




CALL 


33H 


;*TO THE SCREEN 


7EC3 3E0E 


00340 




LD 


A, 14 


j TURN ON THE CURSOR 


7EC5 CD3300 


00350 




CALL 


33H 


; OUTPUT IT 


7EC8 21BA7F 


00360 




LD 


HL.MSSG2 


; POINT TO SECOND MESSAGE 


7ECB 3A9C40 


00370 




LD 


A, (409CH) 


;*GET USER'S OUTPUT DEVICE 


7ECE F5 


00380 




PUSH 


AF 


j'AND SAVE IT 


7ECF AF 


00390 




XOR 


A 


j'SET OUTPUT DEVICE TO BE 


7ED0 329C40 


00400 




LD 


(409CH) ,A 


;*THE SCREEN, TEMPORARILY 


7ED3 CDA728 


00410 




CALL 


28A7H 


; OUTPUT THE SECOND MESSAGE 


7ED6 Fl 


00420 




POP 


AF 


; 'RESTORE THE USER'S CHOICE 


7ED7 329C40 


00430 




LD 


(409CH) ,A 


;*OF OUTPUT DEVICE 


7EDA 21E17F 


00440 




LD 


HL, BUFFER 


.•POINT TO BUFFER 


7EDD CD4900 


00450 


READ 


CALL 


49H 


;GET CHARACTER FROM KEYBOARD 


7EE0 FE0D 


00460 




CP 


13 


;IS IT THE "ENTER" KEY? 


7EE2 2811 


00470 




JR 


Z,FIND 


;IF SO, GO TO FIND 


7EE4 FE08 


00480 




CP 


8 


;IS IT THE "BACK ARROW" KEY? 


7EE6 2006 


00490 




JR 


NZ,CONT 


j IF NOT, THEN GO TO CONT 


7EE8 2B 


00500 




DEC 


HL 


/DECREMENT THE BUFFER POINTER 


7EE9 CD3300 


00510 




CALL 


33H 


; BACKUP THE SCREEN CURSOR 


7EEC 18EF 


00520 




JR 


READ 


; GO GET ANOTHER CHARACTER 


7EEE 77 


00530 


CONT 


LD 


(HL) ,A 


;PUT CHARACTER IN BUFFER 


7EEF 23 


00540 




INC 


HL 


j INCREMENT THE BUFFER POINTER 


7EF0 CD3300 


00550 




CALL 


33H 


;PUT CHARACTER ON SCREEN 


7EF3 18E8 


00560 
00570 


1 


JR 


READ 


;G_ GET ANOTHER CHARACTER 




00580 


;BEGINING OF 


SEARCH ROUTINE 






00590 


; 








7EF5 3600 


00600 


FIND 


LD 


(HL) ,0 


;MARK END OF BUFFER WITH ZERO 


7EF7 3E0D 


00610 




LD 


A, 13 


;PUT A CARRIAGE RETURN 


7EF9 CD3300 


00620 




CALL 


33H 


;OUT TO THE SCREEN 


7EFC 3E0F 


00630 




LD 


A, 15 


;TURN OFF THE CURSOR 


7EFE CD3308 


00640 




CALL 


33H 


; OUTPUT IT TO THE SCREEN 


7F81 2AA440 


00650 




LD 


HL, (40A4H) 


»GET ADDRESS OF FIRST LINE 


7F04 22DB7F 


00660 


NWLINE 


LD 


(PRSADD) ,HL 


; PUT IT IN PRESENT ADDRESS 


7F07 7E 


00670 




LD 


A,(HL) 


;GET THE LOW BYTE OF THE NEXT 


7F08 32DD7F 


00680 




LD 


(NXTADD) ,A 


;LINE ADDRESS AND STORE IT 


7F0B 23 


00690 




INC 


HL 




7F0C 7E 


00700 




LD 


A, (HL) 


;GET THE HIGH BYTE OF THE NEXT 


7P0D 32DE7F 


00710 




LD 


(NXTADD+1) , 


A .-LINE ADDRESS AND STORE IT 


7P10 2ADB7F 


00720 




LD 


HL, (PRSADD) 


j GET THE PRESENT LINE ADDRESS 


7F13 7C 


00730 




LD 


A,H 


; CHECK TO SEE IF THE VALUE 


7F14 B5 


00740 




OR 


L 


;IS ZERO WHICH INDICATES THE 


7F15 FE00 


00750 




CP 





;END OF THE BASIC PROGRAM 


7F17 286A 


00760 




JR 


Z,THRU 


>IF SO, GO TO THRU 


7F19 23 


00770 




INC 


HL 


;MOVE OVER 


7F1A 23 


007 80 




INC 


HL 


;TO THE FIRST 


7F1B 23 


00790 




INC 


HL 


/CHARACTER OF THE 


7F1C 23 


00800 




INC 


HL 


; BASIC PROGRAM LINE 


7F1D CD7E2B 


00810 




CALL 


2B7EH 


;PUT LINE IN INPUT BUFFER 


7F20 21E841 


00820 




LD 


HL.41E8H 


; POINT TO ADDRESS OF INPUT BUFFE: 


7F23 11E17F 


00830 


BUFFI 


LD 


DE, BUFFER 


j POINT TO SEARCH PROGRAM BUFFER 


7F26 AF 


00840 




XOR 


A 


.•INITIALIZE THE MATCH FLAG 


7F27 32DF7F 


00850 




LD 


(MTCHFL) ,A 


.•WITH A ZERO — NO MATCH 


7F2A 1A 


00860 


BUFFNX 


LD 


A,(DE) 


;GET NEXT CHARACTER FROM THE 


7F2B 47 


00870 




LD 


B,A 


; SEARCH PROGRAM'S BUFFER 


7F2C AF 


00880 




XOR 


A 


;AND CHECK TO SEE IP IT IS 


7F2D B8 


00890 




CP 


B 


;THE END OF BUFFER MARKER 


7F2E 281F 


00900 




JR 


Z, MATCH 


;IF SO, GO TO THE MATCH ROUTINE 


7P30 7E 


00910 


NXCHAR 


LD 


A,(HL) 


.-GET NEXT CHAR FROM INPUT BUFFER 


7F31 FE00 


00920 




CP 





;IS THIS THE END OF THIS LINE? 


7F33 2815 


00930 




JR 


Z,NXTLIN 


;IF SO, GO TO GET NEXT LINE 


7F35 23 


00940 




INC 


HL 


;DOES THE CHARACTER FROM THE 


7F36 B8 


00950 




CP 


B 


.•SEARCH BUFFER (B) MATCH THE 


7F37 2809 


00960 




JR 


Z,MATCH1 


>ONE FROM INPUT? IF SO GO 


7F39 3ADF7F 


00970 




LD 


A, (MTCHFL) 


>HAVE WE PREVIOUSLY MATCHED 


7F3C FE00 


00980 




CP 





;ANY CHARACTERS IN THIS LINE? 


7F3E 28F0 


00990 




JR 


Z, NXCHAR 


;IF NOT, GET THE NEXT CHAR 

Listing 1 continues 
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7F40 


18E1 


01000 




JR 


BUFFI 


IF SO, GO TO BUFFI 


7F42 


3E01 


01010 


MATCH1 


LD 


A,l 


WHEN THE FIRST CHAR MATCHES 


7F44 


32DF7F 


01020 




LD 


(MTCHFL) ,A 


SET THE MATCH FLAG AND 


7F47 


13 


01030 




INC 


DE 


POINT TO THE NEXT CHARACTER 


7F48 


18E0 


01040 




JR 


BUFFNX 


AND GO TO BUFFNX 


7F4A 


2ADD7F 


01050 


NXTLIN 


LD 


HL, (NXTADD) 


TAKE THE VALUE OF THE NEXT 


7F4D 


18B5 


01060 
01070 


1 


JR 


NWLINE 


ADDRESS AND GO 






01080 


J ROUTINE WHEN 


A COMPLETE MATCH HAS BEEN FOUND 






01090 


1 








7F4F 


DD2ADB7F 


01100 


HATCH 


LD 


IX, (PRSADD) 


GET THE PRESENT ADDRESS 


7F53 


DD23 


01110 




INC 


IX 


AND HOVE OVER TO THE 


7F55 


DD23 


01120 




INC 


IX 


PROGRAM LINE NUMBER 


7F57 


DD6E00 


01130 




LD 


L,(IX+0) 


GET THE LOW AND HIGH BYTES 


7F5A 


DD6601 


01140 




LD 


H, (IX+1) 


OF THE LINE NUMBER 


7F5D 


CDAF0F 


01150 




CALL 


0FAFH 


OUTPUT THE LINE NUMBER 


7F60 


3E20 


01160 




LD 


A, 32 


GET A SPACE CHARACTER 


7F62 


CD2A03 


01170 




CALL 


3 2 AH 


AND OUTPUT IT 


7F65 


21E841 


01180 




LD 


HL,41E8H 


POINT TO THE INPUT BUFFER 


7F68 


CD752B 


01190 




CALL 


2B75H 


OUTPUT THE LINE 


7F6B 


3E0D 


01200 




LD 


A, 13 


GET A CARRIAGE RETURN 


7F6D 


CD2A03 


01210 




CALL 


3 2 AH 


AND OUTPUT IT 


7F70 


CD4900 


01220 


LOOP 


CALL 


49H 


GET CHARACTER FROM KEYBOARD 


7F73 


FE0D 


01230 




CP 


13 


IS IT THE ■ENTER" KEY? 


7F75 


28D3 


01240 




JR 


Z, NXTLIN 


IF SO, CONTINUE THE SEARCH 


7F77 


FE01 


01250 




CP 


1 


IS IT THE 'BREAK" KEY? 


7F79 


CAA07E 


01260 




JP 


Z, START 


IF SO, START OVER 


7F7C 


FE1B 


01270 




CP 


27 


IS IT SHIFT UP ARROW? 


7F7E 


CA191A 


01280 




JP 


Z,1A19H 


IF SO, RETURN TO BASIC 


7F81 


18ED 


01290 




JR 


LOOP 


IP NONE OP ABOVE, TRY AGAIN 


7F83 


21CA7F 


01300 


THRU 


LD 


HL,MSSG3 


POINT TO MESSAGE 3 


7F86 


AF 


01310 




XOR 


A 


•CHANGE THE OUTPUT DEVICE TO 


7F87 


329C40 


01320 




LD 


(409CH) ,A 


•THE SCREEN 


7F8A 


CDA728 


01330 




CALL 


28A7H 


OUTPUT HESSAGE 3 


7F8D 


3E0D 


01340 




LD 


A, 13 


GET A CARRIAGE RETURN 


7FBF 


CD2A03 


01350 




CALL 


3 2 AH 


AND OUTPUT IT 


7F92 


CD4900 


01360 


THRUIN 


CALL 


49H 


GET A CHARACTER PROM KEYBOARD 


7F95 


FE01 


01370 




CP 


1 


IS IT THE "BREAK" KEY? 


7F97 


CAA07E 


01380 




JP 


Z , START 


IF SO, START OVER 


7F9A 


FE1B 


01390 




CP 


27 


IS IT THE SHIFT UP ARR' W? 


7F9C 


CA191A 


01400 




JP 


Z,1A19H 


IF SO, GO TO BASIC 


7F9F 


1BF1 


01410 




JR 


THRUIN 


IF NONE OF ABOVE, TRY AGAIN 


7FA1 


4F 


01420 


MSSG1 


DEFM 


'OUTPUT TO PRINT 


:r (Y/N)?' »• 


7FB9 


00 


01430 




DEFB 





t* 


7FBA 


45 


01440 


MSSG2 


DEFM 


'ENTER STRING: 




7FC9 


00 


01450 




DEFB 







7FCA 


53 


01460 


MSSG3 


DEFM 


'STRING NOT FOUNI 


)' 


7FDA 


00 


01470 




DEFB 







7FDB 


0000 


01480 


PRSADD 


DEFW 







7 FDD 


0000 


01490 


NXTADD 


DEFW 







7FDF 


0000 


01500 


MTCHFL 


DEFW 







7FE1 


0000 


01510 


BUFFER 


DEFW 







7E96 




01520 




END 


START- 10 




0000 


1 TOTAL ERRORS 











to POKE the machine language 
program into memory. 

The first version (see Program 
Listing 2) is the same as the 



other version you cannot use 
the printer and it's shorter (see 
Program Listing 3). 
With either version, set the 



in the first remark and type the 
program. 

When you run the program, 
you first get a poor man's 



assembly program. With the memory size to the value shown cyclical checksum of your data. 



This checks for typographical 
indiscretions and transposi- 
tions. If you pass this check you 
should be in good shape. 

When the program completes 
its run and returns the ready 
prompt, try a few searches on 
the Basic program that POKEd 
in the data. 

Assuming that works, save 
your Basic program on tape, and 
it's ready for serious use. 

Tips on Using the Utility 

Remember that in Basic only 
the first two letters are signifi- 
cant. Suppose you want to intro- 
duce a new variable to hold the 
last value input, and you want to 
call it Last. Search only for LA, 
but bear in mind the program 
will also find a variable named 
Large. Remember, defining too 
large a search argument will 
cause you to miss conflicting 
variables that have the same 
first two letters. 

Watch out for embedded 
blanks. A search for: 

PRINT® 660 
will not find: 

PRINT @660 

You can search for references 
to line numbers too. Suppose 
you plan to delete lines 1120 to 
1180 from your Basic program. 
Before you do so, you can quickly 
find out whether any GOTOs, 
GOSUBs or lf...Thens reference 
these lines by searching for 11. 
Any reference will quickly show 
up. 

Try this utility to soothe your 
frustrations, and speed your 
way through your next Basic 
programming job. ■ 



IB ' MEMORY SIZE - 32415 

2B ' LINES 31 TO 11B DO THE CHECKSUM DATA VALIDATION 

31 DEFINT D,Z : CHECKSUM - B 

41 FOR K ■ 1 TO 7 STEP 2 

SI READ D 

60 IF D - -1 THEN 110 

70 CHECKSUM - CHECKSUM ♦ D • K 

86 NEXT K 

91 GOTO 40 

101 IF CHECKSUM <> 116705 PRINT 'CHECKSUM ERROR — RECHECK DATA ST 

ATEMENTS':END 

110 PRINT 'DATA CHECKSUM OK" 

120 ' LINES 130 TO 190 POKE THE MACHINE LANGUAGE INTO HIGH MEMO 

RY 

130 RESTORE 

140 K - 32416 

150 REAL D 

160 IF D - -1 THEN 210 

170 POKE K,D 

180 R - K ♦ 1 

190 GOTO 150 

201 ' LINE 210 POXES THE JUMP ADDRESS OF THE 'NAME' COMMAND 

210 POKE 167b3,160 : POKE 16784,126 

220 PRINT "FINISHED' 

230 DATA 205,201 

240 DATA 1,175,50,156,64,33,164,127,205,167,40,205 



250 


DATA 


260 


DATA 


270 


DATA 


280 


DATA 


lit 


DATA 


301 


DATA 


ilt 


DATA 


320 


DATA 


JJ0 


DATA 


340 


DATA 


351 


DATA 


J6I 


DATA 


370 


DATA 


311 


DATA 


3»0 


DATA 


400 


DATA 


410 


DATA 


420 


DATA 


430 


DATA 


440 


DATA 


451 


DATA 


461 


DATA 


471 


DATA 


480 


DATA 


490 


DATA 


510 


DATA 



73,0.245,205,51.0,241.254,09,32,5.62 

1.50. 150, (4.62. 13. 205, 51, 0,62, 14, 205 

51.0.33,109,127,50,156,64,245,175.50,156 

64, 205. 167, 41, 241. 51, 156, 64. 33. 220, 127, 205 

7J. 1.254. 13, 40. 17, 254, 0.32, 6,43,205 

51. 1. 24, 23 9, 119, 35, 205. 51. 1, 24, 232. 54 

1, 62. 13. 205, 51, 0,62, 15. 205. 51, 0,42 

164,(4,34,222.127,126,50,224,127,35.126,50 

225.127.42.224.127,124.101,254.0,40,109,42 

222.127,35.35.35,35.205,126.43,33,232,65 

17,220,127,175,50.226.127,26.71.175,184,40 

31.126.254,0,40.21,35,184,40,9,50.226 

127,254,0,40.240.24.225.62.1,50,226.127 

10, 24. 224. 42. 224(127.24. 17 0, 221. 42. 222. 127 

221.35.221.35.221.110,0,221.102.1.205,175 

15.(2.32.205,42.3,33,232,65.205.117,43 

62.13.215.42.3,205,73,0,254,13.40,211 

254, 1,202. 1(0. 12(,254, 27, 2(2, 102, 0,24, 237 

33. 205. 127, 175. 50. 156, (4, 205, 167. 40, 62. 13 

205,42.3.205.73.0,254.1,202.160,126.254 

27,202.102.0.24,241.79,05.04,80.05,84 

32.04.79,32.81.82.73.78.84,(9.(2,32 

40. 09, 47, 78, 41, (3, 0,(9, 7 0,04, (9. (2 

32,83,84,82.73.78,71.58,32.32,0,03 

04,82.73.78,71.32.78,79,84,32,70,79 

85,78,(8,0,-1 
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II " SET r.EHCRY silt TO 32485 

2i ' LIKES 38 TO 111 DC THE CHECKSUM DATA VALIDATION 

3» DEFINT L,K : CHECKSUM - t 

40 FOR K - 1 TO 7 STEP 2 

51 READ D 

60 IF D - -1 THEN 101 

70 ChECKSUM - CHECKSUM ♦ D • K 

80 KEXT K 

90 GOTO 40 

100 IF CHECKSUM <> 92158 PRINT 'CHECKSUM ERROR — RECHECK DATA STA 

TEMENTS":END 

110 PRINT "DATA CHECKSUM OK" 

120 ' LINES 130 TO 190 POKE THE MACHINE LANGUAGE INTO HIGH MEMO 

RY 

130 RESTORE 

140 K ■ 32489 

150 READ D 

161 IF D - -1 THEN 211 

170 POKE K,D 

180 K - K + 1 

190 GOTO 150 

2it • LINE 219 POKES Ti.tl JUMP ADDKf.SS 3F THE "NAME" COMMAND 

210 POKE 16783,233 : KOKE 16784,126 

220 PRINT *FINSIHED" 

230 DATA 205,201,1,62,14,205,51,0,33,189,127,205 

240 DATA 167,40,33,228,127,205,73,0,254,13,40,17 

250 DATA 254,8,32,6,43,205,51,0,24,239,119,35 

260 DATA 205,51,0,24,232,54,0,62,13,205,51,0 

270 DATA 62, 15, 205, 51,0, 42, 1M, 64, 34, 222, 127, 126 

280 DATA 50,224,127,35,126,50,225,127,42,224,127,1. 

290 DATA 181,254,0,40,109,42,222,127,35,35,35,35 

302 DATA 205,126,43,33,2.2,65,17,228,127,175,^0,226 

310 DATA 127, 26, 71, 1'5, 184, 40, 31, 126, 254, «, 40, 21 

320 DATA 35, 134, 40, 9, 5B, 2/6,127,254,0, 411,240, 24 

330 DATA 225,62,1,50,226,127,19,24,224,42,224,127 

343 DATA 24 , 17 8 , 22 1 , 42 , 2 22 , 1 27 , 221 , 35 , 271 , 3 5 , 221 , 1 1 

350 DATA 3,221,102,1,205,175,15,62, J2,20 c ,, 42, 3 

'■iO DATA 33,232,65,205,117,43,62,13,205.42,3,205 

370 DATA 73,0,2'.4,13,40,211,254,1,202,23.«,126,254 

5*0 DATA 2.", 202, 102, 0,24, 237, 33, 205, 127, 205, 167, 46 

:91 DATA 62, i-, 205,42, 3,205, 73, 8, 254,1,262,233 

408 DATA 126, 254, 27, 202, 102, 0,24, 241, 69, 7b, 84, 69 

410 LATA "2, 32, B3, 84, 82, 73, 78, 71, 58, 32, 32,0 

420 DATA OJ,i4,e2,73,78,71,32,78,79,84,32,70 

430 DATA 79, f-5, 70, 68, 0,-1 
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BBB 



DAISY WHEEL 

New Smith Corona TP-1 



True letter quality printer for less than the cost of an 
office typewriter! Priced $500 less than other popular 
daisy wheel printers! 

SALE PRICE: 
$599.00 

FEATURES: 

-ft- Friction feed 

if 15 cps. 120 wpm 

■ft Changeable daisy wheels 

•ft Parallel or serial interface 

-ft Compatible with R/S, Apple, etc 

rji SUNLOCK SYSTEMS 
■^ 4217 Carolina Ave. 

Richmond, Va. 23222 

kWUlOHkl PRINTER SPECIALS 




Epson MXS0 $449 
SOn $529 
MXJO0 $699 



Oliidcrta MU0 $349 
MLS2A $449 
MU3A $7J9 



WE WILL MEET OR BEAT AhlV AVVERTISEV TRICE 



TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-321-9191 

We accept MasterCard. Visa and CODs 



Ability: 
Library Commands 

1 All ol TRS-DOS comm 

2 Lower case options 

3 Vanble track support 
(35-80) 

4. Plus many more 

Utility Command 

1 All of TRS-DOS commands 

2 Purge all files not needed 
3. Terminal control as to 

communication with 
another terminal 

4 Plus many more 

Languages 

1 Extended basic 

2 Edtasem - Editor Assembly 

3 Plus many more 

Write or call us now for the best 

tmenl of your life 
POS MODEL I. II. and llf $85.00 




THE GREATEST OPERATING SYSTEM 
UNDER THE SUN 

All application program provide introductory 
discount - 20° o off. 



OS is truly the operating 
ystem that has the other DOS 
eat in price and ability. 
)ther available Software for 
MOD I. II. and III 

1 AR Osborne $350 

2 A P Osborne $350 

3 G L Osborne $350 

4.PR Osborne $400 

b ACT I- AR. A P. 

GL S850 

6 ACT II - A R. A P. 

GL. PR 1200 

J Inventory Control I $1b0. 
8. Inventory Control II $250. 
9 F M (creates 

programs) $80. 

10 Wordit (mailing list and 

word processing) $150. 
1 1 . Lettent (word 

processor) $35 

12 Sort $45 

13. And much more . Call 



As ar ntroouCO'v o^c you ca<" try »'OS 'of 10 days 'Of 

- i te'urd o* se^d $60 00 'o- 

.vhich can be bacw 
10 day (nai Diske"' .. 
"OS 



USAGE SOFTWARE GROUP 



SOI I WAR! -ill. SLI'I'OKI 

OM Sh;i<lo» Run Drnr 

I jk eland, I I 33403 

(8|l> 044 :01S 



U S G 



■ See List ol Advertisers on Page 451 
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UTILITY 



The Key Box 

Model I or III 
Cassette Basic 



Eliminate bad saves and wasted time. 



Certify Your Cassettes 



Kenneth J. Bigelow 
411755th Avenue 
Bladensburg, MD 20710 



After spending three days key- 
ing in a new adventure pro- 
gram, to protect it you CSAVE it 
before running it. A long program 
saves in half an hour. When you 
come back, Ready is prompting 
and the computer awaits you. 

With the program on tape you 
are protected. Right? Even if it 
crashes, you have taped it. Right? 
Maybe. Before you power down or 
run your program, you check the 
recorded tape using CLOAD? to 
play back the tape and compare it 
with what is still in memory. 
That will tell you whether or not 
your program was correctly re- 
corded. If it's not, you'd better 
CSAVE it all over before you turn 
off the machine— you don't 
want to key it in by hand all over 
again! 

If you already CLOAD? your 
tapes right after recording that's 
a good start. So once again you 
type CLOAD? and knowing that 
it will take just as long to check 
the tape as to record it, you 
leave to do something else for 
another 30 minutes. But when 
you get back, the screen says 
Bad just above the Ready 
prompt. A quick check of the 
recorder shows that the tape on- 
ly ran for two minutes before the 
computer found a mistake on 
the tape. You rewind the tape 
and CLOAD? again. This time 
you watch while the computer 
starts its check. Sure enough, 
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two minutes later, the message 
Bad appears and the tape stops. 
Well, maybe the head is dirty. 
It has been a while since you 
cleaned it. Out comes the head 
cleaner tape, the goo and the 
swabs. Then, your tape goes 
back in and you CLOAD? again. 
Two minutes later Bad appears 
again and the tape stops. This 
time, you decide the recording 
was bad, probably due to the dir- 
ty heads. So, you rewind the 
tape and CSAVE the program 
again. Another 30 minutes later 
you rewind the tape, cross your 
fingers and CLOAD? one more 
time. You say a prayer in com- 
puter language and watch the 
screen anxiously. But no luck. 
Two minutes later Bad appears 
once more and there does not 
seem to be anything you can do 
about it. 

Tape Dropout 

The problem is "dropout" on 
the tape. A dropout is a spot 
where the magnetic medium is 
thinner than necessary, or ab- 
sent altogether. That spot on 
the tape can hold no data. In or- 
dinary audio use, this spot 
would go unnoticed. But the 
pulses used by the TRS-80 are 
very narrow and must occur in 
the right places. If one of those 
pulses occurs right on the 
dropout it is not recorded. On 
playback, the computer spots 
the missing pulse because it 
does not match the contents of 
memory. At that point the 
CLOAD? operation stops, indi- 
cating a bad tape. 



Can you prevent this? One way 
is to buy only certified cassettes. 
These tapes have been tested 
and are guaranteed to contain no 
dropouts. Unfortunately, they are 
also expensive. The next choice 
is top-of-the-line cassettes. 
These tapes are less expensive 
than certified tapes, and usually 
contain no dropouts. However, 
there is no guarantee, and you 
can expect an occasional defect. 

Two options are available to 
you: buying the more expensive 
tapes or tolerating the occasion- 
al defective cassette. Neither 
option is particularly satisfying. 
Testing the tape before wasting 
time recording would solve the 
problem, but what do we look 
for? The computer does the hard 
part. 

Checking the Tape 

Make a visual inspection. 
Turn the take-up spool past the 
blank leader and inspect the 
tape surface. Reject any tape 
that is even slightly rough. Some 
of the 3-for-a-dollar or 25c tapes 
might as well have been pol- 
ished by a knurling tool and look 
more like alligator hide than re- 
cording tape. The abrasive sur- 
face will wear your tape heads 
early. I buy these cassettes if 
the housing is screwed to- 
gether, well made, and if wheels 
guide the tape. I throw away the 
tape and splice a saved program 
into the empty housing. The 
tape itself is dreadful! 

When you have a smooth tape 
surface, let the computer hunt 
for dropouts. The computer will 



write a pattern of 1's onto the 
tape and then read them back. If 
you receive a non-1 pattern on 
playback, the tape had a drop- 
out at that spot. If only 1's read 
back the tape is OK. 

To understand how this works, 
let's take a look at the format of 
data on the tape. Figure 1 shows 
how it works. The cassette output 
routine generates a series of 
clock pulses and tapes them. One 
such clock pulse is generated 
every two milliseconds (one milli- 
second is equal to .001 second). 
The pause is left for data pulses. If 
a 1-bit is recorded, a data pulse 
appears halfway between the 
pulses. If a 0-bit is recorded, no 
pulse appears between pulses. 
Therefore, if we record an all-one 
pattern, the tape places a pulse 
every millisecond. The tape speed 
in audio recorders is standardized 
at 1 7/8 inches per second. The 
computer will pulse at intervals of 
.001875 inch. 

Since Basic is too slow for 
such operations, read and write 
routines must be in machine 
language. But having the main 
part of the program in Basic 
faciiitates entry and running. 
Also, with Basic we can enter 
the program without a lot of 
POKEs, T-Bug, EDTASM or any 
other utility programs and get 
back and forth between Basic 
and the machine language sub- 
routines with the USR function. 

Writing the Program 

Now write the Basic program 
to generate the required 
machine language subroutines 
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Easy to Learn - Like lightning you will be up ano\running with a comprehensive and sophisticated word 
processor. Our manual says you can be an expert in Ape hour, our users tell us it takes less than 30 minutes. 
The manual's 1 28 pages are packed with figures, il I titrations and examples for the beginner and'old pro ". 

• Easy to Use - With the ELECTRIC PENCIL youtrocess words, not commands. ELECTRIC PENCIL'S 
menus and simple two keystroke commands keepsVapr mind on your work, NOT on your manual. ELECTRIC 
PENCI L is so easy to use your secretary will WANT to usWt V so sophisticated you'll be glad she did. David Ahl, 
the editor of Creative Computing says, "ELECTRIC PEN^L 2.0 is the most user friendly word processing 
package available." 

• Features - ELECTRIC PENCIL has a 36k+ text buffer (48k\*k system), supports disk, tape and Stringy 
Floppy files (disk version)* and has every major feature you want in\ word processor. It is "bullet proof"- Data 
recovery is a built-in feature. The exclusive DICT-A- MATIC'featurefuves your office the flexibility of dictation- 
word processing without fancy equipment. Your dictation playback^dpntrolled from the computer keyboard. 

• Flexible - It is the only word processing system that is designed \ke an operating system. You can add 
new programs and features to ELECTRIC PENCIL, such as RED and BTlUE PENCIL dictionary/correction - 
with a 50,000 word dictionary (sold separately) - without patche§ andVjpgrades. Simply press one of the 
control key combinations and new additions to your system are instantly available. Add automatic proofing, 
spelling correction, dynamic print formatting, proportional printing, communications, graphics and typesetting 
and many other add-on features when you need them. 1 

• Versatile - ELECTRIC PENCIL runs on TRS-80 model I and model III compilers under all versions of 
TRSDOS, and NEWDOS without modification or patching (Patches required for otfter operating systems). It 
also supports parallel and serial printers as well as single and double density disjt systems. 

ELECTRIC PENCIL is the choice of thousands- make it yours for only $89.95 (diskversion) or $79.95 (tape 
and Stringy Floppy versions). Manual only $24.95. -* 



ELECTRIC PENCIL is available at computer stores, selected B. Dalto 
Booksellers and selected independent book dealers. If your dealer is outjof 
stock, order direct (specify disk tape or Stringy Floppy version). Induce 
$4.00 for shipping and handling. Foreign residents add $1 1.00 plus purchase 
price, in U.S. funds. f 

'Tape and Stringy Floppy versions support tape and stringy files only / 
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COMPUTER BOOKS FOR BEGINNERS 

Everything you need to get started programming your own personal computer. These handy books of programs, and about 
programming, are loaded with easy-to-understand info for beginners. The books include hundreds of ready-to-type-and-run 
programs as well as hundreds of program-writing tips, tricks, hints, shortcuts, secrets, techniques. We offer books cover- 
ing the 13 most popular computers for beginners: TRS-80 Color Computer. Atari 400, Atari 800, Apple II, Sinclair ZX-81, 
Timex 1000, Micro Ace, IBM Personal Computer, Casio FX-702P pocket computer, Sharp PC-1211 and PC-1500 pocket 
computers and TRS-80 PC-1 and PC-2 pocket computers. 



TRS-80/Sharp/Casio 
Pocket Computers 

99 Tips & Tricks lor the New Pocket Computers, all new programs using 
tremendous power ot TRS-80 PC-2/Sharp PC-1500 LCD graphics, 
printer/plotter graphics, usetul business and home sottware. includes 99 
complete type-and-run programs, learn full range ol expanded BASIC 
128 pages $7 95 

Pocket Computer Programming Made Easy, last new easy read-and 
learn way to quickly understand the BASIC programming language how 
to make TRS-80 PC-1/PC-2. Sharp PC 1 21 1 /PC 1 500 & Casio FX-702P 
computers work lor you. 128 pages SB. 95 

101 Pocket Computer Programming Tips & Tricks, secrets, hints short- 
cuts, techniques from a master programmer includes 1 1 ready-to-run 
programs for TRS-80 PC-1 and PC-2 and Sharp PC-1211 and PC 1500. 
128 pages $7 95 

50 Programs in BASIC tor Home, School & Office, usetul ready-to-run 
software for PC-1 /PC-2/PC-12H /PC-1500 96 pages $9.95 

50 MORE Programs in BASIC lor Home, School & Office, book of tested 
software for PC-1/PC-2/PC-1211/PC 1500. 96 pages S9 95 

Murder In The Mansion and Other Computer Adventures, mystery space 
adventure, games. 24 programs lor PC 1/PC-2/PC-121 1 /PC-1500 96 
pages $6.95 

35 Practical Programs for the Casio Pocket Computer, usetul type and 

run sottware tor the I X /0?P 96 aaqes $8 95 

Atari 400/800 Computers 

101 ATARI Computer Programming Tips & Tricks, learn by doing in 
struction. hints secrets shortcuts, techniques for Atari 400 and 800 
computers includes 101 ready to-run programs i ?8 pages S8.95 

31 New ATARI Computer Programs lor Home, School & Office, practice 
type-and-run software for Atari 400 and 800 96 pages $8 95 

Timex 1000/Sinclair ZX-81 

101 TIMEX 1000/Sinclair ZX-81 Programming Tips & Tricks, secrets 
hints shortcuts learn by-doing instruction techniques lor the ZX 81 
MicroAce and Timex 1000 computers, includes 101 ready to run pro 
grams 128 pages $7 95 

37 TIMEX 1000/Sinclair ZX-81 Computer Programs lor Home School 4 
Office, practical type and run software for ZX-81 Timex 1000 and 
MicroAce. 96 pages $8 95 



TRS-80 Color Computer 

Color Computer Graphics, complete guide loaded with instruction, how to 
make the most ol TRS-80 Color Computer video graphics, many complete 
programs, 128 pages $9.95 

The Color Computer Songbook. 40 favorite pop folk classical, seasonal 
songs arranged tor play on TRS 80 Color Computer, type-and-run music 
programs. 96 pages $7.95 

101 Color Computer Programming Tips* Tricks, learn by doing instruc- 
tions hints, secrets, techniques, insights, lor TRS-80 Color Computer, 
includes 101 programs. 128 pages $7.95 

55 Color Computer Programs tor Home. School & Office, practical ready 
lo run sottware colorful graphics, for TRS 80 Color Computer. 128 
Pages $9.95 

55 MORE Color Computer Programs for Home, School & Office handy 
companion volume packed with different useful type-and-run software, 
colorful graphics tor TRS-80 Color Computer. 1 12 pages $995 

My Buttons Are Blue and Other Love Poems from the Digital Heart ol An 
Electronic Computer for poetry lovers computer fans a high tech 
classic 66 heartwarming poems written by a TRS 80 Color Computer. 96 
Pages $4 95 



Apple Computer 



101 APPLE Computer Programming Tips & Tricks, secrets hints in- 
sights 101 ready-torun programs tor Apple II. 128 paqes $8.95 

33 New APPLE Computer Programs lor Home. School & Office, practical 
type and run sottware lor Apple II, 96 pages $8.95 



Program Worksheets 



Tablets ol handy printed forms make writing BASIC sottware 
easy and fun Customized tor computer systems, or use the 
universal form good for any BASIC computer 40-sheet pads 



Color Computer BASIC Coding Form 
Pocket Computer BASIC Coding Form 
APPLE Computer BASIC Coding Form 
TIMEX/Sinclair BASIC Codinq Form 
IBM Personal Computer Coding Form 
ATARI Computer BASIC Coding Form 
Universal BASIC Coding Form 



$295 
$2 95 
$2.95 
$2 95 
$2.95 
$2 95 
$2 95 



Order direct from this ad. Send check, money order, or MasterCard or VISA account number and expiration date. Include $1 
shipping lor each item ordered up to a maximum ol $3. Or write for our free catalog. Mail to: 

ARCsoft Publishers 

Post Office Box 132L 
Woodsboro, Maryland 21798 

(301)663-4444 

Customers wanting airmail send $4 postage per item ordered Foreign customers pay m U S dollars Maryland residents add 5"*» sales ta» Sorry no COD •B 
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when run. The program should 
run whether the system is Level 
II Basic, Model III Basic or Disk 
Basic. The machine language 
portions should be relocatable; 
the computer decides where to 
put them as well as the Basic 
program. This eliminates POKE 
commands, because we don't 
know where to POKE either sub- 
routine. These are character 
strings and VARPTR finds them. 
This works with the Model I or 
the Model III, using Level II or 
Model III Basic. 

For Disk Basic to work, a DE- 
FUSR statement must replace 
the POKE statements. The USR 
call must also be modified. 
Either way, when character 
strings hold the subroutines an- 
version of Basic can place them 
into a memory location. This 
protects the Basic operation, 
whether you have reserved 
memory during initialization or 
not. Both subroutines automati- 
cally land in the reserved string 
space to be retrieved by the 
VARPTR function. 

Listing 1 shows the final 
Basic program. In this program 
lines 10 and 20 contain the data 
(in decimal form) which gener- 
ate the write and read sub- 
routines. Lines 30 and 40 read 
these data lists and convert 
them into character strings W$ 
and R$. 

Lines 50 and 60 ask whether 
the computer is to write or to 
read from the tape. Then they 
set M$ equal to the selected 
subroutine. M$ will be the char- 
acter string executed as a sub- 
routine. 

In line 70 VARPTR locates M$ 
in memory and sets the USR 
pointer to that address. VARP- 
TR returns a memory address 
related to the variable name the 
VARPTR argument uses. With 
string variables, the VARPTR 
returns an address containing 
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the length of the string. The next 
two addresses contain the 
string address itself in memory. 
Therefore, VARPTR locates the 
subroutine in memory and we 
can POKE its address into the 
USR pointer (locations 16526 
and 16527). 

Line 80 indicates on screen 
that the computer accepted in- 
put and begins the required sub- 
routine. The message is dif- 
ferent for read and write; you 
can tell at a glance what the 
machine is doing. 

Line 90 executes the USR call. 
The Radio Shack manual sug- 
gests a command like X = 
USR(0). However, any other com- 
mand that can specify a func- 
tion works as well. The Print key 
is easier to hit than X =. 
Besides, who needs to define 
another variable at this stage? 

Line 100 closes the program 
loop. Execution repeats from 
line 50. Both subroutines stop 
any time you hit either Shift key. 
You can regain control without 
resetting. This permits you to 
stop checking a bad tape and 
start over. 

Subroutines 

The Basic program provides 
the necessary man-machine in- 
terface and calls the appro- 
priate machine-language sub- 
routine. The machine-language 
subroutines prepare and check 
the tape. You need not enter 
these subroutines along with 
the Basic program. Part of the 
Basic program generates and 
stores these subroutines. Only 
the Basic program need be en- 
tered and run. The subroutine 
assembly listings explain how 
they work. 

The write subroutine (see List- 
ing 2) contains 20 bytes. After 
turning on the recorder and re- 
cording the leader and sync 
byte, the subroutine enters a 
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Fig. 1. The data format for TRS-80 tapes 
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9 GREAT NEW PROGRAMS FROM 
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i ■ RIMS - Rental Inventory Management System 1795.00 

RIMS, a Rental Inventory Management System is a fully automated system de 
signed to meet the needs of the typical Time Rental Business RIMS will save the 
average business over 54 000 per year RIMS tracks each item in your time rental 
inventory, as well as maintaining performance and income records RIMS can be 
used to operate the computer as a cash legister RIMS has extensive error checking 
capabilities RIMS automatically calculates deposits, time out pnnts rental receipt 
on rental and return, allows instant inquiry into current status of an item, reports 
daily, monthly, yearly income, expenses, cashflow, produces statements for cust 
omets with term rentals, produces inventory labels and rolidex cards, uses a warn 
ing horn to alert you to potential problems and much more Model 111 

FPSS'I M FINANCIAL PACKAGE FOR SERVICE STATION ONLY 1349.50 
FPSSTM a a complete financial and bookkeeping package for Retail Petroleum 
Service Stations FPSS is written in Microsoft Basic* for the TRS-80 Model III 
FPSSTM. mhich includes a 90 page detailed User » Manual offers specialized ac 
counting modules lailormade for the retail petroleum industry FPSS™ is menu 
driven, keeps track of each sale purchase charge and collection of a service stat- 
ion, with daily, weekly, monthly or annual reports at the user's command Inven 
tory control is especially detailed allowing lor determining gasoline leakage Com- 
missions to employees can be tracked . with two commission rates setup 

FORMGEN™ 2.7 ONLY 1249.95 

FormoenTM 2.7 is a sophisticated screen and form generator which m three sep 
aralelv callable modules gives users the ability to create their own forms or set up easy 
menu driven inputs for standardised forms Complicated calculations may be in 
eluded as part ol the form output, based on the input data Screen layout variable 
array lengths, field sizes, prompt messages loim printing positions and variables 
used may aD be modified without breaking the program Users save time and very 
little memory is used because most things are done as part of subroutines Focm- 
genTM 2.7 has been used in over 100 Beta test sites in very powerful applications 
with impressive results 

CCMS ESTIMATING SYSTEM M99.95 

The CCMS Estimating System is a comprehensive construction cost estimat 
ing system written by a contractor programme! for Lontractors CCMS 'talks the 
contractor's language with several menu dnven files The key is the systems cost 
code, which references the unit prices established earlier and organizes the estimate 
into divisions modeled after the uniform system adopted by the AIA, AGCA and 
CSll. Models I and II and Compiler Basic 

TRSFLOW! V. ■ l ONLY 1149 50 



TRSFlosv'm 1.1 « a hydraulic model based upon the popular Hardy Cross 
method of pipe network analysis By telling the program certain system parameters 
such as the length diameter and type of pipes TRSFIosvTM calculates head values 
up to ISO pope junctions and the flows through ISO system elements Within the 
150 system elements TRSFIosvTM can hand* 10 pumps and 10 fixed head condi- 
bi_i ; TRSFIosvTM allows the system designated to accurately determine pump and 
pipe sizes in any desired network TRSFIosvTM works with level II Basic on 
TRSDOS. 

• BUSINESS MULTI-PACK 199.95 
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BUSINESS MULTI-PACK blends four important business lunctions sales fc 
casting (arithmetic avg. regression analysis, expolential smoothing, futures 
analysis), determines the economic order quantity. UFO or FIFO inventory 
analysis, and a cache of general business utilities These unlities include Pricing Met 
chandise to achieve a desired profit margain a perpetual calendar, future value of a 
present sum. present value of a future sum. an amortization schedule Model III. 
48Kbytes. one disk TM 

mm PERSONAL ACCOUNTER ' M 2.4 ONLY 159.95 
Personal Accounter 2.4 is an easy to use program for keeping track of one 
or more separate accounts and enables the user to see the current balance, search 
for check entries by specific dates, months or year, call up total monthly expendi 
tures or check when a certain account was paid A printed copy ol all checking ac 
count reports may be ordered Personal AccounterTM 2.4 'S very easy to use 
and comes with a reference manua. 

__ — BISPLAN 169.96 

BISPianTM , s a program for making business plans and projection*. With 
BISPIanTM you are led through screen prompts to enter data concerning your 
business plans You can enter estimates of a business proposal thaiyou are consid- 
ering and produce projections of potential earnings BISPIanTM will help you 
assess financing requirements, loan payoff rates length of time before return on in- 
vestmeni. and profit potential Estimates can be projected up to five years and 
dumped from screen to line printer BISPIanTM IS menu driven and includes a 
manual Available in 16K for the Model I with a more extensive version in Models II 
and 111 

___ — — — — DISMON - An Interactive Disassembler 149.95 



Now you can control the entire disassembling process through DISMON. an in 
teractive disassembler Code resides in middle memory and can be used to disas 
semble programs in either high or low memory Models 1 or III loKbytes with 
cassette. 48 Kbytes with disk 
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AT LAST! 

A PROFESSIONAL JOURNAL FOR ENGINEERS 

SCIENTISTS MATHEMATICIANS * STATISTICIANS USING 

MICROCOMPUTERS. 

PLUG INTO-. 

ACCESS! 
The Journal of Microcomputer Applications 
for 

* numerical analysis * computerized design 

* math modeling * process simu'ation 

* statistical analysis * report generation 

The articles in ACCESS are written hy working 
engineers and scientists who share their knowledge of 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And youll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
microcomputer into the most productive tool possible. 
Sign up NOW be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada A Mexico 
$20. Other $32). Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 
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Looking for a Spelling Checker? 
Get more than just a spelling checker — get 

HexspeLL 2 

the EVERYTHING checker 



id if** mow iri miia. mow (Si sw» wow 



•CtSHll. Th. „ 

M^- *f e'ror :« detected. *>■ have three choices. 

1) PfKACT the ircorr«t M , a , Tr* replace** t word 

U INSTANTLY If-OCCHO 'or correct!*.*, ther, inserted in the 

te t. 

?! The nor* is correct, leave it as it is, 
3) Tel'. HFXSULL to LEARN this word for future 

•efererce. with :ust ore keystroke. 

Hevspeil re«"i-es just or* step to chec* ard 

-crrect a te t. atii learr new words. '».>• oocwea is ready to 

print as soor. a^ He spell is 'uished. A word Uiat is in error 

e.q.|-isst*»|. ;s ru<*ih9hted t> the te t for easi correctiori. 



Hexagon Systems is proud to announce another tirst m text checking - an everything 
checker Hexspeii 2 checks not only dictionary words, but learns and checks codes tor 
mulae and numbers which are so essential in many commercial and technical documents 
With Hexspeii 2 you dedne what characters make up a word then teach Hexspeii the new 
words it needs to check your text This advanced system builds on the unique features ot 
the original Hexspeii (the tirst TRS-80 spelling checker! Hexspeii 2 features a one step in- 
teractive process, a word list that adapts itseit to your word usage, a 25 000 word initial 
word list and more than three years ot research and experience 

Hexspeii 2 upgrade lor registered owners ot Hexspeii Vers 1 - 
S35 Irom Heugon Systems or your nearest dealer 

Hexspeii requires a TRS 80 Mod l or Mod III with 2 drives and 48K US $99 
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Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
Micronel 70235,1376 
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loop which writes hex FF (a pat- 
tern of eight 1 bits with their 
clock pulses) to the tape and 
then examines the Shift keys. If 
no Shift key is pressed the loop 
repeats from WCERT1 in the list- 



20 of the Basic program from 18 
to 21. 

Test Reliability Indicators 

We want assurance that the 
program is reading correct data 



ing. This loop will continue in- from tape. A question mark for 

"Read and write 

routines 

must be 

in machine language." 



definitely. The Shift key termin- 
ates the subroutine by turning 
off the recorder and returning to 
the Basic program. 

When the Basic program re- 
appears, it prints the digit in 
response to the Print statement 
in line 90. It returns to line 50. 
Since line 50 starts with a CLS 
command, the zero will disap- 
pear, as soon as it is displayed 
and may even be invisible. 

In the Model I TRS-80, the 
ROM routine CASSON turns on 
the recorder. If your system in- 
cludes the expansion interface 
and you have two recorders, you 
may wish to preselect the re- 
corder. Entering CASSON at ad- 
dress 021 5H can avoid switch- 
ing recorders. Change the sec- 
ond data element in line 10 of 
the Basic program from 1 8 to 21 . 
The rest of the program remains 
unchanged. 

In Model III Basic, CASSON is 
unnecessary. The CSHOUT rou- 
tine writes the leader and sync 
byte to the tape, and turns on 
the recorder. However, the call 
to CASSON can remain. The 
Model III ROM essentially ig- 
nores such calls anyway. The 
only instructions executed by 
the Model III are XOR A followed 
by RET. Leaving the call to 
CASSON in place allows the 
subroutine to run directly on the 
Model I (Level II Basic) or the 
Model III (Model III Basic). 

Listing 3 shows the read sub- 
routine— RCERT. It Is longer 
than the write routine (36 bytes) 
because it has to do more. 
CASSON turns on the recorder. 
Again, systems including two 
recorders may change the entry 
address to 0215H, by changing 
the second data element in line 



every wrong byte should show 
how good the tape is. In RCERT 
the HL register pair acts as a 
screen pointer and keeps the ? 
code in register C. 

Once the registers have been 
initialized, RCERT calls CSHIN 
in ROM. The leader code of the 
internal subroutine synchro- 
nizes to the clock pulses and 
checks for the sync code record- 
ed earlier by CSHOUT. The com- 
puter will differentiate clock 
pulses from data pulses, and 
know where bytes end and be- 
gin. In the Model III, as with 
CSHOUT, CSHIN also activates 
the recorder. 

The next step is to read and 
check data from the tape. Re- 
gardless of the tape's condition, 
it helps to verify that data was 
really transmitting from the 
tape. Since the TRS-80 normally 
uses the blinking asterisk in the 
upper right corner we can use 
the same method. There will be 
no end-of-line codes on the tape 
to blink the asterisk auto- 
matically, so let's blink it every 
64 bytes for a nice steady 
display. Register B will be the 
counter and a DJNZ instruction 
will end the loop. 

Now CSIN, the ROM routine, 
will read a byte from tape. If it is 
really hex FF we skip the error 
display code and go to RCERT3 
in the listing. If another pattern 
than FF is recovered from tape 
the error code will signal. A 
question mark occurs at the 
location the HL register pair 
designates. Then L is incre- 
mented to advance the pointer 
to the next spot. This allows a 
maximum of 256 question marks 
(four lines). We could have more, 
but if the tape is bad you will know 
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by now. If the question marks ex- 
ceed screen memory, they will 
overwrite regular memory and 
destroy all the Basic pointers and 
vector addresses. To avoid prob- 
lems restrict the number of ques- 
tion marks. 

Stopping the Program 

At RCERT3 the subroutine 
looks at the shift keys. As with 
WCERT, this stops the program 
any time the computer reads 
data from the tape. However, 
WCERT can stop whether or not 
the tape is moving. RCERT can 
only stop after a byte reads from 
tape. While the tape is moving 
there will be no problem. Once 
the tape stops RCERT will look 
for another byte until it gets one. 
It will check the shift keys again. 

In the absence of a Shift, the 
DJNZ instruction is performed. 
Normally, this causes a branch 
back to RCERT2 which reads an- 
other byte. This loop repeats until 
64 bytes (correct or not) are re- 
ceived from the tape. At that point 
the DJNZ falls through and the 
call to Blink will be executed. 
This ROM routine causes the 
righthand asterisk to blink on or 
off every 64 bytes. At 500 baud, 
this is about once a second. 
After the asterisk switches, a JR 
instruction returns the program 
to RCERT1, which reloads regis- 



and type Run. "(W)RITE OR 
(R)EAD?" will appear. Load a 
tape and advance it past the 
blank leader. Press Play and 
Record. Now, type W (Enter). 
The display will change to 
"Press 'Shift' To Stop." A C-60 
takes about 30 minutes to load. 

A Shift terminates the sub- 
routine and displays the original 
message: "(W)RITE OR (R)EAD?" 
Turn the cassette over and ad- 
vance the tape to the end of the 
blank leader. Place the tape back 
in the recorder, press Play and 
Record, and once more type W 
(Enter) into the computer. Repeat 
the process to record the test pat- 
tern on side two. 

Shift ends the subroutine and 
returns to the Basic program. 
Return the tape to side one, load 
it and press Play and type R 
(Enter) into the computer. The 
computer displays "Reading", 
and the recorder starts. At the 
sync byte asterisks appear. The 
right hand asterisk blinks at 
about a one-per-second rate in- 
dicating that the computer is 
reading data. (The Model III 
blinks at its own rate.) 

As long as the data is correct 
(All 1's, or hex FF's), the dis- 
olay will not change. If the 
display is blank except for the 
top line, the tape is good. If a 
pulse is missing, a question 



"If a pulse 
is missing, 

a question mark 
will appear 

on the screen 



>> 



ter B before reading the next 
byte from the tape. This restarts 
the sequence. 

The Blink routine is absent in 
the Model III. CSIN blinks the 
asterisk. This is why the asterisk 
blinks regularly on the Model III. 
As with CASSON, a call to Blink 
will do no harm. In fact, this loca- 
tion in the Model III consists of a 
JR to the same XOR A, RET se- 
quence which replaces CASSON. 

Testing 

To use the program, key it in 

sSee List ot Advertisers on Page 451 



mark appears as indicated by a 
zero bit recovered from tape up 
to a maximum of four lines of 
question marks. 

Leader Problems 

The first few seconds of the 
leader (composed of all 0's to in- 
sert the clock pulses) and the 
sync byte (hex A5) prevent 
checking this part of the tape as 
closely as the rest. Neverthe- 
less, this code allows the com- 
puter to synchronize itself, byte 
for byte, with the data coming 



, 



MASTER ELECTRONICS, INC. 

'TRS-80 is a trademark of Tandy 

CAN SET YOU UP IN A 



TRS-80 



STATE-OFTHE ART COMPUTER 



STARTING AT 15% DISCOUNT! 




FULLY STOCKED 

IN: Model lis 

Model HI'S 

ALL- PRINTERS 

AND — MORE!! 

* PLUS * 
THE ALL NEW: 



Model 16 and the 8.5 meg. Hard Drive! 



Toll FREE: 1-800-531-7323 



TEXAS CALL COLLECT 512/689-5536 






MASTER ELECTRONICS, INC 

154 NORTH 5th 

RAYMONDVILLE. TX 78580 



1 



"Oh No, 

It's going to take 
hours to make all 

those changes!" 



9i 



Don't let this happen to you too! 



Order your Editor NOW before you forget. This is one 
utility you can't do without. A must for beginner or 
advanced Basic programmers alike. 

Now type a whole screen full of program lines at a time. 
Move the cursor to any position on the screen and make 
changes as often as needed just by typing over an exist- 
ing line. 

Control Keys allow you to insert or delete characters, whi- 
le commands do such things as adding or deleting lines, or 
scrolling the screen display. 

Renumber command renumbers all program lines plus all 
references to program lines. 



EDIT VI. 3 Mod III Tape . . 

EDIT V2.0 Mod III Disk on Tape 
EDIT V2.0 Mod III Disk on Disk 



19.95 
21.95 
24.95 



Q5S 



dcs 



SOFTWARE 



86 Hansel Drive. Landing, N.J., 07850 

Tel. 201 398-8281 
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A 
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A 
A 
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A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



OMNITEK COMPUTERS INTERNATIONAL, INC. 

1 300 MAIN STREET TEWKSBURY, MASS 

617-851-4580 

Smith-Corona Daisy Wheel Printer 589.00 

Verbatim 5.25" D.L 25.00 

I6K RAM KITS 1 3.00 

Okidata Mlcrollne 80 309.00 

Okldata Mlcrollne 82A 419.00 

Okidata Mlcrollne 83A 649.00 

B.M.C. M.G Monitor 89.00 

Epson MX-80 FT 509.00 

Epson MX- 1 00 689.00 

Radio Shack Mill w/48K 879.00 

Radio Shack Mill w/48K and 2 40T dr 

1649.00 and RS232 1739.00 

40 track economy drive Power Supply 

whh case 1 79.00 

Tandon drives whh Power Supply and case 

40 track single head 249.00 

dual head 339.00 

80 track single head 299.00 

dual head 399.00 

5.25" Power Supply and case 39.00 

8" Power Supply and case 99.00 

CENTRONICS 7 39 Printer 469.00 



A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



A Omnltek Computers International Inc. * 



A 
A 
A 
A 
A 



TRS-80 is a reg. trademark of Tandy Corp. 
Prices *r^ for mall order only TERMS: Check, 
money order. Mastercard and Visa accepted. 
F.O. B. Tewksbury- freight extra. Mass residents add 
5% sales tax. Write for FREE CATALOG. 



A 
A 
A 
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ELECTRONIC NOTEBOOK 



A totally new concept m small scale information management tor trie TRS-80 (R) LOG is an 
assembly language utility which fills the gap between tent editors and data base managers to 
provide a true free form information storage and retrieval system with unheard of ease of 
operation 

LOG CMD creates on a formatted diskette a LOG Me from 1 to 170 pages long, each page 
containing 1 lull screen of nfor matron Pages are accessed individually or sequentially, as it 
thumbing through a book Information is added updated or deleted from each page in free 
form by an integral cursor oriented tent editor Each diskette becomes a separate organized 
notebook to use and re-use as you please 

Insert. Delete. Tab Clear and full cjrsor positioning are supported as wel as blinking cursor 
and auto repeat A; 1 functions operate with the ease o' a single keystroke including Global 
Search Output to printer is provided LOG can even be accessed from BASIC without loss of 
program 

Why. when you own a computer, do you still keep records by hand' Throw away your pencil 
and paper 1 Use your computer as you never dreamed of before 1 



Model 
Model 



32 or 48K 
32 or 48K 



$44 95 
S49 95 



(minimum system 32K 2 disk drives 
DOS 2.3 (I) or 1 3 (III) required) 



Write or Call tor further information 

KSoft 

318 Lakeside Drive 
Brandon. MS 39042 



(TRS-80 is a trademark of Tandy Corporation) 



(uppercase only) 
(uppercase lowercase) 



(601) 992 2239 

MasterCard and Visa accepted 
MS Residents pay 5 -. sales tan 
We pay shipping and handling 

• 331 



in. Otherwise timing errors 
creep in and cause apparent 
faults where none exist. 

If a few question marks begin 
the tape you need not discard 
the entire tape. Mechanical 
damage at one end or the other 
is common enough. To save the 
rest, note where the last ques- 
tion mark appears and delete 
that segment. Splice the re- 
maining tape to the plastic 
leader. Usually, you will not lose 
more than 6 to 12 inches. 

One to four question marks at 
the end, just as the plastic lead- 
er moves under the playback 
head, is usually caused by the 
last incomplete byte recorded 
previously, and noise generated 
at crossover. There is no cure for 
such difficulties; simply make 
sure you have enough tape to 
record your program. 

Splicing 

You can locate a single fault 
by pressing Shift as the question 
mark appears to stop the tape. 
Then delete the section and 
splice the ends together. (The 
splice desynchronizes the tape 
and appears as a defect. Always 
play the entire tape to determine 
the bad spots. If repair is worth it, 
locate the bad spot or you will 
have to re-record the entire tape 
to check the remainder.) 

If multiple faults punctuate 



the entire tape, clean the heads 
and pinch roller of your recorder. 
Dirty heads make even the best 
tape produce garbage. Also 
check playback volume. This is 
rather touchy with TRS-80's. The 
Model III needs a higher play- 
back volume than the Model I. If 
your results are no better with 
clean heads and correct vol- 
umes, discard the tape. 

Sidestepping the Pitfalls 

The certify program on the 
Model I TRS-80 is simple and 
straightforward. Be sure to re- 
cord the program before you 
turn off the machine. The higher 
playback volume required by the 
Model III depends on clean 
heads and a good recorder even 
more than the Model I. 

The tape can be written at 1500 
baud, but playback is something 
else. If an error occurs and a ques- 
tion mark appears, the computer 
can lose synchronization with the 
recorded data. If this happens the 
slight extra time lag between 
bytes will foul up the playback 
timing for the rest of the tape. As 
a result, the computer will treat 
the entire tape as defective, 
even if it actually had only one 
bad spot which minor surgery 
could easily remove. 

It takes thirty minutes to read 
or write each side of a C-60 cas- 
sette, whether the rate is 500 or 



1 "CASSETTE TAPE CERTIFY PROGRAM. 

2 'WRITTEN BY KENNETH J. BIGELOW. 

3 ■ 

4 'WILL RUN ON ANY TRS-80 USING LEVEL 2 OR MODEL 3 BASIC. 

5 'MUST BE MODIFIED FOR DISC BASIC. 

6 ' 

8 'DATA FOR WRITE SUBROUTINE. 

9 ' 

IB DATA 285,18, 2, 285,135,2, 62,255,295, 188,2,58,128, 56, 183,48, 245 

,195,248,1 

17 ' 

IB 'DATA FOR READ SUBROUTINE. 

19 ' 

20 DATA 285,18,2,33,0,61,14,63,285,150,2,6,64,285,53,2,254,2 55,4 
0, 2, 113, 44, 58.12B, 56, 183, 194, 248, 1,16, 238, 205, 44, 2, 24, 231 

27 ■ 

28 'PUT SUBROUTINES INTO MEMORY AS CHARACTER STRINGS. 

29 ' 

30 CLEAR158:W$-" , :FORI-1TO20:READW:WS-W$+CHRS(W) iNEXT 
40 R$«'":F0RI-1T036:READR:RS-R$+CHR$(R) :NEXT:RESTORE 

47 ' 

48 'GET FUNCTION FROM USER. 

49 ' 

58 CLS: INPUT" (W) RITE OR (R) EAD' J AS:M$-W$: IFA$-"W"THEN70 
60 M$-RS:IFASO"R*THEN50 

66 ' 

67 'AT THIS POINT, MS CONTAINS THE ACTUAL SUBROUTINE TO BE RUN. 

68 'VARPTR IS USED TO FIND IT AND SET THE USR POINTER. 

69 ' 

70 POKE16526,PEEK(VARPTR(MS)*l) I POKE16527 .PEEK ( VARPTR(MS) *2) 

80 CLSiIFAS-'WTHENPRINT'PRESS 'SHIFT' TO STOP. 'ELSE PRINT'READI 
KG.' 

87 ' 

88 'EXECUTE THE SELECTED SUBROUTINE. 

89 ' 

98 PRINTL'SR(B) 

97 ' 

98 'AFTER TERMINATING SUBROUTINE, ASK FOR NEW COMMAND. 

99 ' 

100 GOTO 50 



Program Listing 1 
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1500 baud. 500 baud helps en- 
sure greater reliability when run- 
ning this program. 
Regardless of which machine 



you use, keep the program to 
run whenever your computer is 
idle. It might just as well be 
testing tapes. ■ 





M1M 


; WRITE 


SUBROUTINE POR TAPE CERTIFY PROGRAM. 




• •11* 


jTfllS ROUTINE 


IS ENTIRELY RELOCATABLE. 




■ 1121 


; 












••13* 


1 












•■141 


;ALL CASSETTE 


HANDLING ROUTINES 


ARE IN ROM: 




•■151 


■ 










B1F8 


lll» 


CASOPP 


EQU 


01PBB 




(TURN RECORD 


BR OFF. 














• 212 


00170 


CAS SCO 


BQU 


0212B 




(TURN RECORD 


BR ON. 














• 264 


• •180 


CSOOT 


EQU 


0264H 




(WRITE (A) T 


TAPE. 














• 287 


10190 


CSBOUT 


EQU 


0287H 




(WRITE LEADE 


R/SYNC BYTE. 


00200 

0021a 


I 












00221 


;TO TERMINATE 


THIS ROUTINE 


CHECKS THE SHIFT 


KEYS AT 
















00230 


(ADDRESS 3 888H. IP PRESSED 


THE ROUTINE EET 


URNS TO 


00240 
00250 


1 BASIC 










• •■■ 


00260 




ORG 


» 




(DUMMY START 


INC ADDRESS. 














•••• CD12*2 


00270 


WCERT 


CALL 


CAS SON 




(START RECOR 


DER. 














•••3 CDS702 


00280 




CALL 


CSHOUT 




(WRITE LEADE 


R t SYNC. 














0006 3EPP 


00200 


WCBRT1 


LD 


A.0FFH 




(USE ALL l'S 


AS PATTERN. 














• MB CD64*2 


00300 




CALL 


CSOUT 




(WRITE BYTE 


TO TAPE. 














• MB 3A8038 


•0310 




LD 


A, (38MB) 




(CHECK SHIPT 


KEYS. 














• ME B7 


00320 




OR 


A 




(SHIFT KEY P 


RESSED7 














•MP 28P5 


00330 




JR 


Z,MCERT1 




[IP NOT, REP 


EAT LOOP. 














Mil C3PM1 


00340 




JP 


CASOPP 




(RECORDER OP 


P AND RETURN 


00350 


! 










• ••• 


00360 




END 








••••• TOTAL 


ERRORS 
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00100 


IREAD SUBROUTINE POR TAPE 


CERTIFY PROGRAM. 




Mill 
M120 
•0130 


(THIS ROUTINE 


IS ENTIRELY 


RELOCATABLE. 




1 










••14* 


(ALL CASSETTE 


HANDLING ROUTINES ARE IN ROM. 




• 0150 


1 








■lPB 
ER OFF. 


•0160 


CASOPP 


EQU 


01P0B 


(TURN RECORD 


0212 


00170 


CAS SON 


BQU 


0212B 


(TURN RECORD 


ER ON. 












022C 


•0180 


BLINK 


EQU 


022CB 


(BLINK RIGHT 


ASTERISK. 












0235 

FROM TAPE. 


•0190 


CSIN 


EQU 


02358 


(READ A BYTE 


0296 


00200 


CSHIN 


EQU 


0296H 


(READ HEADER 


/SYNC BYTE. 


00210 


( 








0000 


00228 




ORG 





(DUMMY START 


ING ADDRESS. 












0000 CD1202 


00230 


RCBRT 


CALL 


CASSON 


(START TAPE. 


0003 21003D 


00240 




LD 


HL.3D00H 


(POINT TO VI 


DEO LINE 5. 












0006 0E3P 


002S0 




LD 


C,'?' 


(PREPARE QUE 


STION MARK. 












0008 CD9602 


00260 




CALL 


CSHIN 


(WAIT POR SY 


NC BYTE. 












000B 0640 


00270 


RCERT1 


LD 


B,64 


(BLINK EVERY 


64 BYTES. 












000D CD3S02 


00280 


RCBRT2 


CALL 


CSIN 


(READ A BYTE 


0010 PEFF 


00290 




CP 


0PPH 


(IS IT ALL 1 


'S7 












0012 2002 


00300 




JR 


Z,RCERT3 


(IF SO, PINE 


0014 71 


00310 




LD 


(BL) ,C 


(IF NOT, PRI 


NT OUT 












0015 2C 


00320 




INC 


L 


(A QUESTION 


HARK. 












0016 3AB038 


00330 


RCERT3 


LD 


A,(3888H) 


(LOOK POR SB 


IPT KEY. 












0019 B7 


00340 




OR 


A 


(PRESSED? 


001A C2P801 


00350 




JP 


NZ, CASOPP 


(IF SO, QUIT 


MID 10EE 


00360 




DJNZ 


RCERT2 


(REPEAT LOOP 


64 TIMES. 












001F CD2C02 


00370 




CALL 


BLINK 


1 BLINK AST Bit 


ISK. 












•022 18E7 


00380 




JR 


RCBRT1 


1 REPEAT INDB 


FINITELY. 


00390 


1 








0000 


00400 




END 






00000 TOTAL 


ERRORS 
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A powerful 
data base manager. 

Data-Writer can be used 

with your word processor or by 

itself as a complete stand-alone 

system for managing textual and 

numeric data. 

Use for order tracking, client billing, 
expense recordkeeping, operational 
reporting with totals and subtotals, form 
letter production to a large list or a subset, 
mailing list maintenance and other business 
and personal applications. Data-Writer's ease 
of use appeals to secretaries. 

• Data Entry program to create your data base or odd 
records to an existing data base It nas error checking fea- 
tures and supports both fixed and variable length fields 

• Machine-language File Editor lets you edit your data 
base without an independent word processor Or. if 
you prefer, use your own word processor (Electric Pencil, 
Lazy Writer. Newscript or Scripsit) to create and edit 
your data base. 

• Field Manager that lets you add. delete, re-order or ap- 
pend fields and merge or split data bases 

• Interactive, double-precision Math program that 
processes up to 20 equations of up to 255 characters 
using numbers you enter and your data base field labels 
It includes an in -memory scratch pad to store temporary 
values 

• Two- level Sort that enables you to sort on any field, with- 
out having previously designated it as a key 

• Mailing Label program that allows you to print multiple 
labels from one to four across and to insert a fixed mes- 
sage on every label 

• Machine-language Form Letter processor that allows 
you to insert data from your data base into a form letter 
or contract Store the text for use later 

• Report Generator for columnar tabulations with auto- 
matic headings, pagination, totals and subtotals, and 
sophisticated formatting control 

• Powerful Select-lf command that lets you define a subset 
of your data base. With Select-lf and Sort, you can create 
dozens of new data bases for specific purposes 

• Statistical check on your data base to locate data 
entry errors Stats also reports maximum entered data 
length for each defined field, a tremendous aid when 
designing a report 

• Data-Writer is both powerful and easy to use. 'Why 
hasn't someone done this before? M 

For the TRS-80 Model l/lll (48K. 2 disk drives, lower case re- 
quired ) Available from Software Options, 19 Rector Street 
New York. NY 10006 212-785-8285 Toll-free order line: 
600-221-1624. Price: $145 (plus S3 per order shipping and 
handling) New York State residents add sales tax Visa/ 
Mastercard accepted ^mm** 

SOFTWARE 




■ See List of Advertisers on Page 451 
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TUTORIAL 



Learn position and chain sorts. 



Another Sort of Sort 



Karl L. Townsend 
103 Knollwood Drive 
Lansdale, PA 19446 

Sorting plays a large role in 
programming data base 
files such as mailing or tele- 
phone lists. With few exceptions 
most data base applications re- 
quire data sorting according to 
some prearranged plan. 
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Most of us started using the 
bubble sort because it is so sim- 
ple and quick to program. As we 
learned more about program- 
ming and realized the bubble 
sort's lack of speed and its inef- 
ficiency, we moved on to other 
methods such as the Shell, and 
the Heap Sort. 

Most sorts move data from lo- 
cation to location as the sort 
progresses. This very movement 
of data carried to an extreme 
makes the bubble sort so poor. 

If you do much relocating or 
exchanging string data, the 
TRS-80 is likely to go into "mum- 
ble mode" while clearing its 
head. The TRS-80 locks up 
everything while it rearranges 
the string space and rids itself 
of unnecessary strings. You can 
reduce these effects by clearing 
additional string space or by us- 



11 REM POSSORT/VB1 




IBB FOR I - 1 TO IB 




118 READ AS(I) 'READS IN TEST NAMES FROM DATA LIST 




12B NEXT I 




2BB FOR I - 1 TO IB 




218 C(I) - 1 'PRESETS POSITION COUNT ARRAY TO ALL ONES 




22B NEXT I 




23B FOR I ■ 18 TO 2 STEP -1 "START SORT 




24B FOR J - 1-1 TO 1 STEP -1 




25B IF AS(I) -> AS(J) THEN C(I) - C(I) ♦ 1 ELSE C(J) - C(J) ♦ 1 


26 B NEXT J 




278 NEXT I 'END SORT 




9BB FOR I • 1 TO U 




91B LPRINT I, AS(I) , C(I) 




92B NEXT I 




93B LPRINT 




1808 DATA JOE, SAM, ANDY, TED, MAC, BILL, AL, FRED, LOU, ED 




Program Listing 1 





ing the VARPTR instruction for 
your exchanges. But why move 
the data at all? 

How about a method of sort- 
ing without moving data out of 
its assigned storage location? 
This solves the string clearing 
problem, and also avoids exces- 
sive writing and rewriting of 
data files. Position sorting and 
chaining may be for you. 

Position Sorting 

To start, we will experiment 
with a few routines to look at a 
list of data elements and record 
their relative positions in a file, in 
this case, an array. Program List- 
ing 1 shows a short program to 
do just this. The program con- 
sists of three parts. The first sec- 
tion, lines 100-120, reads names 
to be sorted into the A$ array. 

Since we are not going to 
move the original data, we must 
keep track of our sort. Array C(x) 
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accepts and stores the numer- 
ical position of records once 
they are sorted. This array, the 
same size as our data array, has 
a storage position to match 
each data item in the main 
storage array. Lines 200-220 
preset this position array to all 
ones, preparing it for the sort. 

Lines 230-270 contain the 
sort. The test sort is set up to ar- 
range data in ascending order. 
As the sort progresses, each 
data item is compared against 
each of the others. Size, as used 
here, means relative alphabetic 
position. For example, B is larg- 
er than A, and Fred is larger than 
Andy. If a given data item is 
larger than the one against 
which it is being compared, the 
sort adds a one to its equivalent 
position in the C array. This 
process is called incrementing. 
Larger items are incremented in 
the C array more often than 
smaller items. The largest data 
item is incremented every time it 
is compared; the smallest, never 
incremented, remains a one. 

Lines 900-930 form a simple 
print routine enabling us to see 
the results of our labors. If you 
have no printer, change all 
LPRINT instructions to Print to 
show output on the screen. 

Type in the program in Listing 
1. Figure 1 shows the result of 
our sort. Column one lists the 
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consecutive positions of the 
data In the arrays. Column two 
lists data as read from the data 
statement. But take a look at 
column three. These numbers in 
sequence from 1 through 10 in- 
dicate the sorted position of 
their associated data elements. 
If we read through the array 
based on the sequence shown 
in column three, we are reading 
the data in ascending order. We 
have kept our promise; the orig- 
inal data is unchanged in posi- 
tion or order. 

We can now print the data in 
sorted order. Add the following 
lines to your original program. 



960 FOR I - 1 TO 10 'PRINT DATA IN 

ASCENDING ORDER 
060 FOR J > 1 TO 10 
970 IF qj) » I THEN LPRINT I, A$(l) 
900 NEXT J 
990 NEXT I 



As the program runs, you will 
again see the output in Fig. 1. 
However, immediately following 
It is the list of names printed in 
ascending order (see Fig. 2). 

This print routine is a rather 
poor one. Although the large 
amount of time is not obvious 
with this small file, the pro- 
cedure is very slow on a larger 
one. If you analyze the nested 
loops, you will see that the en- 
tire list of 10 items Is read each 
time one item is printed. The 
computer searches for a match 
In the C array for each print. This 
can be speeded by jumping out 
of the Inner loop as soon as a 
print is completed, but on the 
average, the computer reads 
half of the entries for each print. 
To print a file of 10,000 data 
items would require about 
500,000 reads. We need a better 
way to print or a different sort. 

Chaining 

Chaining lets us jump from 
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one record to the next higher 
one as we print without exten- 
sive searching. We only need to 
read each record once to print It. 
Add the following statements to 
your program: 

eoo x - o 

610 FORI - 10TO1 STEP-1 
620 FOR J « 10 TO 1 STEP-1 
630 IFQJ) » ITHENXW) - X:X«J 
640 NEXT J 
650 NEXT I 

Also, change line 910 to: 

910 LPRINT I, A$(l), C<l), X(l) 

Delete lines 950-990. Now run. 

Figure 3 shows the result. The 
first three columns remain the 
same; a fourth column depicts 
the X array containing the chain- 
ing Information. The numeral 3 
beside Al's name says that the 
next record (Andy) is found in ar- 
ray position 3. At this location, 
column four says to go to posi- 
tion six where we find Bill. If you 
trace each link of the chain, you 
will arrive at Ted. A zero in the 
chaining column indicates the 
end of the file. 

It appears that we can now 
step through the file from record 
to record In ascending order 
without any exchanges. We still 
have a problem, however: How 
do we get to Al's record to begin 
the sequence? Since It is unlike- 
ly that the first physical record 
Is the first In the sort order, let's 



insert a dummy record which 
will always be first. In this case, 
use the name AAA since no nor- 
mal English word will sort be- 
fore It. 

Change Joe in line 1000 to AAA, 
leaving the rest of the names as 
they are. Now run again. 

Figure 4 shows the result. 
AAA is the first record; its chain- 
ing number (seven) leads right to 
Al. Trace the chaining numbers 
and you will step through the en- 
tire file, ending with Ted and a 
zero to indicate end of file. 

To print the names in se- 
quence from this chaining Infor- 
mation add the following lines 
to your program: 

950 T - X(1) 
960 FOR I - 1 TO 9 
970 LPRINT I, A$(T) 
980 T =« XfT) 
990 NEXT I 

On running again, you will see 
the same data, followed by the 
file printed in ascending order. 
Let's review the additions we 
just made. Line 950 takes the 
chaining information from the 
dummy record and saves it in var- 
iable T. Line 960 begins the print 
loop. Note that it only goes from 
1 to 9 as we do not want to print 
the dummy record. Line 970 is the 
print line. On the first time 
through the loop it prints A$(T), 
the first record as directed by the 
chaining information. The key to 
the chained print, however, is in 



line 980; T is set equal to the next 
link In the chaining column. This 
process continues until all rec- 
ords are printed in order. 

Bubble Sort or Chain Sort? 

I decried the bubble sort as 
slow and inefficient. It appears 
at this point that the chain sort 
procedure is even worse. More 
programming is required to sup- 
port the sort, and data is more 
difficult to print. 

Have we really accomplished 
anything? 

Are there any advantages to 
the chain sorting procedure? 
Figure 5 shows information on 10 
people. Suppose we want to print 
three different listings of this 
data: name order, city order, and 
state order. Normally this re- 
quires sorting into each order 
wanted and then printing. If later 
you need a print in another order, 
you must sort again. How can we 
apply the techniques just learned 
to this type of situation? 

First, we generate a dummy 
record to precede the file. We in- 
sert the record AAA before the 
first entry in each column. Enter 
the program shown in Program 
Listing 2. 

To make things easier when 
printing our file, the program 
provides a multidimensloned ar- 
ray to contain the data. Line 100 
dimensions A$ to 20 rows and 3 
columns. I allowed for a few ex- 
tra lines in the array in case you 



IS REM POSSORT/VI6 












111 


DIM A$(2I,3), C(2I), X(2I,3) 












111 


POR I - 1 TO 11 












121 


POR J - 1 TO 3 












131 


READ AS (I, J) 'READ IN TEST DATA 












141 


NEXT J 












151 


NEXT I 












211 


POR I - 1 TO 3 'SORT COLUMNS IN 


ORDER 










211 


POR J - 1 TO 11 'PRESET C ARRAY 


TO ALL ONES 










221 


C(J) - 1 












231 


NEXT J 












241 


POR K » 11 TO 2 STEP -1 • STAR! 


POSITION SORT 








251 


POR L - K-l TO 1 STEP -1 












261 


IP AS(K,I) -> AS(L,I) THEN C(K) ■ 


C(K)+1 ELSE 


C(L) 


- C(L)+1 






271 


NEXT L 












281 


NEXT K 












291 


X - 1 












311 


POR K - 11 TO 1 STEP -1 'CHAIK 


COLUMN 










311 


POR L « 11 TO 1 STEP -1 












321 


IP C(L) ■ K THEN X(L,I) - X: X • 


L: L ■ 1 










331 


NEXT L 












341 


NEXT K 












351 


NEXT I 












411 

R 
411 


INPUT'TO PRINT BY NAME -ENTER 1, 


BY CITY -ENTER 2, 


BY STATE 


-ENTER 


3";P 


T - X(1,PR) 












421 


TOR I - 1 TO 11 












431 


LPRINT A$(T,1), A$(T,2), A$(T,3) 


'PRINT ROUTINE 








441 


T » X(T,PR) 












451 


NEXT I 












461 


GOTO 411 












111! DATA AAA, AAA, AAA, JONES, NORRISVILLE, PA, BROWN 


PHILADELPHIA, PA 


.SMITH 


CAMD 


EN, 


W, GREEN, TRENTON, NJ , OTIS, PHILADELPHIA, PA 










111! DATA TALL, LANSDALE, PA, BROWN, PHILADELPHIA, PA 


ARNESS 


.BUPPALO, 


NY, JAMES, TR 


ENTON,NJ, SAMPSON, DOVER, DEL 














Program 


Listing 2 
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want to include additional test 
data. Since we will sort on all 
three columns, array X is also 
dimensioned to 20 by 3. Remem- 
ber, the chaining array must pro- 
vide a position to match each 
data key on which a sort is 
made. 

Lines 110-150 read the test 
data into the A$ array using 
nested loops. Each time the I 
loop is incremented by one, the 
J loop reads in three data items: 
name, city and state. 

Line 200 starts the sort. The 
program steps through each of 
the three columns in order. 
When I equals one, the names 
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are sorted; on two, the city; and 
on three, the state. 

Lines 210-230 preset the posi- 
tion array to all ones just before 
each column is sorted. 

The position sort itself is in 
lines 240-280. We are now work- 
ing with two-dimensional ar- 
rays. The first time through the 
sort, the I in each array is a one; 
all sort comparisons are based 
on the first column of data 
(names). Subsequent sorts 
change this to a two and then a 
three to sort by city and state. 

Lines 290-340 chain the data 
as before except that the chain- 
ing information is stored in the 
multidimensional array X. The I 
loop controls chain storage to 
correspond with the data col- 
umn being sorted. 

In this area, I added another 
small change at the end of line 
320. L equals one sets the loop 
counter to the loop end count 
when a find is made. When the 
Next L statement is reached, the 
program jumps out of the loop. 
This avoids cycling through the 
loop after a find has already 



been made and the chain num- 
ber has been stored in the X ar- 
ray. On a large file, this is a sig- 
nificant difference; it cuts the 
average time in this loop by 
about one-half. 

Line 400, a mini-menu, allows 
you to select the column you 
want sorted. The print routine 
is as used before except that 
you can select the chaining 
column for the particular print 
requirements. 

The program will hesitate 
while reading in the data and 
performing the sorts. When the 
prompt line for printing appears, 
try each option. You can print, in 
order, any of the three columns 
without re-sorting the data. 

This ability to print in various 
sequences without re-sorting is 
an asset in large files. In the 
multiple sort situation chained 
files really shine. 

To save your sort informa- 
tion, just save the chaining in- 
formation right along with your 
data. This enables you to print 
data in your selected sequence 
next time you use the file. Use 



the following routine: 

800 fori = 1 TO 11 

810 PRINT i-1, X0.1). Xfl.2). X(l.3). 

AS0.1). AS(I.2), AS0.3) 
820 NEXT I 

I have developed some of the 
concepts of chaining and data 
sorting without rearranging a 
file. The somewhat crude and 
unsophisticated examples 
should demonstrate possible 
applications for your program- 
ming efforts. ■ 

Karl Townsend works on 
system interfaces on the Navy 
Aegis program (or RCA. 
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FREE EPSON MX-80 PRINTER 



With the 
purchase of o 

TRS 60, Model 






For a limited time, Data Services. Inc.. will 
give you a FREE Epson MX-80 Printer ($645 
value), when you buy o TRS 60 Model III, 48k, 
with 2 PERCOM 40 track drives, at our new low 
prices of $2,395 00. 

(Includes RS-232, Printer Cable TRSDOS.) ' 

The perfect system, the perfect price! 

TRS 80 Model III, 48k - two PERCOM 40 

track drives - EPSON MX-80 Printer. 

Data Services offers more — APPARAT S 
NEWDO5 80, version VER 2.0. regularly $149.95 
— now only $ 129.95 (Model III units only.) 

Up to 20% savings on TRS computers — ac- 
cessories — programs, Plus: EPSON / PERCOM / 
APPARAT / HAYES SMARTMODEM / VERBATIM 
DISKETTES / MEMOREX DISKS. 

•TRS-80 is o trademark of Tandy Corporation. 



■ FREE SHIPPIN G in 48 contiguous states. 

■ No Sales Tax on out-of-state orders. 

■ Viso/Moster Card welcome. 

■ Personal checks, allow 3 weeks to clear. 

■ (International orders freight FOB. Wichita. 
Kansas) 

CALL TOLL FREE: 1-800-835-1 129 

or order by mail from: 

DflTR SBMCES, IMC. 

COMPUTER SERVICES SINCE 1970 «*118 

P.O. Box 1 1 57 Wichita, Kansas 67201 1157 
(In Kansas, call 1-316-838-9021) 
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MULTIDOS 



IS THE DOS WITH THE MOST EFFICIENT DISK BASIC INTERPRETER 
IS THE DOS WITH THE ORIGINAL & STILL THE BEST SINGLE STEP BASIC 
IS THE MOST COMPATIBLE OPERATING SYSTEM ON THE MARKET 
IS EASY TO LEARN — EASY TO USE! 

MULTIDOS does the following AUTOMATICALLY! 

ADJUSTS 



DISABLES 
INTERRUPTS 

EXECUTES 

PREVENTS 

READS 

STEPS 

TOTALS 

SENSES 



for CPU speeds of 1.77 thru 5.32 MHz without the need for slowdown 
during disk I/O. 

when CLOAD, CSAVE, or SYSTEM is entered from the command mode 
(Model I). 

the most commonly used Library command, DIR, with one keystroke. 

system hanging, even without a diskette in drive ZERO. 

single density, double density, Model I and Model III diskettes. 

machine language programs for debugging (controlled execute). 

free diskette space on all mounted diskettes. 

type of double density hardware (RS or others). 



"cAlolboc/ij ^oes 3k ^Bette/t" 





VISA & MasterCard 

WELCOMED 

Foreign Orders Add $1000 
For Shipping & Handling 

* For Model I Orders Only * 
Please specify Single. Double 
or P Density 



— MAILORDERS — 

Cosmopolitan Electronics Corporation 

P.O. BOX 89 • PLYMOUTH, MICHIGAN 48170 

*•••••••• 

— TECHNICAL INFORMATION — 

Cosmopolitan Electronic* Corporation 

C/O VERNON HESTER 
42403 Old Bridge Road • Canton. Ml 46186 • (313) 397-3126 



$9995 

$3.00 For 
Shipping A Handling 

Michigan Residents 
Add *% Sales Tax 

COD. Orders Add $1.50 

Personal Checks Take 
2 Weeks To Cfear 



^■See List ol Advertisers on Page 45' 
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UTILITY 



LOAD 80 



The Key Box 



Level II Basic 
Model III 



Modify Uni-Key for your Mod III. 



Autokey 



Don Rigg 

17 Bittersweet Bay 

Winnipeg, Manitoba 

Canada 

A member of my TRS-80 user's group re- 
cently showed me a most remarkable 
program. A Basic keyword appears when- 
ever he presses the shift key in combina- 
tion with any other key. The program is 
called Uni-Key, by Rowand Archer, Jr. of 
Hillsborough, NC. It appeared in the Sep- 
tember 1980 issue of 80 Microcomputing. 

The program should run on my Model III, 
but it most inconveniently uses a lowercase 
letter for generating the keywords. This 
works well on the Model I, as a shifted 
character is indeed lowercase. In my case I 
was usually generating lowercase letters 
and the Shift produced uppercase. I would 
have to do all my typing holding down the 
shift key (except when I wanted a keyword) 
or keep using the shift uppercase only tog- 
gle. Neither solution was very satisfactory, 
so I customized Uni-Key for the Model III 
and included a few other worthwhile 
features. 

My version of Uni-Key gives you an alter- 
nate keyboard layout which generates the 
keywords when you press the shift key. You 
can also turn the special keyboard off to 
revert to normal upper and lowercase typ- 
ing. When in keyword mode all the words 
shown in Fig. 1 are available at the touch of 
only one letter key. (You can substitute 
Assembly language or Pascal keywords for 
the Basic keywords.) 

I designed Fig. 1 so you can copy it onto a 
file reference card and keep it at your 
keyboard. The dashed lines associate 
keywords with letter keys. 

Design Specifications 

My Autokey program has the following 
features: It retains the original Uni-Key con- 
cept of using the shift key to generate key- 
words; it uses additional control keys on the 
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Model III by pushing shift, down arrow and a 
letter key. You can turn the routine off to 
return to the regular keyboard. A routine 
automatically sets the memory size, anoth- 
er executes the program as soon as it reads 
in the tape, and a third starts the computer 
with the all caps switch off rather than on 
as is usual. 

The program changes lowercase charac- 
ters to uppercase; its logic assigns key- 
words whenever you press an uppercase or 
control character. 

My program includes a routine which you 
can execute via System. This routine resets 
all Basic control pointers, allowing you to 
re-access a Basic program if you in- 
advertently type New or CLOAD when you 
mean CSAVE. 

Two keys to understanding this program 
are the functions of the keyboard device 
control block, and ASCII code. 

Device Control Block 

The computer often executes a ROM 
routine which looks at the keyboard to see if 
you have pressed a key. That is why the 
computer reacts so quickly when you do. At 
one point in this routine it looks at an ad- 
dress pointer in RAM for where to go next. 
This provides you with an opportunity to tell 
the computer where to go (see Fig. 2). By 
changing this address you will successfully 
intercept part of the computer's operating 
system (its brain); you can easily fool it into 
changing things around. 

As you intercept each character on its 
way from the keyboard to the Basic inter- 
preter, you can change some of them to suit 
your new purposes. 

ASCII Coding Structure 

The computer stores alphanumeric infor- 
mation in its memory in ASCII (American 
National Standard Code for Information In- 
terchange). 

In a TRS-80, the keyboard scan routine 
looks at a collection of wires between mem- 



ory addresses and the physical keyboard. 
Voltages change when a key has been 
pressed; the changes are then translated in- 
to the proper ASCII value and put into the A 
register. 

Changing Characters 

Look at the code outlined in the ASCII ta- 
bles in the Model III reference manual (Ap- 
pendix C in mine) and notice that all control 
characters (shift, down arrow, character) 
are grouped from code numbers 01 H to 
1 FH. Similarly, all uppercase characters are 
grouped from 41 H to 5AH, while the lower- 
case characters run from 61 H to 7AH. 
Notice that lowercase characters are coded 
exactly 20H higher than the corresponding 
uppercase letters. This symmetry proves 
very valuable. For example, you can change 
a lowercase b (62H) to uppercase by sub- 
tracting 20H. 

My program leaves the control 
characters alone and looks up keywords 
numbered 01 H to 1FH (the first 31). It sub- 
tracts 21 H from the codes for an uppercase 
letter; they continue the number sequence 
immediately after the control codes. Capi- 
tal A with a code of 41 H becomes 41 H- 
21 H, or 20H (next in the sequence above 
1FH). The program changes lowercase 
characters to uppercase by subtracting 
20H whenever you input one from the key- 
board. All other codes remain unchanged. 

Assigning Keywords 

I developed Fig. 1 when I assigned key- 
words to keys. I grouped the keywords near 
the key of the same letter so you can find 
them easily. You can easily change the se- 
quence or the words to whatever you want. 

After I developed the keyboard layout, I 
put words into sequence with ASCII codes 
so I could put them in the right order in the 
program. The numeric listing is shown in 
Fig. 3. You will find this useful if you want to 
change the words. I reserved several control 
codes because some control functions per- 



"A Basic keyword appears 

whenever he presses the shift key 

in combination with any other key." 



form their usual functions (Enter, back- 
space, and so on). Here also, you can by- 
pass codes if you like. 

Program Structure 

After I established the basic structure for 
the keywords I prepared a flowchart (see 
Fig. 4) to give a broad overview of the main 
program functions. 

To use the flowchart start at the top left 
and follow the arrows based on the an- 
swers you get at a diamond-shaped box. 

There are four separate modules. Module 
1 has an ORG of 41E2H, in System RAM. It 
changes an address pointer referred to 
(called) by a ROM routine just after it has 
loaded a System tape. It gives the program 
the Auto Start feature. 

Module 2 is used just once to set the 
pointers and flags and to change the ad- 
dress in the Keyboard Device Control Block 
(DCB) so the new routine will be used. Com- 
pletely automatic, it resets the address 
pointer changed in Module 1 so the com- 
puter operates normally if you load another 



System tape. 

Module 3, the main part of the program, 
determines which key you pressed and 
whether to take any special action. 

Module 4 is the stand-alone routine to 
restart a Basic program. 

The Program 

Program Listing 1 contains the Assem- 
bly language version of the program. It is 
set up to run in a 16K cassette-based sys- 
tem but, by changing the ORG at lines 320 
and 2860 and the memory size values in 
lines 410 and 430, you can run the program 
in any size memory. 

Program Listing 2 is a Basic language 
routine which POKEs the same program in- 
to memory and executes it. 

The program is written in the same se- 
quence as the flowchart in Fig. 4. Lines 
410-450 limit the amount of memory Basic 
will use so it does not destroy this program. 
(If you want to change this, set the value in 
line 410 to the highest address you want 
Basic to use minus 2. Set line 430 to the 
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PRICE BREAKTHRU 

BUll! 

IT'S A MIRACLE!! 



TRS-BO Mod I and III 
hardware* 

16K RAM upgrade S13.S0 

External Disk Drives 

Inc. p.s. a anclosura** 

40tk 1 side $195.00 

40tk 2 sides $295.00 

80tk 2 sides $425 00 

Signal extender cable 

for ext. drive $12 50 

2 drive expansion 

cable (Mod l or III) 

4 drive expansion 

cable (Mod I) 

Bara Drlvas— 

40tk 1 side 

40tk 2 sides 

Drive Service Manuals $25 00 

Single drive p.s. 

& enclosure $49 95 

Hard Disk (Wlnchsstsr) 

for Mod I, LNW— 

Includas DOSPLUS 4.0 



$20 00 



$25 00 



$180 00 
$245.00 



6 3 meg 
9.6 meg 
19 meg 
2 x 6 3 meg 
2 x 9 6 meg 
2x19 meg 
Hard Disk 6.3 



$164900 
$1849 00 
$244900 
$244900 
$2849.00 
$394900 
40tk 

51995 00 



floppy combination 

Percom Doubler— 

Data Separator— 

LNW products 

TRS-80 Mod III 

16K L III Basic $899.00 

16K upgrade $13.50 

48K — 1 disk $1349.00 

48K — 2 disk $1549.00 

2 sided disk 

upgrade $70 .00 ea 

VR R8232C— upgrada $70.00 
Direct Connect 300 baud 
modem upgrade $275.00 

Hard Disk for Mod III— 
6.3 meg $1599 00 

9 6 meg $1799 00 

19.0 meg $2399 00 

2 x 6.3 $2399.00 

2 x 9.6 $2799 00 

2 x 19.0 $3899.00 

Coming Soon — Intarnal 
Hard Disk for Mod III 
Floppy Disk III kits for 
Mod III Includs p.s. 

controller A cablas 
40tk— 1 side $440 00 

40tk-2 side $510 00 

2nd— 40tk 1 side $190 00 
2nd-40tk 2 side $250 00 

• "We use VR Data hardware 
upgrades exclusively 
They are the best around 1 

Printers — 

C.ltOh F-10 40CPS 

letter quality $1399.00 



$1699.00 

$200 00 
$225.00 

$4.50 ea 
$1300 00 

$47500 
$575.00 
$375.00 
$479.00 
$749.00 
$65 00 

$2495.00 

$2495.00 

$2895 00 

$229.00 



C.ltoh F-10 55CPS 
letter quality 
C.ltoh tractor tor 

F 10-40 
F 10-55 
Ribbons for above 
printers 
Sheet feeder 
C.ltoh Pro-writer 

parallel 

serial 
Okidata 80 

82A 

83A 
Okigraph 

NEC-7710 RS232 
55CPS 

NEC— 7730 paralle 
NEC — 7720 KSR 
Vertical Tractors 
BiDirectional Tractors 

$325.00 
Sheet Feeder $1175.00 

Twin Feeder $1595.00 

Smith Corona— TP1 pitch 
10/12 pitch — Serial/ 
parallel interface 

Super Deal $595.00 

Standard Cable $25 00 
Tabletop Printer stand — 
12- (holds up to 
50 lbs) $17.95 

Tabletop Printer stand — 
16" (holds up to 
50 lbs.) $24 95 

Dlskattas— 10 par box 
Verbatim- 
s'/,- SSDD 

5Vi" DSDD 
Maxell — 5'/4' 
Elephant by 
Leading Edge 
Disk head cleaners — 

VR Data (5 v.") 

Verbatim 5'/," or 8" 
5"< " plastic library case 
8' plastic library case 
Papar a Labels 
9Vi x 11 Fanfold — 
2700 ct 

14'/, x 11 Fanfold — 
2700 ct 

3'/2 x "r,, labels— 5M 
Modsms 
Hayes 

Smartmodem 

Micromodem II 

Micromodem 100 
Novstion 

Auto cat 

D Cat 

Cat 

4202B-1200 baud 

half duplex 

Apple Cat II 



$2395 
$39.95 
$34 95 

$22.95 

$1495 
$29 95 



$27 50 



$3500 
$1500 



$229.00 
$278.00 
$305 00 

$229.00 
$16500 
$155.00 

$475.00 
$339 00 



Lexicon 

Lex— II $124.00 

Monitors— 

BMC 12" Mean 
Green $89.00 

BMC 13" Composite 
Color $325.00 

Mod I /III software* 

DOSPLUS 3.4 Mod I $87.50 
DOSPLUS 3.4 Mod III $87.50 
LDOS 5.1 Mod I, III $117.50 
Micro Term (Bast yet) $75.00 
Super utility (Bast yat) $45.00 
Micro Soft— 

Adventure $25 00 

Fortran-80 $80.00 

AIDS. $80.00 

Basic Compiler $159.00 
TRS-80 Mumath $69.00 
Haydan Software— 
Sargon II $32.00 

Blackjack master $27 00 
Finplan $6900 

Big Five Software 
Super Nova 
Attach Force 
Cosmic Fighter 
Meteor Mission II 



$17.00 
$1700 
$17.00 
$17 00 

Defense Command $17 00 
Galaxy Invasion $17.00 
Robot Attack $17 00 

Stellar Escort $17.00 

Broderbund— 

Galactic Trilogy $35.00 

Inc— Galactic Empire, 
Trader. Revolution- 
available 
separately 

$17.00 ea 
Acorn Software — 
Gammon Challenger 

$18.00 
Pigskin $17.00 

Tenpins $18.00 

Invaders $18.00 

Quad $18.00 

Basketball $18.00 

Duel-N-Droids $18.00 

Astroball $17.00 

Spacerocks $17.00 

Everest Explorer $17 00 
Elec. Handicapper 
Basketball $80.00 

•An software listed is on disk- 
Cassettes may be available, 
please Inquire 

Books— 

TRS80 Disk & other 

mysteries $15.95 

Microsoft Basic 

Decoded $20.00 

The Custom TRS-80 $20 00 

Microsoft Basic 

faster & better $20.00 

The Custom Apple $17.00 



Terms— COD or Prepaid Only 

F.O.B. Shipping Point 

(215)461-5437 

Prices Subject to Change Without Notice. 

TRS-80 Trademark of Tandy Corp. 



DISK SUPPLY CO, 

Suite 439 111 S. Olive St. 
Media, PA 19063 
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value in line 410 minus the amount of string 
space you want to set aside. It is currently 
set at 32H to give the usual 50 decimal 
bytes for string storage. Clearxxx in Basic 
will also work as usual.) 

Lines 790-870 test for the control B tog- 
gle, which returns normal keyboard opera- 
tion until you type control B again. 

Lines 990-1300 determine whether the 
key pressed (as returned in register A) is a 
control, lowercase or uppercase character. 
I found this particularly interesting as I had 
not used the carry flag feature of CP (Com- 
pare) before. A CP is really a subtract which 
does not change the registers: If the A 
register is smaller than the number com- 
pared to it, a borrow sets the carry flag on. 
Then Z means register A was equal to the 
value compared to; NZ means register A 
was not equal to the value; C means the 
value in A was less than the value compared 
to; and NC means the value in A was equal 
or greater than that compared to. 

Lines 1340-1630, fundamentally the 
same as Uni-Key, skip through the list of 
keywords to get to the right one. They count 
the number of 00 bytes from the start of the 
words table in line 1730. It is very important 
that each word (or phrase) be followed by a 
00. Several commands include an Enter so 
one keystroke also executes the command. 
Examples of these are Run, Auto, and so on. 
They are shown on the reference chart (Fig. 
1) with the symbol <E>. The control J and N 
keys do not have anything assigned and are 
available for your additions. If you add 
words, make sure the end of the last letter in 
line 2820 does not flow over the start of the 
Restart routine in line 2870, as only 10 bytes 
are left. If you need more room, change the 
ORG in line 320 and the memory protect 
values. 

Using the Program 

If you use the Basic version just CLOAD it 
right after you turn the computer on and run 
it immediately. Enter NEW to remove the 
program and it will work as described be- 
low. Watch the auto memory size setting in 
line 110: If you need a different value, set 
the memory size when you turn on the com- 
puter and delete line 110 or change the val- 
ues in line 110 before running the program. 

If you use the Assembly language version 
just start your object code loading by En- 
tering System and the name you gave it 
(mine is KEY) and the program will do the 
rest. It returns you to the Basic Ready 
prompt, with Autokey waiting to ease your 
program typing. 

Each key functions as indicated in Fig. 1. 
For example, if you push the G key you will 
get a capital G. If you push shift G the word 
GOTO appears. If you push the shift key, the 
down arrow key and the G key the word 
GOSUB will appear. All other keys work 

Scanned by Ira Goldklang - www.trs-80.com 





ASCII coda 




Key 


ASCII code 




ASCII code 




Kay pressed 


relumad in 


Changed 


Pressed 


returned in Changed 


Key 


returned In Changed 


shift down arrow 


A register 


purpose 


Shin plus 


A registe 


purpose 


pressed 


A register purpose 


A 


91 


Break 


A 


41 


ASQ 


a 


61 




A 


B 


92 


Toggle 


B 


42 


VAU 


D 


62 




B 


C 


93 


CSAVE" 


C 


43 


CHR$( 


C 


63 




C 


D 


94 


Set 


D 


44 


Data 


d 


64 




D 


E 


95 


Read 


E 


45 


Reset 


e 


65 




E 


F 


96 


FRE(AS) 


F 


46 


For 


I 


66 




F 


G 


97 


GOSUB 


G 


47 


GOTO 


9 


67 




G 


H 


98 


Reser 


H 


48 


Return 


h 


68 




H 


1 


99 


INKEYS 


I 


49 


Input 


i 


69 




1 


J 


9A 


avail 


J 


4A 


) 


I 


6A 




J 


K 


9B 


LLIST 


K 


4B 


LEN( 


k 


6B 




K 


L 


9C 


List 


L 


4C 


LPRINT 


I 


6C 




L 


M 


9D 


Reser 


M 


4D 


MIDSt 


m 


6D 




M 


N 


9E 


avail 


N 


4E 


Next 


r 


6E 




N 





9F 


POKE 


O 


4F 


PEEK< 


C 


6f 







P 


10 


Point 


P 


59 


PRINT© 


P 


70 




P 


Q 


11 


LEFT* 


Q 


5i 


RIGHTS 


Q 


71 




Q 


H 


12 


Run 


R 


52 


RND< 


r 


72 




R 


s 


13 


SQR( 


S 


53 


STRINGS 


s 


73 




S 


T 


14 


TAB< 


T 


54 


Then 


t 


74 




T 


U 


15 


USR(») 


U 


55 


Using 


u 


75 




U 


V 


16 


CLS 


V 


56 


VARPTR( 


V 


76 




V 


w 


17 


Edit 


w 


57 


Else 


w 


77 




w 


X 


18 


Reser 


X 


58 


CLOAD 


X 


78 




X 


Y 


19 


TROFF 


Y 


59 


TRON 


y 


79 




Y 


z 


1A 


Auto 


z 


5A 


User 
String 


z 


7A 




z 


t 


1B 


Reser 




Subtree 








Subtract 




, 


1C 


'32755 




21 H trom 






20 H from 




9 


10 
IE 


avail 
System 




each to 
fit after 








each to 
change to 




/ 


1F 


? MEM 












uppercase 










Figure 3 



UP AUTO START 



MODULI I- 
HAPPENS Only ONCE 
IMMEDIATELY ON TAPE 
BEING LOADED 



RESET AUTO START 



"OTECT MEMORY 



OBTAIN OlO KSYBOAR0 ORIVER 
A0ORESS AND STORE in 
NEW ROUTINE 



SET "ALL CAPS' FLAG OrF 



MODULI t ■ KEYWORD PROGRAM 
HAPPENS EACH TIME 
COMPUTER LOOKS FOR 
CHARACTER FROM 
KEYBOARD 



""I 



CURRENTLY 
GENERATING 

« KE'OOKD 



TURNING 
ROUTINE 
ON OR 
OTF 




(' RETURN 'N 
rOSTSTEM/ 



\TO SYSTIM^ 




FIND CORRECT 
KEYWORDS SASEO 
ON ASCII VALUE 
IN REGISTER A 




PUT NEXT CHARACTER 



f RETURN 
UO SYSTEM 



MODULI 4 

ROUTINE TU RESTART BASIC - 

TOTALLY STANDALONE 




Figure 4 




■**s 



SMALL 
T, L M E AD^S 



SMALL TIME USER'S GROUP 

BULLETIN BOARD 

- S39.95 — 



442 



• Support atjout 200 USERS. IDEAL lor LOCAL CLUBS 

• General. Club, and Confidential PASSWORD Prot 

• EASY, USER ORIENTED complete UP'DOWN loading 
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STARFIGHTER 



BY SPARKY STARKS 

Creative Computing says, "The 
game is great — nothing less than ex- 
cellent." 

STARFIGHTER is the finest space 
battle simulation ever written for the 
TRS-80. and that's no idle boast. 80-U.S. 
Journal says that STARFIGHTER ". . .Is 
like no other game ever seen." BYTE 
magazine reports that the game ". . .of- 
fers excitement and excellent use of 
TRS-80 graphics and sound." STAR- 
FIGHTER'S Arcade Action Graphlcs(tm) 
and sounds are enjoyably combined to 
produce truly mind-challenging game 
situations. 

The STARFIGHTER package includes two cassettes (with separate 
Main Mission and New Pilot Training Simulator tapes), or one self- 
loading disk. Also Included is an extreme ly detailed 32-page instruct ion 
manual. 
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LASER BALL 



BY NEIL MATSON AND MATTHEW McMAHON 

"This is the one I've been waiting for . . . 
an Incredible game in every sense of the 
word!" Will Hathaway, Arcader 
"Superb graphics, great sounds, and, best 
of all, the game really taxes your playing 
skills ..." Pat Henderson, Arcader 

Stand back, arcaders, it's LASER 
BALL — a white-hot sound and 
graphics extravaganza that'll practically 
fuse the circuits In your TRS-80! Your 
LASER BALL must race through a 
twisting maze avoiding or attacking 
killer disruptoids, depending on your 
energy status. Only the fast will survive 
— can you? 

LASER BALL doesn't miss a trick with Its crisp Arcade Action 
Graphics(tm), high score save. 24 separate playing levels, Joystick 
compatibility and more. Brand new from Adventure International! 



tt&ttEO 



Model; V and 3 
ailable $24 95 







LUNAR LANDER 



BY MIKE WALL ANO JACK MONCRIEF 

"Certainly one of the most realistic 

and imaginative simulations tor the 

TRS-80. . . " 80-U.S. Journal 

The tension Is nearly unbearable as 

your Lunar Excursion Module plummets 

towards a craggy lunar surface that's 

rife with jagged peaks and impossibly 

deep fissures. Only a firm hand on the 

controls and a steady eye on the 

monitor screen can spell the difference 

between a successful landing and an 

explosive death. 

Your Lunar Lander comes fully 

equipped with everything that you'll need to challenge this dangerous 

landing site, including sound, running high score, two player option and 

breathtaking Arcade Action Graphics(tm). 




SPACE INTRUDERS 

BY DOUG. KENNEDY 

"The program Is fantastic ... the 
graphics are excellent." 80 US. Journal 
Those crafty Invaders are back with 
a vengeance and Adventure Interna- 
tional has em! SPACE INTRUDERS has 
been praised by major microcomputing 
publications from 80-U.S. to Creative 
Computing as "fantastic." "excellent." 
"top of the line," and, well, you get the 
Idea! SPACE INTRUDERS faithfully 
reproduces the hit Deluxe arcade 
machine In all of Its frustratingly en- 
joyable glory. An absolute must for any 
serious game collection! 
SPACE INTRUDERS comes ready 
for battle with two player option, 
sounds, joystick compatibility and Ar- 
cade Action GraphlC3(tm) that'll knock 
your socks off. 




0.10-0094 $24.95 

32K Disk Model 1 and 3 

012-0094 $24.95 
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similarly. 

To return to the normal keyboard push 
shift, down arrow, and B. You can now type 
lower and uppercase letters or use the stan- 
dard shift feature to lock in all caps. 
Pushing shift, down arrow, B again will 
restore the keyword mode. If you used shift 
you must toggle it off. 

User Definable String 

You can program an alphanumeric string 
of your choice (up to 68 characters) at any 
time and insert it into your program. 

To use this feature type in a line jump- 



"This 13-byte routine has 
saved me hundreds of hours. . . " 



ing to the first line in your program (for ex- 
ample, GOT0 10). Type in a line 1 setting a 
variable named Z$ equal to your desired 
string (for example, 1 Z$ = "This Is My 
Desired String"). Push shift Z; a prepro- 
grammed line 2 will appear. Enter RUN1. 
From now on , whenever you push sh i ft Z, your 
selected string will appear in your program. 
If you leave this little routine in place until 
you are finished you can change your string 
at any time by putting a new string in line 1 
Z$ = ". . ." and typing RUN1. Before saving 
the final version of your program, type 
Delete 0-2 and you will not have these as a 



permanent appendage. (Of course, you can- 
not use lines 0-2 or Z$ in your own pro- 
grams.) 

Restore Basic Pointers Routine 

This 13-byte routine has saved me hun- 
dreds of hours retyping because I typed 
CLOAD when I meant CSAVE, or when new 
USR routines locked up the computer. 

When you issue the CLOAD command 
the computer first resets all the Basic 
pointers, ready to put the new program in 
the right memory locations. But unless you 
actually read in some new code, the old pro- 
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1* 




JULY 1981 * 
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. * 
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Program to Produce BASIC KEYWORDS * 
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t* 


With a Single Keystroke-TRS80-MODIII * 
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t* 






* 






00180 


1* 




Don Rigg * 






00190 


t* 




17 Bittersweet Bay * 






00200 


t* 




Winnipeg, Manitoba, Canada * 






00210 


. * 




Tel (204)253-9230 * 






00220 
00230 
00240 


, * 






* 






' 












00250 


** * 


Set 


Up Auto Start *** 








00260 


; 








41E2 




00270 




ORG 


41E2H ; SYSTEM 


Jump Address 


41E2 


C3E07D 


00280 




JP 


START ;AUTOKEY Initialization Rtn. 






00290 


• 












00300 


** * 


Initialization Routines 


*** 






00310 


; 








7DE0 




00320 
00330 




ORG 


7DE0H 








00340 


/ 


RESET AUTO START 








00350 


; 








7DE0 


3EC9 


00360 


START 


LD 


A,0C9H 


;RET Code 


7DE2 


32E241 


00370 
00380 


; 


LD 


(41E2H) ,A 


;To SYSTEM RAM 






00390 


; 


SET 


MEMORY PROTECT 








00400 


1 








7DE5 


21DE7D 


00410 




LD 


HL,7DDEH 


;7DE0H-2 


7DE8 


22B140 


00420 




LD 


(40B1H) ,HL 


;Put in 'END OF BASIC Ptr 


7DEB 


21AC7D 


00430 




LD 


HL,7DACH 


;Mem Size-32H (50D) 


7DEE 


22A040 


00440 




LD 


(40A0H) ,HL 


;Put in 'START OF STRING SPA 


CE' Ptr 












7DF1 


CD721B 


00450 




CALL 1B72H 


.•Reset ALL Pointers 






00460 


; 












00470 


; 


REPLACE KEYBOARD DRIVER 


ADDRESS 






00480 


; 








7DF4 

ss 

7DF7 


2A1640 


00490 




LD 


HL,(4016H) 


; Obtain OLD KBD Driver Add re 


220F7E 


00500 




LD 


(GETCHR+1) ,HL 


;Put in CALL Statement 


7DFA 


21087E 


00510 




LD 


HL,NEWDVR 


;Put New Driver 


7DFD 


221640 


00520 
00530 
00540 
00550 


; 


LD 
SET 


(4016H) ,HL 
ALL CAPS OFF 


;Address in KBD DCB 


7E00 


3E00 


00560 




LD 


A,0H 


;0 - Off 


7E02 


321940 


00570 
00580 


; 


LD 


(4019H) ,A 


;A11 CAPS Flag 






00590 


i 


RETURN TO BASIC READY PROMPT 






00600 


• 








7E05 


C3191A 


00610 
00620 


? 


JP 


1A19H 








00630 


; *** 


Nai 


i AUTOKEY Program 


**** 






00640 


; 












00650 


; 


ENTRY FROM ROM CALL TO 


SCAN KEYBOARD 


l 
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Listing 


1 continued 


00660 ; 








7E08 3A7E7E 


00670 NEWDVR 


LD 


A,(SUBFLG) /If flag X in middle 




7E0B B7 


00680 


OR 


A j of a KEYWORD 




7E0C 205E 


00690 
00700 ; 


JR 


NZ,CONTI jSubstitution-CONTINUE 






00710 ; 


Get Character 






00720 ; 








7E0E CD0000 


00730 GETCHR 


CALL 


$-$ ;Oriqinal Keyboard Scan Rtn. 




7E11 B7 


00740 


OR 


A ;Character Returned in A 




7E12 C8 


00750 
00760 ; 


RET 


Z ;No Key Pressed-Process Ordinarily 






00770 ; 


TEST 


FOR SWITCH CHANGE 






007B0 ; 








7E13 F5 


00790 


PUSH 


AF ;Save Kbd Char 




7E14 PE02 


00800 


CP 


02H ; CNTRL B Toggle 




7E16 200C 


00810 


JR 


NZ, SWTST j Don't Change 




7E18 3A7D7E 


00820 


LD 


A,(ONOFF) /Get Status Switch 




7E1B C680 


00830 


ADD 


A r 80H ;Results in 00 or 80 




7E1D 327D7E 


00840 


LD 


(ONOFF) r A ;Update 




7E20 Fl 


00850 


POP 


AF /Restore Original Character 




7E21 3E00 


00860 


LD 


A,0H ; Change to NULL»No Key Pressed 




7E23 C9 


00870 
00880 ; 


RET 


/Back to ROM Routine 






00890 ; 


TEST 


IF RTN ON or OFF 






00900 ; 








7E24 3A7D7E 


00910 SWTST 


LD 


A, (ONOFF) ;Get Status 




7E27 FE00 


00920 


CP 


0H ;Rtn ON 




7E29 2802 


00930 


JR 


Z, CTRTST /Continue This Routine 




7E2B PI 


00940 


POP 


AF ;Get Original Character 




7E2C C9 


00950 
00960 ; 


RET 


; Routine OFF-Process Ordinarily 






00970 ; 


TEST 


FOR CONTROL CHAR 






00980 ; 








7E2D Fl 


00990 CTRTST 


POP 


AF ;Get Character Pressed 




7E2E FE20 


01000 


CP 


20H ;Key < Spacebar 




7E30 3802 


01010 


JR 


C f CNTRL ;Hust be CONTROL CHAR 




7E32 1811 


01020 


JR 


LWRTST /Not CONTROL Test for Lower Case 




7E34 FE08 


01030 CNTRL 


CP 


8H ;Skip Selected Characters-Backspace 




7E36 C8 


01040 


RET 


Z ; Process Ordinarily 




7E37 FE01 


01050 


CP 


1H ; Break 




7E39 C8 


01060 


RET 


Z ; Process Ordinarily 




7E3A FE0D 


01070 


CP 


0DH ; Enter 




7E3C CB 


01080 


RET 


Z .-Process Ordinarily 




7E3D FE1B 


01090 


CP 


1BH ;Shifted UP Arrow 




7E3F C8 


01100 


RET 


Z ;Process Ordinarily 




7E40 FE18 


01110 


CP 


18H ^Shifted LEFT Arrow 




7E42 CB 


01120 


RET 


Z /Process Ordinarily 




7E43 1812 


01130 


JR 


FINDST /Find String for Remaining CONTROL C 




hars. 


01140 ; 










01150 ; 


TEST 


FOR lower case 






01160 ; 








7E45 FE61 


01170 LWRTST 


CP 


61H /-a 




7E47 3806 


01180 


JR 


C, UPTST /Below Lower Case-See If UPPER Case 




7E49 FE7B 


01190 


CP 


7BH />z 




7E4B D0 


01200 


RET 


NC /TOO High 




7E4C D620 


01210 


SUB 


20H /Must be a Lower Case 




7E4E C9 


01220 
01230 ; 


RET 


/Change & Process as UPPER Case 






01240 / 


TEST 


FOR UPPER CASE 






01250 ; 








7E4F FE41 


01260 UPTST 


CP 


41H /-A 




7E51 D8 


01270 


RET 


C /Too Low-Between Spacebar t @ 




7E52 FE5B 


01280 


CP 


5BH ;>Z 




7E54 D0 


01290 


RET 


NC /Too High Between Up Arrow t - 




7E55 D621 


01300 
01310 ; 


SUB 


21H /Follow after Controls 






01320 / 


FIND 


LOCATION IN TABLE 






01330 ; 








7E57 E5 


01340 FINDST 


PUSH 


HL /Save Original 




7E58 21817E 


01350 


LD 


HL, WORDS /Start of KEYWORD Table 




7E5B 47 


01360 


LD 


B,A /Save Number of KEYWORDS to Skip 




7E5C 7E 


01370 NOTDN 


LD 


A,(HL) /Look § BYTE in Table 




7E5D 23 


01380 


INC 


HL /Get Ready for Next 




7E5E B7 


01390 


OR 


A 




7E5F 20FB 


01400 


JR 


NZ, NOTDN /Not End of KEYWORD 




7E61 10F9 


01410 
01420 ; 


DJNZ 


NOTDN /Count Number of KEYWORDS 






01430 ; 


SEARCH FINISHED - STORE LOCATION 






01440 ; 








7E63 227F7E 


01450 


LD 


(STRPTR) ,HL /Save Pointer to String Wanted 




7E66 3E01 


01460 


LD 


A r l /Set Flag to 




7E68 327E7E 


01470 


LD 


(SUBFLG),A /Indicate Substitution 




7E6B El 


01480 
01490 ; 


POP 


HL /Restore Original 



01500 



ONE CHARACTER TO SCREEN 
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V? 



1 




• 



More powerful programming tools 
for theTRS 80. Now on disk. 



Better results. Microsoft's Level III BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities. 

• Assembly directly into memory. No need to save object 
code then reload for execution. 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

• Conditional assembly that allows you to generate more 
than one version of a program. 

• Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex, deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS-80. 

• Advanced graphics. Develop charts, graphs, even anima 
tion in Level III BASIC. Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 

• MENU. One command that allows you to construct an 
entire menu. 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER, 
FIND and CHANGE. 

• DUMP command that makes debugging easier. 

• Time-limit response. New INPUT # LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering, 26 
user-definable single stroke instructions, and more. 

Disk or cassette. Disk versions of Level ill and Editor/ 
Assembler-Plus are brand new. Cassette versions are also 
available with many of the same capabilities. 
Talk to your Microsoft" dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80: Level III BASIC and Editor/ Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS 80 is a trademark of Radio Shack, a division of Tandy Corporation. 
Microsoft is a registered trademark of Microsoft Corporation. 

BETTER TOOLS FOR MICROCOMPUTERS 

MICROSOFT. 

MICROSOFT CORPORATION 
10700 NORTHUP WAY 
BELLEVUE. WASHINGTON 98004 ^282 
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01510 ; 


ALSO BRANCH FROM ENTRY 






01520 / 


POINT 


IF CONTINUING 






01530 ; 






7E6C 


E5 


01540 CONTI 


PUSH 


HL /Save Original 


7E6D 


2A7F7E 


01550 


LD 


HL, (STRPTR) /Get Addr of Char to Process 


7E70 


7E 


01560 


LD 


A,(HL) /Put in 'A' 


7E71 


B7 


01570 


OR 


A ;See if Zero 


7E72 


2003 


01580 


JR 


NZ,HORE ; Continue if not Last 


7E74 


327E7E 


01590 


LD 


(SUBFLG) , A ;Set Flag to Stop Process 


7E77 


23 


01600 MORE 


INC 


HL i Point to Next Character 


7E78 


227F7E 


01610 


LD 


(STRPTR) ,HL i Save Address 


7E7B 


El 


01620 


POP 


HL ;Restore Original 


7E7C 


C9 


01630 
01640 ; 


RET 


; Output Character 






01650 / 


SWITCHES/FLAGS 






01660 ; 






7E7D 

1 


00 


01670 ONOFF 


DEFB 


/FLAG-If Routine ON (00) or OFF (80H 


7E7E 


00 


01680 SUBFLG 


DEFB 


;FLAG-I£ Currently Substituting (00) 


or Not (01) 








7E7F 


0000 


01690 STRPTR 
01700 ; 


DEFW 


/Address of Char TO BE Substituted 






01710 ; 


REPLACEMENT WORDS 






01720 ; 






7E81 


0000 


01730 WORDS 


DEFW 


00 ;Skip Null(00H) , CONTROL A <Break> (0 


1H), 










7E83 


00 


01740 


DEFB 


;and CONTROL B <On/Off Toggle> (02H) 


7E84 


43 


01750 


DEFM 


'CSAVE"' 


7E8A 


00 


01760 


DEFB 





7E8B 


53 


01770 


DEFM 


•SET( ' 


7E8F 


00 


017 80 


DEFB 





7E90 


52 


01790 


DEFM 


'READ' 


7E94 


00 


01800 


DEFB 





7E95 


3F 


01810 


DEFM 


•?FRE(A$) ' 


7E9D 


0D00 


01820 


DEFW 


000DH /Include ENTER Code 


7E9P 


47 


01830 


DEFM 


•GOSUB' 


7EA4 


00 


01840 


DEFB 





7EA5 


00 


01850 


DEFB 


/Skip Backspace <0BH> 


7EA6 


49 


01860 


DEFM 


•INKEYS' 


7EAC 


00 


01870 


DEFB 









01880 ; *** 


CONTROL 


J Available 


7EAD 


00 


01890 


DEFB 





7EAE 


4C 


01900 


DEFM 


'LLIST' 


7EB3 


00 


01910 


DEFB 





7EB4 


4C 


01920 


DEFM 


•LIST 1 


7EB8 


00 


01930 


DEFB 





7EB9 


00 


01940 


DEFB 


/Skip Enter <0DH> 






01950 /*** CONTROL 


N Available 


7EBA 


00 


01960 


DEFB 





7EBB 


50 


01970 


DEFM 


•POKE' 


7 EBP 


00 


01980 


DEFB 





7EC0 


50 


01990 


DEFM 


1 POINT (' 


7EC6 


00 


02000 


DEFB 





7EC7 


4C 


02010 


DEFM 


' LEFT$ ( ' 


7ECD 


00 


02020 


DEFB 





7ECE 


52 


02030 


DEFM 


'RUN' 


7ED1 


0D00 


02040 


DEFW 


000DH 


7ED3 


53 


02050 


DEFM 


■SQRC 


7ED7 


00 


02060 


DEFB 





7ED8 


54 


02070 


DEFM 


•TAB( ' 


7EDC 


00 


02080 


DEFB 





7EDD 


55 


02090 


DEFM 


'USR(0) ' 


7EE3 


00 


02100 


DEFB 





7EE4 


43 


02110 


DEFM 


•CLS' 


7EE7 


00 


02120 


DEFB 





7EE8 


45 


02130 


DEFM 


•EDIT' 


7EEC 


00 


02140 


DEFB 





7EED 


00 


02150 


DEFB 


/Skip Shift LEFT Arrow <18H> 


7EEE 


54 


02160 


DEFM 


•TROFF' 


7EF3 


00 


02170 


DEFB 





7EF4 


41 


02180 


DEFM 


'AUTO' 


7EF8 


0D00 


02190 


DEFW 


000DH 


7EFA 


00 


02200 


DEFB 


/Skip Shift UP Arrow <1BH> 


7EFB 


2F 


02210 


DEFM 


'/32755 1 /Entry for Restore BASIC Routine 


7F01 


00 


02220 


DEFB 









02230 /*** CONTROL 


9 Available 


7F02 


00 


02240 


DEFB 





7F03 


53 


02250 


DEFM 


' SYSTEM ■ 


7F09 


00 


02260 


DEFB 





7P0A 


3F 


02270 


DEFM 


1 ?MEM ■ 


7F0E 


0D00 


02280 


DEFW 


000DH 


7F10 


41 


02290 


DEFM 


'ASCf 


7F14 


00 


02300 


DEFB 





7F15 


56 


02310 


DEFM 


•VAL(' 


7F19 


00 


02320 


DEFB 





7P1A 


43 


02330 


DEFM 


•CHR$( ' 

Listing 7 continues 
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■ 5600 ■■»■*■»■■■ 




Devil's lower unaaa up Man 3600 ■■ 



,■«• 



DEVIL'S TOWERS 
(BY JOHNOLSEN JR.) 



U...4iiJiiMi.Ui.Ui. 



ft ft ft 



Aim: 1 2 3 4 Drill 



(SEE YOUR LOCAL DEALER) 
• • OR ORDER FROM • • 

FANTASTIC SOFTWARE -36 

P.O. Box 27734 

Las Vegas, Nevada 89126 

(702)362-1457 

MASTER CHARGE VISA 



PRICE "" 16K 1APE S15.95 

32K DISK $19.95 
MODE I & III 

'MACHING LANGUAGE 'GRAPHICS 

'ARCADE STYLE GAME 'ALPHA & TRtSSTICK COMPATIBLE 

SOUND MO HIGH SCORE SAVE 



[££fi![^provemen, ( R a , io) 
INT 



^^^l^^K Tab" 
Operation 



••&©* 



££!£f_^f9raoation(B y ,e S) 



#.«2 







igp* 



■■■'■ '■'»*— ^ 



© 

© OnW 



® ^»* 



van 



SP e 

ratio s 

expe c 




88^ 






treats 



KF&ZS+ 



g" e ""Kit* 

fed res" 1 



S99.95 

* S2 Shipping 
CA add 6% 



****** 



|fP*#^'^ 



s 




I (f) Correct BASIC programs (no dynamic 
renaming, no out-of- range arguments) 
compile without modification. 

You owe it to your programs. 




Allen Gelder Software 

(415)387-3131 

Box 11721 San Francisco CA 94101 



•136 



CniT EDIT is to your line-editor as disk is to tape, lets you work and $40 
K1 " play in one more dimension. 
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gram is still intact— you just cannot get 
at it. 

I keep this routine in protected high 
memory; putting it on the end of Autokey 
has worked out very well. I incorporated the 
system jump address into Autokey making 
it quite easy to run it. 

When you want to use it put the Autokey 
program in keyword mode. Press shift, 
down arrow, period and System will appear. 
Press Enter and the System prompt *? will 



appear. Press shift, down arrow, comma 
and the routine's entry address in decimal 
will appear (Z32755). Press Enter. The 
routine will execute and return you to the 
Basic Ready prompt ready to run, list, or 
CSAVE your program. Then you can con- 
tinue as if nothing had happened. Remem- 
ber, do not turn off the computer, or all 
is lost. (J. Kovacic developed the code for 
this routine; it was published in Interface 
Age some time ago.) 



"/ keep this routine in 
protected high memory." 

You can have your own machine lan- 
guage copy of this program by assembling 
the source code listing. You can also enter 
the hex instructions on the left of the listing 
with a monitor. (The Z-Bug program in the 
January 1981 issue of 80 Microcomputing, 
one of the better ones around, works well on 
the Model III.) You can also use the Basic 
program listed, or, if all this seems too 
much I will give you a free high baud copy of 
source and object code. Just send me a 



Listing 1 continued 



7F1F 

7F20 

7P24 

7F25 

7F2B 

7F2C 

7F2F 

7F30 

7F34 

7F35 

7F3B 

7F3C 

7F42 

7F43 

7F44 

7F45 

7F49 

7F4A 

7F50 

7F51 

7F56 

7F57 

7F5B 

7F5C 

7F61 

7F62 

7F68 

7F69 

7F70 

7F71 

7F75 

7F76 

7F7E 

7F7F 

7P83 

7F84 

7F89 

7P8A 

7F91 

7F92 

7F96 

7F97 

7F9C 

7F9D 

7FA1 

7PA2 

7FBE 

7FD0 

7FE7 



00 
44 

00 

52 

00 

46 

00 

47 

00 

52 

00 

49 

00 

29 

00 

4C 

00 

4C 

00 

40 

00 

4E 

00 

50 

00 

50 

00 

52 

00 

52 

00 

53 

00 

54 

00 

55 

00 

56 

00 

45 

00 

43 

00 

54 

00 

32 

2C 

3A 

0D00 



7FF3 

7FF3 2AA440 
Area 
7FF6 74 
PTR 



02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

027 80 

02790 

02800 

02810 

02820 

02830 } 

02840 i*** 

02850 ; 

02860 

02870 

02880 



DEFB 

DEFN 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFB 

DEFM 

DEFM 

DEFM 

DEFW 





'DATA' 



• RESET ( ' 



•FOR' 

•GOTO' 


' RETURN ' 







INPUT" 









' LEN { ' 



'LPRINT' 



'MID$(' 



•NEXT' 



*PEEK( ' 



■ PRINTS' 



•RIGHT$(' 



•RND( ' 



1 STRING? (' 



'THEN* 



■USING' 



'VARPTR( ' 



' ELSE ' 



•CLOAD' 



•TRON' 



'2F0RI-lTOLEN(Z$) tPOKEI+32673 ' 

',ASC(MID$(Z$,I,1)) ' 

' :NEXTtPOKEI+32673,0:END' 

000DH ;End of Last Substitution String 



ROUTINE TO RESTART BASIC 



ORG 
LD 



LD 



7FP3H ;32755D 

HL,(40A4H) /Find Start of Text Storage 



(HL),B 



; Put Something Non-zero into 



7FF7 CDP81A 


02890 


CALL 


1AF8H 


; Adjust All PTRS 


7FFA CD591B 


02900 


CALL 


1B59H 


>Pix(40F9H) , (40FAH) , perform 


CLEAR 










7PPD C3191A 


02910 


JP 


1A19H 


;To READY Prompt 


0000 


02920 


END 






00000 TOTAL 


ERRORS 
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• Epson > 
Giveaway 



%. 



Epson MX70/80 Cartridges 

CCOOEACH 

^^^ t^^F Min. 3 of same color 

Reloads $2.50 each Min. 12 
$30.00 a Doz. of Same Color 

Cartridges and Reloads Available 
In Black. Red. Green, Blue, Brown 

flH systems 

35 Cherry Court. East Northport. NY. 1 1 731 

N Y S Residents Add Tin Add \7 00 Shipping a Handling 

Prices Subject to Change 

Allow Clewing Time lor Personil Checks 

Money Orders « Certilied Checks shipped same diy 



COMPUTER REPAIRS 
CONSULTATIONS 




E & G UMLOR ENTERPRISES 

RFD#l,Box48A 
FITZWILLIAM, NH 03447 

Ottering Saies 

COMPUTER HARDWARE and PERIPHERALS 

also 

REPAIR SERVICE-TAPE DUPLICATION 

BASIC PROGRAM MODIFICATION 

APPLICATION SOFTWARE WRITTEN 

For Further Information Call: 

(603) 586-3142 ^ 401 



O Dysan 

^CORPORATION 



Sotvtr your disc probienia. buy 100% surface 
Mated Dyaan iWm« All ordoi ahlppnl 
from slock, wttun 24 hour* Call n.U FRfcl 
rSOOl 235-4137 fot price* and bifarmaOon 
Vlaa and Maater Card accepted 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 (InCal call 
(8051543-1037) 



-207 



"Now you can type in 

all those super 80 Micro programs 

in half the time!" 



tape with one of your favorite programs on 
it and I will return it with Autokey. (Don't 
forget some instructions!) 

Modifications 

As with any program, just when you fin- 
ish, you think of many things to add and 
change. I am planning to change the check 
for 00H bytes at the end of each keyword to 
check for a high order bit in the last charac- 
ter of the keyword instead. I'll use the space 
taken up by the zeroes to add Auto Edit 
from the February 1981 issue of 80 Micro- 
computing. I would be very happy to hear 



from you if you enhance this program— just 
drop me a line. 

I sequenced the initialization code at the 
beginning of the program to make it easy to 
restart if you reset the computer and end up 
back at the CASS? prompt. Push Enter 
twice, Enter System, then /32224, and it 
will start up again. 

You can also set another protected mem- 
ory size in answer to the memory size ques- 
tion and retain it by entering System and 
/32244 to skip the auto memory size routine. 

Now you can type in all those super 80 Mi- 
crocomputing programs in half the time! ■ 



Program Listing 2 



** 
** 

** 
** 

** 



AUTO-KEY 

Don Rigg 
July, 1981 



** 
*• 
** 
** 

*» 



10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

60 REM 

70 REM *******«*******•••*•»****» 

80 CLS:PRINT§524,CHR$( 23) "AUTOKEY NOW LOADING" 

90 REM *»« Protect Memory From 32224 (7DE0H) On *** 

100 POKE16561, 222: POKE16562, 125: CLEAR 50 

110 DEFINT B:DEFDBL C 

120 REM *** Read AUTOKEY Object Code *** 

130 FOR A% = 32224 TO 32387: REM 7DE0H TO 7E83H 

140 READ B 

150 POKE A%,B 

160 C-C+B 

170 NEXT 

180 IF C <> 17956 THEN PRINT "Error in Data Stmts 610 to 710": 

END 

190 REM 

200 C=0 

210 FOR A - 32755 TO 32767: 
220 READ B 
230 POKE A,B 
240 C-C+B 
250 NEXT 

260 IF C <> 1432 THEN PRINT "Error in Data Stmt 730":END 
270 REM *** Read KEYWORDS *** 
280 C=0 
290 FOR A% - 32388 TO 32754: 



*** Read RESTORE BASIC Object Code 



REM 7FF3H TO 7FFFH 



REM 7E84H TO 7FF2H 



300 


READ B$ 






310 


B = ASC(BS) 






320 


IF B = 38 THEN 


B 


- 13: 


330 


IF B - 48 THEN 


B 


■ 0: 


340 


IF B = 39 THEN 


B 


- 34: 


350 


IF B = 33 THEN 


B 


■ 48: 


360 


POKE A%,B 






370 


C=C+B 







REM Change • to ENTER 
REM Change to NULL 
REM Change ' to " 
REM Change I to 
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PRODUCTS FOR YOUR RAOIO SHACK 





MACRO-80C 

The Micro Works is pleased to announce the release ot its disk-based editor, 
macro assembler and monitor, written tor Color Computer by Andy Ptielps. THIS 
IS IT — The ultimate programming 1001' 

The powertui 2-pass macro assembler features conditional assembly, local labels, 
include files and cross referenced symbol tables. MACRO-80C supports the 
complete Motorola 6809 instruction set in standard source format. There are no 
changes, constraints or shortcuts in the source language definition Incorporating 
all of the features of our Rompack-based assembler (SDS80C). MACR0-80C con- 
tains many more useful instructions and pseudo-ops which aid the programmer 
and add power and flexibility 

The screen-oriented text editor is designed for efficient and easy editing ot 
assembly language programs. The "Help Key' feature makes it simple and fun to 
learn to use the editor. As the editor requires no line numbers, you can use the 
arrow keys to position the cursor anywhere in the file. MACR0-80C allows global 
changes and moving/copying blocks of text. You can edit lines of assembly 
source which are longer than 32 characters. 

DCBUG is a machine language monitor which allows examining and altering of 
memory, setting break points, etc. 

The editor, assembler and monitor — as well as sample programs — come on one 
Radio Shack compatible disk Extensive documentation included. Macro-80c 
Price: $99.95 



SDS80C — Our famous editor, assembler and monitor in Rompack Complete 
manual included Price: $89.95 



PARALLEL PRINTER INTERFACE — Serial to parallel converter allows use of 
standard parallel printers. You supply printer cable P180C Price: $69.95 



MICROTEXT — Get printouts while using your modem 1 Also download to cassette 
General purpose terminal Rompack Price: $59.95 



YOU NEED COLOR FORTH!! 

Why? •Forth is faster to program in than Basic 

•Forth is easier to learn than Assembly Language 
•Forth executes in less time than Basic 
Forth is a highly interactive language like Basic, with structure like Pascal and 
execution speed close to that of Assembly Language. The Micro Works Color Forth 
is a Rompack containing everything you need to run Forth on your Color Computer 
Color Forth consists of the standard FORTH Interest Group (FIG) implementation of 
the language plus most of FORTH-79. It has a super screen editor with split 
screen display. Mass storage is on cassette. Color Forth also contains a 
decompiler and other aids for learning the inner workings of this fascinating lan- 
guage It will run on 4K. 16K. and 32K computers. Color Forth contains 10K of 
ROM leaving your RAM tor your programs! There are simple words to effectively 
use the Hi-Res Color Computer graphics, joysticks, and sound The 112-page 
manual includes a glossary of the system-specific words, a full standard FIG 
glossary and complete source listing COLOR FORTH ... THE BEST! From the 
leader in Forth. Talbot Microsystems Price: $109 95 



THE 



Also available: Machine language Monitor 
Memory Upgrade Kits * Parts and Services 



• Call or write for information 



W@\^J^ P.O. BOX 1110 DEL MAR, CA 92014 



GAMES 

Star Blaster — Blast your way through an asteroid field in this action-packed Hi 

Res graphics game Available in ROMPACK; requires 16K Price: $39.95 

Pac Attack — Try your hand at this challenging game by Computerware, with 

fantastic graphics, sound and action! Cassette requires 16K. Price: $24.95 

Berserk — Have fun zapping robots with this Hi-Res game by Mark Data 

Products. Cassette requires 16K Price: $24.95 

Adventure — Black Sanctum and Calixto Island by Mark Data Products. Each 

tdssette requires 16K Price: $19.95 each. 

Cave Hunter — Experience vivid colors, bizarre sounds and erne creatures in hot 

pursuit as you wind your way through a cave maze in search of gold treasures. 

This exciting Hi-Res game by Mark Data Products requires 16K for cassette 

version. Price: $24.95 

^ „ , California Residents add 6% Tax 

Master Charge/Visa and 
COD Accepted 



^125 



619-942-2400 



WHY $ IN DISK . . .WE'VE PUT SENSE IN CASSETTE 



RELIABLE LOW-COST HIGH-SPEED TAPING 




HE* 



NO-FUSS HIGH SPEED SOFTWARE 

KWICOS (Mod 1.4k to 48k) $26 

KWIK Cassette Operating System for Mod 1 . The easy-to-use Level 
II enhancement for reliable fast taping (select 1000-3000 baud) 
Features: save, load, verity, search, chain-load, catalog, and test- 
read of both BASIC and machine-code programs . . plus: long pgm 
names, passwords, debounce. slow list , self backup . and more 

K0S3 (Mod 3, 16k to 48k) $26 

The KWIK Cassette Operating System for Model 3. All kwicos 
features at 2200 baud, plus KWIK set of: clock display. Time, Date, 
Cassette high/low. I/O routing, etc. 

KWIKIT (specify Model) S12 

Mini-system for BASIC programs only 
EasyLoad 1000 baud for Mod 1 , 2200 baud 
for Mod 3 Many kwicos features. 

KWINK (Model 1,4k-48k) S15 

Makes stand-alone fast-loading (2x-6x) 
copies of any standard 500 baud SYS- 
TEM program. (At 6x. 3 minute program 
loads in 44 sec!) 

KLOAO (Model 1) $15 

Similar to kwink . but for BASIC pgms only 
(Specify i6-32-48k) 

KLOAN (Mod 3, 16k-48k) $12 

Makes 500 or 1 500 baud copy of any other 
standard system pgm 

KWIK Software 

Box 328 

^ Bolivar. MO 65613 

20 Phone (417) 326-7154 



CLEGS 



PLATED SPRING STEEL 



EASY SLIP-ON 
INSTALLATION 




CASSETTE EJECTS 
INTO YOUR HAND 

PUTS COUNTER 
INEULLVIEW 

TAKES LESS 
TABLE SPACE 



NO-FUSS ANY-SPEED HARDWARE 

The amazing LemonAid Loader takes the finickies out of Model I 
loads, but even more amazing . make KWIK copies of your Model 
I programs and load them flawlessly at 6 ■ speed! Instant installa- 
tion . . simply plug between your cable and recorder No internal 
batteries or external power needed. 

New Model LLQ-2 Deluxe loader has volume controlled jack for 
tape listening without plug-pulling, using external speaker/ear- 
phone Ideal for Model I. compatible with Model III ppd $21 99 
New Model LQ-2 loader. Built-in low level audio monitor with fixed 
volume. Model I. Mod III compatible $18.99 

Model LL-1. Great little economy loader for 
the Model I. $14 99 

Model LSS. Solid state SOFTROL 1 1 ) elimi- 
nates switch-hits (2) Push button and slide 
switch control of CTR motor makes tape 
positioning a snap without plug pulling 
(3) Cushioned motor-off delay pulls end of 
programs past CTR pinch rollers ... no 
pinch-hits, plus (4) automatically gaps 
between saved programs. For all standard- 
plug recorders and computers $18 99 



A NEW ANGLE 
ON TAPING' 



ADJUSTABLE 
RECORDER ANGLE 



\ VINYL TIPS 



$2.99 with order 
from ft ther company 
Otherwise $4 99 ppC 



'.' V. 








^^^^1 






















jo ° | 






:j i — ' 






mw 


i 


1 too 









LEMONS 
TECH 

325N.Hwy65 
P.O. Drawer 429 
Buffalo. MO 65622 
(417)345 7643 



' nui'bet :; 10 pi" most any day for into or order U 



stpaiO. add $3 tor COD or overseas. Missouri residents aorj sales tax 



'See List ol Advertisers on Page 451 
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REMSOFT, INC. 

Let Your TRS-80" 
Teach You 
ASSEMBLY LANGUAGE 



Tired of buying DOOK after DOOK on assembly 
language programming and still not Knowing you' 
POP IrOOl vour PUSH? 

REMSOFT proudly announces a more 
e"'Cient way using your own TRS-80' to leam 

tne fundamentals o 1 assemoiy language 
programming at YOUR Dace and YOUP 

convenience 

Our unique package -INTRODUCTION TO 
TRS-80 ASSEMBLY PROGRAMMING * 

provide you with tne following 

• Ten 45 mmute lessons on audio cassettes 

• A driver program to make your TRS-80' video 
monitor serve as a DiackDoard tor tne instructor 

• A display program to' eacn lesson to provide 
illustration and -eintorcement tor what you a*e 
neanng 

• Step Cy step dissection of complete and use'o' 

routines to test memory and to gam direct 
control Over tne keyDOard video monitor and 
printer 

• Mow to access ana use powerful routines m 
yow Leve ii ROM 

for Model 1 

REMASSEM-1,.ape, only $69.95 

REMASSEM-1 .disk, only $74.95 

NOW AVAILABLE FOR MODEL 3 

REMASSEM-3.ta P ei $74.95 

REMASSEM-3id.su $79.95 



LEARN TRS-80' 

ASSEMBLY LANGUAGE 

DISK I/O 



Ycu' disk system and you can reaiiy step out 
w Ih REMSOFT S Educational Module 
REMDISK-Va snort cou'se revealing me detai s 
of DISK ■ O PROGRAMMING using assemro,, 
■anguage intended tor me student with 
e«pe'ience in assempn language 
COURSE INCLUDES 

• Two -5 mmute 'essons on aud'C cassette 

• A dr ver program to make your trs-80 video 
monitor serve as a DiackDoard tor me instructor 

• A disc a. program 'or eacn lesson to D'Ovide 

illustration and reinforcement tor wnat you are 
nearing 

• A DOOkiet O' comprehensive fully commented 

p-ogram iistmgs iiiuSlrai ng seaue^t'a * ■le i O 
ran K m access ' *e i and track a^o sector i o 

• A diskette witn macnme-readaoie source codes 
lor a j'cc'a" 1 ? j'scussed >n ootn Radio Snac» 

EDTASM and Macro 'ormats 

• Routines 10 COnve't from one assemDier format 
to tne omer 

Presently available for model 1 only 
REMDISK-1 only $29.95 

Dealer inquiries invited 

Tnese courses we r e developed and recorded Dy 
Joseph E Wiiiis and a-e Dased on me successful 
se'ies o' cou'ses he has taught a: Meta 
Technologies Corporation me Radio Shack 
Compute - Center and other locations m Northern 
Ohio The minimum system required is a Leve' II 

16K RAM 



REMSOFT. INC. 

571 E. 185 St. 

Euclid. Ohio 44119 

(2161 531-1338 



^ 



Shipp NG CHARGES 

$2 50 WITHIN UNITED STATES + 

S5 0C CANADA AND MEXICO 

0T«ER =ORElGN ORDERS ADD 2C . 

Oh RESIDENTS ADD 6 ' .• - . SALES TAX. 



Listing 2 continued 




550 DATA 127,126,225,201,0,0,211,126,0,0,0 




560 REM *** Data For RESTORE BASIC Object Code *** 




570 DATA 42,164,64,116,205,248,26,205,89,27,195,25,26 




580 REM *** Data For KEYWORDS *** 




590 DATA C,S,A,V,E, ' ,0 




600 DATA S,E,T, ( ,0 




610 DATA R,E,A,D,0 




620 DATA ?,F,R,E, ( ,A,S,) ,4,0 




630 DATA G,O,S,U,B,0,0 




640 DATA I,N,K,E,Y,$,0,0 




650 DATA L,L,I,S,T,0 




660 DATA L,I,S,T,0,0,0 




670 DATA P,O,K,E,0 




680 DATA P,0,I,N,T, ( ,0 




690 DATA L,E,F,T,$, ( ,0 




700 DATA R,U,N,4,0 




710 DATA S,Q,R, ( ,0 




720 DATA T,A,B, ( ,0 




730 DATA U,S,R, ( ,2,) ,0 




7 40 DATA C,L,S,0 




750 DATA E,D,I,T,0,0 




760 DATA T,R,O,F,F,0 




770 DATA A, U,T, 0,4,0,0 




7 80 DATA /, 3, 2, 7, 5, 5, 0,0 




790 DATA S,Y,S,T,E,M,0 




800 DATA ?,M,E,M,&,0 




810 DATA A,S,C, ( ,0 




820 DATA V,A,L, ( ,0 




830 DATA C,H,R,$, ( ,0 




840 DATA D,A,T,A,0 




850 DATA R,E,S,E,T, ( ,0 




860 DATA F,O,R,0 




870 DATA G,O,T,O,0 




880 DATA R,E,T,U,R,N,0 




890 DATA I,N,P,U,T, ' ,0 




900 DATA ) ,0 




910 DATA L,E,N, ( ,0 




920 DATA L,P,R,I,N,T,0 




930 DATA M,I,D,$, ( ,0 




940 DATA N,E,X,T,0 




950 DATA P,E,E,K, ( ,0 




960 DATA P,R,I,N,T,@,0 




970 DATA R,I,G,H,T,$,( ,0 




980 DATA R,N,D, ( ,0 




990 DATA S,T,R,I,N,G,$, ( ,0 




1000 DATA T,H,E,N,0 




1010 DATA U,S,I,N,G,0 




1020 DATA V,A,R,P,T,R, ( ,0 




1030 DATA E,L,S,E,0 




1040 DATA C,L,O,A,D,0 




1050 DATA T,R,O,N,0 




1060 DATA 2,F,0,R,I,-,l,T,0,L,E f N,( ,Z,$,) , " : " ,P,0,K ,E, I ,+ 




1070 DATA 3,2,6,7,3,",",A,S,C, ( ,M,I,D,$, (, Z ,$,",", I ,"," ,1 


) ,) 


1080 DATA ":",N,E,X,T,":",P,0,K,E,I,+,3,2,6,7,3,",",I ,":" 




1090 DATA E,N,D,4, 0,0, 0,0, 0,0, 0,0, 0,0,0 





-RS-oC 



S A "RADEMARK OF 'ANDY CORP 



^# SUPER" -biz 
ISA's DATABASE 

The only DBMS with all these features 

* PROVEN in one year of test marketing 

* TOUGH, reliable file structure 

* MENU driven for simplicity and easy use 

* ARITHMETIC with stored calculations 

* FAST set-up and report formating 

* CLEAR user-oriented documentation 

* PRINTS totals & subtotals - mail labels 

* REFORMATS and merges data files 

* MULTI-DISK files Up to 128K records 

* SORTS full disks on up to 40 fields 

* PRODUCTION input of repetitive data 

* USE existing data files 

* COUPLES to word processors 

* POSTS transactions to master file 

* SEARCH by strings, ranges, comparisons 

* DATA COMPRESSION: Over twice as 
many labels as the other system 

For TRS-80* Models I. II. III. £ 16 - 250.00 
CP/M* - 299.00 

Ask your Dealer or Write f* 351 

Institute for Scientific Analysis. Inc. 
P. O. Box 7186. Dept. M-2 
Wilmington. DE 19803 (215)358-3735 

t T.M Digital Research 



'T.M. Tandy Corp. 



\ferbatim 

flexible disks 

Call Free (800) 235-4137 for 

prices and information. Dealer 
inquiries invited. COD. and 
charge cards accepted. 




VtSA 



PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo. CA 
93401 In Cal call 
(800) 592-5935 or 
(805) 543-1037. 

• 207 
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BOOST THE POWER AND 
PERFORMANCE OF YOUR TRS-80™ 

WITH 
WILEY'S FRIENDLY PAPERBACK GUIDES 



THE TRS-80 111 MODEL III USER'S GUIOE 

Tony Bove & LeRoy Finkel 

Get to know the myriad of applications, 
options, and accessories available for the 
TRS-80™ Model Ml — with the help of this clear, 
nontechnical guide. It explains everything you 
need to know to use your micro effectively— from 
handling its disk operating system to coming to 
grips with the incredible array of software on the 
market. 

(1-86242-8) November 1982 
approx. 256 pp. $12.95 

THE GENIE IN THE COMPUTER 
Easy BASIC Through Graphics 
TRS-80™ Edition 

Rachel Kohl, Laura Karp, & Ethan Signer 

Learn how to program the fun and easy 
way— by interacting with the "genie", a microcom- 
puter graphic. A tiny core program on the very 
first page of the book shows you how to bring the 
genie to life— a simple face on the monitor screen 
of your TRS-807 M As you master each new 
programming concept, you can make the genie 
move, smile, talk, tell stories, and even star in a 
movie. Ideal for young people and for adults with 
"technophobia." 
(1-87049-8) October 1982 
approx. 320 pp. $12.95 

FAST BASIC 

Beyond TRS-80 1 " BASIC 

George Gratzer with Thomas Gratzer 

Now you can combine TRS-80™ BASIC with 
assembly language to dramatically increase the 
execution speed of your programs from 4 to as 
much as 1,000 times. This practical guide teaches 
you 20 Assembly Language Instructions and the 
names of 60 ROM routines, then shows you how 
to apply these concepts to your knowledge of 
BASIC. Also includes valuable information on the 
operating principles of the TRS-80J M 
(1-09849-3) 1982 278 pp. $14.95 

Convenience software (contains all the teaching 

and utility programs listed in FAST BASIC) 

Model I Disk: (1-87484-1) 5 V«" disk; 32K of memory 

$19 95 

Model II Disk: (1-86838-8) 5V*" disk; 32 K of memory 

$19 95 

Cassette tor Model I or Model IH: (1-87421-3) 16K of memory 

$19.95 

TRS-80™ Is a trademark of Tandy Corp. 



SUBROUTINE SANDWICH 

John P. Grillo & J. D. Robertson 

Here, in one easy-to-use manual, are 36 
BASIC subroutines— powerful modules that you 
can combine and build onto to write structured 
programs that are clearer, easier to modify, and 
require less composition and debugging time than 
traditional programs. Geared for use with the 
TRS-80™ Model I or Model III. the book is carefully 
structured, with each subroutine a separate 
four-page unit. You'll find crystal-clear explana- 
tions of how each subroutine works, possible 
applications, suggestions for modifying it, and a 
program that incorporates it, complete with 
sample output. Five mother programs demon- 
strate the real-world applications of this practical 
programming technique. 
(1-86920-1) January 1983 
approx. 224 pp. $12.95 

For 36 additional subroutines in the same user- 
friendly format, turn to 

MORE SUBROUTINE SANDWICH 

John P. Grillo & J. D. Robertson 

(1-86921-X) January 1983 

approx. 224 pp. $12.95 

SUCCESSFUL SOFTWARE FOR SMALL COMPUTERS 

Graham Beech 

This easy-to-use manual shows you how to 
write dependable, efficient, even elegant 
programs that work the first time— even if you're 
just a novice programmer. First you'll master the 
principles of successful software design with the 
aid of a PDL (program description language). 
Then you'll learn how to create reliable, structured 
programs that are easily— almost automatically 
convertible to Microsoft BASIC. Applications 
range from data structures, files, and sorting to 
simulations, mathematical equations and compu- 
tations, and more. 
(1-87458-2) November 1982 
approx. 192 pp. $12.95 

Wiley publishes more than a dozen popular, 
paperback guides to help you get the most use 
and enjoyment from your TRS-80™ Look for them 
all at your favorite bookshop or computer store. 

q ffiri tz JOHN WILEY & SONS. Inc. 

lbo 7(W] 1 9»2 605 Thjrd Avenuei 

Hr^ New York, NY. 10158 

In Canada: 22 Worcester Road.Rexdale, Ontario M9W 1L1 



-515 



3-8615 



■ See List ot Advertisers on Page 451 
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Aerocomp's 
Proven 
Best-By Test! 
The 



it 



ii 







Double Density Controller 

• Technical Superiority 

At last! A double density controller for Model I with higher probability of data recovery than with any other 
DOUBLE density controller ON THE market TODAY! The ' ddc from Aerocomp. No need to worry about the pro- 
blems that keep cropping up on existing products, aerocomp S new analog design phase lock loop data separator 
has a wider capture window than the digital types currently on the market. This allows high resolution data center- 
ing. The finest resolution available with digital circuitry is 125 ns (nano seconds). The "DDC analog circuit allows in- 
finately variable tuning. Attack and settling times are optimum for 5-1/4 inch diskettes. 
The units presently on the market use a write precompensation circuit that is very "sloppy . Board to board 
tolerance is extremely wide - in the order of + 100 ns. The ddc is accurate to within-*- 20 ns. 
The bottom line is state of the art reliability! 

• Test Proven 

Tests were conducted on AEROCOMP'S "DDC, Percom s Doubler A * and "Doubler ir* and LNW's "LNDoubler"** using 
a Radio Shack TRS80* * * Model I, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100 * disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks. The 6DB6 
pattern was chosen because it is recommended as a worst case" test by manufacturers of drives and diskettes. An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80, version 
1.0, with Double zap, version 2.0. Unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown in the table. 



* Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in installation. Compatible 
with all existing double density software. 

• value 

$139.95 for the BEST double density 
controller on the market. 

$1 79.95 for ddc ' complete with dosplus 3.3D 
$229.95 for ddc complete with ldos 



• TEST RESULTS • 



MFR & PRODUCT 


SECTORS LOCKED OUT'AVO 


AEROCOMP "DDC 





PERCOM 'DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



Note: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp s 14 day money back guarantee applies to nardware only. 

Specials will be prorated Shipping $2.00 in Cont. US. See opposite page for details. 



Data Separators 

The advances that make the "DDC great are incorporated in the new aerocomp Single Density Data Separator ("SDS") 
and Double Density Data Separator ("DDS' ). 



• Has your original manufac- 
turer left you holding the bag? 

if you already own a Percom Doubler A . Doubler ir or lnw 
LNDoubler . the aerocomp DDS will make It right. Look at the test 
results: 



• "DDS" $49.95 

(Use 1791 chip from your DD Con- 
troller) 



with disk controller 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS" 


WITH "DDS" 


PERCOM "DOUBLER II 


18 


1 


PERCOM "DOUBLER A 


250 





LNW "LNDOUBLER" 


202 






• "DDS" 

chip included § / 9.95 

* Disk controller 

chip $34.95 

(Shipping $2 oo cont US - see opposite 
page for details) 



Note: same test procedures as ddc 

* Trademark of Percom Data Co. 

* * Trademark of LNW 

* * * Trademark of Tandy Corporation 



Plugs directly into your existing 
Double Density Controller. 



^82 



Do you need a 
Single Density Data 
Separator? 

The Internal data separator in the 
WD1771 chip (R'S Expansion interface) 
is not recommended by WD for 
reliable data transfer Do you have any 
of these problems: Lost data, tracks 
locked out. CRC errors, disk retry? you 
NEED ONE! 

• "SDS" $29.95 

(For Mod. I; shipping $2.00) 



See opposite 

pagenMM 
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TRS80* 



DISK DRIVES 

40 & 80 TRACK 

as low as v^lC)V#95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along We offer the best 
disk drive value in the market place 
Reliability, features and cost tough to 
beat We deliver... and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIAI i Buy 
Aerocomp drives today You deserve the 
best 

BEST FEATURES 

• Fast 5 ms track-track access time. 

• Operates single or double density 

• "FLIPPY" feature for lower media cost 
140-1 &80-I) 

• Head load solenoid 

• Disk ejector 

• Easy entry door 

• NEW EXTERNAL DRIVE CABLE 

CONNECTION, (no onge- need to «nove !*e 



EPSON 

MX80 

PRINTERS 

$469.00 

TRS80 Cable (I & III) S9.95* 

APPLE Cable & Interface, s 105.00 

RS232 Interface S69.95 

Ribbon Cartridge. Black. . . $9.95 

Add S6.00 shipping (Cont. U.S.) does not 
include cable. 

MX80F/T 

All the features of MX80 plus Friction 
Feed Shipping & cables as above 

$569.oo 



ORDER TODAYI 

• 40-Track Drive S 299 95 

• 80-Track Drive $409 95 

• 40-Track 'FLIPPY" Drive . . $329 95 

• 80-Track "FLIPPY" Drive. $4 1 9.95 

• 40-Track Dual-Head Drive $419.95 

• 80-Track Dual-Head Drive S 569 95 

An Hfjovr .fr'ves Mr (t>mp*eTP w*h \itvw rK^ftuf ,x>wr' suf)(Vv 
<«Me»tern<.l,lrivei.<Meco'»>e<l«xi I IS VAC SC/fiO H/ ,M0 VAC 
Sf>60 Ht svMJble on spei^ cutler AddSl500 

• 40-Track Bare Drive S259.95 

• 80-Track Bare Drive . S359.95 

• 40-Track "FLIPPY" Bare DnveS279 95 

• 80-Track "FLIPPY" Bare Dnve$369.95 

• SPECIAL PACKAGES* 

STARTER A S339.95 

40-Track Drive. 2-drive cable. TRSDOS 
2 3 Disk & Manual. Freight & Ins 

STARTER B S369 95 

40-Track "FLIPPY" Drive. cable. TRSDOS 
2 3 Disk & Manual, Freight & Ins. 

COMBO C $465 00 

40-Track "FLIPPY" Drive, 2-dnve cable. 
LDOS . Freight & Ins 

COMBO D $559.00 

80-Track "FLIPPY" Drive. 2-dnve cable. 
LDOS' Freights Ins 

COMBO E $709 00 

Two 40-Track "FLIPPY" Drives. 4-Dnve 
cable, TRSDOS 2 3 Disk & Mannual. 
Freight & Ins 



COMBO F 
Two 80-Track 
LDOS 



S989.00 

FLIPPY" Drives, 4-dnve 

Ins 



•With Purchase o< PflMW 



COMBO G $889.00 

Two 40-Track Dual-Head Drives, cable. 
smoiLDOS 2 .3 Disk & Manual. Freight & 
Ins 

COMBO H $1289 00 

Two 80 Track Dual-Head Drives, cable, 
LDOS . Freight & INS 

DOSfl.US 04 or NEWDOS / 80.20 
ovoiloble wirh any pod^oge or exno cosr 

AcMSS 00 pei Olive ft* snipping & "vnoirrxj |C(X« USj 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it. packed in the 
original shipping container, for a full re- 
fund. ' Hardware only Special packages will be picxatedl 

We have complete confidence in our pro- 
ducts and we know you will be satisfied! 
ORDER TODAYIII 



WARRANTY 

We offer you a 1 20 day unconditional 
warranty on parts and labor against any 
defect m materials and workmanship In 
the event service, for any reason, 
becomes nescessary, our service depart- 
ment is fast, friendly and cooperative 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug m when you receive them. Each 
drive is 100% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABII ITY'I 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc (above), 
enclose check, money order. VISA or 
MASTERCHARGE card number and ex- 
piration date, or reguest COD ship- 
ment Texas residents add 5% sales tax 
Add $5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
COD shipments-cash, money orders or 
certified checks only You will receive a 
card showing the exact COD amount 
before your shipment arrives. Be sure to 
include your name and shipping address 
You will be notified of the scheduled 
shipping date Your bank credit card will 
NOT be charged until the day we ship.n 

DRIVE CABLES 

2-DRIVE $24 95 

4 ! WIVE : ■"* r- 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7868, OPERATOR 24 

FOR VISA/MASTERCHAROE/C.O.D. ORDERS 

California dial (800) 852 7777. Operator 24 Alaska 
and Hawaii dial 1800) 824 7919. Operator 24 
TOLL FREE LINES WILL ACCEPT ORDERS ONLTl 

For Applications and Technicol information, call 
(214) 337-4346 or drop us a card 



Dealers inqiries invited 



AE^GCCfil? 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, TX 75224 ^ 



■ See List o< Advertisers on Page 45' 
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GENERAL 



A general guide to the regions of ROM. 



Memory Map— Level II 



Mark D. Goodwin 
S.R. 79, Box 103 
Orland, ME 04472 



This memory map covers 
Level II ROM memory and 
explains how RAM memory is 
used by the ROM routines. Level 
II uses memory locations 4000H- 
42E7H as Its communication 
region, storing temporary values 



for Basic interpreter functions. 
The map also covers the memo- 
ry mapped input/output from 
37DEH-37FFH used to com- 
municate with the keyboard, the 
printer, disk drives, and the real- 
time clock. 

This map is a general guide to 
Level II ROM routines, not a 
complete reference source. Use 
this map with a disassembled 
listing of the Level II ROMs. 

Write to me if you wish more 
detail in areas of this memory 
map.B 



Level II Memory Map 



oooo - 


000* 


INITIALIZATION ROUTINE 


oooo 




TURNS OFF DISK AND CLOCK INTERRUPTS 


OOOl 




ZERO A 


oooz - 


OO04 


JUMP TO INITIALIZATION ROUTINE AT 0674 


ooos - 


0007 


JUMP TO R6T OB CODE AT 1C96 VIA 4000 


oooe - 


OOOA 


RST OS 


0O08 


OOOA 


JUMP TO RST OB CODE AT 1C96 VIA 4OO0 


OOOB 


- OOOC 


DISK ROUTINE 


OOOB 




SET JUMP ADDRESS 


OOOC 




JUMP TO SPECIFIED ADDRESS 


OOOD 


- OOOF 


DISK ROUTINE 


OOOD 


- OOOF 


JUMP TO DISK LOADER ROUTINE 



0O1O - 0012 RST lO 

0010 - 0012 JUMP TO RST 10 CODE AT 1D7B VIA 40O3 



IlllltlllllliUIMUMIlMllliMIIIIIIlIIIIMIMMin.llIlII 

0013 - 0O17 KEYBOARD ROUTINE 



0013 




SAVE BC 


OC14 


OOIS 


B ' KEYBOARD ENTR* CODE 


0016 


0017 


JUMP TO DRIVER ENTRY ROUTINE 


OOIS 


- OOIA 


F.ST 18 


OOIS 


OOlA 


JUMP TO RST IB CODE AT 1C90 VIA 4uO& 


OOIB 


001F 


VIDEO ROUTINE 


OOJB 




SAVE BC 


i.'OIC 


- OOID 


B - VIDEO ENTRY CODE 


00 IE 


- OOIF 


JUMP TO DRIVER ENTRY ROUTINE 


0020 


- 0022 


RST 20 


OO20 


- 0022 


JUMP TO RST 20 CODE AT 23D9 VIA 4009 


0023 


- 0027 


DISK. ROUTINE 


0023 




SAVE BC 


0024 


- 0O23 


B « ENTRY CODE 


0O2e 


- 0027 


JUMP TO DRIVER ENTRY ROUTINE 


002B 


- 002A 


RST 2B 


0O28 


- O02A 


RET WITH NON DISK VIA 400C 



002B - 002F 



KEYBOARD ROUT I r 



002B - 002D DE - KEYBOARD DRIVER ADDRESS 
002E - 002F JUMP TO KEYBOARD DRIVER 

•SCANS KEYBOARD AND RETURNS WITH BYTE IN A 
It t IIMIMIIMIMMMMIMItllMllltllllllUI ttlMt «*«<***•« 

0030 - 0032 RBT 30 



0O3O - 


0032 


RET WITH NON DISK VIA 400F 


0033 


- 1.037 


VIDEO ROUTINE 


0033 
0034 


0035 
- 0037 


DE - VIDEO DRIVER ADDRESS 
JUMP TO VIDEO DRIVER 
•DISPLAY THE BYTE IN A 


0038 


- 003A 


RST 38 


003B 


- 003A 


RET WITH NON DISK VIA 4012 



003B - 003F 
003B - 003D 



POINTER ROUTINE 

DE • PRINTER DRIVER ADDRESS 



Map continues 
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Announcing the best Error 
Free Personal Computer 
Diskette Money can Buy. 
For Less. 

• Error Free 

• 1 year warranty 

• Hub ring installed 

• Write/Protect notch 

• Next day delivery 

$19.90/box of 10 

• No minimum order quantity 

• 8"or5%" 

• Plus 2 Free BONUS DISKS/Box* 

•5'/«" SPECIAL ONLY 

If you are a member of a user group or a school district please call for special 
terms on future offers. TSi is the largest specialty supplier of magnetic media 
in the Midwest. We have the products that you want when you need them. 
Please take advantage of this introductory offer and call us now. 

M ^ MR {9 Transaction 

W W H jVjfc Sto rage Systems. Inc. 

22255 Greenfield Rd. 
Southfield, Michigan 48075 

CALL TOLL FREE 
1-800-52 1-5700 
1-800-482-4770 (Michigan) 
313-557-3036 (Detroit) 
312-922-0076 (Chicago) 
614-221-1788 (Columbus) 
513-621-1518 (Cincinnati) 
Telex 810-224-4646 




EXPECT A MIRACLE 



*S*4> Liit of Adv»rtlS0rs on Pag* 451 



YES, TSJ is the magnetic media supplier that I have always wanted. 

.,8"D 5%"0,@ 



Please send me 

Box Quantity 

I am interested. Please send me more information 
or call me at ( ) 



ea. 



For faster order entry call any of our toll-free or local numbers 

Company ■ — 

Name . 



Title. 



Address 
City 



State- 



Zip - 



Amex /Master Card/Visa orders are accepted 



Expiration Date 

month year 
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Map continued 



OOSC - 0O3F 



JUT* TO PRINTER DRIVER 
•PRINT THE BYTE IN A 



0O40 - 0042 



INPUT ROUTINE 



0040 - 0042 JUMP TO INPUT ROUTINE AT 05D9 

ailllMIIMIMIIIIIIIilllllMIIIIIMIIIIIIIIIIIIIIMIIIMIII 

0043 RETURN 
IMIIIillllllMIIUUtMllltlttllHIUItlllMIIIMIMMIIIII 

0044 - 0045 NOTHING HERE 



0046 - 0048 



JUMP TO DRIVER ENTRY ROUTINE 



0O49 - 004F 
OC>49 - Ou4B 

0O4C 

004D 

004E - 004F 



KEYBOARD ROUT INT 

SCAN K EYBOARD 
CHECK FOR KEY PRESSED 
RETURN IF KEY PRESSED 
LOOP TILl KEY PRESSED 



0090 - 005F 

0OSO 

0051 
0O52 
0053 
0054 
Oo55 
00S6 
0057 

oose 

0059 
".-USA 
0O5B 
005C 
OOSD 
0O5E 
005F 



► EYBOARD LOOKUP TABLE 

ENTER = OD 

SHIFT ENTER - OD 

CLEAR = IF 

SHIFT CLEAR = IF 

BREAK = 01 

SHIFT BREAK - 01 

UP ARROW ■ SB 

SHIFT UP ARROW ■ IB 

DOWN ARROW • OA 

SHIFT DOWN ARROW = 1A 

LEFT ARROW - 08 

SHIFT LEFT ARROW = IB 

RIGHT ARROW * 09 

SHIFT RIGHT ARROW ■ IS 

SPACE - 20 

SH 1 F I SPACE « 20 



0O60 - 0065 



DELAY LOOP 



0O60 

0061 - 0062 

0063 - 0064 

0065 



DEL COUNTER 

TEST FOR ZERO 

LOOP- TILL ZERO 

RETURN 

• BC IS USED AS THE COUNTER 

IIIIIIUIIIIIIIIIIIMIIUtlUI IIIIUIIIIIIIIIIIIIHIIil 

0066 - 0O/4 NMI RESET 



0O66 - 0068 

0069 - 006E 

OOoF - 0C71 

0072 - 0O74 



RESE1 STACK POINTER 

TEST FOR DISK 

JUMP IF DISK 

JUMP TO LEVEL II RENTRY 

•THIS IS CALLED BY PRESSING THE RESET 

BACK. OF THE KEYBOARD 



00 73 - 01O4 



INITIALIZATION ROUIINC 

MOVES LEVEL II POINTERS FROM ROM LOCATIONS 

18F7 - 191D TO RAM LOCATIONS 4080 - 40A6 

SET LOCATION 41ES 4IE7 TO INSTRUCTION 

LD A. (2COO) 

SET INPUT BUFFER POINTER (40A7> TO 41E8 

SET DISK BASIC COMMAND VECTORS FROM 4132 - 41A5 

TO JP 01 2D INSTRUCTION »L3 ERRORt 

SET DOS EXIT VECTORS FROM TO RETURNS 

ZERO START OF BASIC MEMORY 

SET STACK POINTER TO 41F8 

CALL INITIALIZATION OF BASIC POINTERS AND 

VARIABLES ROUTINE 

CLEAR SCREEN 

POINT TO 'MEMORY SIZE^' MESSAGE 

DISPLAY IT 

GET RESPONSE 

IF BREAK PRESSED DO II AGAIN 

IF THERE WAS A RESPONSE JUMP 

GET END OF COMPUTER MEMORY AND JUMP 

•THIS IS DONE IF YOU DON'T RESPOND 10 MEM SIZE 7 * 
PUT BINARY OF RESPONSE IN DE 

IF RESPONSE ISN'T RIGHT JUMP TO SN ERROR 
ML - RESPONSE - 1 

TESI IO SEE IF THIS LOCATION EXISTS 

IF IT DOESN'T EXIST GET NEW RESFUNSE 

TEST FOR MINUMUM RESPONSE 17428 

IF BELOW THEN OM ERROR 

STORE MEMORY SIZE AND START OF STRING SPACE 

CALL INITIALIZATION OF BASIL POINTERS AND 

VARIABLES ROUTINE 

POINT TO RADIO SHACK LEVEL II BASIC - MESSAGE 

DISPLAY IT 

JUMP TO READY ROUTINE 



OlOS - 011O MEMORY SIZE' MESSAGE 
«*«*t***tltlt(t*«(S((t«(t*l*tt«(*ttt*tt«*t*«(*(t**«t(ttt**(* 

0111 - 01 2C RADIO SHACK LEVEL II BASIC MESSAGE 

012D - OI31 L3 ERROR ROUTINE 



0075 


- 007F 


0080 


0089 


OOBA 


- 0090 


0091 


- 009C 


0O9F 


- OOA7 


OOA8 


- OOAB 


OOAC 


- OOAE 


OOAF 


- OOB1 


iX)B2 


- OOB4 


00 B5 


- OOB7 


0OB8 


- <OBA 


OOBB 


- OOBD 


OOBE 


- OOBF 


OOCO 


- OOC.3 


0OC4 


- OOD5 


OODfc 


- 0008 


0OD9 


- OODC 


OODD 


0006 


OODF 


- OOE4 


OOE5 


- 0OE6 


OOE7 


- OOEB 


OOEC 


- OOEE 


OOEF 


- OOFB 


OOF 9 


- OOFB 


OOFC 


- OoFE 


OOFF 


- OlOl 


01O2 


- 0104 



012D - 012E 
012F - 0131 



E - ERROR CODE 

JUMP TO ERROR ROUTINE 



0132 - 019C 
0132 - 013A 



013B - OliL 
01 JD - 013F 



GRAPHICS ROUTINE 

PUT GRAPHIL CODE ON STACK: 

POINT 

1 SET 
♦1 RESET 
CHECK SYNTAX 
A *■ X VALUE 



0140 


■ •141 


0141 


- 0144 


0145 




0146 


- 014/ 


0148 


- 014A 


014B 


- 014C 


014D 


- 014F 


0150 


- 01 7F 


OlSO 


- 0181 


0182 




0183 


- 0185 


0186 


- 018B 


018C 


- 01BD 


018E 




01BF 


- 0190 


0192 


- 019C 


•***••••««»«*« 


019D 


- 01C8 


O190 


- 019E 


01 9F 


- 01A4 


01 A5 


- OlA/ 


01A8 


- OlAA 


01AB 




OlAC 


- 01AF 


OIBO 




OlBl 


- 01B3 


01B4 




01BS 


- OIBB 


OIBC 


- 01C8 



01C9 - 01D2 



CHECK FOR / 127 

IF . THEN FC ERROR 

SAVE X VALUE 

CHECK SYNTAX 

A - Y VALUE 

CHECK FOR > 47 

IF > THEN FC ERROR 

COMPUTE VIDEO LOCATION AND BIT MASK 

IF POINT THEN JUMP 

RESTORE GRAPHIC CHARACTER 

IF SET THEN JUMP 

RESET BIT 

CHECK SYNTAX 

RETURN 

SET BIT AND RETURN 

TEST BIT AND RETURN 

INKEY* ROUTINE 

ADJUST AND SAVE ENCODED STATEMENT POINTER 

JUMP IF SHIFT £ WAS PRESSED 

SCAN KEYBOARD 

IF NO KEY PRESSED THEN JUMP 

SAVE CHARACTER 

ZERO LAST KEY PRESSED STORAGE LOCATION 

A = STRING LENGTH 

CHECK FOR ENOUGH STRING SPACE 

GET CHARACTER 

SAVE STRING AND JUMP 

SAVE READY MESSAGE AS STRING AND RETURN 

CLS ROUTINE 



O103 - 01 D8 RANDOM ROUTINE 

IIIIISIillllllllltltllllltllfltllUltlMMItllllltMIIIUItl 

01D9 - 01F7 CASSETTE ROUTINE 



01D9 - 01F7 



MAKE A CASSETTE PULSE AND RETURN 



01F8 01FD 



CASSETTE ROUTINE 



01F8 - 01FD TURN CASSETTE OFF AND RETURN 

OlFE - 0211 CASSETTE ROUTINE 



01FE - 021 1 



GET DRIVE NUMBER 



0212 - 021 D 



CASSETTE ROUTINE 



0212 021D DEFINE DRIVE AND RETURN 

02 IE - 022B CASSETTE ROUTINE 

021E - 022B RESET TAPE INPUT SO VIDEO DOES' T GO TO 32 

CHARACTER MODE AND RETURN 
llllllllllllllllllliuilllllllltllllllllllllllllllllllllllll 
022C - 0234 CASSETTE ROUTINE 



022C - 0234 
0235 - 0240 



BLINK • DURING CASSETTE READ 
CASSETTE ROUTINE 



0235 - 0236 SAVE BC AND HL 

0237 - 0238 SET COUNTER TO READ 8 BITS 

0239 - 023B GET A BIT 

023C - 023D LOOP TILL 8 BITS HAVE BEEN READ 

023E - 023F GET HL AND BC 

0240 RETURN WITH BYTE READ IN A 
II1IIIIIIIIIIIIIIIIIIMIIIIIII1IIIUIIIIIIIIIIIII Itllt 

0241 - 026O CASSETTE ROUTINE 



0241 - 026O 
0261 - 0263 



READ 1 BIT AND RETURN 
CASSETTE ROUTINE 



0261 - 0263 WRITE A CLOCK PULSE 

OIIIIKIIIII ••■•>••««< *Mtt*t***t**»ttt*** •••••••<>••<•<•>> 

0264 - 027D CASSETTE ROUTINE 

0264 - 027D WRITE BYTE IN A AND RETURN 

IlIIlllllllllllllilllllrilllllllKlllllll IHIIiimilil 

027E - 0292 CASSETTE ROUTINE 

027E - 0292 WRITE CASSETTE LEADER AND RETURN 

••••••••••••••••••••••••••(••••(•a «t»» ***(<**•«*«•••**«*«••* 

0293 - 02A8 CASSETTE ROUTINE 

0293 - 02A8 READ CASSETTE LEADER AND RETURN 

02A9 - 0313 SYSTEM ROUTINE «ENTRY F'OINT IS 02B2 



READ 2 BYTES AND SAVE THEM 

TURN CASSETTE OFF 

CALL DOS EXIT AT 41E2 

SET ENCODED STATEMENT POINTER 

DISPLAY CARRIAGE RETURN 

DISPLAY I 

GET RESPONSE 

IF BREAK PRESSED THEN JUMP 

POINT TO 1ST CHARACTER INPUT 

IF SN ERROR THEN JUMP 

IF / THEN JUMP 

READ CASSETTE LEADER 

READ 1 BYTE 

IF NOT NAME HEADER THEN LOOP 

READ NAME IF NO MATCH SKIP 10 NEXT PRObAM 

ON I APE 

BL INK « 

READ 1 BYTE 



02A9 


- 02AE 


02AF 


- 02B1 


02B2 


02B4 


02B5 


- 02B7 


02B8 


02BA 


02BB 


02BF 


02CO 


02C2 


02C3 


02C5 


02C6 




02C7 


- 02C9 


02CA 


- 02CD 


02CE 


02D0 


02D1 


02D3 


02D4 


- 02D7 


02D8 


- 02E6 


02E7 


- 02E9 


02EA 


02EC 



Map continues 
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NEW MODEM GAME 

Presenting Terminal Wat Command a starship as you battle against a human opponent, tne computer or Doth Yes. the CQ01 
puter can control up to 28 ships Choose from litteen commands as you light the alien ships and the other player But be caretul. the 
aliens will intelligently attack with various weapons advancing and retreating as they try to destroy you 

Every time you play Terminal-War the scenario is flillerent You can also make each game as easy or as hard as you like because 
you control the strength and the number ot ships 

Only S29.95 

Includes 2 detailed manuals 2 disks each with the 2 player modem version t player version, and a special terminal program so 
that 16K computer users can play Terminal-War (The terminal program >s transients to cassette. Use the 32K 
computer ) 
Cassette with the termmiai program already on it $1 00 

Minimum system requirements 



2 Player version. 1 16K TRS-80 level 2 computer with a lull 
duplex modem and 1 32K t disk TRS-80 computer with a lull 
duplex modem 

1 Player version 1 32K 1 disk TRS-80 computer 
-DEALER INQUIRIES INVITED — 

TRS-80 is a trademark ot Radio Shack a Tandy Corp 



Ordering Inlormation 

•Specily Mod I or Mod m disks or one disk ot each • 

We accept Money orders Ceriitied checks C D and per 

sonai checks (Up to 2 weeks to clear) 

Please add $2.00 shipping. NY residents add 7% sales tax 

Mail orders Ocean Computer Products 
P Box 6474 
Ithaca. NY 14860 
24 Hour order line (6071 273 6608 ^52 



I PROFESSIONAL SOFTWARE 

♦ BASIC COMPILER 

T • TRSDOS" 2 COMPATIBLE 
▼ • UP TO 30 TIMES FASTER 

} DISK SORT 



►♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦< 

TRS-80* MODEL II & 16 nowavaila 



: 



BY MICROSOFT • EASY TO USE 

• INCLUDES MM. CREF-80 • EDIT SO 

• AUGMENTED WITH OUR DOCUMENTATION 



A • MENU DRIVEN 

T - EASILY INSERTED INTO JOB STREAM FOR NON-STOP RUNNING • FULL DISK CAPACITY DISK DEDUCTII 



i YOU DON'T HAVE TO BE A PROGRAMMER TO USE IT' 
RANDOM FILES • EASY TO USE • SPEC s SAVED ON DISK 

J • t.000 RECs SORTING 15 BYTES. INCLUDING ALL DISK I'O - 2 MIN. 45 SEC s 

♦ BASIC CROSS REFERENCE .save hours- 

♦ • SEE JSED LINE'S NAMES AT A GLANCE • PRODUCES NICE PROG LISTING 

4 EPSON mx-80$460°° mxioo$700°°* hurry-limited timei 

♦PAPER 9. .11 18lb WHITE STRIPS TO 8 - m11 3.000'BOX 

▲ MAILING LIST • high capacity • spans disk • no sorting 

^ • FAST RETRIEVAL-UPDATE • R'S CONVERSION INCLUDED • LONG/SHORT FORMATS 
+ • ESTIMATED AVAILABILITY - DEC 1982 

♦ 'PLUS POSTAGE & HANDLING PRICES SUBJECT TO CHANGE WITHOUT NOTICE- 



SUPPORTED 

INDISPENSABLE 



HARD DOC ONLY $10- 

DEDUCTIBLE 

ON PURCHASES 



GOOD-LYDDON DATA SYSTEMS 

5486 RIVERSIDE DR.. CHINO. CA 91710 



4 TRS-80 4 TRSDOS ARE 
i REGISTERED 
* TRADEMARKS OF 

I TANDY CORP (714)980-4563 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



$339.00* ♦ 

♦ 

$69.99* % 

: 

♦ 
$59.99* ♦ 

DOC ONLY $10* J 
DED ON PURCH J 

$25.00* ♦ 
$149.95* I 

DOC ONLY $10- 4> 

DED ON PURCH ♦ 

♦ 

♦ 
♦ 



■:< 



Coordinated 
Business Software 

D.B. Software Co. announces a new 
line of coordinated business software 
designed for the Model III TRS-80 
The BASE system consists of a Gen- 
eral Ledger System with Accounts 
Receivable and Accounts Payable 
Other modules can be purchased 
and added as needed. 

BASE System (GL-AR-AP) $200.00 

Coordinated Modules: 

Payroll $ 75.00 

Order Entry $1 25.00 

Inventory S1 29.95 

Purchase Order Entry S125 00 
Inventory (special for 

Auto Parts Suppliers) S129 95 

Also available: 

Job Costing with GL and AP 

(Payroll optional) $500.00 

Mailing Lister $1 00.00 

Coming soon: 

Apartment Management System, 
Fixed Assets System. Manufacturing 
Inventory Management System 

Send S.A.S.E. for more information 
D.B. Software Co. 

1 1840 NE Brazee. Portland OR 97220 

Phone (503) 255-7735 

DEALER INQUIRIES INVITED 

TRS 80 is a trademark ot Tandv Corp 




LEVEL IV PRODUCTS. INC. 
TR5-8Q® DKCDUNT DEALER 

NO AUTHORIZED DEALER BEATS OUR PRICES ON PURE R/B EQUIPMENT 



THIB IB A FABT HOV1NB INDUSTRY, PRICES CMANBE FASTER THAN ADS, HE HAD A 
COMPLETE AD LAYOUT FOR THIB MONTH WITH PRICES, BUT BEFORE WE COULD EVEN BEND 
IT IN THEY CHANBED, BUT THE NEM8 18 BOOD , THEV WENT DOWN ABAIN-'' 

SINCE THIS AD WAS DESTROYED, AND THERE IS NO TIME TO PREPARE A NEW ONE, LET'S 
JUBT TALK ABOUT A FEW THINBB THAT WE AT LEVEL IV THINK SHOULD BE IMPORTANT. 

THERE ARE TWO KINDS OF TR8-80<R> COMPUTERS, THE "PURE RADIO 8HACK(R>" VERSION 
AND THE "BUILT-UP- VERSION, THEY ARE BOTH AVAILABLE FROM A NUMBER OK 
SUPPLIERS VIA MAIL ORDER, AT PRICES BELOW RETAIL. 

THE "PURE" VERSION WILL HAVE THE MANUFACTURER'S LIMITED *0 DAY WARRANTY IN 
EFFECT, (PROVIDED THE DEALER HANDLED THE BALE PROPERLY), BUT DON'T EXPECT THE 
LOCAL 8TORE TO 8IVE YOU AN OPEN ARMS WELCOME, THOSE SUYB WORK ON COMMISSION 
YOU KNOW, 80 VOUR CHOICE OF A DEALER HAG SOME IMPORTANCE, SOME OF THEM ARE 
LITTLE MORE THAN WAREHOUSES, VERY FEW HAVE EITHER SERVICE OR SUPPORT 
CAPABILITIES AFTER THE BALE, FOR THE USER WITH A PROBLEM. LEVEL IV OFFERS 
BOTH, WE HAVE A FULL TIME TECHNICAL SERVICE STAFF OF B, AND A PROBRAHHINO 
STAFF AB NELL, BOTH ARE AVAILABLE TO OUR CU8T0MERB DURIN8 NORMAL BUSINESS 
HOURS MONDAY THRU SATURDAY, PHONE (313) 92B-62O0. YOUR HARDWARE PURCHASED 
FROM LEVEL IV ALSO HAS AN EXTENDED WARRANTY, AFTER THE ABOVE -O DAYS BEND OR 
BRINB IT BACK TO US FOR AN ADDITIONAL 3 MONTHS OF COVERAGE' (WARRANTY COPIES 
ARE AVAILABLE ON REQUEST). 

YOU MUBT RELY ON THE "BUILDER- OF A "BUILT-UP" UNIT TO PUT IN HOOD 
COMPONENTS, AND PROVIDE BOTH YOUR WARRANTY AND AFTER WARRANTY SERVICE, SELECT 
HIM CAREFULLY IF YOU BO THIB MAY. 



EPSON 
6HITH-CCR0NA 



IV OFFERS BOTH "PURE" AND "BUILT-UP" UN1TB, SEE OUR OTHER ADS IN THIB 



I HAYES r fr — IB 

IWPI — " 

I TAND0N > ^=---i 

I SOFTWARE 

■ SUPPLIES 

RETAIL STORE NO. P- 1 30 

LEVEL IV PRODUCTS, INC. 

134 SOUTH FRONT STREET 

DOWASIAB, M1CHIBAN *?0«7 

PHONE ■••:'.' 792-A600 

PHONE/MAIL ORDER CENTER 

LEVEL IV PRODUCTS, INC. 
3 242'* SCHOOLCRAFT ROAD 
LIVONIA, MICHIGAN 48130 
PHONEJ CHI) 313-33S-A200 
TDLL FREEl BOO-S21-330S 



HAQA2 1NE. 



CALL FOR OUR CURRENT LOW PRICES CMI3 313-525-6200 OTHERS B00-5E1-3305 
NE ACCEPT CVISA-MC-CHECKE-C0D1 INQUIRE ABOUT OUR CASH PRE-PAY DISCOUNTS 



• See List ol Advertisers on Page 451 
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CHICAGO... 
What do you do 
when the system 
you bought by 
mail in California 

STOPS... 
DEAn 



I 



<a«r 



%». 



It's tough. Vou can't send it 
back to the guy you bought it from. And you 
can bet. you're going to pay back all that money 
you thought you'd saved, when you take it to be re- 
paired to a guy you didn't buy it from. 

HERE'S THE SOLUTION Deal from the start 
with the best dealer in vour own local area vou can 
find. 

In CHICAGO ... that's EBG& ASSOCIATES... 

since 1978 a Full Service microcomputer store spe- 
cializing in TRS-80. IBM PC and Corvus Concept 
Systems. 

• Computers & Peripherals & Supplies 

• Business & Personal Software* Consulting 

• On-site repair & modification facilities 

• Programmers & Technicians you can talk to 

ALL PRODUCTS COMPETITIVELY PRICED- 
COMPETENTLY REPRESENTED! 

• Lifeboat Assoc. • LNW Research • Epson 

• Integral Data •Olivetti • LDOS 

• Hayes • Micropro • DOSPLUS 

• MULTIDOS • OKIDATA • Maxell 

• Galactic Sftwre. • Signalman • Corvus 

• Microsoft • Pickles & • SBSG 

• Novation • Trout 

CHICAGO AREA— come in or call (312) 782-9750. 

Get a FREE 3-month subscription to our computer 

newsletter. 

Stop in for a handful of Jelly Beans. 



203 North Wabash. Suite 2118 
^ 2 7, Chicago, IL 60601 
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02ED - 0313 


READ PROGRAM AND JUMP 


lIIIMIIIIIlllllMlllIIlllIIIUIIIIIllllIttlllllllllllllllll 


0314 - 031C 


CASSETTE ROUTINE 


l>314 - 031" 


READ 2 bYILS AND fLI IN ML 


IMIinillUMINIIIIUIUIIUnillUUUUMHtlMIMIinu 


03 ID - 0329 


SYSTEM ROUTINE 


031 - 0329 


COMPUTE JUMF ADDRESS ANb GU 




•FDR ■••■• INPUT 


lllllllilllllllllllMIIIIIMIllllll IIII1III1IIIII1II1II 


032* - 0347 


OUTPUT ROUTINE 


032A - 0328 


SAVE BC AND CHARmLTER *C lUTPUT 


032C - 032* 


CALL DOS EXIT AT 4ICI 


032F - 0331' 


CHEO FOR DEVICE T rtt 


0333 - 0334 


I3E1 CHARACTFR TO OUTFUT AND BC 


0335 - 0337 


If CASSETTE THEN JUHP 


0330 - 0339 


1F PRINTER THEN JUMF 


0338 - 034/ 


DISPLAY CHARACTER ON VIDEO AND UDATE CURSOR 




THEN RETURN 




•UN ENTRY DEVICE 1 YPt FLAG 14090s 




-1 CASSETTE 




U VIDEO 




• 1 PRINTER 
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034B - 0357 


VIDEO ROUTINE 


1.1348 - 03S7 


CURSOR riAlNlbNANCt 


ItlMIIMIUIUMtiUUIMIUUIIUIIIIIIiniUtlllUHUMI 


03SB - 0360 


Kfc ABOARD ROUTINE 


0398 - '.■:;>«. 


CALL DOS EXIT AT 41C4 


03SB - '•:«." 


t>CAN It ABOARD AND Rt TURN WITH CHARACTER IN A 


• •■IMIIIIIIIItlllllllMllllllllllllllllllMlllllllllllllltl 


03*1 - U3B3 


INPUT ROUTINE 


0361 - »'3*>' 


ZERO LAST IE< PRESSED AND CURSOR POSITION 


03*8 - 0368 


CALL DOS EXI I Al 41AF 


0368 


SAVE BC 


Li36C - U37G 


bE 1 START OF BUFFER AND LENGTH 


0371 0373 


L. t T I NPU T 


03/4 


SAVE FLAGS 


371 - >.i-/e 


GET INPUT LENGTH AND END OF INPUT 


03/9 - itl-IU 


ZERO END OF INPUT 


037B - 0380 


GET BC AND HI = START OF INPUT - 1 


".>3ai 


RETURN WITH CARRY IF BREAt MAS PUSHED 


0382 - l>383 


CLEAR FLAGS AND RETURN 


iiiiiiiiiiiiiiiiiiiiitiiiniiiiiiiiiiiiiiuiiiiiiuiiiiiiiii 


0384 - 03BA 


KEYBOARD ROUTINE 


'j 384 - 038b 


SCAN KEYBOARD 


0387 


CHECK FOR KEY PRESSED 


0388 


RETURN IF KEY PRESSED 


0389 038A 


LOOP TILL KEY PRESSED 


•>■•••>•«•■• «»««*•**»**«***»»*****»***«**»*»*»* ***»*****««»• 


038B - 039B 


PRINTER ROUTINE 


0381 - 0398 


SET CARRIAGE POSITION Tu START OF LINE 
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039C - OJC1 


PRINTER ROUTINE 


039C - 03CI 


FRINT CHARACTER IN A 


IIUMIItlUMIHHMUINHUIUIWUIMMHUHlUIIUMII 


03C2 - <.-3£2 


DRIVER ENTRY ROUTINE 


03C2 - 03C2 


JUMP TO t-.PI- H3F K I A I E LRIVER ADDRESS 


t***«««***(*t»***«*«*******(«***(**t«t(**«(«(*t»i»<((((l*(i> 


03E3 - 0457 


KEYBOARD DRIVER 


03C3 - 0457 


SCANS KEYBOARD AND RETURNS WITH Bi'TE 


IIIIIIIltllllllllllllllllllllllllMIIIOIIIIIOIUItllllllll 


0458 - 08BC 


VIDEO DRIVER 


0458 - 098C 


DISPLAY BYTE AND RETURN 


KtltlllllllllllllltllUIIIIIUIIIUIIllIlllllllllllDllllII 


058D - OSD8 


PRINTER DRIVER 


OS8D - 05DS 


PRINT BYTE AND RETURN 
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05D9 - 0673 


INPUT ROUTINE 


05D9 - 0673 


INPUT INTO BUFFER 




•ON ENTRY HL = STAR I OF BUFFER 




B » BUFFER SIZE 




N1LL EXIT WITH CARRY IF BREAK. PRESSED 


**««*»*•*•**»* ****** MX***************************** ******* 


0674 - 06D1 


INITIALIZATION ROUTINE 


0674 - 06 7S 


TURN OFF CASSETTE 


0676 - U68i' 


SET UP RSTS. VIDEO. ►EYBOARD, AND PRINTER 




DEVICE CONTROL. BLOCKS IN RAM 


0681 - H68 4 


SEND VALUE IU CASSETTE PORT 


>>68S - C>6BA 


ZERO RAM LOCATIONS 6036 - 4062 


•*>8B - U692 


IF BREAK PRESSED JUMF 


0693 - 0693 


SET STACK TO 40D7 


0696 C<69fc 


IF NUN DISK JUMP 


069F - 06A3 


SELECT DISK. O AS CURRENT DRIVL 


_>6A4 - ''CLb 


LOAD DOS LOADER AND JUMF 


06CC - O601 


JUMP TO READY ROUTINE 


a****!*************** ■■•••■••■••••••••••••••••••■■■••••••til 


"6D2 - 0/«.>/ 


t On STORAGE LOCATION 


06D2 - »707 


RSI VECTORS AND DEVIl.E LON 1 ROL BLOCK ARE 




ST URk i> HERE 


•••a* **•***«*•**** UUUIIIIIUIIUUMHUUKMMUUUUI 


o7oe 0781 


SINGLE PRECISION xDDllION ROUTINES 




Map continues 
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Scanned by Ira Goldklang - www.trs-80.com 



RUN BASIC PROGRAMS AT 




WITH ZBASIC 2.2. 

THE WORLDS FASTEST TRS-80 BASIC COMPILER from SIMUTEK 



BELIEVE IT OR NOT WE'VE ADDED MORE 
NEW FEATURES to the ONLY INTERACTIVE 
BASIC COMPILER for the TRS-80 1 

! Speed increases of 10- 100 times are typical after compilation 
2. Compiled code can be RELOCATED to run anywhere in memory 
Code is even ROMablel 

3 ZBASIC 2 2 NOW SUPPORTS BOTH RANDOM and 
SEQUENTIAL DISK I/O 

4 ZBASIC 2.2 is now a super tool for business programmers 
RANDOM ACCESS FILES, and PRINT USING statements are 
supported as well as a HIGH PRECISION MATH package (with 
no rounding problems). 

5. Special BUILT-IN MACHINE LANGUAGE COMMANDS to 
increase program operation by as much as 1000 timesl Special 
commands are implemented for fast memory searching (CPDR. 
CPIR). block memory moves |LDIR. LDDR). inputting and printing 
HEX numbers, inserting MACHINE LANGUAGE into COMPILED 
CODE, disabling and enabling interrupts, inverting memory. 1 6 bit 
PEEKs and POKES, and stack control, debug and much more. 

6. ZBASIC 2.2 compiles the ENTIRE PROGRAM into to Z-80 
machine language (Not 8080 code or a combination of BASIC and 
machine language like some other compilers ) Clumsy LINKING 
LOADERS, and RUNTIME MODULES are not needed. ZBASIC 2 2 
creates a ready to run MACHINE LANGUAGE program 

7 NO ROYALTIES imposed on registered ZBASIC owners 

8 Typical COMPILATION TIME is TWO SECONDS for a 
4K program 

9. Use TRS-80 Basic to write ZBASIC programsl 

1 0. Compile many existing programs with only minor changes. 
(Some BASIC programming experience is required.) 

1 1 . Fully compatible with both the Model I and the Model III Mod I 
compiled programs work on a MODEL III. and visa-versa ZBASIC 
works with NEWDOS-80. NEWDOS I . DOSPLUS. LDOS. MULTIDOS. 
ULTRADOS. TRSDOS etc 

1 2 BUILT-IN and much improved MUSIC and SOUND EFFECTS 
commands 

1 3. Improved CHAINING for disk users 

1 4. TIME $ now available on DISK version 

1 5. ZBASIC 2.2 now has an INPUT @ command (similar to PRINT @|. 

1 6. The TAB function will now tab 255 columns on a printer (BASIC 
cannot tab past column 64 ) 

1 7. NEWDOS 80 2 USERS can use the CMD dos command" 
functionl 

1 8 NEW and EASIER to use USR COMMANDS. 

1 9 New math functions to calculate XOR and INTEGER 
REMAINDERS 

20. Logical STRING COMPARISONS are now supported 

21 . The disk commands INSTR. MID S ASSIGNMENT are now 
supported on both DISK AND TAPE ZBASIC 

22 DEFSTR is now supported 

23. Eight disk files may be opened simultaneously, random. 

sequential or mixed 

24 LINE INPUT*, is now supported 

25 Invoke the compiler by simply hitting these two keys: 

26. NEW 100 • PAGE MANUAL WITH DESCRIPTIONS AND 
EXAMPLE. 

27. ZBASIC 2.2 Comes with CMDFILE/CMD program from 
MISOSYS, to allow appending or merging compiled programs and 
machine language programs from tape or disk 



:0MIN. 2 SEC. 

:7MIN.34SEC. 

:0MIN. 18 SEC. 
: 895 BYTES 
: 2733 BYTES 



ZBASIC 2.2 DOES NOT SUPPORT THESE 
BASIC COMMANDS: 

I . ATN. EXP. COS, SIN. LOG. TAN. and exponentiation (However. 
subroutines are included in the manual for these functions! 

2 ERROR. ON ERROR GOTO. ERL. ERR RESUME 

3 No direct commands like AUTO. EDIT. LIST. LLIST ETC. although 
these commands may be used when writing programs 

4 Others NOT supported CDBL. CINT. CSNG. DEFFN. FIX. FRE 
5. Normal CASSETTE I/O (ZBASIC supports it's own SPECIAL 
CASSETTE I/O statements.) 

6 SOME BASIC COMMANDS MAY DIFFER IN ZBASIC. For 
instance. ENDjumps to DOS READY. STOPjumps to BASIC 
READY etc 

7 MEMORY REQUIREMENTS, to approximate the largest BASIC 
program that can be compiled in your machine (at one time|. enter 
BASIC and type PRINT (MEM-6500J/2 Remember, you can merge 
compiled programs together to fill memory 

ZBASIC 2.2 SPEED COMPARISON DEMO 

To help give you arx idea how fast compiled programs are, we have 
included this demo program. 

ZBASIC 2.2 DEMO PROGRAM 

Time to compile and run complete program 

BASIC Execution speed MOD 1 . LEVEL II 

ZBASIC Execution speed MOD I . LEVEL II 

BASIC Program size (WITHOUT VARIABLES) 

ZBASIC Program size (WITHOUT VARIABLES) 
(Remember that the ZBASIC program includes an 1879 byte sub- 
routine package ) Program shown exactly as compiled and run in 
BASIC and ZBASIC 

10 »■ — ■■■■■ ZBASIC 2.2 EXAMPLE PROGRAM AND TIME TEST—=»==» 
20 CLS:CLEAR100:DEFINT A-XsDEFSTR Z:DIM AO<64, 24) , Z (50) iRANDOM 

39 AA-100:BB--1000iCC-3:DD--3:EE— 9999:ST»-"START TIME "*TIME« 

40 FOR I=1T0127STEP2 :FOR J=47T01STEP-3: XX-POINT ( I, J) iSET < I, J) 
581 XX-<I-J)/CC»<7*I*J> jXX»ABS<INT<RNDU»J>-AA>*7> iRESETU.J) 
60 XX»PEEK<I*J> : POKE 13368* I* J, J iOUT255, J AND <3*J> iXX-INPd > 
78 AB«-STR«(I*J> :BA«-LEFT«(AB»,2> : AA ( I /2, J/2) -VAL <BA»> *AA»3 
80 BA«=BA«*RIGHT«<BA», »ND<3>> |XX-1NSTR<1,BA«, "9") :XX-SQR(I«J> 
90 BA»-MID«(BA«, 2,2) iMID« <BA«, 1, 1 > =Z iIF XX THEN 100 ELSE CLS 
100 IF LEN(BAS>>3 OR SGN(XX)-1 AND ASC(BA«)-32 THEN PRINT"***" j 
110 IFPOS(0>>62 THEN TR0N: TROFF : PRINT ELSE XX-NOT (RND (99) ) ♦ 100 
120 A»=INKEY»iIF A««"Y" OR A»-"y" AND 1)120 THEN PRINT"TRUE. . " 
130 RESTORE iREADA, C, Z <J),D:GOSUB170iGOSUBI70iGOSUB170iGOTO210 
140 NEXT iPRINT"*" j :NEXTIiCLSlPRINT0512,ST«, "STOP TIME ";TIME« 
150 STOP' ———»—- END OF MAIN TEST LOOP -«————-■-« 
160 DATA 12345, -1, "TEST", -9999 

170 ON RND(6) GOTO 180,190,200,180,190,200 

IS? RETURN 

190 RETURN 

200 RETURN 

210 ON RNDO) GOSUB 180,190,200,180,190,200,180,190,200 

220 GOTO 140 

NOTICE ZBASIC 2 OWNERS: you can upgrade your ZBASIC 2 for no charge 
Just send us your original diskette/cassette and a S.A.S E with your registered 
serial number and copy of your invoice We will send you ZBASIC 2 2 and 
updates to your manual 
VISA. MASTERCARD. AMFRICAN EXPRESS. COD ORDERS ONLY 

800 528-1 149 order line 

ZBASIC 2 2 DISK VERSION AND MANUAL 89 95 

ZBASIC 2 2 TAPE VERSION AND MANUAL 79 95 

ZBASIC 2 2 DISK & TAPE VERSION AND MANUAL 99 99 

MANUAL ONLY |APPLIES TO PURCHASE) 25 00 

SIMUTEK COMPUTER PRODUCTS INC. 

TECHNICAL QUESTIONS PLEASE CALL (602) 323-9391 
4897 E. SPEEDWAY, TUCSON. ARIZONA 85712 ^, 2 

TRS-80 is tm of Radio Shack, a Tandy Corp 



• See List ol Advertisers on Page 457 
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STOCK MARKET COMPUTER 
SOFTWARE 

Now available 34 programs 'rooi the ooo 

NEW USES FOR THE HOME COMPUTER IN THE STOCK MARKET 

The booK has won praise through the world and b as been pur- 
chased in over 40 countries 

The author has had 20 years expene n ce as a stock oroker and con- 
ducted eight years of computer research developing these 34 
programs Especially valuable to stock or commodity traders 

Available on disks or tapes for TRS-80 Model I Level II and 
Model III Pnce S49 95 

Also Ava.la&e 
Market Average Package Contains weekly pr ces gomg back over 
90 years. Also inc uded are b utility programs Price is S99 95. In- 
valuable for cycle research Send check to 
Thomas V Lenz, Dept M 
596 W. Karval Ct. - Spring Creek 
Elko. Nevada 89801 
(overseas USA Dollar lntematio n ai Money Orde f or a Draft 
payable on a U S A Ba°k) 

State whether you want disk or cassette ••* 144 



n»n«n«D«D»n 

□ 



LNW80 D,DDDD ° 
COMPUTERS ° 

n«D«n«n«n»a»n«n»a»n«n«n«n«D«D»n«D«n 




a 



n 



n 



a 



D»D«a«n«n«n»n»D»a«a«a»a«n»n»n»D«D*a 

• IN STOCK NOW!' call for special • 
□ prices on LNW80s, NEC printers, □ 

• RGB color monitors, and TANDON • 



□ disk systems. 

• *••*. NEM LNW SOFTWARE! 

□ Iff % 



***»* 



I 



a 
a 



7180 Woodrow Wilson Dr 
Los Angeles, CA 90068 



□ 

a 
□ 

D 

a 



□ (213) 650-5754 - (714) 973-1939 □ 

•□^•□•□^•□^•□•□•□•□•□•□•□•□•□•□» 
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o7<->8 


070A 


POINT ML TO .S VALUE 


fob 


070* 


LOAD BlDE hum value POINTED to b<i m and JonF 


0710 


071 r 


l HAD Bi DE WITH VALUfc FOINUD ICJ By HL 


0713 


"71b 


INVERTS THE VAL LM IN REGI tSUB 1 RAC 1 I UN 


7 It - 


n/bl 


ADD'. THF VALUES IN BCDE Td REGI AND RETURNS 
If NC UV ERROR 
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0702 


0706 


OV ERROR ROUI INE 


07B2 


0703 


l ERROR CODE 


0704 


■j/bb 


JUMT IU ERROR ROUTINE 


'.>/B 


07C2 


SYSTEM MATH ROD I I Nfc 


07C3 


n7Do 


SYSTEM MATH ROUTINE 
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07D7 


07F7 


SYSTFM MATH RlHITINE 


07F8 


Ob- 'fa 


SYSTEM MATH ROUTINE 


oeo9 


OB46 


RE6I ■ lOGlREGll ROUTINE 


'.'84/ 


oBVl 


RfcLil ■ BCDE * REGI 


0092 


nB9i 


SYSTEM MATH R>MJTINE 


.■e9; 


• '954 


Mill = BCDE . REGI 


.■9',:, 


• .9f> "• 


SYSTEM MATH ROUI INE 


■•9b4 


U976 


SYSTEM MATH ROUTINE 


..«*// 


<..VU9 


REGI - ABSiREGI 1 


tatiiuiiiM 
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'. V8A 


. 199 ; 


REBI BBNCRE6I 1 


(••>( 


nun 
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'..9<y4 


0VA3 


SYSTEM MATH ROUT INI 
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I..OA4 
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SINGLE PRECISION REGI IU STALE 
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. iVB 1 


0903 


I IK.D VmLUE FUINIED IU BY HI INTO BCDE 


'.'9B4 


09BF 


REGI ■ BCDE 


J9B* 


09CA 


LOmD VALUE IN BCDE 10 LOCATION rOlNTED TO B> HL 


09CB 


•-•9CD 


MOVE RLG1 10 iHU :,INOL( ONI t 


o9CE 


oVDl 


HOVE 'Dfcl 7U i HI i SINGLE ONI < 






HOV.E (HI J TO IDE) FOR NTF PiTIS 


t«*i«*t$t****«*****(****<«**t*i***«tt>*((>(«t>«a**t ••••*•••* 


0903 


09DS 


MOVE (DE) TO (HI 1 FOR NTF BY1LS 
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09D6 




MOV1 >DE> TO (HL) FOR A BYTES 


0907 


o9DE 


MOVE (DE' TO 1HL) F OR t BYTES 


'.• C >D^ 


OOFS 


SYSTEM HA1H ROOT INE 


09f 4 


OAOB 


System math ROUTINE 


OAOC 


0A2S 


SINGLE PRECISION COMPARE REGI bi_DE 


0A26 


ua:.b 


SYSTEM MATH ROUTINE 


0A39 


OA48 


INTEGER COMPARE HL - DE 
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OA49 


0A77 


SYS 1 EM MATH ROUTINE 


0A7B 


OA7E 


DOUBLE PRECISION COMPARE REG*' REGI 


0A7F 


uAA? 


CI Nil REG 11 ROUTINE 


C-AA '. 


OAOO 


SYSTEM MATH ROUTINE 


OABI 


• •ADA 


LSNGlREGl) ROUTINE 


0AD8 


OAF J 


CDBLtREGli ROUTINE 


1 IAI 4 


001E 


SYSTEM MATH RCU1I1NE 


obif 


0023 


SYSTEM MATH ROUTINE 
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0B2A 


ObJ6 


F 1 X (REGI ) RUUT INE 
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0037 


•:>B58 


INT «REG1 1 ROUI INE 


0059 


009f 


SYSTEM MATH ROUTINE 


.i&A.. 


I.-BA9 


SYSTEM MATH ROUI INE 


OBAA 


uDC6 


SYSTEM MATH ROUTINE 
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INTEGER SUBIRALIIUN HL - III HL 


0002 


• •hr i 


INIIf.E-h ADDIIION HI - DE • HL 
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OOF ." 


OCSA 


INTEGER MULT I PL I CA 1 ION HL - Dl » HL 


IlllllllllllllllllllllllllllllllllllllUlltllllllllOXIllll 


0C9B 


OC6F 


SYSIEM MATH ROUI INE 


OC 70 


OC7& 


DClUbLE PRECISION SUBTRACTION REGI = RE l> 1 RE82 


• ■L/7 


0033 


DOUBLE PRECISION ADDITION Rll.l = REGI • REL>. 


0033 


0044 


SYSTEM MATH ROUTINE 

Map continues 



What Does 



micro 




ffM mi gg line lot TRS-tO' us.'S 



Do For You? 




IT 



• provides you with more information on your TRS-80* than any other single source 

• gives you 20-30 programs in each issue 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80 — its good points and its limitations (80 Micro is 
not affiliated with Tandy) 

• lets you save money— lots of it— by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• tells you what's really happening in the industry 

• brings you Wayne Green's outspoken and often controversial editorials every month 

• and best of all it gives you a no risk subscription offer— 



Subscribe loda> — if >ou aie noi satisfied with the first issue— write "cancel" across sour invoice and send it back The KO Mum is vours to lo.-p 



YES ... I WANT 80 MICRO 



" Check enclosed for $24.97 

Bill my n AE " MC LI VISA 7 Bill me 

Name 



Address 
City _ 



.State, 



Zip 



L 



Card* 

Signature 



.Expire Date 



.Inter ban k#_ 



32DR8 



Canada and Mexico $27.97. one year only. US lunds Foreign $44 97 one year only. US funds. DRAWN ON US BANK ONLY 



80 Micro • PO Box 981 • Farmingdale, N.Y. 11737 
*TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. 
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TRS 80™ Model I & III 
External Mini Disk Drives 





Single Chassis w/Power Supply: 

Fully assembled silver chassis with external card edge connector for easy 
cable installation. Chassis includes power supply & one Tandon drive. 



• TM100-1 w/chassls 

• TM 100-2 w/chassls 

• TM 100-4 w/chassls 



$249 
$329 
$399 



Tandon Bare Drives: 

• TM100-1 $199 

5'/»". single sided. 40 TRK. 48 TPI. Capable of single or 
double density 

• TM100-2 $279 

5'/«". double sided. 40 TRK. 48 TPI Capable of single or 
double density 

• TM100-4 $359 

5'/«". double sided. 80 TRK. 96 TPI Capable of single or 
double density 



FREE SHIPPING 

ORDER NOW - TOLL FREE 

1-800-531-5475 

(512) 250-1523 In Texas 

"If we can't ship the next working day, 
we won't take the order." 



COmpuAdd COrp. Visa, MasterCard. Money Order 

13010 Research Blvd. " Caller's Ch^. Add 5% sales 

Suite 218 

A . . — ___,_- TRS 80 is a Trademark of 

AUStin, Texas 78750 Tandy Corp. 



All hardware has a 120 Day Limited Warranty. 



^252 



Map continued 






OD45 - 


OD56 SYSTEM MATH ROUTINE 






>.<D37 - 


0D68 SYSTEM MATH ROUTINE 






0D69 - 


ODAO SYSTEM MATH ROUTINE 






0DA1 - 


ODE 4 DOUBLE PRECISION MULT I PL I CAT I OT> 
REG1 - REG1 ( REG2 






ODES - 


OE4C DOUBLE PRECISION DIVISION 
REG1 - REG1 / REG! 






0E4D - 


OE64 SYSTEM MATH ROUTINE 






0E65 - 


u£.bb CONVERT ASCII STRING TO DOUBLE 
•ON ENTRY ML POIN1S TO STRING 


PRECISION 




uE6C - 


0F09 CONVERT ASCII STRING TO M1NUHLX" 
•ON ENTRY HL POINTS TO STRING 


REQUIRED 




OFOA - 


OF 26 SYSTEM MATH ROUTINE 






0F29 - 


OF93 SYSTEM MATH ROUTINE 






iiitluiliiiiliiiiliiiiiitiitKtittaitiiliiMllillutlltliii 


OF94 - 


OFBL SYSTEM MATH ROUTINE 






OFBD - 


1033 CONVERT REG1 TO ASCII STRING 
•ON EXIT HL POINTS TO STRING 






1034 - 


13E6 VARIOUS SYSTEM ROUTINES 






13E7 - 


1438 SOR(REGl) ROUTINE 






1439 - 


14C8 EXP(REGl) ROUTINE 






14C9 - 


1S40 RND(REGl) ROUTINE 






1341 - 


1546 COS ( REG 1) ROUTINE 






1547 - 


158A SIN(REGl) ROUTINE 






1S8B - 


15A7 SYSTEM MATH ROUTINE 






13AB - 


13BC TAN(REGl) ROUTINE 






13BD - 


1SE2 ATN<REG1) ROUTINE 






13E3 - 


1607 SYSTEM MATH ROUTINE 


LISTS, 




1608 - 


1BF6 CONTAINS BASIC COMMAND ADDRESB 




THE RESERVED WORD LI8T, PRECEDENCE OPERATOR 




VALUES, ARITHMETIC ROUTINES LIST, DATA 






CONVERSION ROUTINES LI8T, AND ERROR MESSAGE 




LIST 






RESERVED WORD LISTi 






ABS 


D9 0977 BOSUB 91 1EB1 


READ BB 


21EF 


AND 


D2 23FD GOTO BD 1EC2 


REM 93 


1F07 


ABC 


F6 2AOF IF BF 2039 


RESET B2 


0138 


ATN 


E4 1SBD INKEY* C9 019D 


RESTORE 90 


1D91 


AUTO 


B7 2006 INP OB 2AEF 


RESUME 9F 


1FAF 


COM. 


Fl OADB INPUT 89 219A 


RETURN 92 


1EDE 


CHR* 


F7 2A1F INSTR CS 419D 


RIGHT* F9 


2A91 


CINT 


EF OA7F INT D8 0B37 


RND DE 


14C9 


CLEAR 


88 1E7A KILL AA 4191 


RBET AC 


419A 


CLOAD 


B9 2C1F LEFT* FB 2A61 


RUN BE 


1EA3 


CLOSE 


A6 4183 LEN F3 2A03 


SAVE AD 


41AO 


CLS 


84 01C9 LET BC 1F21 


SET 83 


0133 


CM) 


89 4173 LINE 9C 41A3 


SON 07 


09BA 


CONT 


B3 IDE4 LIST B4 2B2E 


SIN E2 


1S47 


COS 


El 1341 LLIBT BS 2B29 


SQR CD 


13E7 


CSAVE 


BA 2BF5 LOAD A7 4188 


STEP CC 


2601 


CBNG 


FO OAB1 LOC EA 4164 


STOP 94 


1DA9 


CVD 


E8 415E LOF EB 4167 


BTR* F4 


2836 


CVI 


E6 4132 LOG DF 0809 


STRING* C4 


2A2F 


CVS 


E7 4138 LPRINT AF 2067 


SYSTEM AE 


02B2 


DATA 


88 1F03 LSET AB 4197 


TAB( BC 


2137 


DEF 


OD 41SB MEM C8 27C9 


TAN E3 


1SA8 


DEFDBL 


9B 1E09 MERGE A8 418B 


THEN CA 




DEF I NT 


99 1E03 MID* FA 2A9A 


TIME* C7 


4176 


DEFSNG 


9A 1E06 MKD« EE 4170 


TO BD 




DEFSTR 


98 1EOO MKI* EC 416A 


TROFF 97 


1DF8 


DELETE 


06 28C6 MKS* ED 4160 


TRON 96 


1DF7 


DIM 


8A 2608 NAME A9 418E 


USING BF 


2CBD 


EDIT 


9D 2E60 NEW BB 1B49 


USR CI 


27FE 


ELBE 


93 1F07 NEXT 87 22B6 


VAL FF 


2AC3 


END 


BO 1DAE NOT CB 2SC4 


VARPTR CO 


24EB 


EOF 


E9 4161 ON Al 1FC6 


♦ CO 


24VF 


ERL 


C2 24DD OPEN A2 4179 


CE 


2S32 


ERR 


C3 24CF OR D3 2SF7 


• CF 




ERROR 


9E 1FF4 OUT AO 2AFB 


/ DO 




EXP 


EO 1439 PEEK E3 2CAA 


01 




FIELD 


A3 417C POINT C6 0132 


> D4 




FIX 


F2 0B26 POKE Bl 2CB1 


■ BS 




FN 


BE 4133 POS DC 27F5 


< 06 




FOR 


81 1CA1 PRINT B2 206F 


4. 2* 


4194 


FRE 


DA 27D4 PUT AS 4182 


' 3A 93 FB 




BET 


A4 4174 RANDOM 86 01D3 






1BF7 - 


1904 DIVISION SUPPORT ROUTINE 






1 


• ••»*•*••*•**•«>*•»*<••• IMMIIHIIIUIUUHMtllHI 


1903 - 


191C BASIC VARIABLES ROM STORAGE LOCATION 




191D - 


1923 'ERROR' MESSAGE 






• ttM***t«*MMtl IS IttlllllUMIIIIMIIM »»•*«•«»••»«*«»»»*» 
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Map continued 



1924 - 


1929 


' IN ' 


MtSBAGE 


1929 - 


192F 


'REAOV 


MESSAGE 


19JO - 


1933 


'BREAK 


MESSAGE 


193* - 


1954 


LOCATE 


FOR NEXT FRAME ON STACK ROUTINE 


1933 - 


19*2 


MEMORY 


MANAGEMENT ROUTINE 


19*3 - 


197D 


MEMORY 


MANAGEMENT ROUTINE 



197E 
198* 
19BA 
198E 
1991 
1997 
199A 
1990 
19AO 
19A2 
19AB 
19AE 
19B1 
19B4 
I9B3 
19BA 
19C0 
19C1 
19C9 
19CC 
19CD 
19DO 
19DB 
19DE 
19E3 
19E3 
19E* 
19E9 
19EC 
19EF 
19F0 
19F3 
19F* 
19FE 
1A02 
1AO* 
1A09 
1AOA 
1A11 
1A18 
1A19 
1A1C 
1A1F 
1A22 
1A23 
1A2B 
1A33 
1A3* 
1A3D 
1A3F 
1A42 
1A43 
1A46 
1A4B 
1A54 



1983 
1989 
198D 
1990 
199* 
1999 
199C 
199F 
19A1 
19AA 
19 AD 
1980 
19B3 

19B9 



19CS 
19CB 

19CF 
19DA 
19DD 
I9E2 
19E4 

19ES 
19EB 
19EE 

19F4 

19FD 
lAOl 
lAOS 
1AOS 

1A10 
1A17 

1A1B 
1A1E 
1A21 
1A24 
1A2A 
IA32 
1A33 
1A3C 
1A3E 
1A41 

1A43 
1A4A 
1AS3 
IAS* 



IF STILL IN INPUT PHASE THEN JUMP 
CHECK RESUME 

IF NR ERROR THEN JUMP 

JUMP TO REAOV ROUTINE 

SAVE LINE NUMBER FOR LAST DATA STATEMENT 

ENTRY POINT FOR SN ERROR 

ENTRY POINT FOR /O ERROR 

ENTRY POINT FOR NF ERROR 

ENTRY POINT FOR RW ERROR 

SAVE LINE NUMBER WITH ERROR TWICE 

BET RETURN ADDRESS AFTER REINITIALI2TI0N 

BET STACK ADDRESS 

JUMP TO REINITIALIZE VARIABLES 

ZERO BC 

PUT ERROR NUMBER IN A AND C ALSO SAVE IT 

SAVE LAST BYTE EXECUTED ADDRESS 

PUT IT IN DE 

IF STILL IN INPUT PHASE THEN JUMP 
SAVE ERROR ADDRESS 
BET LAST BYTE EXECUTED ADDRESS 
SAVE IT 

IF ON ERROR SET THEN JUMP 

IF NESTED RESUME THEN JUMP 

JUMP TO EXECUTION DRIVER FOR RESUME 

ZERO ERROR OVER IDE FLAG 

BET ERROR CODE 

GOTO NEXT LINE ON VIDEO 

POINT TO ERROR CODE TABLE 

CALL DOS EXIT AT 41A* 

ZERO 

DISPLAY ? 

ADJUST ERROR CODE POINTER 

DISPLAY ERROR CODE 

POINT TO 'ERROR' MESSAGE 

SAVE LINE NUMBER WITH ERROR 

DISPLAY 'ERROR' MESSAGE 

BET LINE NUMBER WITH ERROR 

IF INPUT PIIABC THEN JUMP 

IF LINE NUMBER HON ZERO THEN DISPLAY 

GET BC 

BET CURRENT OUTPUT DEVICE TO VIDEO 

CALL DOB EXIT AT 41AC 

TURN OFF CASSETTE 

GOTO NEXT LINE ON VIDEO 

DISPLAY 'READY' MESSAGE 

IF SN ERROR JUMP TO EDIT MODE 

GET CURRENT LINE NUMBER 

TEST FOR AUTO MODE 

IF NON AUTO THEN JUMP 

GET CURRENT LINE NUMBER 

SAVE IT 

OUTPUT CURRENT LINE NUMBER 

SEARCH BASIC PROGRAM FOR CURRENT LINE NUMBER 

IF MATCH FOUND DISPLAY I ELSE DISPLAY SPACE 

GET INPUT 



1AS7 




BET CURRENT LINE NUMBER 


1A3B - 


1A39 


IF BREAK PRESSED THEN JUMP 


1A3A - 


1ASD 


TURN OFF AUTO MODE 


1A3E - 


1ASF 


IF NON AUTO THEN JUMP 


1A*0 - 


1A73 


FIGURE NEXT LINE NUMBER AND JUMP 


1A7* - 


1A7A 


DISPLAY > 


1A7B - 


1A7D 


GET INPUT 


1A7E - 


1A80 


IF BREAK PRESSED THEN JUMP 


1A81 - 


1AS3 


SET 1ST CHARACTER AND TEST FOFi END OF STATEMENT 


1AB4 - 


1A8* 


IF END THEN JUMP 


1AB7 




SAVE LINE NUMBER 


1A8S - 


1A97 


POINT TO 1ST CHARACTER AFTER LINE NUMBER 


1A98 




SAVE LINE NUMBER 


1A99 - 


1A9B 


ENCODE INPUT INTO TOKENS 


1A9C 




SET LINE NUMBER 


1A9D 




>3ET FLAGS 


1A9E - 


IAMO 


SAVE ENCODED STATEMENT POINTER 


1AA1 - 


1AA3 


CAL- DOS EXIT AT 41B2 


1AA4 - 


1AAO 


IF INPUT PHASE THEN JUMP 


1AA7 




SAVE LINE NUMBER 


1AA8 




SAVE LINE LENGTH 


1AA9 




ZERO A 


1AAA - 


1MAL 


SET FLAG TO INPUT PHASE 


1AAD - 


1AAF 


GET 1ST CHARACTER. SET FLAGS. AND SAVE BOTH 


I ABO 




GET LINE NUMBER 


1AB1 - 


1AB3 


SAVE IT 


1A84 




GET LINE NUMBER 


1AB3 - 


1AB7 


SEARCH FOR MATCHING LINE NUMBER IN PROGRAM 


1AH8 




SAVE MATCHING ADDRESS 


1AB9 - 


1ABB 


SHIFT CLOSET LINE IF NO MATCH TO nAKE ROOM 


1ASC 




SET LINE ADDRESS 


1ASD 




GET FLAGS 


1ABE 




SAVE LINE ADDRESS 


1ABF - 


1ACO 


IF MATCHING LINE NUMBER JUMP 


1AC1 




GET LINE ADDRESS 


1ACZ - 


1AC4 


GET END OF BASIC PROGRAM 


1AC3 - 


1AC7 


FIGURE NEW END OF BASIC PROGRAM 


1AC8 




SAVE IT 


1AC9 - 


1ACB 


TEST OUT OF MEMORY 


1ACC 




GET ENO OF BASIC PROGRAM 


1ACD - 


1ACF 


BET OLD END OF BAEIL PROGRAM 


1ADO 




GET LINE ADDREBS 


1AD1 - 


1AE8 


MOVE THE NEW LINE INTO MEMORY 


1AE9 - 


1AEB 


ADJUST ALL THE LINE POINTERS 


1AEC - 


1AEE 


CALL DOS EXIT AT 41B3 


1AEF - 


1AF1 


UPDATE POINTERS AND VARIABLES 


1AF2 - 


1AF4 


CALL DOS EXIT AT 41B8 


1AFS - 


IAF7 


GO GET NEW INPUT 


1AFB - 


1B0F 


UPDATE LINE POINTERS ROUTINE 


1B10 - 


1B2B 


LINE NUMBER ROUTINE 


1B2C - 


1B4S 


SEARCH FOR HATCHING LINE NUMBER ROUTINE 


1B49 - 


1BSC 


NEW ROUTINE 


1B49 




RETURN IF SN ERROR 


1B4A - 


1B4C 


CLEAR SCREEN 


1B4D - 


1B4F 


GET START OF BASIC PROGRAM 


1BSO - 


1B32 


TROFF 


1B33 - 


1BS3 


AUTO OFF 


IBS* - 


1B38 


ZERO 1ST TWO BYTES OF BASIC PROGRAM 


1BS9 




POINT TO START OF VARIABLE TABLE 


1BSA - 


1»SC 


SAVE IT 



M*p contmuts 




Buy one of our computers at our usual discounted 
price and get the new Timex-Slnclair Computer Free. 



LNW Research .wmm 

ModeMI $2499 

TRS-DOS & CP M Cmpatible— Green 
Phosphor Monitor — Two 40 Trk. 
Drives— 96K— 4 Mhz. Speed— Hi Res & 
Color Graphics— RGB Interface- 
Fan — 6 Month Warranty 



Custom Radio Shack 

Model 111 $1899 

—Dual 40 Trk. Drives— 48K RAM— 180 

Day Warranty 

Options: CP M— 64K RAM 



Other Drive Configurations Available 



Sanyo MBC-1000 $1899 

"Affordable High Performance 

Computer" 

40 Trk. Double Sided Disk Drive— 64K 

— 4Mhz Speed— CP'M— Basic 

Language — Detachable Keyboard 



Software: MicroPro • Microsoft • AshtonTate • Sorclm • UfeBoat 
Printers: Epson • Okidata • C. Itoh • Smith Corona • Comrex 
Specialty Items: LNW Expansion Interface & Doubters Disk Drives 
• TRS-80 Mod III Drive Kits • Printer & Drive Cables 



Timex-Sinclair $89.95 

Atari 400. Atari 800 $Call 

Lobo Max 80 Scall 



Freedom Technology Int'l 

CP/M Conversion Boards for TRS-80 

Freedom Option ... $199 • Freedom 

Plus (adds 16K)... $399 



Visa Mastercard Personal 
checks accepted This is a 
limited time offer 



MCKIDIAN 



• 507 



T-aoe^arxs trs-OOS trs-SC Raao S*acK-T»ricty c<yp CP v-D-git* Re«a«rc* Corp 



119 N. 18th Street Phila., RA 19103 
(215)-569-2420 



• St Liil of Adwrtinn on Ptga 481 
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Map continued 



Ittlltttllttlltlltltlltlltlllltltlltlltltlltltt 

KcUN ROUTINE 

GET START UF bAS 1 C PROGRAM 
il, Eiy 1 
SAVE I T 
• t I ALL ./ARlABLtb IU .lNl.ll -Kb . ISlUN 
.ihj A 

»£ I NU ERROR FOR RfcSUMt 
ZERO HL 

ZERO BASH 'UlNlbhb 
RE 3 I LIKE DA ■ A 

INIIIALIil ...KiHHlt i I I M ; I K 

LALL DOS EXIT A I 4 1 bl' 
GE I RETURN ADDRESS 
BE1 b l ar r uk , f • l mi - _>f AC6 
:»fc i fa! ALF POINI th 

INMIAlIZF (IIERAL bIRlNb POOi. 

SET OUTF-ur DEVICE U> UUHI AND 1 URN lhSSI III 
UFt 

ZEHU A 
/FRO HL 

CLEAR (-UK FLAB 
3IL.NAL RUN NODE 
oEI RETURN ADDRESS 
faAVE ENiUL'tU bin II M( Mi ulNltF- 
RE I URN 
■ ■IIIIMMIilllllll MlilH llillllllllllll mill 
INPUI Ruill 1 HI 



i Bb : l bb / I I 81 Lm . 

1RB8 - lbbL DlfaFLAi bl-ALE 

IbElD IBM JUM1 tO IN(UI RUU'lNl 

• in t a 4 > iiiiiitiiiiiiiiiiiuiiiiiii aa a • •• 

lbc li.ii IJthi.'F STAIEMLNi FtX I IMF 



■llllllllllll 


165D 


I tit.. 


1B5D 


IBM 


1B60 




iBfrl 


1BA3 


1B64 - 


IboU 


IMS 




ie<rf - 


18/1 


IB72 - 


IB73 


ib/4 


1D/F 


1BSO 


Ibbi 


IBB3 


1 BUB 


lbBC - 


lbUE 


1R8F 




lB7l> 


lbV4 


IWj - 


lbVA 


lBvb 


ibVI 


IbAI 


IBA6 


IBA7 




IBAti 


1BAV 


IBAA 


1BAL 


IBAD 




IBA6 




1BAF 


I BB I 


IBB2 




iiiiiiiiiiiii 


1BB3 - 


iBBf 



llllllllllll 



'Ltfi 



It 9V, 



1L«*.. - |C9I 


H U 


ICV. 


Rfc IliRl. I» Mol 


1CV3 - li '1 


I c 


JL-VS 


mE IuRIJ 


iiiiiiiiiiii 


iilililiuiitlll 


lL-Jf. it. A. 


RSI '-•fa LUDE 



oEi VnLUE in COMPARL 

POINT TO /ALU ''. l urn ARE AND SAVE RETURN 

ADDRESS 

COMPARE THE VAL..ES 

ADJUS1 RE (URN ...il ..I SB AND -->AVE I I 

iF NU SN ERROR I HEN Rb I 1" 

jump Tii SN ERROR ROWING 

I »«* till ••llllllllllll • «• lllllltlttltl tllltlllll 

FuR ROUTINE 
1*11 III >•««••<*••••••••<• •<•••<••••• llllllllllll 

BASIL INIERFEKIEP. 

LHELf FUR SHIP I v 

It- SHIFT «l iHfN CALl ROUI1NE 

SAVE. ENCUDED STAlElitNl FUINIFR 

L.E I NU 1 -HrthfiL I ER 

If MIH I I RLE alAIbfltNl JUMF 

LHELI F OR iN ERROR 

IF IHtN i .IMF ■ U bN t RRUR RUU T I NE 

LHLCt FUR END OF BASH PROGRAM 

IF THEN JUMK . it... • RUUI1NE 

SAVE LINE NUMbER 

IF IRUIF (HEN JUM 

SAVE DE 

DISPLAY 

LUNVERT LINE NUMbER AMD Dlap-LAt il 

DISPLAY 

GET ui 

oE I ENCODED S (AH MINI FjINIER 

lit I NEXT LHARAC I E K 

bfc! RETURN ADDRESs 

It END OF blAitMENI RE 1 URN 

i.HI I I FOR IOI I N 

It NUI I HEN JUM 

F 1GLIRF. JUMF 

faAVt . 1 

I..E r ENCC.rn :.i..u ni m pointer 

IIIIIIIIIIII1III1IIIIIIIIIIIIIIIIIIKIIIIIIIIIII 

RST 10 CODE 

INC ENCODED b(A(EMEII" (tllNUR BY ; 

IF ALPHA RETURN 

If SPACE rHEN LOUF 

SF I FLAGS FUR OIHER l.HARAl c .Rfa 

RETURN 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
1D91 - 1D9A RES1URE ROUTINE 

lllllllllllllIllllllllUIIIIIIIIIIIIIIIllllllllllillllllllll 

1D9B - IDAS t£ /BOARD ROUIINE 



1C9B 


IC 'U 


IC'L 


1 LAI > 


• ia<t •!••••• 


ICA] 


ID1D 


• •lilt II III! 


ll/IL 


ID/-' 


lD.t - 


ID. 1 


ID... 


ID24 


IDA 


I D. . 


. Li~b 


ID.'L 


ID.D 


, D '-• 


1 1)3 1 




ID".. 


1^.^ 


ID.lt. - 


ID38 


lb'9 


ID b 


1D3L - 


I D4 :. 


1044 


104V 


1D4A 




:L4u 


||>4I 


lOjU 


IDS. 


ii.t:- 


iDb. 


10V>fa 




1 i(j- 




1D5A 




10SB 


IDSt 


IDSi 




lm... 


ID61 


ID*.2 - 


D64 


I D6S 


107b 


ID/6 




id; 7 




iiiiiiiiiiii 


1D7B - 


1 DVi • 


1D/B 




1I17S 


1D/I 


1D7D 


ID81 


1D82 - 


1D«F 


lDVi.i 





1D9B - ID9U 

1D9E - lDVr 

1 DAO - I DA4 

1DA5 - 1DA7 
IDAS 



SCAN REV BOARD 

IF NO REV F'KESSED REIURN 

IF SHIFT i UAIT I ILL (tV PRESSED 

SAVE ( EV 

ADJUST FEV 



lllllllllllltlllllllllllllllllllllllllllllllllllllllllllllll 

1DA9 - 1DAD STOP ROUTINE 

•ItlltllllllllltllltllllttllllllllllllKlllltllllltllltlllll 

1DAE - IDt > END ROUTINE 

IIUIIIIMIIIIIMIIKIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 

1DE4 - lOFt. CONT ROUTINE 

tltllllllltlllllllllltttllllllltlllllllllltlllllllllltllllll 

IDF 7 - 1DFF TRON ROUIINE 

ttltt Mil tilt UUttl Itllltttlli. tlltllllt ****••** t>t««M«t**t 

1DFB - 1DFF TRUFP ROUTINE 

■ IIIIIIIIIIIIIIIIMMIIIIIIlllllllllMIMIIIIIilKltMIIIIII 



1E0O - lEJL DEFSTR ROUTINE 

tittiiiii<aiitt<i>itili<«ta»it<<iiiiiiiiiiliiiiiiiiiitiiiin 

1E03 - 1E3C DEFINI ROUIINE 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIKIIIIIM 
1E06 - 1E3C DEFSNG ROUTINE 

• iiiiiitilliiiitiiitiiiKiiitaiiiiiiiKiiiiiiiiiiitniiaaiii 
1E09 - 1E3C DEFDBL ROUIINE 

•iiitiitliii>ii«li<lilitiiilit<<titia>aliaiii>aaiiiiiKilial 
1E3D - IE44 SYSTEM ROUTINE 

t!tt*ta*l*l!ll*l*t!*lllt*t!l*l*!****lltlll*tl*llll****!l"l* 
1E45 - 1E4D S>STEM ROUT INE 

UIIIIIIIIIIMIIIIIIIIIMIOIMIIIIIIIIIIIIIIIIIIUilMIIIII 
IE4F 1E/V ASCII 10 EINAR. I ,n : ll«t 

■lllllll •••••••< lilttlil llllllllliuillllllllllil taititititl 

1E7A - 1EAL LLE.lR ROUIINE 

llllllllllll llllllllillililllllllllllllllllllll'llllll 

IE A3 - 1EB>.| RUN ROUTINE 

• tannin t «iiii tint ••••iititi iiiiiii>«iiii>iiii t**tt**t*ti 

1EB1 - 1EC1 bUSUb ROUIINE 

llllllltllllllllllllllllllllllllllllllllillillllllllllllllll 

1EC2 1EDD liClTO ROUTINE 

■llillllllllllll ••••• IIIIIIIIIIIII lllllll |||»«t|||tll«tlllll 

lEDE IFo4 RETURN f-tiul IMF 

iiiiiiiiiiiiiii iitiiiiiiniiii*iitiia*ii iniiiiiiiiiiiiiiiii 

IFOS - IF IF DAT.. ROUTINE 

•tltltlll<ltllltlllll<ttlllllllllllllllllllltllll*ll*l*l*»*« 
ir;i - IF 6b LEI ROUIINE 

• ••>•••<•!. .••••••iia«<tit«<i<<tt»t»t«ltat«<i»a<>iii<i<iiii< 

IP6C - 1FAE UN ROUIINE 

■ UllllllllllllllllltllllllllltllllllllllHIIMNIIItMMIII 

1FAF - IFF ■. RESUME ROUTINE 

lllllll ••>•••••• llltlllllllllllllllllllllllllllllllllllMIII 

1FF4 - ^«.'i ' cFROR ROUIINE 

Iiiiiiiiiiii tit iiiimiiK ■iiiiiiiiiiiiiiiiiiiiiiiiiit'iiiii 

_«.»'8 - >03B ttUTu R0U1 If* 

••>••• •••••• II ••••llllllllllll •ttlltlllllllllllllKllllltllt 

2039 - LOoo II ROUIINE 

•••••a llllilllllllllllllllllllllll •••••••III llllllllllllllll 

."•>o7 ZOot LFRINt ROUIINE 

• iiiiiiiiiiiiuiiiiii •••••»«»•«•••••••• iiaiitiiitittniiiiii 

20oF - . lob FRIIjI ROUIINE 

lltllllllllllllllllllllllllllllllllllMIIIIUIIIIIIIIKIIKI 

21o9 217 atl UU1F-UI DEVICF TO v'IDEU ROUTINE 

!•»*•• Kilt • ••lll»lllll!lllll»l!l!t!!ltlltt*»ll»l*t*!**t**l* 

I17S .1"! 'REDO' MESSAGE 

• unit •••••••• •iiiiiii iinniiiiiiiiiiiiiiimi«MitiMHiti 

^l/F - ;iOf REDO ROUTINE 
IIIIIIIIIIIIIIHIIIIIIIIIIIIIIMIDIII'I llillllllllllll 

21VA - 21EE INPUT ROUTINE 

iiiiiiliiiiuiMllililiiliiliiiliilllillMiliiiiiiililllliil 
^1EF J28S READ ROUTINE 

t iiiiiiiiuiiii atittaatiiiiiiiittiiiiitiiKiiiitiiiitiititii 

22Bfa - 229V, EX IRA IGNORED' MESSAGE 

•>•••«•*•••> •••••••••••ll>tlllll><<tltl««lllttllll>llllllltl 

2296 - 22B3 DA I A ROUTINE 

••••••••••••••••••••••ati«tiii<(ii>>ii<«>>iiiii>a>tiinittii 

22B6 - 2:2:. NEX1 ROUTINE 

I II ••lllllll •••••••••••••••••••••••••••tlll>*«««><tll«l«<>ll 

2324 - ." 7CH EXPRESSION EVALUATION ROUI1NES 

iiiiiiiiiiiiiiiiliiiiiiiiiiiiiiiiiiiiiiiaiiiiiiiiiiiiiiuiia 
27L? - 2/d; mem routine 
llllllllllllllllllllllllllllllllllllllltllllllllllllllllllll 

2704 - 27P4 IRE ROUTINE 
llaillilllllllllliltllllllllllllllllllllllllllllllllllllllll 

2/r^ ^7( D FQS ROUTINE 

iiiiiiliililiiiiiiiliiiliiliiliiiiiiiiiaiiiiuiiiliiiDiiiii 
27FE - 28 10 USR ROUTINE 
•ittiiiiitiiiiiiiiiliiiiiaiiiitilliiiiiiiititiintiiiliiiiii 

2819 - 2A2E Expression evaluation ruui inc.. 
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

2A2F - 2At>U STRlNIi* ROUIINE 

tllllllllllllllllMIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIUIIII 

TAol - JAvi, Ifctli ROUTINE 

• unit 11 in it iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuii 

2A91 - .AV9 RIGHI* ROUTINE 

l<ltll»*t*l'lltl«tlltt*ll*l*lt*lltllltlilllillll*l*llli*ll** 

2A9A - 2AC4 MID* R0UTIr4E 

iiiiiiitiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiitiiiiiaiiiiii 

2ACV. - 2ADE VAL ROUTINE 

llllllllllllllllll •••••••••••••>>•>•••• ••«•••••>•>••••••>•<• 

2ADF - 2AE6 SYNTAX CHECF. ROUTINE 

■ iiiiiiiiiiiiiiiiMiiitiiKiitiiiiiiaiiiiiiiiiiiiiiainiiii' 

2AE7 - 2AEE D I SF BASIC ROUTINE 

****i**ititiiia*tii*i**ittitii**iii*iiitiiiiiiiii*i<iiiiini 

2AEF - 2AFA INP ROUTINE 

iiiiitiiitiiti«iitttiiiittiiati««tiii>>««iini><«i iiiiiinii 

2AFB - 2BOi.' UUt ROUTINE 

l**ll«tlll*ttttl**t*lll*lt****l*llltlttlllttllllllltllllllll 

2B01 - 2B28 EVALUATE EXPRESSION ROUTINES 

ttt*»»*«t*i****i***iii*****ii«itt«i*t**iit*ai*itiitiiiiinit 

2B29 - 2B2D LL1S1 ROUTINE 

lt«!l««ltl!t**l*!*lt*t**t*l*lttt«l*ttt!lt!lltt*tll«*llll!ltl 
2B2E - 2B74 LIST ROUTINE 
t!i!i!iiiiiititi(!i!iiil!iliiii*iiaii»>«<iiiiitiitiii>a»a«i> 

2B75 - 2B7D OUTPUT ROUTINE 

•OUTPUT MESSAGE POINTED IU BY HL UNI IL 
IS FOUND 

titiiitiitiiittititittiiittiiitiiitiiiiiitiinitiitiiatiiiii 

2B7E - 2BC5 DECODE ENCODED STATEMENI ROUTINE 
tlltllltlllllltlltltllllllllllllKllllllllllltltlllltllllllt 

2BC6 - 2BF4 DELE(E ROUTINE 
lllllllllllllllllllltlllllllllllllllllllllllllllllllllllllll 

2BF5 - 2C1E CSAVE ROUTINE 

*ttl*itiitittiiiiiiiiiiiiiiii«*ii*>tiiiiiitittaii«>tiiiiiin 

2C1F - 2CA4 CLOAD ROUTINE 

l|tl!!!tt|t(ltll(l!(tlttttlt!ltlll!ltlta>>l<ll>ll»)ll(tl«l<« 
2CA5 - 2CA9 ' BAD ' MESSAGE 

lllltttllllllllllltlllltlllttllllllllXtlltllKOtllOIIIIII 
2CAA - 2CB0 PEEk ROUTINE 

■ III lilt III lllllltllt •{••••••••••••••••••> tt 111111*111111**1 

Map continues 
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The LAZY WRITER 

word processing system 
by David Welsh 



,,■'",.«>. „^ — 






Seav 



LAZY WRITER Model I & III-S175.00 

NEW EXTENSIONS MAKE LAZY WRITER 
EVEN MORE POWERFUL! 

• LAZYDOC — Standard Legal forms are a snap! 
Let LAZYDOC prompt you for the changes, then 
automatically insert those changes into your 
document. Many features; send for more 

information $59.95 

NEW manual plus disks of legal documents; 

Estate Planning is first of a series. 

• LAZYCALC — Use LAZY WRITER to create 
reports with numerical data, then total your figures 
with LAZYCALC. If you work with figures, you'll 
find this a powerful addition to word processing 
$29.95 

• LAZYTAB — It's easy to enter data in tabbed 
columns, but LAZYTAB aligns decimals too' $15.00 

• LAZYDRAW — Create graphics on the screen, then 
send the results to your printer; works with any 
printer that supports TRS-80 block graphics 

• LAZYDO — Automatically load LAZY WRITER and 
any text file, set printer commands, even print text 1 
LAZYDRAW + LAZYDO $19.95 

• SPECIAL: LAZYTAB, LAZYCALC, 
LAZYDRAW and LAZYDO $39.95 

TRS-80 is a Reqislfi'M) Trademark of Tandy Core 




LAZY WRITER has earned the 

Professional Software Programmers 

Association Seal of Approval 



LAZY WRITER GIVES YOU: 



• Z80 CODE, for fast execution of commands 

• Control codes ANYWHERE in text to let you get 

compressed or expanded type, super/subscripts, etc 

• Page breaks BEFORE you print 

• CUSTOMIZED printer defaults, cursor size, shape, 
speed, etc 

• DISK DIRECTORY plus kill or verify files without going 
to DOS. 

• LONG DOCUMENTS print automatically. while 
preserving page numbering and titling 

• 10 USER DEFINABLE function keys 

• BACK OUT of inserts and deletes 

• A NEWSLETTER for users 

• SET TABS, CHANGE CASE, move or delete NAMED 
blocks of text 

• MEMORY KEY returns cursor to a screen & cursor 
position 



"LAZY WRITER is proof that simple and powerful can coexist. It is 
among the easier word processing packages to learn It's one of the 
few that allow you to sit down and begin entering text a few minutes 
after loading the software " - David D. Busch, Interface Age 



"This program enjoys some of the best manufacturer support I've 
encountered . . . LAZY WRITER is one of the most sophisticated TRS- 
80 word processing packages around. It has excellent features, 
documentation and support, and can be expected to provide ongoing 
utility for even the most demanding user." - T. A. Daneliuk, InfoWorld 



\ 0> 






"Author David Welsh has packed every feature he could think of into 
the program and the result is a highly sophisticated piece of software in 
both Model I and Model III versions ... For complex printing tasks, 
LAZY WRITER is hard to beat." - Dan Robinson, 80 micro 



ABC SALES 

13349 Michigan Ave. • Dearborn, Ml 48126 

(313) 581-2896 

dealer inquiries invited 
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■See List ol Advertisers on Page 451 
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mas 

In The. . . . 
SOUTH ATLANTIC 



This exciting, realistic war simulation 
puts you in the commander's seat of the 
British Armed Forces. Deal with unpre- 
dictable weather, political unrest, and 
the unruly Argentine Forces to win the 
ultimate goal sovereignty over the 

FALKLAND ISLANDS! 

War in the South Atlantic is available 
fori TRS-80 Models I and III on i 

16K Cass - $14.95 

32K Disk - $19.95 



Order by Check, Money Order, MC or VISA 



PROGRAMS FOR THE 80* s 
P.O. Box 50160 
Indianapolis, Indiana 46250 

(IN residents add k% sales tax) 



317-849-2055 



-418 



TRS-80 is a trademark of Tandy Corp. 




Map continued 



2CB1 - 2CBC 



FOE ROUTINE 



2CBD - 2E52 



PRIN1USING ROUTINE 



2E53 - 2E5F LINE NUMBER ROUTINE 

IIMIIIMIIIIIIIIIIIIIIIIIIUIDIMIIIIIMIIIIIIIIIIIIIIIIII 
2E6o - 2FFA EDIT ROUTINF 

IIIIIIMIIIIIMIMIIIIIIIIIIItlllMllllillllllllllllHIIIIII 

2FFB 2FFF NOTHING HERE 

fttttt*it*(*i«*«atst«t<a>*t»t*tt**tt«tsist*tt«tat*s**i(tit«t 

3OO0 - 3 7DD RESERVED MEHOR . 



3/Dt - 37FF 

37DE 
37DF 
37E0 
37E1 

:-'t. 

37E8 
3 7EC 
KEYBOARD MEMOR' 



MEMORY MAPPED INPU I . UU I F UT 

DOS COMMUN1CAJ ION STATUS ADDRESS 

DOS COMMUNICAT ION DATA ADDRESS 

1NTERRUF1 LATCH ADDRESS 

DISH DRIVE SELECT LATCH ADDRESS 

CASSETTE DRIVE LATCH ADDRESS 

PRINTER FORT ADDRESS 

FLUFFY DISK CONTROLLER ADDRESS 



Bi r 

5801 
38o2 
3804 
S808 

3810 
3820 
3840 

3880 



CR C 

SHU I 



4< M •> > 4< ■ 1 4 



RST JUMP VECTORS 



4C«X> - 4iX>2 RSI OS 

4O03 - 4UOS RST 10 

4L»>6 - 4008 RSI 18 

4009 - 4oOB RST 2<.> 

4i >OC 400E RSI 28 

400F - 4nll RST SO 

4012 - 4U14 RST "S 

Itlllllll ««»*»* ttt(*S«»«tt******«*tt»«a •«>••»•««»»«»»•««»«•• 

4015 - 4olC KEYBOARD DEVICE CONTROL BLOCl- 

4019 DF VILE I »PE 

•K'lfe 4i>l/ DRIVER ADDRESS 

4'>I8 4U1A NOI USED 

4" "IB - 40IC RAM BUFFER ADDRESS 

*•*«•«*•(*«**•*******»•(**•••••***••••**•**•*•****•********* 

4U1D - 4o24 VIDEO DEVICE CON I KOL BLOCK 



40 1 D 




DEVICE IVFfc 


401E - 


401F 


DRIVER ADDRESS 


4020 - 


4021 


CURSOR FOSI T ION 


4022 




CURSOR ON/OFF FLAG 


4023 




LUHSUR CHARACTER 


4024 




NOT USED 


lllltllllllllDllllllllllOIOtllllllXlllllKlllllllllMlll 


4025 


402C 


PRINTER DEVICE CONTROL BLOC* 


4u25 




DEVILE TYPE 


4026 - 


4U2 7 


DRIVER ADDRESS 


4028 




LINES PER PAGE 


4029 




I INES PRINTED SO FAR 


402A 




NOT USED 


402B 


402C 


RAM BUFFER ADDRESS 


llllllilillll 


IIIIUtUIUKMIItlttltttllMUIIitttlllllllll 


402D - 


4152 


COMMUNICATIONS REGION 


402D - 


407F 


USED BY DOS 


4080 


408D 


DIVISION SUPPORT ROU T I NE 


408E 


408F 


USER ADDRESS 


4090 


4092 


RANDUM NUMElER SEFD 


4093 


4099 


IN A.O 


4096 


4098 


OUT A.O 


4099 




LASI KEY PRESSED AFTER BREAF 


4U9A 




USED FOR RESUME 


409B 




NUMBER OF CHARACTERS IN PRINT LINE 


409C 




DEVICE TYPE FLAG 
-1 CASSETTE 

O VIDEO 
♦ 1 PRINTER 


4<j9D 




SIZE OF VIDEO LINE 


4uVt 




SIZE OF F-R INTER LINE 


409F 




RESERVED 


4OA0 


40A1 


START OF STRING SPACE POINTER 


40A2 


4<JA5 


CURRENT LINE NUMBER 


40A4 


40AS 


START OF BASIC PROGRAM FL.1N1ER 


40A6 




LURf<OR FOSI t ION 


40A7 


- 4uA8 


KEYBOARD BUFFER ADDRESS 


40A9 




CASSE1IE INPUT FLAG 

U IF CASSETTE tLSF NON ZERO 


4i.iAA 


4UAD 


RANDOM NUMBER SEED 


40AE 




VARIABLE FLAG 



4i.iB2 
40B4 



40DB - 4L'D9 



NUMBER TYPE FLAG 

2 INTEGER 

5 SIRING 

4 SINGLE PRECISION 

8 DOUBLE PRECISION 

USED DURING EXPRESSION LVAlljHlION 

MEMORY SIZE POINTER 

NEXT LULAIION AVAILABLE IN IITFRAL SIRING TOOL 

LITERAL STRING POOL 

USED FOR STRINGS 

NEXT LULAIION AVAILABLl IN SIRING SPALL 

MULTIPLE USES 



Map continues 
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4<>DA - 


4<.»Dtf 


LAS>I DAIA blAIINLNI HEAD L INt NUMBER 


40DC 




FOR FLflb 

1 IN IHkX.Ktbs 

g NUI IN 1 Kl«M b:. 




•one 




USED DURING 1NFUT PHASE 




*"W 




rim i ir-ti uses 




4>Jl» - 


4'.*.".- 


USED BY DOS 




4<Jtl 




AUIU FLAG 
V NU AUIO 




■»«* -' 


4i 4 J- 


LUKMNI L 1Mb r*M1W.k 




4.*. 4 


4iCS 


AUIO INCKEMtMl 




4 CO 


4. *_7 


NULUFLE USES 




<"tb 


4.*.'y 


LNCUDLL) SIAUHENI FUINIER 




40EA - 


•ntb 


ERROR LINE NUMBER 




4oti 




USED Kv ERKUK 




4.* 1) - 


4<>tt 


LASI BY IE EIECUIEb IN ERRUR LINE 


4><F 




POSITION OF ERROR IN LINE 




4"» ■> 


4«rt 1 


UN 1RKOK ftllNlFR 




4U** 




ERROR FLAG 




4i*- - . 


4 of 4 


NU TIME USES 




4l.#t. 


*•'( ft 


LAST LINE HON 




4l#/ - 


4<.>FH 


USED BY ERROR 




4UFV 


4 of ft 


VARIABLES POINTER 




4l*B - 


4«.*L 


ARRAY F-U1N1LK 




4C4^D - 


4C>FE 


START OF FREE SPACE 




4t* F 


4 l>K< 


USED BY MAD 




4101 - 


41 1<< 


VARIABLE DELLAKhIIUN 1 ABLE 




41 IK 




TRACE FLAG 

<> TROF F 

NUN ^ERU IRON 




41 IC 




USED BY MATH ROUTINES 




41 ID 


4124 


RE lil 








INIEGER SINGLE 


DUUBLE 


41 lb 






LSB 


41 It 






Lab 


411F 






LSB 


4120 






LSB 


4121 




LSB LjB 


1SB 


4122 




MSB LSB 


LSB 


4123 




MSB 


MSB 


4124 




E«P 


EUR 



412S 
4127 
412F 
4130 
414A 



4126 
4I2E 



4149 
4131 



4152 - 41AS 



41S2 


4134 


41SS 


4137 


4138 


♦ ISA 


4138 - 


- 4130 


41SE 


4160 


41*1 


4163 


41*4 


- 416* 


41*7 


416V 


416A 


416C 


4I6D 


4I6F 


4 I/O 


41/2 


4173 


- 4175 


417* 


- 41 78 


4179 


41 /B 


417C 


- 417E 


41 7F 


4181 


4182 


- 4184 


41B3 


- 4187 


4188 


41BA 


4I8B 


- 4180 


4J8E 


- 4I9U 


4IVI 


- 41V3 


41V4 


- 41V6 


4IV7 


- 4IV9 


41VA 


- 41VL 


419D 


- 419F 


4IAu 


- 4IA2 


41AJ 


- 4IA5 



41A6 
41 A* 
41 AC 
41AF 
41b. 
41WJ 
41B8 
41BB 
41BE 
4U.1 
41C4 
4IL/ 
4ILA 
41CD 
4 1 IX. 
41b _'. 
41D6 
4IDC 
41DF- 
41E2 



4IA6 
4IAB 
4IAE 
4IBI 
4IB4 
41B7 
4IBA 
41BD 
41C0 
4ILJ 
41C6 
4IC9 
41LL 
4ICF 
4ID2 
41D5 
4108 
41DE 
41E1 
41E4 



USED BY MATH ROUTINES 

REG2 SAME AS REG1 

NOT USED 

F>RINT BUFFER 

USED BY MATH ROUTINES 



OISK BASIC LINKS 

CVI 

FN 

CVS 

DEF 

CVD 

EOF 

LOC 

LOT- 

MK.I* 

MKS* 

MKD» 

CMO 

TIME* 

OPEN 

FIELD 

GET 

F-UI 

CLOSE 

LOAD 

MERGE 



KILi 

6 

LSET 

RSET 

1NSTR 

SAVE 

LINE 



DOS LINKS 

CALLED FROMl 

19EC 

2/FE 

1A1C 

0368 

1AAI 

1AEC 

IAF2 

IB8C 

2174 

USA. 

Oi'jB 

IEA6 

2<Jht 

20C6 

2lUi 

21UB 

219E 

222D 

2*44 

02B2 



41ES - 


41E7 


USED BY INPUT 


4JE6 


42E7 


INPUT BUFFER 


42E8 




ZERO 



for the TRS-80 from Micro -IN/lega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the lace of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 
The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 tor postage and handling. 



Tims Check or money order, no COOs or credit cards, pieese Add amount 
shown tor pottage end handling to price ot the item A u items shipped within 49 
hours by '"*» class or priority mail. Virginia residents, add *"% sales las ^ 162 



Micro - rVtecjo P.O.Box 6265 Arlnqton.Vn 222Q6 



42E9 START OF BASIC PROGRAM MEMORY 



^*%*».*MWR!BK*W»30«j™i 



MW1i TOW««M 



mmn| 



IT1ERRV CHRl5TIT1fl5 

from 

CammunicBtians 5ijstEms Lab 

Get your trumty TRS'80 m m prosmnt thim 
year thmt will from It from CLOAD 
indlgomtlon <RW Hi THOSE TOT fiCCDIES IMER TOUR TREE) 
SWE 13* BY (BERING BETOEN NOW 4C EECStER 15 




COPy CONDITIONER 

• • • 



DATA COMOITIOHMH - TIC COMPLETE 

oawret/CAsaTTE recorder interface «*iou 

* ELIMINATES VOLUME CONTROL JUGGLING FOR A 
GOOD CL0AD 

* PROVIDES FOR VISUM. CUING OF TAPES 

* HAKES COPIES OF DATA, PROGRAM MC SYSTEM 
TAPES WITHOUT THE COMPUTER 

* ELIMINATES NOISE/MINOR DROPOUTS 

* PRECCNDITIONS DATA TO TAPE DECK DURING 
CSAVES FOR A SUPERIOR QUALITY RECORDING 

* WORKS AT BOTH LOW AND HIGH TRS-80 BAUD 
RATES 

* ATTRACTIVELY STYLED TAN CASE, AC PCNE"ED 

REG PRICE 169.95 SHE PRICED 159.95 

COPY COMDITIOMSK- The BIG BROTHER 
TO THE DATA CONDITIONER DESIGNED FOR THF 
9VLL VOLUME SOFTMARf PRODUCER. HAKES 
INEXPENSIVE DUPLICATES OF TAPES USING YOUR 
TAPE RECORDERS. DRIVES UP TO 11 DECKS FOR 
MASTERING, 10 DECKS FOR DUPLICATION. HAS 
CENTRAL CONTROL FOR TAPE ROUTES. 
INCORPORATES FEATURES OF DATA CONDITIONER 

REG PRICE iW9.95 S/LE PRICED $129.95 



TO INSURE DELIVERY BY CHRISTMAS, fQ ORDER COll toll fr—,24hr* 

PLEASE PLACE ORDER BY NOV 301 1-300-3B7- S134 

$ KlITE DEPT N .,361 .. ._ 

Communications Systems Laboratories 

9W65 Leokane St., naipahj. HI 96797 «trs-80 is a trademark of tandy radio shack j 



•• See List ot Advertisers on Page 4Si 
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SERIES 



Actuators and energy translation. 



Cybernetics— Part III 



Stephen Davids, President 
Robot Research and 
Development, Inc. 
Box 541 Station Z 
Toronto, Ontario 
Canada M5N 2Z6 



In my previous two articles, I 
discussed the overall notion 
of a robot system and the spe- 
cifics of sensors, as well as their 
interface to the TRS-80. This ar- 
ticle covers actuators or output 
devices: their nature; modes of 
operation; and interface to the 
TRS-80. I will expand the biblio- 
graphy started in Part Two of 
this series. 

An actuator manipulates or 
alters the environment. The 
muscular system is the human's 
main output device, just as the 
nervous system is the main in- 
put device. The human system is 
effective but severely limited; it 
is capable of only sound, heat 
and motion output. Robots may 
emit light or other forms of elec- 
tromagnetic radiation, or extend 
the range of motion, strength, or 
precision of the human form. 

Energy Translation 

All output from any micro- 
312 • 80 Micro, December 1982 



computer is in the form of elec- 
trical energy. The biological 
world does not generally make 
direct use of this electrical 
energy; we must first translate 
this energy into a more useful 
form (motion, light, heat, or 
sound). 

The standard way to accom- 
plish this translation is to inter- 
face the weak electrical output 
signals of the TRS-80 to an ap- 
propriate actuator giving the 
TRS-80 control of the output de- 
vice as well as feedback on the 
performance of its commands. 

This is a four part operation. 
First the TRS-80 must identify 
that it requires an output. During 
program execution, the TRS-80 
encounters a conditional state- 
ment branching to an output 
subroutine. For example, a pro- 
gram input loop constantly 
monitors an infrared light sen- 
sitive detector diode on the 
robot's forehead. All night the 
robot waits for a high at that 
port address while it charges 
batteries. In the morning, as the 
first rays of light signal the start 
of a sunny day, the sensor drives 
the input port high. The program 
branches to the first line of an 
output subroutine. 

The second part of this opera- 
tion is the selection of an output 
device. Continuing the example, 
the robot now decides, on the 
basis of all information avail- 
able to its sensors and the pro- 
gram it has been given by its 
creator, what to do now that the 



sun has arisen. Assume the 
robot is plugged into a wall out- 
let to charge. Before going 
about its daily chores, it must 
disconnect itself from the power 
supply. I designed my robot 
outlet to greatly facilitate the 
plugging/unplugging operation. 
The robot retracts its connector 
to free itself and terminate the 
charging process. This is ac- 
complished by a single sole- 



must determine the state of the 
output port and act accordingly. 

For example, if the actuator is 
a solenoid as above, the pro- 
gram could drive port address 
05 high to signal the solenoid to 
pull the plug out from the wall. 

The fourth part of the output 
operation is feedback. In my 
first article I stressed that a 
robot system without feedback 
is inherently unstable. In our ex- 



"This system, 

called 

distributed processing, 

is on the 

very frontier 

of cybernetics." 



noid, related to port address 05. 
The program determines that 
port address 05 is to be ac- 
tivated and moves to the next 
part of the operation. 

The third part of the output 
operation is simple for our ex- 
ample, but could be complex for 
an analog output routine. The 
program must determine the 
correct value to be output to the 
actuator. The TRS-80 can drive 
the selected output high or low 
with respect to a reference volt- 
age also on the output bus. The 
decoding circuit or interface 



ample the system is unstable 
because the robot does not yet 
know that the plug has been ex- 
tracted from the wall. A true 
servosystem compares the ex- 
isting state to the desired state. 
The robot must determine if the 
cord is still attached to the wall. 
This may be done in many ways, 
such as checking the charging 
circuit to see if a current is still 
flowing, or trying to close a 
small trap door that contains 
the cord and the insert/with- 
drawal solenoid. If the door can- 
not close or the circuit is still 



TAS Adventure Series 
Package I 

By: Gary Heimburger and Gary Robinson 

(This adventure package it the first to be marketed 
that was created by Trt* Adventure S y item 1 Look tor 
mora fantastic adventures coming soon! Each TAS 
adventure package include* TWO complete 
adventure* lor one low price!) 

Adventure 1: Isles of Doom • Part I 

The Scenario: A *mall South- tea Island chain. 
Unfortunate navigation left you atranded on one 
island 

The Mission: (il you can get through the shark- 
infested water* to the Island!) The Island was a 
scene of activity during wwn Scattered over the 
island are components that will allow you to Hi an 
old radio transmitter Can you fli it and tap out your 
SOS before tailing prey to the elements of doom? 

Adventure 2: Lost City ot Gold 

The Scenario: You re on a mountain climbing 
eipedition in South America (in Peru, near Lake 
Titicaca) After straying from the beaten path, you 
discover a cave that eventually leads to a forgotten 
pan of the lost Incan city. Grab your pitons. 
The Mission: There an plenty of treasures if you 
can safely collect them and retrace your steps to the 
simple mountain hut. Be lorwarned that most Incan 
cities contain many perils, especially lor the 
uninitiated, seems Incan priests were rather 
paranoid. Requires 32K. 

TAS Adventure Packages arc S 15. 95 on tape 
and $1 9.95 on disk. All media is unprotected! 
TAS Adventures allow you to SAVE up to 10 
versions of the game in progress! Please 
specify Model I or III. 

Get in on the action! The Adventure System 
editor is now completely in Z80 and allows 
easy interactive debugging. Requires 48K. 
Specify Tape or Disk, please. Only S39.95 for 
the complete system AND three adventures! 



STOPPER! 

The BASIC Breakpointer 

By Roxton Baker 

Author of "TRAKCESS" 

Stopper is a unique machine language utility 
that allows interactive program debugging 
when using Level II or Disk BASIC on the 
Model I and III. Stopper was designed by 
Roiton to help debug a new version of 
TRAKCESS that will be announced shortly, 
because there wasn t anything on the 
market that would provide the features 
needed. 

Some of Stoppers commands: Set a 
breakpoint with a hit count, either when a 
line has been eiecuted n times or a 
variable is equal a certain value: or not equal 
a certain value; breakpoints and variables 
may be viewed and modified at any time: 
selective execution of program statements 
and lines: display only the portion of the line 
where the error occurred: TRON functions 
are improved and may be routed to printer; 
set a tolerance on single and double 
precision numbers (to accommodate the 
inaccurate ROM routines and more. 
Naturally single stepping is fully supported. 
With STOPPER you will know exactly where 
the error is and why it occurred. Program 
execution is under YOUR control! 

A special offer from the author and TAS: 
Stopper is S20 on tape or disk. BUT you are 
licensed to make up to four additional 
copies, making the cost for this valuable 
utility only S4. Support co-op purchases by 
ordering today. BASIC debugging will never 
be easier, nor a better utility any cheaper. 
Extra manuals and Z80 source code are 
available. 



LDOS Users! 

A special utility package fust lor YOU 

DRIVE-S 
Four drives not enough? DRIVES is a memory 
based disk emulator which allow* you to configure a 
fifth drive IN MEMORY! No moving parts, so access 
is FAST! In a two drive system. FORMAT and 
BACKUP can be placed on ORIVE-S (with /SYS 
modules) to allow multiple backups with less disk 
swapping. 

LOWDUMP 

LOWDUMP allows you to DUMP files from 
anywhere in memory, including ROM and video 
RAM! LOWDUMP allows all parameters a* the 
LDOS DUMP command. Including ASCII, for 
dumping (lies without loader Information present. 

SVSGEN 

SVSGEN/CMD allows you to save one or more 
SVSGEN files as normal CMD tiles Keep several 
configurations on the same disk and reload as 
necessary by simply typing the filename. Especially 
useful when the preferred configuration consumes 
so much memory that large programs will not 
execute properly SVSGEN CMD may also be 
executed from a running BASIC program When the 
resultant CMD file is executed, the BASIC program 
will continue with the next statement, all program 
variables intact! 

UNREPAIR 

Model I TRSDOS cannot read LDOS disks due to 
the F8 DAM used for directory sectors. UNREPAIR 
will rewrite the directory track ot a single density 
disk using the FA DAM that will be recognized by 
Model I TRSDOS. UNREPAIR should run with any 
Model I DOS and the Radio Shack E/l. 

An extra BONUS! The TAS LDOS Utility pack 
includes Z80 source code (on disk) of most of the 
above utilities (the most informative). The LDOS 
Utility Pak is $49 95 This package was written by 
■ Les Mikeseil. || 
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EFFECTIVE 
COMMUNICATION 



is easy with ModemBO. There is absolutely no need 
lo pay any more for a top-quality communication 
package. ModemBO can help your TRS-80 Model I 
and III talk lo a wide variety of machines. The 
ModemBO translation table is easily modified to 
accommodate unusual protocol. ModemM allows 
tile uploading and downloading. XON and XOFF are 
supported to allow transmission of files larger than 
memory. A special protocol (compatible with the 
CP.'M public domain program MODEM) allows 
error-tree transmission without converting to 
ASCII XMOOEM. a special version of MODEM is 
included so that you may give your friends a copy to 
take advantage of faster error-tree transmission. A 
host program is included at no extra charge to allow 
accessing your unattended TRS-80 from a remote 
location All local parameters (baud rate, slop 
bits, parity, duplex and more) can be changed 
quickly and easily with a minimum ot keystrokes. 
For specialized applications, one file may be 
transmitted while a different file is simultaneously 
being received. DOS commands may be executed 
while within ModemSO. Special patches insure 
compatibility with all popular Model I and III 
operating systems. The previous screen is restored 
alter DOS commands ModemSO also allows 
disabling screen scroll to permit transmission 
speeds at up to 9600 baud (under direct connect 
situations). A special patch sheet is available lor 
people wanting lo use the Micronet Dow Jones 
service. Also available, on request, is a LYNX 
modem version that allows operation on a Model III 
even if RS 232 is installed. All this and many more 
features are what s making ModemSO one ot our 
most popular program*! Oh. ye*, the price help* 
loo: $39 95 complete including documentation in 
three-ring binder ModemSO is authored by Les 
k" Mmesell 




An exciting new arcade game! Threshold-Nine is 
easy, but only the experienced reach Threshold- 
Zero. As you progress to the taster levels, the 
playing field decreases! Excellent graphics and 
sound, joystick compatible, all ZSO programming) 
Supplied in a beck-uppebie format (disk users will 
need to copy to a TRSDOS system diskette) High 
•cores are saved on the disk version. Include* a 
special pause feature (lor nature calls and other 
interrupt processing). Works on Models I and III 
cassette ($15.95) and disk ($19.95). 

FREE lo the first 100 customers who order 
Threshold-Zero: A mini-poster ot the Threshold- 
Zero Cover Art! Order today and find out why 
Threshold-Zero is already one of our best selling 
games! 



S Order Form 

| Please send me the following: 

I D TAS Adventure Package I (tape) $15.95 

I U TAS Adventure Package I (disk) $19.95 

□ The Adventure System (tape) $39.95 
D The Adventure System (disk) $39.95 
D LDOS Enhancement Package $49.95 
D Threshold-Zero (tape) $15.95 
Q Threshold-Zero (disk) $19.95 
D Stopper $20.00 
D ModemSO $39.95 

□ TAS Subscription $24.00 






Please add $3 to your total order for 
shipping (except TAS subscribers). 
We ship UPS unless you specify 
otherwise. 



Name: 

Address: . 
Address: . 

City: 

State. Zip: 



Mail order to: 

The Alternate Source 

704 N. Pennsylvania Ave. 

Lansing, Michigan 48906 

Ph. (800) 248-0284 

Ph. (517) 482-8270 

Master Card, Visa and COO ($1 75 extra) art welcome 1 
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CONTROL . SES 



CONTROL CIRCUIT 



POWER CIRCUIT 



Fig. 1 



functional, the program should 
lump to an error correction 
subroutine or try to extract the 
plug once more. 

Circuits 

In any device that comprises 
both decision logic and working 
circuits, there are voltages and 
currents potentially harmful to 
the more sensitive electronic 
parts. Actuators amplify the out- 
put signal of the microcomputer 
from logic levels to useful work- 
ing levels. These working levels 
may range from 5 volts at several 
hundred milliamps to hundreds 
of volts at 40 or 50 amperes. 
Though the latter conditions are 
rare, it Is common to switch 12 
volts dc at 5 or 10 amperes, 



enough to run small and medium 
dc motors. These conditions are 
sufficient to fry delicate elec- 
tronic equipment like the TRS-80. 
With this in mind, before you 
hook up your TRS-80 to the 
vacuum cleaner, let's discuss 
some basic robotics. 

There are two subcircuits in a 
robot output device. The control 
circuit includes the first output 
stage and the decision-base, in 
our case the TRS-80. The control 
circuit controls the behavior of 
the rest of the output device us- 
ing the logic level voltages I 
have mentioned. 

The power circuit Is the 
business end of the system. The 
actuators and all other output 
devices are part of these cir- 



LEARN VISICALC™ 

THE EASY WAY WITH READY-MADE TEMPLATES 




Load your Visicalc™ with our templates, 
then key your numbers in. 

DO YOUR: 
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Sche dule A 

Future Templates - Retailing • Energy Audit • Engineering • 
Statistics • Multi-Level Marketing Customize Templates $30 
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■ IBM PC • Atari 400 800 
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cults. A power circuit includes a 
power source and an actuator or 
effector. This circuit is a slave 
circuit, dependent upon the con- 
trol circuit for commands (see 
Fig. 1). 

When the control circuit re- 
ceives an output command in 
the form of a varying voltage 
relative to an acknowledged 
ground, the command simulta- 
neously appears In the power 
circuit to be amplified and in- 
terpreted by the whole process. 
The end result Is a change in the 
actuator status. 

Returning to my example, the 
small electrical signals on the 
output bus of the TRS-80 cannot 
operate the solenoid directly. 
This is where the power stage 
comes in. A 12 volt dc power 
supply forms a circuit with the 
solenoid and some type of 
switching device. When the 
switch is closed, current flows 



through the solenoid coil pulling 

the metal plunger due to mag- 
netic action similar to a speaker 
cone (see Figs. 2 and 3). The 
plunger is attached to the plug 
leading to the wall outlet so it 
extends when the solenoid is ac- 
tivated and is retracted by the 
action of an integral spring 
when the power circuit is open 
and the solenoid deactivated 
(see Fig. 4). 

The voltage and current 
operating the solenoid are 
typical of levels dangerous to the 
TRS-80. An excellent design 
practice is to opto-isolate the 
control and power circuits (Fig. 
5). An opto-lsolator is an infrared 
LED emitter/detector pair in a 
single I C package. The theory of 
operation is simple. The LED 
emitter, part of the control cir- 
cuit, is switched on and off by the 
buffered output from the TRS-80 
at the expansion port. The detec- 
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tor acts as a switch electrically 
isolated from the emitter to 
about 3750 volts. When the emit- 
ter diode is on, the detector 
phototranslstor turns on, allow- 
ing current flow to the actuator 
(see Fig. 6). If anything ever goes 
wrong electrically, the most ex- 
pensive component, the TRS-80, 
is not destroyed. 

I have assumed that the robot 
you are building has electrical 
actuators or effectors (these in- 
clude motors, solenoids, lights, 
and amplifiers). Advantages to 
hydraulic and pneumatic sys- 
tems are increased strength and 
speed. Indeed, most industrial 
robots are hydraulic at this time. 



In a hydraulic or pneumatic 
robot the power circuit usually 
includes a control valve rather 
than the actuator itself. The best 
of these, called servovalves, 
monitor precisely the real state 
of the actuator through optical 
or electromagnetic transducer 
feedback loops. These feedback 
devices provide a very high pre- 
cision control of the effector 
and an excellent repeatability of 
operation. This robot is exces- 
sively expensive to design and 
build and is outside the scope of 
this series of articles. 

The motor is probably the 
most useful actuator available 
to the robot builder. When inter- 
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COPY-NOT "BASIC" SOFTWARE 
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Model-I 



S E 

V^imple 



X$399^ 
pansion ; 
ffective 
imple 

* INCLUDES* 

1-40 track. Disk Drive 

1-MDX-6, Controler Board 

1-2 Drive Internal Mtg. Kit, 

Power Supply and Cables 

Doubler $99£Q 

Character Generator $ 18. 95 

Data Separators: 

Double Den. $39.95 
Single Den. $24.95 

40 track Disk Drives $199.00! 
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RIBBONS 

Low Price • FREE Shipping 

SATISFACTION GUARANTEED 



MX-80 Cartridge 



1-2 



price each in quantity of 
35 6-11 12-23 



24-47 



8.95 8.41 7.90 7.43 6.99 



RIBBON LOOPS 
new ribbon for your old cartridge 
top quality nylon • standard matrix ink 
price each in quantity of 
1-2 3-5 6-11 12-23 24-47 
3.95 3.63 3.34 3.08 2.83 
7.86 7.23 6.65 6.12 5.63 
2.92 2.69 2.47 2.27 2.09 
2.26 2.08 1.91 1.76 1.62 



MX-70/ MX-80/ MX-1 00 
MX-100 double length 
Decwriter LA34 
Radio Shack 26-1418 



New cartridges are available in black ink only. 
Loops are available in blue or black ink (same price). 
You may mix any combination for quantity price breaks. 
Ribbon loops include DO-IT-YOURSELF INSTRUCTIONS. 

visa DATA SYSTEMS M«««c«d .99 

(305) 788-2145 • Box 99 • Fern Park, FL 32730 



facing a motor to the TRS-80 
first consider what function that 
motor is to serve. This will help 
decide the type and size of 
motor and speed and voltage re- 
quirements. Sometimes the con- 
trolling speed is critical, as in 
the main drive motors respon- 
sible for propulsion. You can 
build a phase locked servosys- 
tem that contains feedback 
from a slotted disk rotating in 
synchronization with the motor 
output shaft (see Fig. 7). For a 
more complete discussion of 
phase locked servosystems, re- 
fer to the list of references. 

TRS-80 Limitations 

We must face the fact that the 
TRS-80 is not the fastest micro- 
computer designed; while it is 
functional as a robot brain, we 
should not challenge it with too 
many important tasks at any 
one instant. Clever program- 
ming of the TRS-80 allows a 
small number of simultaneous 
motions such as traversing the 
living room floor while playing 
the national anthem and waving 
a small flag. The programmer 
must develop an internal list of 
priorities to ensure that the 
main processor is mainly read- 
ing inputs rather than control- 
ling the behavior of the outputs. 
One way to achieve this is to put 
the burden of counting repeti- 
tive motions or monitoring 
speed on an external circuit. The 
TRS-80 signals the external cir- 



cuit, called an output controller, 
as to the required behavior of its 
actuator. The output controller 
directly drives the actuator and 
monitors the actuator's behav- 
ior, looking for the completion of 
the task assigned by the TRS-80 
or a failure. In either case the 
output controller signals the 
TRS-80 and awaits the next in- 
struction. This way the TRS-80 
has much less to do with each 
actuator, and can handle a 
greater number of tasks than if it 
directly controlled every func- 
tion. This system, called dis- 
tributed processing, is on the 
very frontier of cybernetics. 

Another method of reducing 
the demand placed on the 
TRS-80 by complex motion of an 
actuator such as a manipulator 
arm is to reduce the required mo- 
tion into three single axis motion 
vectors. If an arm manipulator 
(actuator) must move from a start 
position to a finish position 
possessing different coordinates 
in three dimensional space, the 
path trajectory requires an in- 
tegration formula that would 
weaken the knees of the bright- 
est mathematical geniuses. 
Most robot builders would con- 
sider early retirement. The solu- 
tion is to consider each motion 
as being composed of three sep- 
arate straight line motions: left or 
right; forward or back; and up or 
down (Fig. 8). To truly simplify the 
motion, we can design a manipu- 
lator on these same straight lines 
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TANDON DRIVES 



■ARE DRIVES ONLY 

40 track single sided $199 

80 track (dual sided 40) . . $269 
160 track (dual sided 80) . $389 

5 '/4 Inch THINLINE $Call 

8 inch THINLINE $Call 

Winchester Hard Drive . . . $Call 

WE WILL NOT 
BE UNDERSOLD! 



1 DRIVE / Single Cabinet 

40 track single elded $249 

80 track (dual sided 40 track) $329 

180 track (dual aided 80 track) $449 

1 DRIVE / Double Cabinet 

40 track tingle aided $289 

80 track (dual aided 40 track) $389 

180 track (dual aided 80 track) . $499 

2 DRIVES / Double Cabinet 

40 track aingle aided ... $489 

80 track (dual aided 40 track) ... $639 
180 track (dual aided 80 track) ... $849 
Drtvee in cabinets come aaaembled/tested 
with power supply Order cable separstely 



CORVUS HARD DISK 



CORVUS HARD DISKS complete from $2695 

Add S. 10 or 20 megabytes of storage to your TRW80 Apple. Atari. Heath Zenith. 
IBM. Intertec. S- 100 and many others One or aeveral computers can share a hard disk 
Qet simultaneous sccess to data for multiple users Available no* it SUPER SAVINGS 



PRINTERS 



TCS has the LOWEST PRICES on IN STOCK PRINTERS! 



MATRIX PRINTERS 

STAR MICRONICS $399 

NEC 8023A $495 

C ITOH 8610 / TEC $479 

ANADEX 9801 w/2k buffer $1296 

LINE PRINTER (RS) $Call 

LINE PRINTER VI (RS) $988 

LINE PRINTER VII (RS) $849 

CENTRONICS 362 (200 cpe) $1796 

CENTRONICS 353 (dual mode) $2496 

OKIDATA 82A $429 

OK ID AT A 82A w'trsctor $479 

OKIDATA 83A $686 

OKIDATA 84A ; serial ) $1 189 

OKIDATA 84A (parallel) $1089 

HI SPEED BAND PRINTERS 

CENTRONICS 8060 (standard) $CALL 
CENTRONICS (quietued) . . . $CALL 

LETTER QUALITY PRINTERS 

C ITOH F-10 (40 cpe) $1596 

DAISY WHEEL II (RS) .... $1896 

SMITH CORONA TP-1 $990 

BROTHER I COMflEX $829 

NEC 7730 $2375 

NEC 3630 $1796 



EPSON PRINTERS 

EPSON MX80 $449 

EPSON MX80 FT $524 

EPSON MX100 FT $685 

OR APHTRAX PLUS cornea free In EpeonsM 

EPSON ACCESSORIES 

QRAPHTRAX PLUS (bit Image) ... $79 

MODEL I interface $29 

MOOEL I interface/cable to keyboard $85 

MODEL III cable $29 

COLOR Computer Interface/cable $155 
APPLE mtartace. cable . . . $89 

ATARI cable (muet have 850 Int) $36 

IBM Personal Computer cable $45 

OSBORNE cable $36 

Serial RS232 2k buffered int card $109 

EPSON PACK II 

Screen or ten ted bit Image graphics gener- 
ator for the Model ill Creete your own 
characters symbols etc Documentation 
EPSON PACK II bought w. printer $24 96 

EPSON PACK II bought separstely $34 96 
Updete for EPSON PACK I $7 50 



B-TREE 



CUSTOM SOFTWARE FROM TCS 



SCRATCHPAD 

The BTREE Executive 
Reference Scratchpad al- 
lows (he user to store all 
your phone numbers, 
buelnaee carda and wttel 
ever in s multi-key data 
base for immediate 
acceea by ss many keys 
aa you assign Extremely 
eaay to use Allows 3 
fields of Mtsc data 

$39.95 



LIBRARY 

The BTREE library pro- 
gram allows (yf€ 2000 
books to be stored on s 
single doubts Density 
-lata diskette in a efficient 
BTREE structured file lor 
immediate acceee to your 
data by Author includes 
4 bulk) in reports No 
sorting t c saaary 'or 
reports 



$39.95 



MAIL LIST 

The BTREE Mall List 
program allows over 2000 
namee to be stored on a 
single double denetty 
data dlakette Labels can 
be generated in. zipcode 
order or by range of zlp- 
codee and aleo by a code 
restriction if you wlah 



$49.95 



TEXAS COMPUTER SYSTEMS 

P.O. Box 1327 Arlington, Texas 76004-1327 *• 

TECHNICAL ASSISTANCE 817/274-9221 

ORDER STATUS 817/277-1913 

TELEX/TWX/Eagylink ELN 62100790 



800 433-5184 



No tax out of state Texana add 5% Prtcee subject to change at any lime 



DEALER INQUIRIES INVITED 



TRS-80 



TCS MODEL III 48k 2 DISK 



Sysssess cease wt* tea 4a, TO ■aiHis warranty 



$1695 

With standerd 40 track 

double density drtvee 

Over 340.000 bytes 

includes TDOS 

$1995 

With 2 dual headed 40 

track dbi density drtvee 

Over 730.000 bytes 

Includes TDOS 



Fully assembled and tested systems that are software compatible and functionally 
Identical to Radio Snack unite sold at computer stores for Ihundreda more 

■ CONTROLLER BOARDS are high quality double aided epoxy boards with gold 
plated contacts 

■ POWER SUPPLY Is the flneet switching type available 

e MOUNTING HARDWARE includes power and data cables 

■ DISK DRIVES are Tendon, the aame onee uaed by Radio Shack 40 track, double 
density, with a 5 millisecond stepping rate 




TCS MODEL III DISK EXPANSION KITS 



1 Controller. Power Supply. Mounting Hardware & Instructions 

2 Controller. Power Supply. Hardware & one 40 track Tendon drive 

3 Controller. Power Supply. Hardware A two 40 track Tendon drtvee 

3A Kit 3 but with two 80 track Tandon drtvee (dual aided 40a) 

3B Kit 3 but with two 100 track Tandon drtvee (dual aided 80a) 

$15 



tfjk of high quality memory chlpa 



.. 1279 
. $478 
. 1877 

. S879 
$1098 

32k of high quality memory chlpa $32 



MODEL III SYSTEMS 



I 



Ordinal 90 day manufacturer's warranty 
MODEL ill 4k Level 1 . . (5M 

MOOEL 11116k $818 

MOOEL III 32k 

MODEL III 48k 

MODEL III 48k 2Dr/RS232 
TCS MODEL III Systems use original RS 
hardware and quality TCS memory 
180 day limited warranty 

TCS MODEL III 18k $799 

TCS MODEL III 32k $818 

TCS MODEL III 48k $840 



82 

$1944 



COLOR COMPUTER 

Original 90 day manufacturer's werranty 
leklevel 1 $308 

16k Extended Basic $398 

32k Extended Beaks $CALL 

Color Diak $479 Dksk 1 $348 



TCS COLOR COMPUTERS use 
RS hardware A TCS memory 
180 day warranty 

TCS 32k Extended Basic 

TCS 32k Memory Upgrade 
TCS Color Disk Drive 
TCS Color Disk Drtve 1/2/3 



original 



$499 
$79 

$449 
$249 



Model II . . Model 16 . . Accessories . . SCALL 

TCS la an authorized TRS-80 dealer F701 In Brady Texaa 



wlarty $ 1 99 Introductory Price 1 2/3 1 /82 



WIZARD'S TOUCH Reg 

Program Development System $99 

BELIEVE IT OR NOT. YOU CAN DEVELOP YOUR OWN PROGRAM IN 15 MINUTESIII 
The WIZARD'S TOUCH Program Development Syatem la a superior program 
generator that can provide you with the program you3ve been looking for It cornea with 
it's own Disk Operating System, providing unlimited beckups 

With WIZARD'S TOUCH, here's what you can do 
a Custom deetgn your own special form for maximum eaae of entering your data You 
have total control Ofr defining the number of characters aaaigned to each field and 
any other entry reetrtctlona 

■ K,iiy view and edit all fields at all times No need to retype en entire field when editing 
Just type over the mistakes, or Insert or delete them 

■ Creete a BTREE structured file, allowing you to acceea your stored deta rapidly and 
without sorting Duplicate keys are allowed, aa well aa sub-keys 

e Enter data at full typing speed 

e Define your own special sell help or prompt Information that will be displayed for any 

given held by |uet touching one key 

■ Expend your program to support up to 8 calculations for eech deta field Results can 
be displayed in any field or in any defined diaplay area Results can also be saved to dtek 
slong with nsgular data f isles Data such aa da tea or prtcee can be formatted aa deelred 

■ Gener a te your own reports with the built-in pre-defined or custom defined report 
generator Just a few keystrokes can get you a report that can be alphabetized or 
ordered by any field. And us all automatic 

The WIZARD'S TOUCH la so fast and eaay to use It makes other development 
systems of the market look like amateurs. No royalty necessary for resale of 
programs you develop on WIZARD'S TOUCH It creetes a stand-alone, fully 
commented. BASIC program, which you can easily modify 

Your purchase includes a free subecription to our WIZARD'S TOUCH newsletter s 
quarterly publication with free programs ideas for applications, updatee and more 
Now available tor MOOEL l/lll Coming soon tor MODEL II. IBM snd APPLE 



RANDOM 
ACCESS 

& 
BASIC 



HANDLING" 



DSC Publishing 

2 Dogwood Drive 

PO Box 769 

Danbury, CT 06810 

Phone Order 
(203) 748-3231 




the HOW TO, SHOW & TELL, STEP by 
STEP book. Written tor TRS-80 and all 
computers using Microsoft basic. 

The breakthrough book for non-programmers 
businessmen and professionals who want to 
solve in house problems by writing your own 
customized program and the hobbyist with 
the desire to get beyond the cassette and into 
disk data storage and lile manipulation "DOS 
Random Access & File Handling " is the plain 
speaking, easy to read 150 page book for 
learning HOW TO WRITE SPECIAL PROGRAMS 
for inventories, mailing lists, work schedules. 
record keeping and more Your acquaintance 
with Level I and Level II basic and this self- 
instruction tutorial will assure quick progress 



Please send me a copy of "DOS Random Acceu 
& Basic File Handling" for 29.50 + 1 50 shipping. 
Model I & III D Model ll/CPM a 
Also send the compatible 8" program disk for 
32.50 + 1.50 shipping CPM o or Model II a 
or the 5V 4 " disk for Model I and III for 28.50 + 
1.50 shipping d 

Overseas add 8.00 par book and disk 
airmail. 

Name 



Address 

City 

State 



Master Charge D VISA D 

Expiration Date 

Card # 



Zip 



Check D Money Order D 
COD (2.00 extra) D 

Signature 



Phone Orders (203) 748-3231 
CT. orders add 7.5% sales tax. 



and avoid the time-consuming 
mathematics. 

There are several ways to 
translate the rotational motion 
of the motor into a linear mo- 
tion. Linear (or translational) 
motion is extremely useful in 
push/pull applications. One 
manufacturer makes a ball bear- 
ing device accomplishing this 
within the price range of the 
hobbyist (see list of references). 

The stepper motor is a special 
type of motor whose speed, direc- 
tion of rotation and degree of rota- 
tion can be controlled by com- 
mercially available controllers in- 
terfaced to the logic level signals 
at the TRS-80 edge connector out- 
put bus. Manufacturers of com- 
puter peripherals such as disk 
drives and printers commonly use 
these expensive stepper motors. 
If your robot budget can handle 
this expense, I highly recommend 
the investment. 

The final schematic may be 
found in the TRS-80 Microcom- 
puter Technical Reference 
Handbook on pages 84-89, pub- 
lished by Radio Shack, for the in- 



terface buffer required for ac- 
tuator interface. I have not used 
this circuit before. By all means 
try it yourself and inform me of 
your successes with this or any 
other robot circuit. ■ 



Stephen Davids has designed 
and developed some of the 
world's most fascinating robot 
systems, including talking vend- 
ing machines, robot waiters and 
K-9, the robot dog. 



References 

Craig, John. "Digital Speed Con- 
trol of DC Motors." Robotics 
Age, Summer, 1980. 
Dorf. Modern Control Systems. 
Addison-Wesley, 1974. 
Gupton, James. "Unicorn-1 
Robot." Radio-Electronics, 
August to January, 1980. 
Reichardt, Jasia. Robots, Fact, 
Fiction and Prediction. New 
York; Penguin Books, 1978. 



CONVERT YOUR TRS-80 MODEL-I OR III INTO A 

DEVELOPMENT 



SYSTEM 



Complete instructions and sample 
schematics are included to help you 
design your own simple stand-alone 
microcomputer systems. THESE 
SYSTEMS CAN BE AS SIMPLE AS 
FOUR ICs one TTL circuit for clock 
and reset a Z-80 an EPROM. and one 
peripheral interface chip 

When the In-Circuit-Emulation 
cable is plugged into the Z-80 socket 
of your stand-alone system, the sys- 
tem becomes a part of your TRS-80: 
You can use the full power of your 
editor assembler's debug and trace 
program to check out both the hard- 
ware and the software Simple test 
loops can be used to check out the 
hardware then the system program 
can be run to debug the logic of your 
stand-alone device 

Since the program is kept in TRS-80 
RAM, changes can be made quickly 
and easily When your stand-alone 
device works as desired, you use the 
Developmate s PROM PROGRAMMER 
to copy the program into a PROM 
With this PROM, and a Z-80 in place of 
the emulation cable, your stand-alone 
device will work by itself 




Now you can develop Z-80 based 
stand-alone devices such as games 
robots, instruments and peripheral 
controllers, by using your TRS-80 as a 
development system The DEVELOP- 
MATE plugs into the expansion con- 
nector of your TRS-80 and adds 
PROM PROGRAMMING and IN- 
CIRCUIT-EMULATION capabilities to 
your system (with or without expan- 
sion interface) 



The DEVELOPMATE is extremely 
compact Both the PROM programmer 
and the In-Orcuit-Emulator are in one 
small plastic box only 3 2" x 5 4" A 
line-plug mounted power supply is 
included The PROM programmer has 
a personality module ' which defines 
the voltages and connections of the 
PROM so that future devices can be 
accommodated However, the system 
comes with a "universal" personality 
module which handles 2758. 2508 (8K) 
2716 2516 (16K), 2532 (32K). as well 
as the new electrically alterable 2816 
and 48016 (16K EEPROMs) 

The COMPLETE DEVELOPMATE 
81. for Model I. with software, power 
supply emulation cable TRS-80 
cable and universal' - personality 
module S329 

DEVELOPMATE 83 Model III version 
same as above $329 

PM2 PERSONALITY MODULE for 
2732A EPROM $15 

PM3 PERSONALITY MODULE for 
2764 EPROM $15 

ORION 

INSTRUMENTS 

172 Otis Avenue. Dept M. Woodside 

CA 94062 

(415) 851-1172 ^151 

Maslei Charge and Visa phone orders accepted 

California residents please add 6 % sales tax 
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SOFTWARt 



P.O. Box 336 

, Maynard, 

MA. 01754 

617-5684641 



MATH-PAK-1: MATHPAK-2: MATH-PAK-3 

twfcsiaettie drill programs where yon enter the ww w 
dtflll by o»gl<. Just Ilk* paper and pencil. With umt 
selected difficulty levels, carryovers, reducing, slmpM- 
W caWow. pointing off, ac ortw f. gamaa. and mora. Uaad 
by schools everywhere. Ordar MATH-PAK-1 for Inte- 
gers. MATHPAK-2 for fractions, MATH-PAK-3 tor 
decimals (L2-1 MQ tl 4.0S •*. 

H-O-R-K-S 
Low coat, single an try acco u nting s y s tem tor ma noma 
or offloa. with §1 uaar assigned account codaa, auto 
audit trail, aaar c h wrth totals, 32 or UK, 1 to 4 dr U ee. 
cradtt and debit aummartaa with 3 options, up to 92O0 
antrlaa. S24.tWceeeette S2t.MMIac 

INVENTORY + 

Why aattta tor lust an Invantory listing? Oat aging 
reports with 2 options, raordar, total listings with pur- 
chass dataa and amounts, total coats, Hams sold, pro- 
Mt/loaa and mora. Uaa aa a stand alone systam with 
dairy updataa, delete, change, and Ills packing 
routine*. (32K - 1 disc minimum) f24.9S/cessette 

S29.NMIac. CASH REGISTER 80 
Uaa your TftS-dO aa a point of sale terminal with 
automatic Inventory lookup, pricing, update, and more. 
Print aalee slips with user adtueted formate, end of 
day raporta with all cash, charge, and check aalee by 
salesper s on. CMO requires INVENTORY* . 4eK. and 
1 disc minimum (2 drives recommended). 
. S24.M/caseette S2S.»5/d!ec. 



Maaa residents and 5% tax. VISA. M.C.. ANO PHONE 
ORDERS ACCEPTED. Dealer Inquiries Invited. Over- 
sees orders add $2.00 for ak shipment. TRS-00 Is a 
t rade m ar k of Tandy Corp. 




WHY BUY A JOY 
MT STICK TWICE! 

if yousWead* have 
an Atari Jou/S-tick, 
you ca r> y se Iran <r «ur 

JOY STICK KIT 

Without Joy Stick Model l/HI 515.95 

With Joy Stick Model I /III 526.95 

— Be Your Own SYSOP !!!!!— 

Bullet 80 Bulletin Board Model I 5130.00 

Bullet 80 Bulletin Board Model III 5150.00 

Screen Artist ll-Create Graphics. 

Save As Basic Routines 532.95 

Pamk New From fantastic Software 

Model l/lll Disk 524.95 

Pamk-Model l/lll Tape 16K 519.95 

Bounceoids New From Cornsoft 

Model l/lll Disk 519.95 

Bounceoids-Model l/HI Tape 515.95 



We Also Have In Stock A FULL LINE Of Software 

From ALL The Maior Houses. 
Please Call For Information About Any Products. 
After-Market Computer Gallery* ^ 25* 

P.O. Box 993 

14 Summit Street (Mail Order) flfi 

1 Franklin Street (Retail Outlet) ^^ m 
Danbury. CT 06810 aaafa 

Voice Line -203 743-1299 

BuHet-80 Computer Line - 203 744-4644 

(300/1200 Baud) 

•A Division 01 Computer Services Of Danbury 



♦TRS-80 MOD m/TRSDOS 
(^» OWNERS 

=MRCHspeed= 



*tm of TANDY Corp. 



Are your BASIC PROGRAMS 
much too SLOW? You don't 
have the time to make your 
own MACHINE LANGUAGE 
conversions? If we can agree 
that time is "$", particular- 
ly in our BUSINESS applica- 
tions, then this UNIQUE offer 
is just what you've been look- 
ing for. We'll take your BASIC 
PROGRAMS and RE- 

STRUCTURE, COMPACT and 
then CONVERT them into a 
SPEEDY MACHINE 

LANGUAGE PROGRAM. (For 
an APPLICATION & 

DETAILS), send a S.A.S.E. and 
$1 for S&H to: 

R.N. da Silva, P.O. Box "P", 
Calexico, CA 92231 



comp case 



PE FOR THE COMPUTER THAT HAS EVERYTHING 




Your investment in a computer is long term. You expect 
many years of reliable service. Comp Case protects 
your investment when not in use or while transporting it 
from office or home. Your computer never leaves the 
case — you simply remove the lid, make the electrical 
connection, and operate. Comp Cases are available for 
most brands of computers and peripherals. 

COMPUTER CASE COMPANY • 5650 INDIAN MOUND 



Comp Case is the perfect Christmas 
gift. Comp Cases are available in 
better computer stores in our area. 
Or call 800-848-7548 direct to 
receive your Comp Case in 
time for Christmas. ^^^ 

COURT • COLUMBUS, OHIO 43213 




t$T 



• See Lisi ol Advertisers on Page 451 
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TUTORIAL 



Convert Fortran and muMath and learn some tricks. 

Model III Machine-Language 
Modifications 



Richard Koch 

2740 Washington Street 

Eugene, OR 97405 



With a push from the Feder- 
al Communications Com- 
mission, Radio Shack launched 
the Model III in September, 1980. 
At that time, the company an- 
nounced that "virtually all our 
software and most non-Radio 
Shack software for the Model I is 
compatible with the Model III." It 
gradually became clear last year 
that this statement applies only 
to programs written in Basic; 
machine language programs 



The Key Box 

Basic Level II 
Model III 
48K RAM 
TRSDOS1.3 
1 Disk Drive 



usually require modification. 

I will report here on a project 
to modify two Model I programs, 
muMATH from the Soft Ware- 
house by way of Microsoft, and 
Fortran, from Microsoft by way 
of Radio Shack. Model III ver- 
sions of these programs should 
be available soon from the sup- 
pliers. Although I give explicit 
details for modifying the pro- 
grams, the main purpose of this 
article is to describe the type of 
code which can fail on the 
Model III. 

If you want to make the 
modifications without reading 
about the details, refer to the 
end of this article where I have 
collected the required changes. 
I have a confession to make: Not 
all bugs in Fortran have been 
removed. I need help from 
readers with one problem I will 
explain later. 

Preliminaries 

I modified Scripsit, the Editor/ 
Assembler, APL80, and MMS- 
FORTH before modifying For- 
tran. Unhappily, most lessons 
learned from these programs 
were irrelevant for Fortran, but 
the lessons may interest you. 

The authors of many of these 



programs changed the key- 
board routine. They provided a 
flashing cursor or debounce or 
special purpose keys. Typically, 



program name: IN IT 




name for search. SINIT 


name for search: SEC 


name for search: SIOFLG 


define size of data: 


02 00 


define program size: 


15 00 


set loading counter: 


00 00 


set loading counter: 


01 00 


set loading counter: 


02 00 


set loading counter: 


00 00 


AF 




32 




data relative 00 00 




32 




data relative: 01 00 




21 




program relative: 14 


00 


22 




00 




00 




2A 




49 




40 




F9 




Figure 1 





they loaded location 4016 in the 
keyboard device control block 
(DCB) with the new keyboard 
driver address (all addresses in 
this article will appear in hex). 
Since the Model III keyboard 
DCB has not been changed, the 



new keyboard routines would 
have worked had they not con- 
tained surprises. 

Most new routines only con- 
tain code for the beginning of 
the routine. Then they jump into 
the middle of the old ROM code. 
Addresses in the middle of ROM 
routines are different on the 
Model III, and such code will not 
work. 

This kind of difficulty was 
easy to repair. First I searched 
the code for the address 4016. 
The instruction containing this 
number was usually LD (4016), 
HL and the address of the new 
driver then became clear. If this 
driver contained jumps back in- 
to ROM. I would use the regular 
Model III driver. When that 
failed, I would compare the Mod- 
el I and Model III keyboard ROM 
routines and find the address to 
jump into on Model III. 

The keyboard driver problem 
was the most serious difficulty I 
encountered in earlier modifica- 
tion projects. Fortran just uses 
the Model III ROM routine. 

The printer routine often 
caused trouble. The docu- 
mented printer routine at 3B has 
not changed, but many software 
authors wrote their own rou- 
tines instead. In that case I 
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Turn your 

color computer on 

to the power of 

FLEX and OS-9 

NOW FROM THE WORLDS LARGEST SUPPLIER OF SOFTWARE FOR FLEX AND OS-9 
COMES FHL COLOR FLEX AND COLOR OS-9, JUST LOOK AT THESE FEATURES: 



OS-9 WITH BASIC09 S299 

Unix*-based, multitasking, modular, and 
versatile 

Over 40 utility commands 
Friendly "Shell" command interpreter 
Tree structured multilevel file directories 
Full time sharing support with log in and 
file security 
» Fast, secure, random and sequential 
access files 

Comprehensive English language error 
messages 

Compact real-time multitasking executive 
BASIC09 is the fastest and most compre- 
hensive full Basic language available for 
the 6809. It combines standard Basic with 
the best features of Pascal. It's a unique 
interactive compiler that combines — 
compiler speed, interpreter 
friendliness, and superlative i 

debugging facilities. A 




FLEX NOW ONLY $99 

• HI-RES screen formats 
• 16x32 and 24x51, upper and lower 
case characters 
l • 24x64 and 32x64 upper case 
I 4 • Full ASCII keyboards 

• Easy start-up— just type RUN "FLEX" 
Online assistance just type HELP 
Optionally use a standard terminal 
and printer 
» Advance disk I/O and terminal 

capabilities 
• NO additional hardware required 
k • We have supported FLEX with 
^ more software than anyone else in 
the world for more than 2 years! 



1. DBASIC, RS Disk Basic 
under FLEX with a utility to 
copy RS to FLEX disk $30. 

2. ED/ASM line and screen 
editor and macro assembler, 
both more powerful than 
TSC's, and at the same cost, 
only $100. 

3. UTILITIES, a set of 12 
utilities especially designed 
for FHL Color FLEX $50. 





Get on our mailing list, call or send for our 

complete catalog of over 100 products for FLEX and OS-9. 

We're doing exciting things with your color computer! 



FRANK HOGC LABORATORY 

THE REGENCY TOWER • 770 JAMES ST. • SYRACUSE, NY 13203 TELEPHONE (315) 474-7856 
"Unix is a trademark 01 Ball Labs. "OS-9 ft BASIC09 are trademarks of Mlcroware ft Motorola Inc. 'FLEX Is a trademark ol Technical Systems Consultants Inc. 



*- See List ol Advertisers on Page 451 
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Location 


Now Coda 


Old Coda 


6C66 


000000 


321543 


87 B6 


000000 


321543 


6C61 


000000 


221343 


87C5 


000000 


221343 


6FF4 


4B44 


7344 


B7DA 


21FFFE 


2A4840 


6FA6 


00FF 


COSF 


6FAE 


OOFF 


C05F 


72DB 


OOFF 


C05F 


72F8 


OOFF 


C05F 


7307 


OOFF 


C05F 


730D 


OOFF 


C05F 


7318 


OOFF 


C05F 


738E 


OOFF 


COSF 


73A1 


OOFF 


C05F 


772B 


OOFF 


C05F 


7741 


OOFF 


C05F 


7759 


OOFF 


C05F 


7770 


OOFF 


C05F 


7E58 


OOFF 


C05F 


7FBO 


OOFF 


C05F 


7215 


05FF 


C55F 


72CA 


OBFF 


CB5F 


721 B 


782004FE8018 


CA2A7278667F 


7221 


088720031 B18 


C2287278EE80 


7227 


05FE81380113 


471B1B7887D2 


722D 


000000 


307213 


784D 


2100000808B7 


E67F7E21FEFF 


7853 


20032 B1805FE 


CA5878EE8087 


7858 


813801230000 


DA5D78230909 


7F74 


2811FE1C37C2 


CA7A7FFE1C37 


7F7A 


AC673AA85FE6 


C2AC67E521AA 


7F80 


7F4F06000836 


5F5E2356237E 


7FB6 


1AD1C1E1C8 


23666FCDF6 


5200 

6100 
6106 
610C 


C30061 
222061213061 
1140FF013B00 
EDB02A2081C3 


C3B587 


000000000000 


000000000000 


000000000000 


6112 
6130 


B587 
215EFF7EB736 


0000 


000000000000 


6136 


00211E5FC238 




000000000000 


613C 
6142 
6148 
614E 
6154 


7861C31079E5 
215EFF36FFE1 
E3E1E3C3F278 
0000CDE07F21 
4AFF36C3CBE5 




000000000000 


000000000000 


000000000000 


000000000000 


000000000000 


615A 
6160 


214AFF36C221 
5EFF3800E1C3 


000000000000 


000000000000 


6166 


0277 


0000 


62C3 


68FF 


0277 


72FA 


CD60FF 


CDE07F 


78EF 


C351FF 


E3E1E3 


7838 


C340FF 


211E5F 




Table 2. Changes for EDIT/CM D 



Location Otd Codo Now Coda 

6304 81 6F 2542 

63 DD 81 6F 2542 

64B8 816F 2542 

6367 E06F 6042 

6406 E06F 6042 

640F E06F 6042 

642D E06F 6042 



Table 1. Changes formuMATH 
(either 32K or 48K version) 



changed the Instruction LD 
(37E8),A for printing the con- 
tents of the accumulator to the 
equivalent new Instruction OUT 
(0F8H),A. Fortran uses the ROM 
routine and needs no change. 

When I began this game, I 
was frightened most by pro- 
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grams with extensive calls to 
the arithmetical routines in 
ROM. For example, APL80 uses 
the Basic ROM to add numbers, 
multiply them, compute square 
roots, calculate sines, and so 
on. The floating point package 
for MMSFORTH also calls ROM 
routines. The good news is that 
the arithmetical ROM routines 
have not changed locations in 
Model III, and programs which 
use them are as easy to modify 
as other programs. Fortran does 
not use the arithmetical ROM 
routines. 

Finally, the routine which sets 
the top of memory is usually in- 
correct. There are four tech- 
niques here. Some programs 
like Checkers-80 simply use 16K 
and have no need for additional 



memory. Other programs come 
on a disk containing several ver- 
sions for different memory ca- 
pabilities; for example, the mu- 
MATH package contains a 32K 
version and a 48K version. Some 
programs find the top of mem- 
ory by directly testing location 
FFFF and working down until a 
live cell is found; APL80 and 
Scripsit work like that. (Such 
programs wipe out protected 
code at the top of memory, so 
readers with serial printer driv- 
ers or other routines there will 
have to make changes.) The 
most sophisticated technique 
for finding the highest memory 
location is to ask the DOS. 
Model I DOS stores the highest 
available memory at location 
4049 and Model III DOS stores 
the information at 4411. 

Fortran examines location 
4049 to find the top of memory. I 
will begin the modification at 
that point. 

Review of Fortran 

The Fortran disk contains 
three programs and an additional 
library file. The programs are 
called EDIT/CMD, F80VCMD, and 
L807CMD; the additional file is 
called FORLIB/REL Microsoft 
constructed the package to ac- 
commodate writing and running 
very large Fortran programs. Con- 
sequently, at any moment the 
computer memory contains only 
the code to do the task at hand. 

Edit is an editor to simplify typ- 
ing text into the computer; It 
works like the Basic editor or the 
editor portion of EDTASM. When 
a program Is complete, it is writ- 
ten to the disk and the Edit pro- 
gram is erased. 

Unfortunately, Edit is a com- 
plicated program. It caused 
most of the trouble in the proj- 
ect. Microsoft has written Edit 
to use with programs too large 
for the computer memory. Old 
programs are not read back into 
memory for reedlting. Instead, 
the computer stores only 
changes and additional text in 
memory and reads from disk 
when it refers to earlier material. 
Thus, Edit must be able to work 
with two files simultaneously 
when writing a reedited program 
back to disk. Even a third file can 
complicate this process, for 
when a large file is written to the 



disk, Edit also writes a small "in- 
dex file" of vital Information 
about the large file for faster 
processing. 

After you write a program, the 
compiler F80 converts it to code. 
This program also juggles three 
files at once. If you call your pro- 
gram EXERCISE, you must save 
it from the editor with the exten- 
sion /FOR. The compiler pro- 
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78C5 


4940 
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7C08 
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221343 
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787F 
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4B44 
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7344 


4B44 
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000000 
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221343 
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221343 


000000 


500C 


7344 


4B44 
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duces a machine language ver- 
sion of the program on a file 
called EXERCISE/REL It also 
produces an Assembly lan- 
guage version of the code which 
you can list and inspect; this file 
is called EXERCISE/LST. 

The program EXERCISE/REL 
is not In a form which can run 
directly from the computer. One 
of Fortran's most Important fea- 
tures is its ability to handle pre- 
compiled subroutines. Suppose 
you often need a routine called 
Matrix (no need to explain what 
it does). You can write the pro- 
gram Matrix only once and com- 
pile it to MATRIX/REL code. 
When the program EXERCISE/ 
FOR uses Matrix, Include the 
line CALL MATRIX in the text. 
Even though Matrix appears no- 
where else in the program, the 
compiler will not complain. But 
you must merge or link the file 
MATRIX/REL together with EX- 
ERCISE/REL before you can run 
the program. L80 does this link- 



ing. It converts EXERCISE/REL 
and any routines it uses into a 
single runnable file called EXER- 
CISE/CMD. Many commonly 
used routines are included in 
the file FORLIB/REL; the linker 
must always merge at least 
these programs with the EXER- 
CISE/REL file. 

In summary, during a Fortran 
session with Exercise the disk 
may contain EXERCISE/FOR, 
EXERCISE/ZFO (the index file), 
EXERCISE/REL, EXERCISE/ 
LST, and EXERCISE/CM D. The 
Fortran package juggles them, 
and every routine doing the jug- 
gling can cause trouble on the 
Model III. 

First Steps 

I am using version 1.0 of For- 
tran. Use DOS 1.3 during the 
modification; the "end of file" 
protocol in earlier versions of 
DOS is incompatible with the 
modifications we will make. 

The first change is easy. The 
three programs Edit, F80, and 
L80 find the top of memory by 
examining location 4049; we 



must change this number to 
4411. Use Patch to change 4940 
to 1144 at location 87DB in 
EDIT/CMD, at location 78C5 in 
F80/CMD, and at location 5214 
in L80/CMD. 

These changes do not end our 
"top of memory" problems. For- 
tran programs created by the sys- 
tem still use location 4049 to find 
the top of memory. Solving this 



Model III. During these pro- 
grams, a (perhaps accidental) 
press of the Break key causes 
you to fall back into Debug. This 
dismaying response can, of 
course, be deactivated. 

Location 4315 controls the ac- 
tion of the Break key. It contains 
C3 when the Break key is ac- 
tivated and 00 when it is inac- 
tive. All three of our packages 



"The Fortran system tracks 

related files by giving 

them the same first name 

with different extension names." 



problem is much more difficult 
(and much more fun); it will be the 
last step of our modification. 

If you did not own a Model I 
you may never have heard of the 
Break key's idiosyncracies. On 
the Model I, this Break key is 
"activated" by turning on 
Debug. After leaving Debug, you 
can run programs as on the 



contain code which sets this 
location to 00 at the start of the 
program and to C3 when it ends. 
We must eliminate this code. 
Replace 321543 by 000000 at lo- 
cations 6C66 and 87B6 in EDIT/ 
CMD, at locations 575B and 
7C09 in F80/CMD, and at loca- 
tions 5204 and 582 A in L80/CMD. 
Our programs also temporarily 



replace the contents of location 
4313 on startup and return these 
contents to normal before end- 
ing. Documentation I own claims 
this location is a "jump director 
for positive DOS commands." 
The Model III has different code 
near 4313. So we eliminate mani- 
pulation of address 4313 by 
changing 221343 to 000000 at lo- 
cations 6C61 and 87C5 of EDIT/ 
CMD, at locations 5767 and 7C0F 
of F80/CMD, and at locations 
5210 and 5830 of L80/CMD. 

The Fortran system tracks 
related files by giving them the 
same first name with different 
extension names. The package 
handles these extensions auto- 
matically. If you wish to compile 
Exercise, you need type only 
these eight letters; the compiler 
automatically looks for EXER- 
CISE/FOR and calls the result- 
ing code file EXERCISE/REL. 
The compiler does this using a 
DOS routine called SPUTEXT. 
This routine was not docu- 
mented on the Model I, and 
Radio Shack changed its loca- 
tion. It has been documented on 
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Our crop-The Lemon™ , The Lime 1 " . 
and The Orange™ are designed to 
eliminate undetected submicrosecond 
overvoltage transients from electrical 
circuits. Commonly referred to as 
"spikes", or "glitches", these tran- 
sients can cause hardware and soft- 
ware damage to unprotected circuits. 

Today's electronic products are often 
microprocessor controlled - mini and 
micro computers, televisions, video 
cassette recorders - to name a few. 
Each of these products is sensitive to 
fluctuations in electrical power lines. 
Power switching devices such as 
refrigerators coming on and off or air 
conditioners starting up can be respon- 
sible for a momentary surge or spike of 
electricity in a circuit. Even your local 



utility stepping-up transformers to add 
power at peak load times or an elec- 
trical storm passing through can trigger 
surges. Such surges can cause equip* 
ment to falter at times, not to work at 
peak performance or fail completely. 
An entire data base can be lost. 
Now you can prevent this from 
happening to you with an AC Surge 
Protector from Electronic Protection 
Devices. Each Protector is a solid state 
clamping device with 6 outlets utilizing 
modern high speed semiconductor 
technology. Using our Protectors is as 
simple as plugging it into any standard 
three wire duplex outlet then plugging 
what needs protection into it. Each 
Protector exceeds the IEEE 587-1980 
Guide for Surge Voltages in Low 



Voltage AC Power Circuits. 

When you compare the cost of 
computer hardware, software and your 
time with the price of a Protector (from 
$59.95 to $139.95). you'll want to sour 
your surges with one of the AC Surge 
Protectors from EPD, which are 
available through your local dealer. 



Electronic Protection Devices 

5 Central Avenue 

Waltham, Massachusetts 02154 

In Massachusetts Call: 
(617)891-6602 

Outside Massachusetts Call: 
1-800-343-1813 



Dealer Inquiries Invited 



the Model III. The routine begins 
at 4473 on the Model I and at 
444B on the Model III. Conse- 
quently we change 7344 to 4B44 
at location 6FF4 in EDIT/CMD, 
at locations 795C, 797F and 
7999 in F80/CMD, and at lo- 
cations 5D0C in L80/CMD. 

This last change has a dra- 
matic effect. F80 and L80 now 
work perfectly. At first glance, 
Edit seems to work too. But as 
soon as we try to reed it a file, the 
editor becomes very sick and re- 
fuses to reload the file. 

The DCB 

Now we come to the most an- 
noying of all Model I to Model III 
changes. Radio Shack length- 
ened the DCB for disk files from 
32 bytes to 50 bytes. 

When you use a file, the file 
name is placed in an area of 
memory called the device con- 
trol block or DCB, and the ad- 
dress of this block is given to a 
DOS routine called Open. The 
routine locates the file in the di- 
rectory and replaces its name in 
the DCB with technical informa- 



tion about it. While you manip- 
ulate the file, this DCB becomes 
a sort of scratchpad for the 
DOS. When you close the file, 
the name of the file is returned 
to the DCB. 

The computer always reads or 
writes 256 bytes at a time. For ex- 
ample, when Patch changes a 
single byte of code, the computer 
actually reads in 256 bytes, 
changes that one byte, and then 
writes back all 256 bytes. The 256 
byte memory area from which 
the computer reads and writes is 
called the buffer the location of 
this buffer is given the system 
when a file is opened, and be- 
comes part of the technical infor- 
mation in the DCB. 

Many programmers arrange 
memory allocation so the file buf- 
fer immediately follows the DCB. 
How does this arrangement affect 
the change in the length of the 
DCB? Imagine that we are going 
to read from a file. First we place 
the name of the file in the DCB. 
This name takes less than 32 
bytes and the rest of the DCB con- 
tains irrelevant information. Next, 



we open the file. The Model III 
scoops up the name and replaces 
it with technical information. This 
information is 18 bytes long (for a 
fairly short file) followed by 24 
bytes of FF. Forty-two bytes in 
memory are changed. Since the 
Model I DCB is only 32 bytes long, 
an extra 10 bytes in the file buffer 
are filled with FF garbage. 

This garbage is irrelevant be- 
cause the file buffer contains 
nothing interesting yet. Next, we 
read the first record of the file. 
The beginning bytes of this rec- 
ord overwrite the last 10 bytes of 
FF in the technical information 
contained in the DCB. The tech- 
nical information at the end of 
the DCB is information on file 
extents; you can change the last 
few bytes unless the file has a 
large number of extents. 

Most programmers use the in- 
formation in the file buffer only 
when the file is open. When the 
buffer is changed during the 
Open and Close routines, no 
harm is done. In summary, when 
the file buffer immediately 
follows the DCB in a Model I pro- 



gram, the program will probably 
work on the Model III. 

Programs such as F80 and 
LBO can cause trouble on a 
Model III. But this problem will 
only come up once or twice in a 
lifetime, when you try to write a 
file on a dirty disk and force a 
very large number of extents. If 
you are bothered by this possi- 
bility, feel free to change the 
DCBs in these two programs. 

Not all programs are arranged 
in the above manner. Some- 
times the DCB occurs in the 
middle of a program, followed 
immediately by other important 
code. It will be disastrous to use 
the disk during the operation of 
such programs. It turns out that 
Edit and muMATH fall in this 
class. 

MuMATH 

MuMATH is produced by the 
Software House in Hawaii. The 
program is written in Lisp and 
can perform algebraic manipu- 
lations. It expands polynomials, 
differentiates any reasonable 
function, and even integrates 
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using the method of substitu- 
tion. The program happily 
handles very large numbers; for 
instance it can calculate 100! 
down to the last digit and then 
convert the result to hex. Some 
people claim that the very first 
computer program was one writ- 
ten by Ada Byron for Babbage's 
machine (but never run); the pro- 
gram computed Bernoulli num- 
bers. Bernoulli numbers are very 
large rational numbers and the 
whole point is to know their 
numerators and denominators 
exactly; approximations are not 
interesting. MuMATH is the only 
system available for the TRS-80 
which can run Ada's program 
without resorting to tricks. 

When I first converted mu- 
MATH to the Model III, I was 
happy to find that it worked 
without change. Later I dis- 
covered a curious flaw. The 
authors of muMATH included a 
large demonstration file on the 
disk. This file asks muMATH a 
series of questions and mu- 
MATH stops to answer each 
question before reading further. 
Of course, muMATH can answer 
quite rapidly; you must freeze 
the screen if you wish to ex- 
amine the answers. When I first 
tried this program on Model III, 
the questions and responses 
scrolled rapidly across the 
screen; I neglected to look at the 
answers because I had seen 
them all before. But soon a 
strange answer caught my eye 
as it floated off the screen and 
after freezing the display I dis- 
covered that muMATH had for- 
gotten everything it once knew. 

MuMATH repeats questions it 
cannot answer. If you ask it to 
integrate SIN(X), it replies 
-COS(X), but if you ask it to in- 
tegrate SIN(X*X*X), it just 
replies INT(SIN(X*X*X),X). But in 
the demonstration program, 
muMATH replied 1+2 when 
asked to sum one and two. 

The difficulty here is the DCB. 
In muMATH, it is hidden in the 
middle of the code. As soon as 
we try to read the demonstration 
disk, a small part of muMATH 
dies. 

Unfortunately, muMATH uses 
up the complete 32K or 48K of 
computer memory and leaves 
no obvious spot to place a larger 
DCB. However, the DCB can be 
326 • 80 Micro, December 1982 



located safely in a buffer area 
on page 42 of the DOS. There ac- 
tually are two DCBs, one at 6F91 
for reading and one at 6FE0 for 
writing. So to patch either ver- 
sion of muMATH, change 916F 
to 2542 at 63D4, 63DD and 64B8. 
Also change E06F to 6042 at 
6406, 640F, 642D and 6367. 

Fixing the Edit DCB 

Several techniques work to 
find the DCBs for Edit. Perhaps 
the easiest is to look for calls to 
the INIT routine at 4420 and the 
Open routine at 4424. Before 
calling these routines, the com- 
puter loads DE with the address 
of the DCB. Experiments like 



Patch to change C05F to OOFF 
at 6FA6, 6FAE, 72DB, 72F8, 
7307, 730D, 7318, 736E, 73A1, 
772B, 7741, 7759, 7770, 7E58 and 
7FB0. Then change C55F to 
05FF at 7215. Finally change 
CB5F to OBFF at 72CA. 

Now test the result. Edit can 
read in and change a short pro- 
gram. But nasty surprises are 
ahead. When Edit reads a pro- 
gram longer than eight lines, it 
starts listing lines out of order, 
forgets pieces of lines, and 
ignores the end of the program 
entirely. 

The new problem does not oc- 
cur with DOS 1.1. Reaching into 
the bag of Radio Shack changes, 
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with technical information." 



these show that the Edit pro- 
gram has DCBs at 5FA0 and 
5FC0. Moreover, there is a tem- 
porary storage area for the con- 
tents of these blocks at 5FE0. 

When the 5FA0 DCB is used, 
the computer overwrites the 
first part of the 5FC0 DCB. We 
are going to move this 5FC0 
DCB to the address FF00; later 
on we will use other pieces of 
this page of memory as a patch 
space. If you have only 32K, you 
will have to change various 
pieces of the modification 
which follow (buy another 16K 
instead!). 

Before using this area, we 
have to protect it from Edit by 
revising the reference to the top 
of memory. At 87DA we find the 
command LD HL,(4411). (The 
number 4411 was 4049 before 
we changed it a moment ago.) 
Change this command to LD H L, 
0FEFFH. Use Patch to change 
2A1144 to 21FFFE at 87DA. 

Next find all references in the 
code to the number 5FC0. Unfor- 
tunately, many programs are 
savvy enough to use the tech- 
nical information stored in the 
DCB; Edit is one of these. Con- 
sequently you also must find 
references to 5FC5 and 5FCB in 
the code. 

Once you find these refer- 
ences, the final step is easy; use 



we have just discovered the "end 
of file" revision. 

The EOF 

The DOS stores certain tech- 
nical information in the DCB 
while a file is open. Call the ad- 
dress of the first byte in the DCB 
"location zero." Then locations 
8 and 12 contain end of file infor- 
mation. To understand this 
information, you must know a 
little more about how DOS 
operates. 

On the disk, a file consists of 
a series of "physical records", 
each 256 bytes long. These rec- 
ords are numbered record 0, rec- 
ord 1 , record 2, . . . The records 
may be scattered all over the 
disk, but the operating system 
handles all of that. 

Sometimes it is inconvenient 
to deal with blocks of data 256 
bytes long. The DOS allows 
users to write files with record 
lengths other than 256. For in- 
stance, Edit files have records 
of length 128. The length of the 
records in a file is called the 
"logical record length" or LRL. 

However, this logical record 
length is fictitious. When rec- 
ords are written to the disk, they 
have length 256. The DOS con- 
verts the logical records in the 
programmer's mind into blocks 
of code exactly 256 bytes long. 



When a program asks that a re- 
cord be written to disk, the re- 
cord is actually written into the 
256 byte buffer we discussed 
earlier. But the buffer is written 
to disk only when it is full. 

For instance, imagine that 
you are working with records of 
length 100 and you want to write 
four such records to disk. When 
you record 0, the operating 
system writes it into the buffer, 
but nothing goes to disk. The 
next record also moves only to 
the buffer, filling spots 100-199. 
The first part of record two 
moves to the buffer, filling spots 
200-255, and then this buffer is 
written to disk. Next the buffer is 
cleared and the end of record 
two is written into its first 44 
spots. Finally record number 
three is written from spot 44 to 
spot 143. The contents of the 
buffer, however, will not be writ- 
ten to disk until further logical 
records are written or you close 
the file. 

The fictitious records of 
length LRL which compose a file 
are called "logical records." The 
actual 256 byte blocks of code 
on the disk are called "physical 
records." Thus in the above ex- 
ample, logical record number 
three is in physical record num- 
ber one. 

Now I can explain locations 8 
and 12 in the DCB. In DOS 1.3. 
the information in these loca- 
tions tells where to place the 
next byte to extend the file. If 
you closed the file described in 
the last paragraph after the four 
records were written, on the disk 
the file would consist of two 
records, each with 256 bytes of 
code. The first record would be 
called record zero and the sec- 
ond record one. In record one, 
only bytes 0-143 would be sig- 
nificant. When we reopen this 
file and fill the DCB with 
technical information, location 
8 will contain 144 and location 
12 will contain 1, because the 
next byte to be written would go 
to spot 144 in record one. Notice 
that the information in locations 
8 and 12 is about physical 
records, not logical records. 

An important special case oc- 
curs when a record ends at the 
boundary of a physical record. 
Suppose that a file contains 
exactly three physical records 



called record zero, record one 
and record two. Then location 8 
will contain and location 12 
will contain 3 because the next 
byte to be added would be in- 
serted at the start of physical 
record 3. 

Locations 5 and 10 in the DCB 
contain similar information. 
Suppose that we are reading 
through a file. Each time we 
read a logical record, locations 5 
and 10 are updated to point to 
the next byte to be read. For in- 
stance, if location 5 contains 52 
and location 10 contains 3, then 
the next read command will 
start by reading spot 52 on phys- 
ical record 3 of the file on disk. 

All this is getting very com- 
plicated. Moreover, the story is 
different for DOS 1.1 and for the 
Model I. If a program uses the 
technical information in the 
DCB, it probably must be altered 
for DOS 1.3. 

Fortran Record 
Number Calculations 

In the Edit program two rou- 
tines perform calculations on 



the above DCB information. Both 
routines calculate which 128 
byte logical record was the last 
one read from disk. Let X equal 
the contents of location 5 and Y 
equal the contents of location 
10. The required record number 
is2*Y-1 ifX = 0,2'YifO<X<80, 
and 2*Y + 1 if 80<X. But the 
routines give a different answer: 
2*Y - 2 if fXX<80 and 2* Y - 1 if 
X = 0or80<X. 

Incidentally, I found these rou- 
tines by searching for the num- 
ber 4442; the routine at 4442 posi- 
tions a file to read the logical 
record number stored in BC. 
Once we find the error it is easy 
to fix. Starting at 721 B, insert the 
code 78 20 04 FE 80 1 8 08 B7 20 03 
1B 18 05 FE 81 38 01 13 (the old 
code here reads CA 2A 72 78 E6 
7F C2 28 72 78 EE 80 47 1B 1B 78 
87 D2 30 72 13). Then starting at 
784D, insert the code 21 00 00 09 
09 B7 20 03 2B 18 05 FE 81 38 01 
23 00 00 (the old code reads E6 7F 
7E 21 FE FF CA 58 78 EE 80 87 DA 
5D 78 23 09 09). 

This change improves the op- 
eration of Edit dramatically. Un- 



fortunately, there are still two dif- 
ficulties. When Edit attempts to 
read or write a file whose length 
is a multiple of 128 bytes, it fails. 
Writing such a file causes a cat- 
astrophic failure and reboot. 

At 7F6C in Edit, a routine reads 
128 bytes of code from the disk 
and stores them beginning at the 
location contained in HL After 
reading, the routine checks to 
see if the record read from the 
disk was the last record in the 
file; if so, it puts 1 A in memory im- 
mediately following the last byte 
of code from the file. 

There is a tricky special case. 
If the last record in the file con- 
tains exactly 128 bytes, there is 
no spot in memory for 1A. The 
routine is supposed to wait until 
Read is called again, when it 
should place 1A at the first 
available memory spot. 

As an interesting exercise, try 
to write such a routine using the 
technical information provided. 
You should know that when the 
Read routine reads a logical rec- 
ord and some of the bytes read 
are not in the file, it sets the zero 



flag and places 1C in the accu- 
mulator. This happens even 
when only a few of the bytes 
read from disk do not belong to 
the file, but it does not happen if 
the file ends exactly at the boun- 
dary of the record. The required 
changes in code are easily im- 
plemented. Starting at 7F74, in- 
sert the code 28 11 FE 1C 37 C2 
AC 67 3A A8 5F E6 7F 4F 06 00 09 
36 1A D1 C1 E1 C9. (It will re- 
place CA 7A 7F FE 1C 37 C2 AC 
67 E5 21 AA 5F 5E 23 56 23 7E 23 
66 6F CD F6.) 

Edit cannot write files whose 
length is an even multiple of 1 28. 
I can solve the problem, but I do 
not know exactly why it came 
about. 

The Write routine occurs at 
location 7917. After writing, the 
computer checks several mem- 
ory locations. If conditions are 
exactly right, it tricks the stack 
by loading its last four locations 
with data from 5270-5277. For 
weeks I tried to understand this 
code; from the beginning, ex- 
periments disclosed that it oper- 
ated only in the exceptional 





MODEL III ABK 
2 DRIVES $1600 
1 DRIVE |1400 



P31 Green Phosphor CRT |85 
RS232 |65 

FDC Card $130 

40 Track TAND0N DRIVE (SS)$195 
TAND0N DRIVE PARTS CALL 



♦ HO CHARGE TO INSTALL GREEK SCREEN 

OR RS232 IN NEW COMPUTER 

NEXT DAI SHIPMENT. 

120 DAI GUARANTEE ON ALL ITEMS 

PRICES REFLECT CASH DISCOUNT 

SHIPPING EXTRA 

VISA MASTERCHARGE AMER. EXPRESS 



* MODEL III TECHNICAL MANUAL 

Written by factory technician 
to accompany Radio Shacks Tech* 
Reference Manual. Packed with rare 
Hardware information. 25Pages $10 

RADIO SHACKS TECH. REFERENCE MANUAL 

♦11 



* SERVICES 

We repair all Model III boards 
and Model III systems - overnight - 
in most cases. Tandon drive repair. 
Call for details. 



** ** * ******* 

ALAMO COMPUTER 00. 

1234 AVANT 

SAN ANTONIO, TEXAS 78210 

(512) 534-7782 
************ 




^See List of Advertisers on Page 451 
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TURN YOUR COMPUTER INTO 
A GRAPHICS MACHINE 




WITH THE MIKEEGRAPHIC 
GRAPHIC SYSTEM!! 

" MIKCEQRAPHIC is a hardware/software 
system dasigrwd lot the TBS 80 model I 4 
III computers When installed, your 80 will 
come alive with giaphic ability! 1 

It you've been waiting lor a graphic 
system with the best dots/dollars ratio. 
take a look at our MIKEEGRAPHIC " 

HARDWARE 




SOFTWARE 



VU . •« .w -V 






EvtRV OOT C*h at S€T BfSfT o Tf STfO 
•UUt BTTES Of FAST JO0 •>• MtMOR» 
' UNCTIONS StlECTf D B» OUtPUt «>HT tnt 
MEUOX. MAPPED *0» SPEED 
OCCUPIES LASt 16* 84 OC« O' MEMO- 
CAN H USEO AS NORMAi MEMORY 
('• row *•»« 3?t* tw *vt o* 'Wtii o rn 
CtXC* COORDINATED ENCLOSURE 
DOES NOT CONFUC' WITH DISK OR CASSETTE lO 

SElT Switching power SUPPlt 

r l*u , w up «,!* Co«nfH>t«n 
COMES WITH n S OWN WAU TRANSFORMER 
NOT A CHARACTER GENERATOR" 
BASV INSTALLATION 
•—; .... ..,'-. 

or» i'Ac«p«- fun 



S 0*—*™, -»-»d I 



• COA«fS WITH SAMPLE AND DRIVER SOFTWARE 

• USABLE THROUGH BASK* OR W'( MINE LANGUAGE 

• • '. -. . i i ■ n 

OPERATOn manual 
TOOL Kits AVAILABLi 'OR JUSt S'500 
MANUA1 AVAILABLE SEPARATELY f OR I'SOO 
» jll onc» o' mm,il AMI t* o«OuCt*d i-cmi "■r 
PurcrtH* Pric« 01 MIKE E GRAPHIC " *N»n ordmo 
PREPAiO. COO. MASTERCHARG*. VISA <y MASTER 
CARD ORDFR5 ACCEPTED FOB Bxavta. M 

DEALERS INQUIRIES INVI'EO 

ORDER NOW FOR ONLY $340. 

iVHiTE 'ry FRES BHCH.MJRE 



*OKEE ELECTRONICS CORPORATION 



\«l l RHIv.ui- « 
Irlrplwiw ."Oh II 



JM 



GOLDLABEL BLANK CASSETTES 



• PREMIUM 5 SCREW SHEU 



♦ OIGITAL DATA OUALIIT 
'GUARANTEED 



■ LOW NOISE 



i MADE IN USA 



1 DOZEN C-10 LENGTH S8 00 • %2 00 shpg 1 D0?EN C 30 LENGTH Si I 00 • S? 00 shpq 
t DOZEN C10 LENGTH $15 00 • S3 50 shpg ? DOZEN C 30 IEHGTH S?0 00 • S3 SO stipg 

Individual siorage boies Isold only with cassenesi %2 40 per do/en 

CASSETTE CA00Y S5 49 i Si SO shpg '? lor S10 00 • S2 SO shpg S3 95 with cassette put 

chase (no shpg chg on caddyi 

Foreign orders include shipping at 16 0/ pet do/en tapes. 9 o: pet caflfly13 o; per do/ boies 

Shipments m U S are By UPS Ino delivery lo P0 boiesi Add Si 50 per aaz tapes '0' first Class Ma'l 



!!! NEW !!! CASSETTE CADDY !!! NEW !!! 

TIRE0 OF MISPLACED TAPES AND A CLUTTERED WORK AREA' TRY OUR HINGE0 TOP SMOKED 
PLASTIC CADDY THAT HOLDS I? TAPES IN ONE HANDY LOCATION 




Visa and Mastercard accepted nnciude eipiralion dale Orders paid by cashier s check money order 
or bankcard a'e shipped withm 48 hours Personal check takes 1 Z wks No COD Some foreign sales 
are restricted Teias residents addSMai on blank cassettes and siorage units 

SEND ORDER TO: COLOR SOFTWARE SERVICES 

PO BOX 1723, DEPT. M 
GREENVILLE, TEXAS 75401 
♦ DEALER INQUIRIES INVITED ..QUANTITY DISCOUNTS AVAILABLE 



case causing trouble. It is easy 
to find the code's "mirror im- 
age"; near 78E8 a routine saves 
the last four locations of the 
stack to 5270-5277. The basic 
problem on the Model III is that 
this "mirror image code" 
sometimes does not run before 
the section of code causing 
trouble. 

The solution I have invented 
runs like this. We modify the mir- 
ror image code so it sets a flag 
when it runs. Then we allow the 
dangerous code to run only if 
this flag has been previously 
set. The modified code is al- 
lowed to affect computer opera- 
tions only during the writing of 
the main file (the index file caus- 
es no trouble). 

Place these patches on the 
last page of memory. Change 
location 5200 from C3 B5 87 to 
C3 00 61; starting at 6100. 
replace the 00s with 22 20 61 21 
3061 1140 FF 01 3800 ED BO 2A 

20 61 C3 B5 87. Then starting at 
6130, replace the 00s with 21 5E 
FF7EB7 3600211E5FC23B79 
E1 C3 10 79 E5 21 5E FF 36 FF E1 
E3 E1 E3 C3 F2 78 0000 CD E0 7F 

21 4A FF 36 C3 C9 E5 21 4A FF 36 
C2 21 5E FF 36 00 E1 C3 02 77. In- 
cidentally, 6100-6200 is Edit's 
write buffer; we are using it here 
temporarily to store patches 
which will reside up near FF00. 

Connect these patches to the 
main program by changing 02 77 
to 69 FF at 62C3, CD E0 7F to CD 
60 FF at 72FA, E3 E1 E3 to C3 51 
FF at 78EF, and 21 1E 5F to C3 
40 FF at 7938. 

Edit, F80, and L80 now work! 
Top of Memory 

The instruction manual ex- 
plains that each Fortran pro- 
gram begins the same way: LD 
BC,$$L; JP $INIT. It warns that 
$INIT sets the stack pointer to 
the top of memory. How is this 
location determined? Since L80 
creates each Fortran program, I 
hoped that L80 set the top of 
memory. No such luck; the pro- 
gram examines location 4049. 

The SINIT routine is contained 
in the library FORLIB/REL; we 
must find 4049 in this library and 
change it to 4411. Unfortunately 
the library is in code— not Z80 
code, but Microsoft linker code. 
The manual explains that to 
save space in REL files, the For- 
tran system constructs these 



files as long chains of zeroes 
and ones; significant informa- 
tion is not aligned with eight bit 
boundaries. Therefore it is ne- 
cessary to convert FORLIB/REL 
(which is a very large file) into a 
gigantic chain of zeroes and 
ones and then search through 
this chain for the bit pattern cor- 
responding to 4049. (The coding 
method introduces an extra zero 
bit between each of these 
numbers.) 

There might be hope for doing 
this by hand if SINIT occurred 
near the start of the file (and I ex- 
pected to find it there); actually 
SINIT is hidden in the middle of 
things. Therefore I wrote an As- 
sembly language program to 
search the file automatically. 

Using the results of the 
search I can explain how to 
change the code. Use the F com- 
mand of Debug to display the 
file FORLIB/REL. Use the plus 
key to leaf through this file until 
you come to a page which 
begins 8C 00 C9 11 50 E3 2A 00 
. . . Find the two bytes 49 20 
starting at location 5C of this 
file. Use the M command to 
change these bytes to 1 1 22 and 
then push Enter. All modifica- 
tions are now complete. 

I did not actually search for 
4049, though it would have been 
the logical thing to do. Instead I 
looked for the bit pattern cor- 
responding to I NIT. In advance, I 
knew that the SINIT routine 
reads: 



xon 


A 


LO 


IAD01I.A 


LD 


|AD02).A 


LD 


HL. NUMBER 


LD 


(ADD3).HL 


LD 


HU4049H) 


LD 


SP.HL 


LD 


H.B 


LD 


LC 


JP 


(HL) 



Once I found INIT, I began 
decoding the bit pattern by hand 
using the rules in a very obscure 
part of the manual. I gradually 
wrote down the information 
shown in Fig. 1. 

A Problem for the Reader 

After making all these 
changes Fortran programs work 
well on the Model III unless they 
write data to the disk. Files like 
FORT06/DAT created on disk 
are incomplete and out of order. 
I do not know how to fix this 
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problem. Can someone search 
for the routine in the FORLIB/ 
REL file that reads and writes 
data files and explain how to 
patch it? 

Summary of Required Changes 

Tables 1-4 list the changes 
you must make to muMATH, 
Edit, F80, and FORLIB/REL for 
the Model III. In each case, I 
list the starting location, old 
code, and new code. Use the 
Patch command to make these 
changes. 

Consider, for example, the first 
change. It asks that location 63D4 
of muMATH be changed from 
916F to 2542. To do this, type 
PATCH MATH48/CMD (ADD = 
63D4, FIND = 916F, CHG = 2542). 
and press Enter. The disk will turn 
on briefly and then the computer 
will print "Patch Made". If it ever 
prints "String NOT Found", you 
made a typing mistake and you 
should issue the command again. 
Replace MATH48/CMD by the cor- 
rect program name in other cases: 
MATH32/CMD, EDIT/CM D, F80/ 
CMD, or L80VCMD. 



Finally, you must modify 
FORLIB/ REL in a different man- 
ner. Run Debug and issue the 
command F. The computer will 
ask for a filespec; type 
FORLIB/REL and press Enter. 
The disk will run and the screen 
will show a display of numbers. 
Each time you press the plus 
key, the disk will run and the 
display will change. Keep press- 
ing plus until you see 8C 00 C9 
1 1 50 E3 2A . . . along the top line 
of the display. Then press M. Im- 
mediately a small square will ap- 
pear at the top left of the screen. 
Move the square down to line 5 
using the down arrow key, and 
then over 12 spaces using the 
right arrow key until it lands on 
top of 49. Type 1 1 22; the two en- 
tries 49 20 will change to 11 22. 
Now press Enter. The disk will 
turn on briefly. Press the Break 
key twice and you will be back in 
DOS. ■ 



Richard Koch is Associate 
Professor of Mathematics at 
the University of Oregon. 



Model 953A EPROM 
PROGRAMMER 




• Programs 2508. 2758. 2516. 2716. 2532 and 2732 five volt EPROMS 

• Complete no personality modules to buy 

• Intelligent microprocessor based, programs and verifies any or all bytes 

• RS 232 serial interface use with computer or terminal. 

• Verify erasure command - verifies that EPROM is erased. 

• Extended diagnostics error output distinguishes between a bad EPROM 
and one which needs erasing 

• May be used for extremely reliable data or program storage. 

• All power on programming socket under processor control LED warning 
light indicates when power is applied. 

• Complete with Textool zero insertion force socket. 

• High performance /cost ratio. 

• Standard DB 25 1 ,0 connector. 

PRICE S289 



BAY TECHNICAL ASSOCIATES, inc. 

I 

HWY 603. P.O. BOX 387 

BAY ST. LOUIS. MISSISSIPPI 39520 

(601)467-8231 




Mayday IS NOW SMART 

Mayday has established itself as the best protection against 
power interruptions to most mini /micro-computers. 

Mayday now has all the features you asked for! 




Constant voltage regulated output 

I/O port which tells computer when AC is off 

• High. low and charge LED indicators 

• Low battery audible alarms and UPS shutdown 
High start up capability for hard disk 

• Zero crossing DC feature that handles any 
type of computer power supply 

• New three stage sense circuit that protects 
from all types of power failure-including rapid 
inductive kickback 



protection you can afford! 



• See List ot Advertisers on Page 45 1 



'<! SUN RESEARCH, INC. 



:'•>•'*[•■• . I il ;? V J :i»7ii •! 



NEW DURHAM .NH 03855 



l,lllil> ill . ■! 
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Announcing 

ACCESS UNLIMITEDS 




FREE! DOSPLUS 3.4" 
disk operating system 
th any Percom or 
cess Unlimited Drive 
the Model III' 




SAVE $50.00 on fully-tested PERCOM Disk 

Drive for Model III* 

Reg. $499.00. Now $449.00 

Percom's internally-mounted drives, with their widely-acclaimed disk 
controllers, are completely pre-tested with a 48 hour Burn-in. So. you know 
it works right when you get it. Choose single or double-density storage 
capacity. 

A First-Drive System includes the tour-drive disk controller, your choice 
ot one or two drives, power supplies, cables and a fully-illustrated, easy-to- 
understand owner's manual. 

Top-of-the-line Access Unlimited addons 
for the Model III* Disk Drive only $334.00 
Single, and $628.00 Double. 

Access Unlimited's drives for the Model III" bring you all the outstanding 
features of the Percom Drive, plus the superb, deluxe quality of the Access 
Unlimited workmanship that goes into the precision-made equipment which 
bears our name. 

Make sure it's done right. Let us install 
your First-Drive System. 

Purchase your Model III* Drives from us and for $39.95 plus shipping, you 
can have our experienced professionals perform a 48-hour bum-in of your 
Model III* computer, install the drive system, and check out your expanded 
system to make sure everything works correctly. Call for pricing of complete 
Model III* system with 2 to 4 Access Unlimited or Percom drives. 

Get the best! Our own fully-tested drives 
for as low as $275.00 

Every Access Unlimited Floppy and Flippy Disk Drive is electrically and 
mechanically tested, then burned-in for 48 hours under operating conditions. 
The signed test list in your shipping carton is proof of that. 

Our floppy disk drives offer you either single or double density. With 
double-density, it stores up to 364 Kbytes, depending on the format And you 
can use both sides of the diskette on our flippy drives 

SATISFACTION GUARANTEED! If you're not completely 
satisfied with your Access Unlimited Disk Drive, return it 
within 15 days for a full refund. All our drives have a 
comprehensive 90-day limited warranty. 



For a limited time only, you can get top-quality name- 
brand disk drives at rock-bottom prices. 

— Sale end* Feb. 28, 1983 — 

(But some prices will be good after Sale ends. 
Please call 1-800-527-3475 for pricing.) 

Save $$ on our most popular items! 

Percom Data Separator (reg. $29.95) now S23.95 

Screens for Models IMIMII Green, Lt. Sue. Dark blue, 

and Amber. Bronze for color video (reg. $24.95) now $14.95 

Head Cleaning Kit (reg. $29.95) nowS19.95 

Drive Numbering Tabs, pkg. 0-3 (reg. $4,50) now S3.95 

Hip-N-Rle 5V< " (reg. $39.95) now S24.95 

Rip-N-Ftle 8 " (reg $54.95) now $39.95 

AFD 100-40-track single-density drives $275.00 

JUST PURCHASED! Overstock of 
Japanese-manufactured absolutely top quality 
CP/M X based business computers. 
From 160 KB to 40 + MB. 

We have just added approximately $100,000.00 
worth of brand new business and game software. 

Call or write for our new FREE catalog. 







Electric Crayon Close-out— only 80 left. 
When these are sold, there will be no 
more! reg. $289.00 now $149.95 

Use the electric crayon with your own monitor or color TV set. Use it with 
your Model I or III TRS-80™ and a color monitor or color TV set for a very 
low cost, high quality color computer. (Hook up instructions furnished.) 



XTRA Special— Soft sector 
diskettes— Carload purchase- 
As low as $19.90 for box of 10 

SSSD, with hub. &/*" $1 9.90 box of 1 

SSDD, with hub, t 22.80 box of 10 

DSSD. with hub. 5W 29.90 box of 10 

DSDD, with hut/ 33.50 box ot 10 

SSSD. 8" 22.75 box of 10 

SSSD, 8", high performance 22.90 box of 1 

DSDD 8" 31.95 box ol10 
One year limited warranty against manufactunng defects 



CHRISTMAS SALE! 




SAVE $S 3 WAYS! 
now $184.95! 



Upgrade your 
Model I* to 
Double Density 



Percom's proven Doubter II '"" with 
DOSPLUS 3.4** and Move 1-2-3 software 
—a $339.95 value, now $184.95! 

The completely assembled and fully-tested Percom DOUBLER II !M is ready to 
go to work when you get it. All you have to do is plug it in. It can store over 4 
times more on one side ol a diskette than a standard Tandy Model 1 ' drive. It 
reads, writes, and formats either single or double-density. Comes with a 
DOSPLUS 3.4" disk-operation system. Runs TRSDOS*. NEWDOS" 
Percom 0S-80" . and other single-density software. (You can change to 
double-density at any time.) Uses Move 1-2-3 utility ($29.95) or other 
appropriate software to read Model III* programs on your Model I*. Has 
on-card high performance data separation and write precompensation 
circuitry. ^^ „ TM $159.95 

DOSPLUS 3.4D** 150.00 

Move 1-2-3 29.95 



Total Value 
Now only 
You SAVE 




$33995 
$184.95 
$155.00 



From 

$1,995 (5 MB) 



Check out the benefits 
of Access Unlimited Hard Disk Drives 

V can be used for Model II", Model III* computers. 
W^ 5, 10 Megabyte and larger drive units. 

V lets controller handle up to 4 drives 

V" works along with existing floppy disk drives 
K" includes host system support software. 
K 15-day FREE trial period. 



SAVE on an Arrick Quick Switch^ 

Changes a TRS-80* printer port or a peripheral between computers instantly 
and easily. Available for RS-232 and Centronics. Rugs inducted. 

Now from $99.95. Cables from $31.95. 



EXPLANATION ■ Trademark ot Tare* Rade Stack Cop 

of symbols ^issssjjss.sssst 

.' nam - i lean - mm 
t Trademark ot Percom Data Company, inc 



*• Trademark of Mw Systems Software, inc 
X Trademarv ol Anx* Products Company 
•"Trademark or Mamarc. Mc 
>; Trademark ot Ogu fesearch 



Enjoy 1-stop shopping and BIG savings 

Order your disks, software, supplies, and accessories from Access Unlimited. 
We offer low prices on automatic Datamarc"** Sheet and Envelope Feeders 
for Radio Shack*. QUME. Ricoh. Diablo Daisywheel. and Dot Matrix Printers. 
And the more you buy at one time, the more you can save. 

For more information, call (214) 340-5366 Monday through Friday; (214) 
690-0207 after 5 p.m. and Saturdays 



lb order or for FREE literature, call TOLL-FREE 

1-800-527-3475 « 



Ordering Information 



Order by phone or by mail. We accept Visa. MasterCard, cashier's checks, 
certified checks, and money orders. With personal checks, allow additional 
time for bank clearance. Your bankcard will not be charged until your order is 
shipped. On orders over $1,000. we pay freight (surface only) and insurance; 
please add $3.00 shipping and handling under 50 lbs. Over 50 lbs., add 
$5.00 for orders under $1,000.00. Texas residents add 5% sales tax. Allow 2 
to 4 weeks for delivery. 



D Please send me a FREE catalog. I'm not ready to order at this time. 
□ YES, l*m taking advantage ot your Sales prices. 

Name 



Company Name . 

Address 

City 



State . 



Zip. 



Phone Number ! 
Quantity 



Item 



Unit Price 



Subtotal 



Subtotal 

Stale Sales Tax (Texas residents only) 

handling charge 

Check one; Total 

D payment enclosed □ Visa □ MasterCard* 



'If MasterCard, numbers above name 
Expiration Date; I I I "" I I 



Authorized signature, if charged 



ACCESS UNLIMITED 



DEPT. AX 401 N. Central Expy. Richardson, Texas 75080 



.-26 




You've Got 

TOTAL ACCESS 



TM 



Rose 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



TM 



DISK DRIVES 

Torol Access 40T 

Aerocomp 40T Flippy. . 

Aerocomp 80T 

Aerocomp 80T Flippy 
Aerocomp 40T Duol Heod 
Aerocomp 60T Duol Heod 



S239 
$319 
$399 
$409 
$409 
$51 9 



for TRS80 Mod I. Mod lllulDMPCexrernaluTI9v/4A 
Incl power supply 6 enclosure 

^$' Apple Compatible Drive $309 

■^ Apple Comp. Disk Controller (ioard $99 

* BARE DRIVES 

Torol Access 4CT $199 

Aerocomp 40T Flippy $269 

Aerocomp 80T $329 

Aerocomp 80T Flippy $359 

Aerocomp 40T Duol Head $329 

Aerocomp SOT Duol Heod $469 

* DRIVE CABLES 

2-dnve $24 

4-dnve $34 

Extender coble $13 

* OPERATING SYSTEMS 

TRSDOS 23 Disk 6 Manual $20 

IDOS(lorlll) $119 

DOSPLUS34 $129 

NEWDOS/80 or III) $129 

* DISK CONTROLLERS/SEPARATORS 

Aerocomp DDC double dens disk 

controller for Mod I $139 

w/DOSPLUS33D $179 

w/LDOS $229 

Aerocomp "DD5" double dens data sep for 

Percom or LN Doubler $49 

Aerocomp SDS single dens dara sep. for 
Mod. I $29 

* EPSON PRINTERS 

MX80 $469 

MX80 F/T $569 

MX100 $719 

Cable (TR680) $9* 

MX80 ribbons $9 

* wirh purchase of Epson primer 

* ODD STUFF 

Single drive power supply $44 

Drive enclosure (siive r ) $24 

Diske'tes (box of 10) $24 



120 day worronty on drives. Add $5 per dnve 

shipping i nConr US UPS COD chorgeSI 50. There iso 
15 day FP£E TRIAL ON DRIVES If nor complerely 
satisfied I'M refund your money (less shipping) I'li 
rake excepnon ro improper use or mishandling 



* RADIO SHACK COMPUTERS 

26-1061 Mill. LI, 4K 595 

26 1062 Mill. LH 16K 799 

26-1065 Mill. 48K 1 dnve 1495 

26l066Mlll,48Kv2drRS232 1795 

26-3002 16K w/exr BASIC 399 

26-2003 32Kw/exi uASC 499 

26-3004 16K w/o ext DASIC 299 



26 3501 PC 1. Call about occ ... . 129 
26 3601 PC 2. Call about occ . 229 

26 4002 64K Mil. 1 dnve 2899 

26-6001 128KM16. 1 -dnve 4199 

26-6002 1 28K M1 6. 2-dnve 4799 

26-6050 DT-1 Terminal 599 

* PERIPHERIAJLS - Model HHH-16, CC 

32K UW E/l w/RS232 complete 375 

LNDOUDLER 5/8 w/o DOS 1 99 

26 -1143 Rodio Shads DDen board . 125 

26- 11 25 Mill Hi Res board 299 

26-1 145 Ml R5232 firs RS E/l 85 

26-1 148 Mill RS232 wirh coble .89 

26-1172 DC Modem I 125 

26-1173 DC Modem II 199 

26-1208 CCR-81 Recorder 51 

26-1 130 Mill Hard Disk, pri 2099 

26 1131 Mill Hard Disk, sec 1599 

26-1 132 Mod I H/D adopter 32 

26 1 162 Mill 1st dr kir oil RS 629 

16-0230 13" Color TV remore .353 

26 3008 C C Jaysncte pr 21 

26 3022 CC dnve 1 w/conrrlr . .449 
26-4104 MH/1 6 Hi-Pes board 419 

26 41 50 Hard Disk 84Mb pn 3799 

26 41 51 Hord Disk 84Mb sec 2899 

26 41 60 1 Drive expansion 938 

26 4161 2-dnve expansion 1431 

26 4162 3-drrve expansion 1897 

26 4165 1 drive unit 1099 

26 4166 2otm? unir 1699 

26-4167 Thmline add-on d-rve 535 

26-6010 Mil roM1 6 upgrade 1299 

26 601 1 128K RAM board 599 

* PRNTERS & OTHER ACCESSORIES 

26-1158 Daisy Wheel ll 43 cps 1599 

26 1447 R£ Troaor Assy 206 

26 1448 Sheer Feeder 999 

26 1 165 Line Pnnrer V 160cps 1 195 

26 1455 Acoustic cover 339 

26-1250 DVP-410, 25cps 1207 

26 1459 as Trocror Assy 199 

26 1251 DMP-400, 140 cps 969 

26-1252 DMP-500, 220cps 1399 

26-1253 DMP-1 00, 50cps 309 

26-1254 DMP- 200, I20cps 679 

26-' 191 Multi-pen plotter 1650 

26-1 192 CGP-1 15 Color pnnrer 199 

26-1 193 Flatbed plorror 799 

26-1195 Diginzer 369 

26-1196GT-116XPAD" 295 

ANADEX DP-9260A 200cps 1449 

PROWRITER.1. I20cps, 10" F/T 469 

STAAWRJTEA F 10, 40cps 1399 

PfWMASTER F 10. 55cps 1599 

Pwrishauser rroaor feed 208 

Rurishouser sheer feeder 999 

•LNW COMPUTERS 

96K LNW-80 Model I. NTSC/R-GO. RS232 5 /8 

Dden conrrlr, w/FP£F_ 1 2" Green Phospher 

Monitor 1695 

NEXT DAY SHPMENT on al in stock Merchandrse 



1 28K LNW-60 Mod II, NTSC/RG0. R5232 CP/M 
comporible. 5/8" conrrlr. w/FR£E 1 2" Grn 
PhosMon . . 2495 

* MEDIA & SUPPLIES 

8 disks SSDDen. Guar. Forever 32 

8 disl-ss DSDDon Same Guarantee . 39 

5 Flipson, holds 50 disks 23 

8" Flipson, seme deal 29 

5 Library Dcxes 2.50 

8 " Library Boxes 350 

5" or 8" IHeod Cleaning Kir 9 

Tract paper, Ltr sz 20#290C shr 25 

Cell for ribbon G pnnrwhee! prices 

•SOFTWARE 

All Radio Sfxxk Software 20% off 

Aran CP/M Model II 160 

Pickles & Trour CP/M Model II . ... 160 
Pickles & Trour CP/M Model 16 ... 190 

All SNAPPWAAF . . . . 10% off 
Al MicroPro 35% off 

•TRS-80 SPECIAL EQUPMENT 

CP/M (48K) for Mod III w/hordwore and 

sofrwore compiere .... 275 

CP/M (64K ,nc) for Mod III with hardware 

and sofrwore 440 

80 x 24 video board for Mod III 299 

GftEEN Phos Anrigtare CRT 79 

AMBER. Pho?. Antiglare CRT 89 

1 6K Memor/ 200nsec Guar 1 yr 8/$1 2 

64K Memor/ 200nsec Guar 1 yr 8/$48 

ZVM- 121 12" Green Phos Man 135 

ALWAYS CALL FOR THE LATEST PWCES. They may 
have changed in the 60+ days since this ad was 
written. 

ORDER NOW! 
TOLL FREE 
800-527-3582 

Write or coll Toll free lines ore for orders only 
Texos residenrs coll 214/458 1966 ond 
deduct $2.00 from your order If you need 
technical information or service use rhe T exos 
number. Prices are subject ro change wirhour 
nonce ond are moil order only i accepr VISA 
or MASTERCARD, you can send a check or 
money order (allow o couple of weeks for 
personal or company checlis ro clear) ° r 
order COD (cash, cernfied check or money 
order only). Snipping is nor included unless 
otherwise i nd i cared Texos orders odd 5% rax 
No rax added on shipments ourside Texos 
Order up - I need rhe money 1 



'TM 



TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 

214^458-1966 



• TWS80 & Radio Shade are trademarks of Tandy Corp. copyright 1981 total ACCESS 
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BUSINESS 



Find a solution to your waiting line problems with the TRS-80. 



Queue Up! 



David E. Clapp, Ph.D. 
1769 Kingsway Court 
Cincinnati, OH 45230 



Waiting lines are every- 
where in modern society. 
Nearly all services available to- 
day involve waiting. The cost of 
providing instant service is usu- 
ally high, and is only justified in a 
few rare situations. There is nor- 
mally a tradeoff between cost of 
service and cost of waiting. With 
limited servers, a line develops 
with demand for the service. Typ- 
ically, there is a cost of providing 



a waiting area to accommodate 
the waiting customers (or jobs). 
There is a penalty for customers 
who leave the line when waiting 
seems too long. 

Most firms or institutions which 
provide a service spend some time 
in waiting line analysis aided by a 
computer program. Following is 
a TRS-80 program for analyzing 
simple waiting line problems. 
While the analysis is limited to 
fairly basic models, the level 
achieved is surprising. 

Definitions 

This program is limited to 
Poisson waiting lines, relatively 



(WW 1 )-(GD/ 9999 / 9999 ) 



ARR. RATE = 20 
SVC. RATE = 30 



AVG TIME IN SYS = 1 
AVG NO CUST IN SYS. = 2 



EFF. ARR. RATE = 20 
TRAFFIC INTENSITY = .666667 



AVG TIME IN LINE =0666667 
AVG NO. CUST IN LINE = 1 33333 



LIKELIHOOD OF EXACTLY N (FOR N = TO 25 ) CUSTOMERS IN THE SYSTEM. 
.333333 .222222 .148148 .0987664 .0658436 .0438958 0292638 .0195092 .010062 
8.67077E-03 5.78051 E-03 3.85367E-03 2.56912E-03 1.71274E-03 1 14183E-03 
7.6122E-04 3.3832E04 2 25547E-04 1 50364E-04 1.00243E04 6.68286E-05 
4.45524E-0S 2.97016E-05 1.9801 1E-05 1.32007E-05 

Fig. 1 



(WW 1 MGD/ 9999 / 9999 ) 



ARR. RATE= 25 
SVC RATE = 30 



AVG. TIME IN SYS = .2 
AVG. NO. CUST IN SYS. = 5 



EFF. ARR. RATE= 25 
TRAFFIC INTENSITY = .833333 



AVG. TIME IN LINE = .166667 
AVG NO CUST. IN LINE= 4 16667 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 53 ) CUSTOMERS IN THE SYSTEM. 

166667 138889 115741 .0964506 0803755 .0669796 .0558163 .0465136 .0387613 
.0323011 .0269176 .0224313 .0186928 0155773 .0129811 .0108176 9.01465E-03 
7 51221 E-03 6.26017E-03 5.21681 E-03 4 34734E-03 3 62278E-03 3 01899E-03 
2.51582E-03 2.09652E-03 

Nole Output terminated to conserve space 

Fig. 2 



unconstrained, random arrivals 
and departures. The Poisson 
classification is a mathematical 
characterization of a truly ran- 
dom arrival and departure wait- 
ing line discipline. In most cases, 
the Poisson behavior may be as- 
sumed; even in those cases 
which are not theoretically cor- 
rect, the computer program pro- 
vides useful rough results. The 
formal conditions for Poisson 
waiting lines are described in 
most operations research text- 
books; the readers who wish to 
rigorously classify their waiting 
line models should consult such 
a text. In any analysis effort, it is 
the analyst's responsibility to 
validate results for the system 
under study. 

The Kendall notation is used in 
the following descriptions of ex- 
amples of waiting line models, to 
describe the model parameters. 
This convenient shorthand nota- 
tion has the form (rvVM/cKGD/K/N). 



The Key Box 

Basic Level II 
Model I 
16K RAM 



These descriptors completely de- 
fine the parameters of a Poisson 
waiting line. The first two letters 
(M) signify Poisson arrival and 
departure rates, while the c desig- 
nates the number of servers in the 
system. The last three letters 
describe the properties of the call- 
ing customers. GD (general dis- 
cipline) implies a first-come first- 
served scheme. If other service 
schemes are in use, this model 
will not work. 

K and N specify available wait- 
ing space and numbers of calling 
customers respectively. As an 
example, consider the notation 
(M/M/1HGD Z9999/9999) indicates 
that customers arrive and are 
serviced according to the Pois- 
son model (MIM). The customers 
file through one server (c = 1) in a 
first-come first-served fashion 
(GD). There is unlimited space for 
waiting (9999) and the calling 
population is theoretically unlim- 
ited (9999). This is the classical 
(M/M/1) waiting line model where 
both arrivals and departures fol- 
low a random pattern. 

The computer analysis of this 
model is in Fig. 1. This printout 
is in response to the query "In- 
put arr. rate, svc. rate, no. serv- 
ers, waiting spaces, customer 







(WMI 


)-<GD/ 10 / 9999 ) 


ARR 


RATE = 20 




EFF. ARR. RATE = 19.883 


SVC. 


RATE= 30 




TRAFFIC INTENSITY = 666667 


AVG 


TIME IN SYS. = 


0941175 


AVG. TIME IN LINE = .0607841 


AVG 


NO. CUST. IN SYS. = 1 87134 AVG. NO. CUST. IN LINE = 1.20857 


LIKELIHOOD OF EXACTLY N (FOR N = TO 10 ) CUSTOMERS IN THE SYSTEM. 


.337232 


.224821 .149881 


0999206 


0666138 .0444092 .0296061 .0197374 .0131583 


8.77218E-03 5.84812E-03 












Fig. 3 
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population." For this example, 
the input was 20,30,1,9999.9999 
where the arrival rate (20 per 
hour) and the departure rate (30 
per hour) were arbitrarily cho- 
sen. The printout echoes this in- 
put data. In an actual problem, 
these rates must be determined 
by studying the system and tab- 
ulating actual arrival and depar- 
ture data. 

The first analytical results are 
the effective arrival rate and the 
traffic intensity. Effective arrival 
rate is only of interest in prob- 
lems where the calling popula- 
tion is not unlimited. Traffic in- 
tensity is the ratio of arrival rate 
over departure rate, providing an 
estimate of how busy the server 
is in the system. For an unlim- 
ited system, this value must be 
less than one, or the waiting line 
will grow infinitely. If the intens- 



ity exceeds one, arrivals occur 
faster than they can be served. 

The next two output values 
concern the average time cus- 
tomers wait in the system and in 
the line. In this example, the 
server is quite prompt and cus- 
tomers only spend six minutes 
in the system, four minutes of 
which are in line. The service 
rate is 30 customers per hour, or 
two minutes per customer, and 
six minus two equals four. 

The service speed is further il- 
lustrated by the line statistics in 
the printout. There is an average 
of 1 .3 persons in line or a total of 
two persons in the system at 
any one time. These results are 
ideal for the customer, but the 
server is not very busy. 

The last section of data in- 
dicates the probability of exactly N 
customers on the system, begin- 



ning with zero, after the system 
reaches steady state. These values 
are computed by the program until 
the probabilities become less than 
0.00001 (an arbitrary limit which 
can be changed in the program). In 
Fig. 1, N varies from zero to 25 
before the probability values be- 
come insignificantly small. The an- 
alyst concludes that the likelihood 
of no one in the system (N = 0) is 
0.33, or that the server is idle 33 per- 
cent of the time. The possibility of 
more than two persons in the 
system rapidly falls off, indicating 
the expected "decaying ex- 
ponential" pattern typical in 
Poisson waiting line problems. 

Examples 

The ideas in the previous sec- 
tion can be illustrated with a few 
examples of simple waiting line 
models. The first example is a 



modification of the model in the 
previous section. Because the 
server was idle a considerable 
amount of the time, activity is 
stimulated and more customers 
assigned to that server. The re- 
sults of an increased arrival rate 
are shown in Fig. 2. 

The traffic intensity increases, 
the server is busy 84 percent of the 
time, and there is a likelihood of 
up to 53 customers in the 
system. If waiting area becomes 
a problem, the analyst can add 
probability values up to an es- 
timate of system saturation. If 10 
persons in the system are a prob- 
lem, the analyst adds prob- 
abilities for nine persons or less, 
yielding 0.84. The probability of 
10 or more is 0.16 (1 minus 0.84 
equals 0.16). Use this type of 
estimate to evaluate the need for 
more waiting area. 



10 CLS:M-200:OIM PC 200) 

10 PRINT"1NPUT ARR. RATT. SVC. RATE, NO. SERVERS, WAITING SPACES, CUSTOMER POPULATION" 
25 INPUT XL,XH,C,XN,XX 

30 CLS : I T-l : MC< : N-W : K*XK : RH-XL/XM: EL-XL 

SO LPRINT TAB(15>"<N/M/";NC;">-(GP/";N;"/";K;">" 

11 LPRINT 

90 IF X<9999 AMD X > M AND N >M GOT01090 

95 IF M<N THEN 110 

97 IF N>K THEN 120 

100 NN-N:GOTO 130 

110 IF M>X THEN 120 

IIS MX*: GOTO 130 

120 NM-K 

130 RC«RH/C 

U0 PZ-1 

150 FOR 1-1 TO NN 

153 KIM 

155 NEXT I 

160 IF NC > 1 THEN 5*0 

170 IF X<9999 THEN 290 

110 IF RC >-l ANC N» 9999 THEN1090 

190 PZ-PZ-RH 

200 IF N<9999 THEN PZ-PZ/C1-RH :(N*1)> 

210 PCIJ-PZ'RH 

220 FOR 1-2 TO NN 

230 P(I>-P(I-1)*RH 

2*0 IF P(l)>-lE-5 THEN 250 

2*2 IF IT-0 THEN 960 

2*» IF I TOO THEN 260 

250 IT-0 

260 NEXT I 

270 I -NN* 1 

210 GOTO 960 

290 P(1)-XK*RH 

W0 PZ-PZ-P(l) 

310 FOR 1-2 TO NN 

320 IMC- 1*1 

330 «I)-P(I-1)*X*RH 

335 PZ-PZ*P(I) 

3*0 NfX~ I 

35« P2-1/P2 

560 FOR 1-1 TO NN 

370 P(I)-PZ*P(I) 

510 IF P(l)>-lE-5 THEN 390 

312 IF IT-0 THEN *20 

31* IF ITOC THEN U00 

390 IT-0 

li00 NEXT I 

*10 l-t*-l 

*20 LL-l-1 

*30 CX-0 

**0 FOR J-NC TO IL 

•50 X-J-NC 

•60 QL-OL*X«P(J> 

■•65 NEXT J 

*70 R-C*PZ 

•80 FOR J- 1 TO NC 

*90 X-NC-J 

500 R-R»X*P(J) 

510 NEXT J 

520 El-XM-CC-R) 

550 GOTO 990 

5.0 IF NC< 9999 GOTO 660 

550 PZ-EXPC-RH) 

560 P(1)-PZ*RH 

570 FOR 1-2 TO NN 

SI0 X-l 

590 P<I)-P<I-1)*RH/X 

600 IF P(l)>-lE-5 THEN 610 

602 IF IT-0 THEN 6*0 

60* IF ITOO THEN 620 

610 IT-0 



620 NEXT I 

630 i«m*i 

6*0 OA-0 

650 GOTO 990 

660 IF K<9999 GOTO 110 

670 IF RC >-l AND N-9999 THEN 1090 

6*0 P(1)-RH 

690 FOR I- 2 TO NC 

700 X-l 

710 P(I)-P(I-1)*RH/X 

770 PZ-PZ*P(1-1) 

730 NEXT I 

7*0 X-P(NC)/(1-«C) 

750 IF N<9999 THEN X-X«(1-RC:(N-NC*1) ) 

760 PZ-PZ*X 

770 PZ-1/°Z 

710 FOR 1-1 TO NC 

790 P(I)-PZ«P<I> 

•00 NEXT I 

•10 FOR l-NC TO NN 

120 P(I)-P(I-1)-RC 

•30 IF P<l)>-lE-5 THEN «*0 

132 IF IT-0 THEN 96? 

13* IF IT <>0 THEN 850 

1*0 IT -0 

150 NEXT I 

160 l*N*l 

170 GOTO 960 

110 PCD-XORH 

112 FOR 1-2 TO NC 

113 X-l 

885 Y-K-I*l 

It? P<I)«P<I-1)«RH«Y/X 

190 PZ-PZ*P(I-1) 

192 NEXT I 

900 FOR l-NC TO NN 

910 X*X-I*1 

920 P(I)«P<I-1)*RC«X 

930 PZ*PZ*P(I) 

9*0 NEXT I 

950 GOTO 350 

960 Ql-RC-P(NC)/Cl-RC):J 

970 IF N<9999 THEN Ol«)l*( 1-*C: CN-NC)-tXK-C)*RC:(N-NC)*tl-RC)) 

910 EL-XL*(1-P(NN)) 

990 SL«H*EL/XM 

1000 WS-SL/EL 

1010 NO-QL/EL 

1020 MX-l-1 

1030 LPRINT "ARR.RATE.";XL;TAB(50)"EFF.ARR. R»TF-";FL 

1035 LPRINT "SVC. RATE-";XM;TAB{30)"TRAFFIC INTENS1TY-";RH 

103? LPRINT 

10*0 LPRINT "AVG. TIME IN SYS.-";WS;TAB135)"AVC. TIME IN LINF-";Nn 

10*5 LPRINT "AVG. NO. CUST. IN SYS. -";SL; TAB! 55) "AVG. NO. CUST. IN IINF-";0L 

10*7 LPRINT 

1050 LPRINT "LIKELIHOOD OF EXACTLY N (FOR N-0 T0";MX;") CUSTOMERS IN THE SYSTEM, 

1055 LPRINT PZ; 

1059 K-0 

1060 FOR 1-1 TO MX 

1061 K-»l 

1070 LPRINT P(l); 

1071 IF K«6 GOTO 1075 

1072 GOTO 1010 

1075 LPRINT CHR»t9):X-0 
10(0 NEXT I 

10*1 LPRINT: LPRINT: LPRINT 
IMS GOTO 20 

1090 PRINT "ARR. RATE-";Xl;TAB< 30) " EFF. ARP. RATE-";EL 

1091 PRINT "SVC. RATE-";XM;TAB(3P) "TRAFFIC IVTfHSITY.";PH 

1092 PRINTiPRINT "INVA1 10 TATA" 
1100 PRINT 

1110 GOTO 20 
1120 END 



Program Listing 
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Scanned by Ira Goldklang - www.trs-80.com 




Push your reflexes, 
coordination, 
judgment to 
their limits! 



16-48KTRS-80MODELIor 

CASSETTE TAPE $16.95 

DISK $19.95 

Please add $1.50 for shipping and handling 
6 1 /2% sales tax in California 

M C, VISA, CHECKS OK 



To order, call toll free: 
(800) 824-7888, 
oper. 422 
in Calif.: (800)852-7777 



PRom 



BOX 560 
NORTH HOLLYWOOD, CA. 91603 





THIS PRINTER SELECTOR 
HAS GOT THE SMARTS! 

TWOPRINT™ is the Smartest Dual 
Printer Switch on the Market for 
Your Money. 



An original Ocsiqn by Won Wirfh 

INTRODUCTORY 

SPECIAL — $99.95* 

*Save $18 off the regular price 
of $117.95 with this ad. 



Hard select of desired 
printer with toggle 
switch. Software select 
mode via CHR$(1) or 
CHR$(2) 

Lights indicate which 
printer has been selected 



"Centronics" compatible 
for MOD I, II or III (Please 
Specify). (MOD II requires 
cable modifications) 

Requires purchase of 
Radio Shack P/N 
(270-1552A) Battery 
Eliminator 



Check of Mor»ey Order. 
Visa or MasterCard accepted 



California residents add 6 % Sales fax 



CALIFORNIA WORD EXCHANGE 

802 E. Lime • Monrovia, CA 91016 
(213) 443-5866 



■See List o< Advertisers on Page 451 
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The results are identical if the 
service rate is reduced instead 
of increasing the arrival rate (by 
using a less skilled server or by 
adding tasks to the service func- 
tion). For example, if the arrival 
rate remains at 20 per hour as in 
Fig. 1, and the service rate is re- 
duced to 24 per hour, the traffic 
intensity will be 0.833— exactly 
as shown in Fig. 2. The remain- 
ing results, as well, are identical. 

Fig. 3 shows statistics if only 
10 customers can wait. The ef- 
fective arrival rate reflects the 
fact that customers are turned 
away or leave if waiting area is 
not available. The results in Fig. 
3 are close to the results in Fig. 
1; the likelihood of ten or more 
persons calculated previously 
was quite small (0.16). The an- 
alyst would conclude that plan- 
ning a waiting area for 10 cus- 
tomers is quite conservative, 
but accommodates nearly all 
likely conditions. 

Fig. 4 displays results for a ser- 



vice rate of only 10 customers per 
hour. The traffic intensity ex- 
ceeds one, only possible in a 
waiting line model where waiting 
area or calling population is 
limited. Customers in this sys- 
tem spend a far greater amount 
of time waiting and there is 
almost no chance of finding the 
server idle. The effective arrival 
rate indicates a high number of 
customers turned away due to in- 
adequate waiting area. 

Consider the case where the 
calling population is limited. 
The results in Fig. 5 indicate that 
with a calling population of 100, 
the service is so slow customers 
must nearly always wait. Contin- 
uing this analysis with reduced 
values for the calling population 
does not change the results sig- 
nificantly. This lack of change is 
due to the high arrival rate even 
with a small calling population. 

A final example illustrates the 
case of added servers. Using the 
data in Fig. 5, but adding a server, 



yields the data in Fig. 6. There is a 
reduction in waiting time, but the 
line remains long. Clearly an im- 
provement in service time is 
necessary to produce mean- 
ingful change in the results. 

Further investigation is limited 
only by the analyst's imagina- 
tion. An interesting model is the 
(M/M/N)-(GD/N/N) case where 
there is a server for each custom- 
er, as in a self-service facility. 

Other analyses may be found 
in any basic operations re- 
search text. 



The text by Saaty (see Refer- 
ences) is a classical treatment 
of the theory of waiting lines. ■ 
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(M/M/1 )-(GDr 10/100! 



ARR. RATE = 20 
SVC RATE = 10 



AVG. TIME IN SYS. = .999448 
AVG NO CUST IN SYS = 9 99448 



EFF ARR RATE= 10 
TRAFFIC INTENSITY = 2 



AVG. TIME IN LINE = 899448 
AVG NO CUST IN LINE= 8 99448 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 10 } CUSTOMERS IN THE SYSTEM. 
1.54611E-23 3 09222E-21 6 12259E-19 1.20003E 16 2 32805 E- 14 4 46986E12 
8.49273E-10 1.59663E-07 2 96974E-05 5.46432E-03 994506 

Fig. 5 



(M/M/ 1 )-(GD/ 10 / 9999 ) 



ARR. RATE = 20 
SVC. RATE = 10 



AVG. TIME IN SYS = 900978 
AVG. NO CUST IN SYS = 9 00537 



EFF. ARR. RATE= 9.99512 
TRAFFIC I NTENSITY= 2 



AVG. TIME IN LINE = .800978 
AVG NO CUST. IN LINE= 8 00586 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 10 ) CUSTOMERS IN THE SYSTEM, 
4.8852E-04 97704E-04 1.95408E-03 3.90816E-03 7.81632E-03 .0156326 0312653 
0625305 125061 250122 500244 



Fig. 4 



(M/M/2)-(GD/10/ 1001 



ARR. RATE = 20 
SVC. RATE = 10 



AVG TIME IN SYS. = .499445 
AVG. NO. CUST. IN SYS. = 9.98889 



EFF. ARR. RATE= 20 
TRAFFIC INTENSITY = 2 



AVG TIME IN LINE = .399445 
AVG NO CUST IN LINE= 7 98889 



LIKELIHOOD OF EXACTLY N (FOR N =0 TO 10 I CUSTOMERS IN THE SYSTEM 
7.87235E-21 1.57447E-18 1.55872E-16 1 527S5E-14 1 48172E-12 1.42245E 10 
1.35133E-08 1 27025E-06 1 18133E-04 .0108683 989012 

fig. 6 
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wabash 

When it comes to 

Flexible Disks, nobody 

does it better than 

Wabash. 

MasterCard. Visa Accepted. 
Call Free: (800) 235-4137 




PACIFIC 
EXCHANGES 

100 Foothill Blvd 
San Luis Obispo CA 
93401 (In Oil ca 
(805)543-1037 



Data Acquisition 

and Control for the TRS-80* 

$230 ppd. 

The STARBUCk 8882 is a complete eignt channel 
Oaia acquisition and control system plug 
comoa'iO.e witn tne Mocei i I eve r TRS-80 it 
includes 8 Detected ana og inputs i0-5 Vdc with 
8 ♦ i DM accuracy: 8 protected digita< inputs 8 
optoisoiated digital outputs and two |0ystick 
Dofs 'ntetrupt dnven software package a"ows 
simultaneous cata acquisition and stcage while 
usmg the TPS 80 tor any otne- purpose' 
Application manual covers nome security energy 
monito'ing weather station use appliance 
control g r apnics and games Price includes 
case power supply extra expanse" card edge 
connector caoie compete software oackage anc 
detailed applications manual Manual only are 
available lor S5 00 ppd Mode 1 III version S?b0 
ppd To order wnte or can 

STARBUCK DATA CO. 

P0 Bo« 24 Newton MA02162 

617 237 769b --205 



Massachusetts residents add 5* 
is a trademark of Tandy Corp 



sales tax ' TRS-80 




Absolutely The Best SciFi 

WPEFiGdTE CEAJTUPilDN 

You ire the Guardian ol the Catena) to other plants 
in the most inaoiatut. the mast sophisticated "real lime ' 
simulal.on em offered A REAL BLOCKBUSTER 

WPEFiGdTE P4TF.0L 

Natigate the Hjperjates at the local Svoerclasttr 1a 
starch of pirates, monsters aad smuffltrs. 

BOTH HAVE SUPER ACTION SOUNDS S GRAPHICS 

TRS 80' Model I or III rehired 

specily UK 12 Wk disk sjsten 48 k dish system 

BOTH CAMES ON ONf CASSETTE S 39.95 ppd 

S.nd CHECK o' MONEY ORDER lo 

Synergistic Solar, Inc. 

PO Box 560595. Miami FL 33156 
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ANNOUNCING 



the 



UCSD p-System 

for your 

TRS-80 Model II or III 

Now you can write programs in 

Pascal FORTRAN BASIC 

and run them on 

Altos, Apple, Commodore, Cromemco, DEC, IBM, Intertec, 
Philips, Ohio Scientific, Radio Shack, Terak, Texas Instruments, 
Vector Graphic, Xerox, Zenith, and many more... without change!' 

Package includes operating system, compiler, file handler, interpreter, editors, 
assembler, linker and documentation for $650.00. TRS-80 Model II p-System, 
Pascal compiler and Corvus (5, 10, 20 Mb) hard disk software for $850.00. Free 
catalog of p-System application software available. Contact us for details. 

PCD Systems 

P.O. Box 143 

* trademark of the Regents of the University of California. \# ki V -i A CO 7 

§trademark of Tandy Corporation Penn Y3n, N.Y. |45^# 

tPCD Supports Systems Software on DEC LSI-II. Radio Shack Models II & III, /o4cv coc 7/IOO 

Altos & Terak only (31 5)-5<5tW4^B 








fr,v ■*,.-, m ■( ')*. . .■■.. , * Jl jJL-_->. a ^j( jK^^JFJi ,C~"J3J |tr-:-JO ffc^J: ■-*-* A 1 — -*-»': A ■* J', A" '■*'-*[ 
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s.xmm. 



YES NO 



PHASE ANSWER THESE 5 QUESTIONS 



2. 
3. 

4. 
5. 



Do you have information that must be kept organized and 

accessible? 

Do you ever need to perform statistical analyses? 

Would you like to have a tool that will allow you greater flexibility 
in managing your own or your company's money? 

Could you use a mail list program that will be easy to use, 
maintain an unlimited number of names, allow you great sorting 
flexibility, and even interact with a word processor? 

Do you own or have access to a TRS-80 microcomputer? 




It you answered "yes" to any of these questions, we can be of assistance to 
you. Our Maxi Series ol applications programs are designed to give you maximum 
versatility with a minimum of hassle These programs were created for business use, 
but you'll find yourself using them for personal applications as well. 

Thorough support — Of course, each program comes with in-depth, user- 
oriented documentation, and is menu-driven to make it easy to use. When necessary. 
the Maxi programs are compatible with each other, and, whenever pertinent, are 
interactive with the major word processing and spreadsheet programs published by 

other manufacturers. Also, we maintain a telephone support line to provide you with 

any assistance you might require. 



*MomI VtoooMf 



by Dale Kubler 



Maxi Manager is a remarkable data base manager Its fast 
machine language son complements its large data storage capacity 
The sophistication ol its data entry, management, and printing capa- 
bilities makes Maxi Manager a versatile tool tor many applications 

The program now includes Maxi Utility, which allows you to 
rescue tiles on diskettes that have been damaged by excessive wear or 
misuse and lets you expand, add. or delete fields from an existing data 
base Let the unmatched capabilities of Maxi Manager handle your 
data management' 
Model It Model III. Minimum 1 disk drive required 012-0196 S 149.99 



*«axf Croc 



by Dale Kubler 



(I Waff 



(Check Register Accounting System) 

Maxi Cras is a system that will computerize check writing, 
recording and analysis for business and personal finance The system 
features 223 income and expense accounts, each of which will handle 

an unlimited number of transactions Extensive register and report 

printing capabilities make Maxi CRAS an indispensible tool for 

managing money effectively. 

Model I i, Model III Minimum 2 drives required 0120145 $99 95 



by Dale Kubler 

Maxi Mail is a powerful mail list management system that 
Is easy to use 

Has virtually unlimited storage capacity 

Interlaces with the ma/or word processors to generate form 
letters and other text 

4 Prints mailing labels up to lour across in any format desired 

5 Has virtually unlimited coding capabilities with thirteen fields of 
information for each record 

Maxi Mail is the most sophisticated user-oriented mail list 
program available 
THS40 Mod* III only 2 disk drivet required 012 0148 $99.95 



*faxf Stot 



by David Walomck 



Maxi Stat is the most useful statistical analysis package en the 
market today It was developed to allow maximum flexibility 
designing customized analysis Maxi Stat handles the three mam 
components of statistical analysis 

I. Complete menu driven codebook creation and editing 

2 Menu assisted data entry 

3 User created control files to describe the statistical analyses to 
be performed and printed out on the variables of your choice 

Model I A Model III Minimum 2 drlvi required 0120153 S 199.96 



A Division ol 




Send $1.00 for our 16 page booklet 

Getting The Mo»t From Your 1 
Micro" All 16 page* are packed with I 
indapth explanations and printout I 
samples from the Maxi Series of ap- I 
plications programs. B 
THI BUSINESS DIVISION |. 
BOX 3435 Ij 
LONGWOOD.FL 32750 I 1 
(305)830-8194 ^20 | 


m 


i 



t 




MAXI STAT Is The Most Versatile 
Statistical Analysis Program 
Available ... On Any Micro. 

Dr. Steven E. Mayer, PhD., Industrial Psychologist — Maxi User 




Focus On: Maxi Stat 



Who can use Max! Stat? 

Anyone who needs an analysis ol statistical data. Maxi Stat has suc- 
cessfully replaced dedicated mainframe and time-sharing statistics 
programs for business, financial and marketing researchers, educa- 
tional administrators, hospitals, medical schools and medical 
research facilities, agricultural testing, and social scientists. 



a 



What does it do? 

If you're familiar with SPSS (Statistical Package for the Social 

Sciences) and what it can do on a mainframe, you have a good idea 

of what Maxi Stat will do for your TRS-80. 

Maxi Stat offers many of the best features of SPSS (modified tor 

microcomputers) as well as features you can't get in any other 

system, at any price. Maxi Stat is one of the most useful analysis 

packages available — anywhere. 

Read on to discover what this remarkable new tool can do for you . . 

Maxi Stat offers: 

• menu-driven operation 

• user-created codebook 

• the ability to handle up to 255 variables 

• machine language code allowing speedy data entry 

• fast and easy editing 

• hundreds of tasks performed at one time 

• reports you can custom design for your specific needs 

• ample screen prompts to guide user 

• frequent automatic backup of data to help protect against power 
failures and system crashes 

• all phases of research analysis, including: 

write subfiles 
frequency distribution 
descriptive statistics 
crosstabs & chi-square 
correlation and linear regression 
t-test 

multiple linear regression 
analysis of variance 
multiple variable response 

Summary 

See for yourself what hundreds of other professionals have already 
discovered — Maxi Stat is THE solution to your analysis problems, 
and It's never further away than your TRS-80. Pull the plug on your 
time-sharing system and discover the power and convenience of 
Maxi Stat today! 



fissnnsa 




By David Walomck 

Maxi Stat is available 
now for TRS-80 Models I 
and III with 2 disk drives, 
48K RAM, and printer. 

$199.95 

Soon to b* avtllabl* lor IBM PC 



Look who's already using it! 

University of Alaska, Fairbanks. AK. • Florida Hospital. Orlando. FL. • Capital 
Research Services. Topeka. KA • Cantar for Financial Studias and 
Development. Claremont. CA • U.S. Army Psychotoglcal Taatlng Unit. 
Wahiawa, HI • University of Nottingham Dapt. of Social Administration. 
Nottingham. U K • Dafanse Intelligence School. Washington, DC • Dept. of 
Recreation and Park Administration. University of Missouri. Columbia. MO • 
Children's Hospital of Philadelphia. Philadelphia. PA • Kingston City Schools. 
Kingston, NY. • Universldad de Monterrey. Monterrey. Mexico • University of 
Michigan. Dept. of Pedlatrtca. Ann Arbor. Ml. • Kodak Camera (Australia, Asia). 
Coburg. Victoria, Australia • The Williams Group Advertising and P.R.. Dallas. 
TX • Medical College of Pennsylvania, Philadelphia PA • Parkway Day 
Schoof, Philadelphia, PA. • University of Illinois. Chicago. IL • Selkirk Health 
District, Nelson. B.C Canada • Human Communications Syatema. Reston, VA. 
• California Research Center. Los Angeles. CA. • WaltRlch Marketing 
Consultants, Orlando. FL. • Rutgers University, Piscataway. N.J. • Bethal 
Theological Seminary, Brooklyn Park. MN • Seton Hall University. Stlllman 
School of Business. S Orange. N.J. • Plan-Test Associates, Phoenix. AZ • 
General Mills Corporation. Minneapolis, MN. • Shearson, Hayden Stone 
Investments. Hollywood. CA • Energy Systems Research Institute, Raleigh. 
N.C • Mlnnlsota Historical Society. St Paul, MN. • Purdue University. W. 
Lafayette, ID. • Nova Scotia Agricultural College, Truro. N.S., Canada • Agrico- 
Chemical Co., Wilmington, DL • Marketing Associates. Charlotte, N.C. • 
University of Ottawa, School of Psychology, Ottawa, Ont.. Canada • Rock 
House Publishing. Kowloon. Hong Kong • Center lor Applied Social Sciences, 
Boston. MA • Blake and Dickinson Marketing Research, Manchester. N.H. • 
United Nations, New York. NY . and hundreds more! 



Maxi Stat prints many different report styles. 



. - ► ■. Ul TKC Mb CO*MLATIO» 4 IIIUl BlCMiSlC* »»OCkAH 

tcoir a* courct dttiiauci t*** as a r»n>icro» or c» 
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K.I J1.7 41.} 41.1 JS.J »)•<! 




COLLtCC OnVAHCl HA* ACO»r 


MM 01 > • 41. J] 

-.-.:■!' . . • i 

r • J. 44 

«.p. or Y • .47 


coMfLATio« corrncirnT - .»• v». 
oickits cr tntocm - s» ».. . 
slop* or •cutsstr* mki • .0: n. 
> iirrtuctrr 


*lci>r;iio« tc<'ATic.N 


v • .0; « • i.n 



itkuic r»n» or rsriHATf ro» nrcnEssioc 
stmoud i»»o» or co»»ri.ATio« cotrricituT 
tiCKiriCAKi cr co»klatio» corrrtrurr 



ORDER FROM YOUR FAVORITE DEALER or CALL TOLL FREE (800) 327-7172 (ORDERS ONLY PLEASE) 

SHIPPING & HANDLING ARE EXTRA PRICES SUBJECT TO CHANGE WITHOUT NOTICE 

BOX 3435. LONGWOOD. FL 32750. (305) 830-8194 (QUESTIONS) 



• See List ol Advrtistrs on Page 451 
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BASF QUALIMETRIC" 

INSURING ATOMORROW FOR TODAY'S INFORMATION 



The BASF Qualimetric standard is a 
dramatic new international standard 
of quality in magnetic media. ..insur- 
ance that your most vital information 
will be secure for tomorrow when 
you enter it on BASF F I exy Disks- 
today. 

The Qualimetric standard reflects a 
continuing BASF commitment to per- 
fection..^ process which begins with 
materials selection and inspection, 
and continues through coating, pol- 
ishing, lubricating, testing, and 100% 
error-free certification. Built into our 
FlexyDisk jacket is a unique two-piece 
liner. This BASF feature traps damag- 
ing debris away from the media sur- 
face, and creates extra space in the 
head access area, insuring optimum 
media-to-head alignment. The result 
is performance so outstanding, 
and durability so lasting, that BASF 
FlexyDisks are protected by the indus- 
try's only lifetime warranty.* 

When your information must be 
secure for the future, look for the dis- 
tinctive BASF package with the Quali- 
metric seal. Call 800-343-4600 for the 
name of your nearest supplier. 




Enter tomorrow on basi ioday o. J BASF 



'Cont4<tBAiffor*jrunt,aeiaili t 198! BA%f S t sfemj Corporation e, .• 



GAME 



'•j 



LOAD 80 



A marathon for mice. 



Maze XIX 



Gary Teter 
6692 Shay Lane 
Paradise, CA 95969 



Have you ever wondered how 
a mouse running a maze 
feels? Now you have a chance to 
find out: Put on your mouse ears 
and get ready to play Maze XIX! 

To Play 

After entering the program in 
the listing, hook up an amplifier 
(or a modified tape recorder) for 
sound. After the Hall of Fame 
display press Enter to begin the 
game. 



The object of Maze XIX is to 
guide a moving dot through the 
maze and back as quickly as 
possible. The arrow keys direct 
the dot. Running into the wall 
adds 20 points to your score. 

If you need to leave the com- 
puter while the game is running, 
press Clear to halt the game. To 
continue press any arrow key. To 
end the game, hold down the 
Spacebar. 

The Program 

The program is fairly straight- 
forward. The sound routine, by 
Leo Christopherson (80-US, 
May/June 1980), is POKEd into 



SS in line 950. 

I included a checksum rou- 
tine, making it almost impossi- 
ble to bomb the program with a 
typo in a data statement. Line 
930 checks the length of S$ to 
make sure it is 74. The only way I 
can think of to bomb the pro- 
gram is to exchange a couple of 
numbers in the data statements 
(please do not take that as a 
challenge!). 

All constants in the dot-move 
routine (lines 40 and 50) are 
defined as variables. This 
makes the game run faster be- 
cause variables are placed into 
a table. Those at the top (the 



ones defined first) are refer- 
enced faster than those at the 
bottom (and also faster than 
constants). For this reason I 
defined the variables used in 
lines 40 and 50 at line 910. 

The program should run on 
other DOSes but I have not 
tested it on any. For all you pro- 
gram modifiers, Table 1 is a 
listing of each section, along 
with what each part does. ■ 

Gary is a 15-year-old high 
school junior. He is a founding 
member (and presently general 
manager) of the Ficticious GLM 
Corporation. 



The Key Box 

Bask: Level II 
Model I 

16Kto48KRAM 
TRSDOS 2.3 



Program Listing 

18 REM Maze XIX by Gary M. Teter - Copyright (c)1918 by the 

20 REM GLM corporation (no rights reserved, free to all) 

38 GOT084B 

4B S-S+1:IFX>6 3ANDY<7THENF1»- lELSEIFX<63ANDY<7ANDFlTHEN90ELSEC-PEE|r. ( P) :IFCA 

NDL.E — 3:F-0ELSEIFCANDR,E«3:F = 0ELSEIFCANDU,F — 1 : E-«ELSEIFCANDD,F-1 : E-BELSEI 

FCANDGGOTO80ELSEIFCANDHTHEN1H 

58 X«X + E:Y = Y-»F:IFPOINT(X,Y)THEN60ELSERESET(X-E,Y-F) :SET(X,Y) :GOT04fl 

6B S>S + 20:K-W+1:E«-E:F— F:X-X+E: Y-Y+F: POKESB+6,1 :POKES0+16 ,RND( 50) +1M 

70 0»USR(B) :GOT04B 

H0 C-PEEK(P) :IFCANDUORCANDRORCANDLORCANDDTHEN40ELSE80 

90 CLS:GOSCB6 7B:PRINTCHRS(23) : PRINT: PRINT :FORIX=1TO10 : IFS<S ( IX) ,GOSuB718:GO 

TOIIBELSENEXT 

IBB PRINT-Your score was'SCHRS(8l " . ■ ! PRINT - You crashed'Wtime - ; : IPWOl ,PRIN 

Listing continues 



10-20 


Credit given where credit is due 


30 


Call initialize variables routine 


40-50 


Dot move routine, and check for wall hit 


60-70 


Change direction and make bounce sound 


80 


Delay until arrow key pressed 


90-160 


Ask for another game 


170 


Sepa'ate the subs from the program 


180 


Show titles and make starling noise 


190-210 


Draw maze frame 


220-280 


Create the openings 


290-310 


Reset variables, make sound and start game 


320 


Hole routine; choose start of opening 


330-360 


Check for conflicts— force player to turn 


370-380 


Make the hole and return 


390-480 


Display "Play Maze XIX" titles 


490-500 


Loop until Enter key is pressed 


510-530 


Draw the maze frame 


540-560 


Oper the paths 


580-640 


Blinking cursor routine Returns ZS 


650 


Center title and print slowly 


660-670 


Sound routines 


680-700 


Display high scores and wait until Enter 


710-830 


Set high score, enter initials 


840-1050 


Initialize all variables 


9999 


Save updates on disk 




Table 1 



—Circle 334 on Reader Service card 
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SFINKS 
3.0 

CHESS 
PROGRAM 


tvl 


I the 
finest 
available! 

See 80 U.S. 
June 1982 


PRIZEWINNER 

1WS] Paris 

World 

MkKiamipuK'i 

C he- 
C lumpion^hip 


•32 book openings 
•chess clock 

•printer output 
•problem mode 
•audio alert 
•thinking on 
opponent's time 
•infinite levels 


32K 

Model 1 (E.I.) 
or Model 3 

tape or dKk 

nnl\ I 

$39.95 


SFINKS 
1.81 

i- .i.-i ■.=.. 

1'-. C • ,■-- a:. J 

I:..::-u-!\!^;\,, 
C he- 


PRIZEWINNER 

1980 San Jose 

U.S. 
Microcomputer 

Chess 
Championship 


•nine levels 
•problem mode 
■move suggestion 
•mote take back 
•audio alert 
•good 
documentation 


32K 

Model 1 or 3 

<inl\ 

$24.95 


SFINKS 

CHESS 
TUTOR 

1 ear ii !o 
pla\ Jit*-.* 


Step-by-Step 
Programmed 

Learning 
for the 

Newcomer 


•tutor 

•3 level game 
•problem mode 
•audio alert 
•printer output 
•book openings 
•superb graphics 


32K j 
Model 1 or 3 

di-k onis 
»>nl> 

$19.95 


I 1 . ■ . :■..:. 

M •.. 

1- . .:. *: • 

WILLIAM FINK 

SUITF ?4B 

1105 N MAIN ST 

GAINESVILLE. FL 

:<?h01 


EXCEPTIONAL 

DEALER 

DISCOUNTS 

(904) 377-4647 

/SFINKS I ^ 



Listing continued 
t"s."elseprint*." 

lit IPCANDHCLS:PRINTCHRS(23) 

12* PRINT:PRINT:S'0:N-0:PRlNT~Play again? "j 

131 GOSUB580:IFZ$-*N*ORZ$«*n*THEN18B 

141 IPZS-*Y*ORZ$«'y*THENPRINTZS: :ELSEGOT0138 

158 PRI NT: PRI NT 'Use the saae naze? *i 

161 GOSU8560:IPZS-'Y*ORZS-'y"rHENPRINTZS;:GOSU8S10:GOSLB29B:GOTO4iELSEIFZS- 

•N'ORXS-'n'THEHPRINTZS: :GOSUB190:COTO40ELSE160 

170 END 

1BI GOSUB680 :GOSUB670 : PORIY=1TO10 :GOSUB66B : NEXT 

191 CLS:PRINTB64,BS; 

211 PORIX«2TO14:PRINT0IX*64,Zl$; :NEXT 

21* PRINT«0,X$;iPRINT096B,y$;:POKE16383,191 

228 A-8:B-63:Y-4:FOR2-lT013:Y=Y+3 

236 GOSUB32B 

248 NEXT 

258 POKE163Sl,176:POKE162B7,143:POICE16352,176:POKE162B7,143:POICE16286.141 

268 A-64:B«125:Y«4:FORZ»14T027 

278 Y»Y+3:GOSUB328 

288 NEXT 

298 X-3:Y-3:E-3:F-B:F1>B 

388 POKES0»6,2:POICES0*34,4:O»OSR(0) 

318 GOT048 

328 IFA-0THENPL>RND< 49) ♦ 2ELSEPI,«RND( 47) *66 

338 IPPL-PVTHEN328ELSEIFPL+8»PV+8THEN328ELSEIFPL<PVANDPl.«9>PVTHEN32B 

348 1FPI>PVANDPL*8<PV*8THEN32BELSEIPPL>PV*8THEN36B 

356 IPPL>PVTHEN32B 

368 IFPL+8>B-3THEN32B 

378 PV«PL:rORX-PLTOPL*8STEP2:RESET(X+l,Y) :RESET(X,Y) :NEXT:PL[ Z) =PL 

388 RETURN 

398 GOT0688 

480 CLS:P$»"Play'iPRINTCHR$(23) SG0SUB65B 

411 IFINKEY$-CKR$(13)THEN59« 

428 P$-*Maze XIX* iPRINTsGOSUB650 

43fl IPINKEY$-CHR$(13)TH£N5«B 

440 PS"** 1 quarter - 1 play *■ : PRINT: PRINT 1COSUB6 58 

458 IFINKEYS-CHR$(13)THENS08 

4(8 PS-** 2 quarter! - 3 plays *' :PRINT:GOSUB658 

470 IPINXEY$-CHR$(13)THBN5BB 

488 PRINT: PRINT: PS-'Press -ENTER- to begin*:PRINT:PRINT:PRINT:GOSUB65B 

490 iriWtEy$-CHR${13)™eN500ELSEIX-lX+l:iriX>200THENIX-0:GOTO«80BI^E490 
500 RETURN 

510 CLS 

520 PMNTB64,BSj:PORIX-2TO14:PRINT#64'IX,Zl$;:NEXT:PRINT»0,XS; 

530 PRI NTt960,YS;: POKE 18383,191 

548 A-0:B*«3:Y«4:PORIY-1TO13:Y=Y+3:GOSUB570:NEXT 

550 POKE1635I.176xPO«16207,143:POKE163S2,176:POKE16287,143:POKE1628B,141 

Hi A -«5:B-125iy-4jPO«ly-14TO27:y-T*3:COSUB570: NEXT: RETURN 

570 PO«IX-PL(lT)TOPL(iy)+0:RESET(IX,Y) : NEXT: RETURN 

588 IX-6:ZZS-CHRS(143)»CHRS(24) :ZAS«* •♦CHRS<24) 

500 IX-IX+1 1 PRINTZZS; : IFIX>10THENIX>0 : GOTO* 20 

600 Z$-lNKEy$:IPX$O"Z-ASCtZ$):IP(Z>64AliDZ<91)0R(Z>47ANDZ<58)0R(Z>96ANDZ<.l 

23) ORZ-320RZ-80RZ-13THENPRINTZAS;: RETURN 

610 GOTO 590 

620 IX«IX+1:PRINTZAS;:IFIX>18THEN58B 

630 I$-INXEy$ 1 IPZS<>'*Z-ASC(ZS):IP(Z>64ANOZ<91)OR(Z>47ANDZ<5B)OR(Z>96ANDZU 
2 3 ) ORZ • 3 20RZ - BORZ - 1 3THENRETURN 
648 GOTO 628 

658 PRINTTAB(16-LENtP$)/2);:FOPJt»lTOLEN(P$):PRINTNID$(PS,X,l) ; :F0RTD»1T045: 
NEXT : NEXT : PRI NT : RETURN 

668 POKES6+6,3:POKES6+55,l:0-USR{8) : RETURN 

670 POKBS6+6,2:POKES6+34,4:0=OSR(6) : RETURN 

600 CLSiPRINTCBR$(23);:PRlNTTAB(4)-The Haze xix Hall of Fa»e* 

600 PRIirr:PORIX-lTO»:PRIirrTAB(9);IX,CHR$t0)-. «,S( IX) ;TAB(19) ■- -S$(IX):NEX 

T!PRINTTAJI(8);IX;CKR$(8)*. 'SI IX) ;TAB( 19) "- *S$(II) : PRIST: PRINTTAB( 4) "Copy r 

ight (c)1918 by the*:PRIHTTAB{2) 'G LM Corporation' 

780 lPlmEy$"CHR$(13)THI3(RETUllNELSEHJ-HJ*l ! IFHJ>275,HJ-e:GOTO400ELSE7eB 

710 PRINT«896,TAB(3) 'You have set a high score.' 

728 PRINTTABI3) "Please enter your initials* 

738 PORIS-9TOIXSTEP-1:S(IS*1)=S(IS>:S$(IS*1).S$(IS):NEXT:S(IX)=S:IT»IX 

748 PRINT#0,**;:PRINTTAB(4)*The Haze XIX Hall of Pa»e*iPRINTiPORIY=.lT09:PRI 

NTTAB(9);IY;CHRS(B)'. *,S(IY) ;TAB(19) '- 'SS(IY) : NEXT: PRI NTTAB( 8) , IY;CHR$(8) 

'. *S(IY) »TAB(19)*- "S$(IY)j 

750 PRINTB64*IT+106,STRINGS (3,132) |iPRINT864'IT*lB6,**| 

768 GOSUB58BiIP(Z>64ANDZ<91)ORZ-320R(Z>96ANDZ<123)THEN77BELSE76« 

778 PRINTZSi:H$-ZS 

788 G0SUB5BB:IF(Z>64ANDZ<91)0RZ=320R(Z>96ANDZ<123)THEN79BELSEIFZ=>8THENPRINT 
CHRS(8)jiHS-LBPT$<HS,l) :GOT076BELSE7 88 
798 PRINTZSjtHS-HS+ZS 

800 GOSUB586:IP(Z>64ANDZ<91)ORZ=320R(Z>96ANDZ<123)THEN8I6ELSEIFZ--8THENPRINT 

CHRS(8);:HS*LEFT$(HS,2) :GOTO780ELSE8B8 

810 PRINTZS;:HS-HS+ZS 

828 GOSUB588:IFZ-8THENHS-LEFTS(H$,2) :PRINTZS; :GOT08BBELSEIFZ.13THEN83BELSE8 

638 S$(IT)-HS:PRINT#768,CHRS(31);:IFLEN(HS)O3THENHS-":30T075BEI~SERETURN 

848 DATA 33,1.2.14,255,62,2,254,2,40,21,254,3,48,38,17 

850 DATA 13,100,237,97,67,16,254,237,105,67,16,254,21 

860 DATA 12, 243, 201, 17, 1,5. 123, 237, 97, 71, 16, 254, 237, 1B5 

678 DATA 71,16,254,68.32,243,21,32,239,281,17,100,2.123 

680 DATA 237,97,71,16,254,237,105,71,16,254,61,32,243,21 

890 DATA 32,239,201,34 

900 CLEAR500 : OEFINTA-Z: RANDOM :DIHPL( 40) 

910 S-0iX-S:Y.3:C-0:P-15100:E=0:P-0:L-32:R-64:U.8:D-16:G-2:H-128:Fl=e 

920 SS-*1234S6789B12345678961234567898123456789812345678?B123456789B1234567 

6981234- 

930 IPLEN(S5)<>74THENPRINT'» Length of SS in line 948 is not correct - shou 

Id be 74 •':STOP 

948 S1»PBBK(VARPTR(SS)+1) :S2=PEEK(VARPTR<SS) *2) :S0-S2*256+S1 

958 RESTORE :FORN-6T07 3: READD1: POKES 0*N, D1:C-C*D1: NEXT: IFCO 77 59THENPRINT" 

Checksua error - check data in lines 858 to 988 *":STOP 

968 lrPEEJt<16396)-201POKE16526,Sl:POKE16527,S2ELSEDEFUSRB.S8:CHD'T- 

970 AS-CHR$U91)*CHRS(149) :BS-AS+STRINC J{ 29,32) ♦AS+STRINGSI 29,32) +CHR$( 170) 

+CHRJ(191) 

980 C$-CHR5(191)*CHR$(151) 

990 X$-C$+STRING$(29,131)*C$+STRINGS(29,131)*CHR$(171)*CHRS(191) 

1000 YS-CHRSI 191 )*CHRS< 181) ♦STRINGS! 29,176) ♦CHRS(191) *OIR$< 181) +STRINGS< 29, 

176) .CHRSU86) 

1010 ZA$«CHRS(191)*CHR$(1S7) 

1020 Z1S»ZAS*STRINGS(29,146)+ZAS+STRINCS(29,14B)*CHRS(174)*CHRS(191) 

1030 POR1X-1TO10:S$( IX) -STRINGS (3, 132) :S( IX) -9999:NEXT 

1040 GOT018B 

1050 END 

9999 PRINT'Saving update8.*:PRlNT*KAZE19/BAS":SAVE*MAZE19/BAS":END 
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GENERAL 



Save money by reloading ribbon cartridges. 



Open Cartridge Surgery 



Bill Grout 

380Channing Way it 171 
San Rafael, CA 94903 



I have a Daisy Wheel Printer II 
from Radio Shack. It's a won- 
derful machine, but the ribbon 
cartridges are longer and flatter 
than those for other machines, 
so you can't substitute any 
other cartridge. These car- 
tridges seem too valuable to 
throw out when the ribbon runs 
dry after only four or five hours 
of printing. 

If you have a printer that uses 
expensive and hard-to-find rib- 
bon cartridges, it is possible to 
reload them with the ribbons 
from cheaper cartridges. 

First, check the ribbon width 
of your cartridge. (In my car- 
tridge it was V4 inch wide.) Once 
you know the size and kind of 
ribbon you want, go to the office 
supply store. I bought a smaller 
Qume cartridge with the right 
ribbon, though different in 
shape from my cartridge. If you 



are selective you may be able to 
find a cartridge for dollars less. 

It would be easier to buy a 
spool of ribbon to put into the old 
cartridge, but I found none avail- 
able. So I was forced to buy a 
foreign cartridge and then trans- 
fer the ribbon to my old cartridge. 

Take the new and old car- 
tridges into the kitchen. On your 
way, get a table knife and a roll 
of Scotch tape. 

Carefully open your old ribbon 
cartridge. Remove the rubber 
band from the knob and axle; the 
rubber band turns a spool that 
winds up the used ribbon. Hold 
the cartridge in your hand and 
find the seam where the two 
halves of the plastic case are 
snapped together. They aren't 
glued, so slide the knife blade 
into the seam and work your way 
around the case until you can lift 
the top half off. 

Examine the inside of the car- 
tridge. (See Fig. 1.) Find the 
spool of used ribbon on the 
right. Running back from the 
spool, the ribbon threads 



„« -I 




Figure 1 



through two gears, around a 
post, and out the front of the car- 
tridge. Notice how the ribbon 
threads around the different 
gears and rollers so you can 
replace the ribbon correctly. 
Tracing the ribbon back, you'll 
see that it goes into the other 
arm of the cartridge, around a 
plastic guide with a piece of 
sponge and a spring attached to 
it. and then around two rollers in 
an S fashion. Finally it goes to 
the empty spool on the left side. 
You'll put in a new ribbon where 
the empty spool is, then thread 
it back to the other spool that 
holds the used ribbon. 

Remove the old ribbon and 
throw it away. Make sure you 
save the two center hubs or 
spools (you'll need them later). 
You have now successfully gut- 
ted your cartridge. 

Open the new cartridge and 
detach the ribbon from the other 
empty spool. Then place the 
new ribbon onto the left axle of 
the old cartridge. 

Here is where the first prob- 
lem may arise. 

The center hole in the spool 
may be a different size than the 
axle in your old cartridge. In my 
case the hole was too large. Ex- 
amine the old spool, which fits 
the axle (it consists of a black 
outer ring and an inner hub). The 
outer ring slides off, and the in- 
ner hub fits into the hole of the 
new spool. 

The second time I tried this 
the old inner hub didn't fit. You 
have two alternatives: you can 
either wrap a piece of paper 
around the axle (make sure the 
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spool turns freely) or just let it 
rattle. 

When the ribbon is on the axle, 
make sure it is unrolling in the 
right direction. As the spool un- 
winds, it should turn clockwise. 
Rethread the ribbon through the 
rollers and the guide, then out the 
arm and into the other arm. Fit the 
ribbon between the two gears that 
are pressed together by a spring 
by depressing the gear with the 
spring to make a small gap be- 
tween the gears. I found it easier 
to remove one of the gears com- 
pletely, position the ribbon and 
then replace the gear. 

All that remains is to attach 
the loose end of the ribbon to the 
old spool. Make sure the ribbon 
is not twisted. When the ribbon 
winds up. the spool turns clock- 
wise. Use a small piece of tape to 
attach the ribbon to the left side 
of the spool, and make sure the 
ribbon is properly aligned. Now 
fit the top half of the cartridge 
back on. and press the sides to- 
gether tightly. This is important 
at the ends of the two arms, for if 
they are not firmly together, the 
ribbon may slide between the 
seams, catch and snap. With the 
top of the cartridge back on, re- 
place the rubber band on the 
knob and axle. 

Pull the ribbon to see if it un- 
rolls freely. If it doesn't, the top 
half of the cartridge may be 
pressing down on the spool. 
Take the table knife and slip it 
into the seam again to free the 
spool inside. Once the ribbon 
comes out with a gentle pull, 
you're ready to replace the car- 
tridge on your printer. ■ 
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UTILITY 



Here's an explanation of their functions. 



NEWDOS80 Files 



Randy M. Resnick 

162 rue de la Convention 

75015 Paris, France 



Remember your innocent 
days when above all you 
preferred to read comic books? 
The styles varied drastically be- 
tween Superman and Donald 
Duck, but all comics shared one 
convention. When the villain 
was foiled or Dewey slipped on a 
banana peel, they shook their 
fists and yelled *#%&!#!!! 

I suspect that when you got to 
the end of the NEWDOS80 
manual and started looking at 
the documentation for the five 



The Key Box 

Basic Level II 
Model I 
32K RAM 
One disk drive 
NEWDOS80 



new file types, many of you 
shook your fists and uttered 
even more sophisticated oaths. 
Assuming that you have at least 
glanced over Appendix A in the 
manual or Section 8 on Disk 
Basic I/O enhancements, I pro- 
pose to lead you to the light at 
the end of the tunnel. 

It is not the fault of the au- 
thors of this fine operating sys- 
tem that standard ASCII just 
does not have enough unique 
characters for all of NEWDOS 
80's functions. 

In Basic Level II and up, the 
four characters %, !, # and $ are 
variable type declarations. Most 
of you know and use the $ suffix 
for a string variable as in A$, C1$ 
or P$(1,4). Likewise, % desig- 
nates an integer variable, ! 
means single precision, and # 
means double precision. You do 
not always see all these sym- 
bols in a program because they 
can also be defined at the be- 
ginning by a line like this: 

10 DEFINT A-F DEFSTR R-Z 

You knew all that. So did I and 
so did Apparat. They had little 
choice, however, but to assign 
additional uses to these same 
characters. What do you make 



of this, for example: 

70 GET 1.#.,(10)#,L%,R* 

Not only do these symbols have 
more than one meaning, but 
they can appear three times in 
one line and represent three dif- 
ferent things. 

When I first examined the ex- 
amples in the book, I found them 
very confusing. With a bit of 
study and practice, however, the 
different meanings, in context, 
are as obvious as the difference 
between two, too and to in 
spoken conversation. 

QETtlng to the Point 

Some file types require that 
you use a declaration symbol for 
all variables, and in some you 
must indicate the exact length 
of a string. Unlike Basic, there is 
no default variable. (With added 
power comes added respon- 
sibility.) 

In line 70 above L% and R# 
are simply the two variables, in- 
teger and double precision re- 
spectively, that the statement 
wants to GET. 

What's between the GET 1 (1 
is the buffer number, File Area 
Number In NEWDOS80 terms) 
and the variables? We'll get to 



that in a moment. First, look at 
this elegant model: 

10 OPEN "0".1. "FILE", "Fl" 
20 PUT 1...A%; 
30 CLOSE 

The Fl file type, threateningly 
referred to as "fixed-item, user- 
segmented," must be hard since 
it's the last thing in the book, 
right? Wrong! All five new file 
types require that you inform 
the system of the type you are 
using. So, lines 10-30 opened an 
Fl file, wrote one integer value to 
it, and closed it. We could have 
written several values in a state- 
ment such as this one, and 
many thousands with the proper 
loop surrounding it. No fielding 
is involved. We wrote two bytes 
of data in LSB-MSB order (also 
known as internal format 
because this is how an integer is 
stored in memory) to the disk. 

If A% equaled -12345 and 
was written to disk using the 
PRINT#1 statement, it would 
use seven bytes of disk storage. 
The minimum number of bytes 
that a PRINT#1 statement will 
use for an integer variable is 
three: one for the sign, one per 
digit and a trailing blank. Yet, all 
integers in an Fl file use two 
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bytes. It is easy to see that it you 
wrote 1000 integers to a regular 
sequential file, you could waste 
an average of two full tracks 
(4096 bytes) of disk space. 

I rewrote a program that 
stored a 3 by 1024 element in- 
teger array to disk, changing the 
file type from PRINT#/INPUT# 
sequential to Fl by modifying 
four statements. The original 
file this program created was 36 
sectors long and the new one 
with the same data took 24 sec- 
tors. Most data values in the ar- 
ray were zero; all were limited to 
three digits. If the array were full 
of two to five-digit integers, the 
difference could be more than 
300 percent— better than triple 
density! 

Examining line 20 of my pro- 
gram gives us the syntax for the 
GET and PUT commands for 
NEWDOS80 files. After the GET 
command and its buffer number 
and comma are two more com- 
mas, the variable name and a 
semicolon. These last two items 
have a name: IGEL (Item Group 
Expression List). An IGEL is 
much easier to tame than a 
Field statement. It is simply a 
list of variables, each type- 
declared, separated by commas 
and ending with a semicolon. An 
IGEL can also exist by itself in a 
line or several lines such as: 

145 GOTO 155 

150 A%, B%, G$:' three integers 

151 L$(X,1),R#;:' string and numeric 
155' program continues . . . 

Your program must branch 
around the items in the IGEL 
See the manual for more ex- 
amples and how to use com- 
ments in the lines of an IGEL to 
enhance readability. If the IGEL 
has its own line number, it is 
called a free-standing IGEL. To 
use one in a program, the syntax 
is: 20 GET 1„150. There is no 
ending semicolon, and only one 
comma is used after the comma 
that comes with GET 1. You will 
often use the same IGEL for 
GET and PUT statements in the 
same program. This version of 
line 20 would read the disk data 
of the file and assign it to the 
variables named in lines 1 50 and 
151 above, assuming the data is 
written with exactly the same 
types of variables in the same 
order. 
If you want to write a sequen- 
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tial file of the Fl-type numbers 
only, and use it like the PRINT*/ 
INPUT* type files, you have the 
tools to do so. Program Listing 1 
is an example. 

The first four lines fill the array 
with 1278 useless numbers be- 
tween - 10000 and + 10000. 1 en- 
courage you to substitute mean- 
ingful data for this section, such 
as the 426 highest scores in 
Chess Master Version 3.0, the 
dates they were achieved, and 
whether they increased in the 
last game. 

The other odd-numbered lines 
are remarks. Using a free-stand- 
ing IGEL, the program is easy to 
write and debug. Compared to a 
PRINT#/INPUT# type file pro- 
gram, it accomplishes the same 
task about 28 percent faster, 
and uses Vs the amount of disk 
space to store the same data. 

To use strings in such a file you 
must state their lengths in the 
IGEL such as (23)A$ or (5)Q$(X,Y). 
This number creates a space in 
the file for the string. If the actual 
string is longer, it is truncated 
and, if shorter, the remainder of 
the space is filled with binary 
zeros (nulls). 

You can randomly access 
these new file types as well! The 
MF and FF type files are similar 
to TRSDOS's random files, ex- 
cept that you decide the record 
length (1-4096) and you do not 
need Field or LSET and RSET 
statements. The system keeps 
track of record numbers for you. 
For other file types, you must 
know where the record you want 
is located in the file (called its 
RBA). Further, if you have al- 
ready worked with random files, 
you will appreciate the fact that 
some NEWDOS80 file types can 
manipulate a part of a record 
without re-writing the whole rec- 
ord. This can be complex, and I 
would not try it on payroll files 
during working hours! Even so, 
if you work with long records, 
partial I/O can save access time, 
and in some cases can avoid the 
loss of important records. 

File Positioning 

If you dream in Assembly lan- 
guage, if you can multiply 16-bit 
hex numbers (signed or un- 
signed) in your head, or if you 
have read this far, you will have 
no trouble understanding file 



positioning. 

100 OPEN "R",1,"Fll£","FI" 

Where are we? At the first 
byte in the file. If no other con- 
trol information is specified for 
a GET or PUT statement exe- 
cuted just after an OPEN state- 
ment in modes I, O, R or D, NEW- 
DOS80 processes the data from 
the first byte of the file. If we 
asked for data after the EOF we 
would get an error and program 
execution would be broken, so 
the first necessity is a test for 
the end of the file. (Note: Pro- 
gram abort by error does not 



close the file nor does it neces- 
sarily write any data. This is great 
for troubleshooting, but you 
should proceed with caution!) 

NEWDOS80 has extended the 
LOC( ) statement to five sepa- 
rate functions. The LOC( )$ func- 
tion, used with an Fl file, returns 
a zero when it occurs before the 
EOF (end of file), and a minus 
one when it is positioned at or 
beyond the EOF. A test for EOF 
could be as simple as that of 
Program Listing 2. 

Since LOQ )$ is always zero 
except at or beyond the EOF, line 
120 will fall through the test until 



3 


DIMA%(2,425) 


5 


FOR X =0 TO 425:FOR Y = TO 2 


7 


A%(Y,X)= RNCX20000) - 10000:NEXT Y.X 


9 


'—sequential output of array - 


10 


OPEN"0",1."FILE","FI":GOTO30:' branch around IGEL 


20 


A%(0.X).A%(1.X).A%(2,X);:'- IGEL - 


30 


FOR X = TO 425:PUT1„20:NEXT.CLOSE 


41 


' program continues .... 


49 


' — sequential input to array — 


50 


OPEN"l",1,"FILE","FI" 


60 


FOR X =0 TO 425:GET1„20:NEXT:CLOSE 


61' 


No need to test tor EOF. 


63' 


we know the file has 426 rec s 


Program Listing 1. Storing integers in an Fl file 




DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't 

Blame The 
Software! 

Power Line Spikes, Surges & 

Hash could be the culprit! Floppies, printers, 

memory & processor often interact! Our patented ISOLATORS 

eliminate equipment interaction AND curb damaging Power Line 

Spikes, Surges and Hash. MONEY BACK GUARANTEE! 

• ISOLATOR (ISO-1) 3 filter isolated 3-prong sockets; Integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load 
any socket $69.95 

• ISOLATOR (ISO-2) 2 filter isolated 3-prong socket banks; (6 
sockets total); integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $69.95 

• SUPER ISOLATOR (ISO-3) similar to ISO-1 except double 
Isolation & Suppression $104.95 

• SUPER ISOLATOR (ISO-11) similar to ISO-2 except double 
isolation & Suppression $104.95 

• MAGNUM ISOLATOR (ISO-17) 4 Quad Isolated sockets; For 
ULTRASENSITIVE Systems $181.95 

• CIRCUIT BREAKER, any model (Add-CB) Add $9.00 

• REMOTE SWITCH, any model (Add-RS) Add $16.00 

AT YOUR 

DEALERS 



MasterCard, Visa, American Express 

ORDER TOLL FREE 1-800-225-4876 

(except AK, HI, PR & Canada) 



f^'\7 Electronic Specialists, Inc. -159 

171 South Main Street, Box 389, Natick, Matt. 01760 
(617) 655-1532 
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100 


OPEN r,VFILE'7'Fr,C=1 






110 


GET 1...ZV.; 






120 


IF LOC<1)$ THEN 140 






130 


C = C + 1:GOT0 110 






140 


CLOSE 






ISO 


PRINT'Last Item Processed. 


Rec 


■:C 


Progra 


m Listing 2. EOF test 


in 


Fl file 





1180 


OPEN"R".1."FILE","FF 


',12 






1190 


A$ = "hello test ":B% = 


00 






1200 


PUT 1,„(10)A$,BVo; 








1210 


GET1,#.,(5)D$; 








1220 


GET1..,.(5)L$: 








1230 


GET1,..,UV.; 








1240 


CLOSE 






Program 


Listing 


3. File positioning 


within a 


record 



it becomes true. The exact point 
where LOQ )$ becomes true de- 
pends on the file type and several 
other functions, including: 

LOQ )!— This returns the Rel- 
ative Byte Address (RBA) of the 
next item (the one about to be 
processed) in the file. This item is 
the next record in record seg- 
mented files or the next byte in 
non-segmented files. The data at 



this location will be processed by 
the next access. This value is 
zero before the first access. 

LOQ )#— This is the start of 
the last record processed. It is 
called the REMRA (REMem- 
bered Record Address). If 
LOC( )! is zero there is nothing 
to remember, so this value is 
marked invalid by the system 
and asking for LOC( )# will 



SENECA ELECTRONICS 

SUPER DISCOUNTS TRS-80" AND OTHERS 



TRS-80* 

BELL & HOWELL* (APPLE) 

ATARP 

VIC COMMODORE' 

and OTHERS... 




TRS-80* 16K MODEL III $810.00 ^" 

TRS-80* 64K MODEL II $2995.00 
ATARI* 800 W/16K $650.00 
VIC-20* HOME COMPUTER $245.00 
ALL MACHINES COME WITH FULL 
MANUFACTURES WARRANTY!! 

COMPUTER FURNITURE. PRINTERS. PERIPHERALS. YOU NAME 
IT. WE GOT IT. AT THE PRICE YOU WANT TO PAY. WE ACCEPT 
CERTIFIED CHECKS. MONEY ORDERS. VISA & MASTERCARD 
SHIPPING CHARGES WILL BE ADDED TO CHARGE CARD ORDERS. 

SENECA ELECTRONICS 

RD *1. HARMONY. PA 16037 

(412)452-5654 .-474 



create an error. 

LOQ )% — This is the current 
EOF address of the file. When 
extending files in the R or E 
modes, this value and the data 
added to the file may not be writ- 
ten to the disk yet, so in the case 
of a crash, it is possible to lose 
all new data. Close updates the 
EOF on the disk. To force this 
update without a Close, the 
statement PUT 1,&„; ensures 
sensitive data is written before 
further processing. It has no ef- 
fect on file positioning. The form 
PUT 1,!%,,; positions a pointer 
to the current EOF from any- 
where in the open file. 

These last three functions of 
LOQ ) return byte addresses rel- 
ative to the first byte of the open 
file; there are some differences 
in their functions as well as that 
of LOQ )$ among the five file 
types. These differences relate 
to whether the file is segmented 
into records. If it is segmented, 
these RBA and REMBA values 
indicate the beginning of a rec- 
ord; in unsegmented files, they 
indicate the next byte in the file. 
This is the trickiest part of play- 
ing with these LOC functions, 
and requires experimentation. 
Keep in mind that you will see a 
lot of error messages. The man- 
ual is very explicit about the 
LOC functions, so take another 
look at it if you have problems. 

The Easy Way 

If you open an MF or FF file in 
any of the random modes, you 
must state the record length in 
the Open statement. These two 
file types can be accessed ran- 
domly by record number (as in 
GET 1,45,50 or PUT 1,45,, A%; 
where you will be moving data at 
record number 45, either into the 
IGEL with the line number of 50 
or from the IGEL within the 
same line as in the PUT). The 
system does not know the rec- 
ord numbers in the other three 
file types, but you do. 

If your data is segmented so 
all records in the file have the 
same length, you can easily 
compute the position of a record 
just like the system does. Other 
than making your listings more 
complicated, there is little rea- 
son to do this, since you can let 
the system handle it, by using 
MF or FF files. It is good to know 



the formula to better under- 
stand the process and for de- 
bugging purposes. Multiplying 
the number of bytes in the rec- 
ord by the number minus one of 
the record you wish to obtain 
gives the relative byte address 
(RBA) of that record. You sub- 
tract one because the first rec- 
ord number is one. but the 
lowest byte address is zero. 
That is, in a file of 10-byte rec- 
ords, Record 1 is at (1-1)* 10 or 
zero, Record 2 starts at (2-1)«10 
or 10, Record 234 starts at 2330 
and so on. This Relative Byte 
Address (RBA) is designated by 
the symbol !. Instead of asking 
NEWDOS80 for LOQ1)! for ex- 
ample, you tell it: 

230 GET 1.12330..: 

If you asked for LOQ1)!, NEW- 
DOS80 would answer 2330 for an 
unsegmented file, and in the FF 
file discussed above (which has a 
stated record length of 10) would 
answer 2340, the next record's 
RBA. Note that this GET did not 
GET anything. It only positioned 
the file, because it has a null 
IGEL in it. The same line with a 
non-null IGEL or IGELSN (that is 
IGEL plus SN for Statement 
Number) would perform a normal 
GET function. PUT 1.!2330..A%; 
would indeed write the two byte 
form of the value of A% starting 
at the relative byte 2330. 

If your data structure is not 
this simple, you can build an in- 
dex file while you are writing the 
data. The first item written will 
always be at !0, the first byte in 
the file. After the first PUT, you 
could ask for the value of 
LOQ1)! and store it in an array. 
When the entire file is written, 
your array contains the RBA or 
Relative Byte Address for each 
record, regardless of the varying 
lengths of these records. You 
can then store this array to disk 
as an index file which you can 
use later for sequential or ran- 
dom access or sorting pur- 
poses. Picture the efficiency of 
loading an array with the record 
positions from an index file, ac- 
cessing a single value in a very 
long record, sorting the values, 
rearranging the index numbers 
in this new sorted order and 
writing them to a new index file. 
The speed and space gained will 
amaze you! (See the partial 
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SPECIALLY TARGETED. Works in harmony 
with your TRS80 Model I or III. No more 
floppy shuffle. Fast one pass compiler that 
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Compatible with TRSDOS, LDOS, DOSPLUS, 
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programs. ADP: $125 + shipping. 

ALCOR PASCAL: A new standard of 
excellence from the professionals at Alcor 
Systems. 

CALL OR WRITE for a free 20 page technical 
brochure with all the facts. 214-226-4476. 
Pascal System: $199 + shipping. 

Alcor Systems 

800 W. Garland Ave. 

Garland, Texas 75040 




SYSTEMS 



rns» 
PCM 

»!.,.- I'.... 



Tandt Corporan»c 
Unl.mil> C.I ' Im Dh| 
Airof Sy.l.m. 



Dealer Inquiries Invited 












More and more hardware and communications services are allowing speeds up to 1200 baud. Soon, some may be going 
faster than that Today's terminal software simply can't keep up. But now there is an alternative. Micro-Systems Software in- 
troduces MicroTerm, the high speed terminal 

Model III MicroTerm wHi communicate, without insertion of null characters, at 4800 baud. Guaranteed. No cop-outs, 
no question. MicroTerm is so fast that you can exit from the terminal to the main menu, adjust video width, open the buffer, 
turn on the printer, or any one of dozens of other functions, and return to the terminal moael without missing a thing! 

MicroTerm continues to input from the RS232, even while at the main menu. This is the only terminal capable of such 
an astounding feat. MicroTerm offers you most of the features that "Brand X" smart terminals have, plus it gives you: • Ultra high 
baud rate operation (up to 9600 in certain cases). • Input while at menu • Easy to use translation tables • Easy to use phone 
number listings. • Maximum auto dial support — most major brands. • Direct file transfer companion program included at no 
exta cost (compatible with DFT). • DOS commands from menu without exiting program. • Over 34K of capture buffer (in a 48K 
TRS-80) • Can be set to automatically dial telephone and transmit buffer at preset time without any operator intervention. 

And many, many more great features, MicroTerm is so fast you must see it to believe it. The various menus are displayed 
so fast, they seem to jump out at you. Status of various functions can be displayed and altered in split seconds. 

For the computerist who wants the ultimate, state-of-the-art terminal software, there is no other choice. 

MicroTerm retails for $79 95, but registered DOSPLUS owners can purchase it for only $59.95. $20.00 off tt" 
MicroTerm comes complete with the terminal program, the direct file transfer program, sen 
documentation. 

Don't delay, order yours today! Specify when ordering: Model I or III and I 
.es a 16K TRS-80 with one disk drive We recommend 48K for serious communications work. MicroTerm will be available 
beginning June 30, 1982. 
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MICROSYSTEMS 
SOFTWARE, INC. 

4301-18 Oak Circle 

Boca Raton, FL 33431 
Telephone: (305) 983-3390 



record I/O in the manual.) 

Regardless of where you are 
in a file, GET or PUT without ex- 
plicit positioning will process 
the next record (if the system 
knows the record length or the 
file is marked) or the next item if 
the file is unmarked. We'll get to 
marked items in a moment, but 
first there are a few other sym- 
bols to clear up. Refer to Pro- 
gram Listing 3. 

Here, the file opened is an FF 
type file and the stated record 
length is 12. Do you care to 
guess the values of D$, L$ and 
U%? In the first record we wrote 
a 10-letter string and an integer 
value. The # in line 1210 sent 
Basic back to the REMRA or last 
record processed instead of ad- 
vancing to the next one, and 
read the five characters Hello 
into DS. The * in line 1220 forced 
the action to remain in the same 
record and to start at the next 
byte to read the "test" part of 
the string. The same command 
in line 1230 read 100 into U%. If 
the system is not told the record 
length the * symbol does not ac- 
complish anything. To read or 
modify a single item in a record, 
or to change the structure of the 
record requires that you know 
exactly how data is organized. 
Other partial record techniques 
include: 

• GET 1,„A%„C%; The extra 
comma between variables skips 



the variable between A and C in 
marked-item files. 

• GET 1„,(7)$,A%; In fixed- 
item files, the number of bytes in 
parentheses is skipped from the 
current position and A% is read. 

• PUT 1,„(10)#,A%; In fixed- 
item files, the number of bytes in 
parentheses is nulled and A% is 
written. Handle this with care! 

Marked-Item Files 

After all this work, let's let the 
system handle things for a 
change. Of course, the system is 
paid in bytes and marked-items 
make it work overtime. Another 
general point: In marked-item 
files, the PUT statement IGEL 
can use expressions, like 3*A!/ 
234.3-20 and MID$<D$,2,X + 5), or 
literals and constants as in PUT 
1,„"abc",12.3;. 

The code in Program Listing 4 
will create an MU file of five 
records, each consisting of a 
string entered from the key- 
board followed by a numeric ex- 
pression related to the string 
length. The computer prints the 
record number and waits for you 
to enter some data. As soon as 
you hit enter the fifth time, it 
places this important data on 
the disk. 

After creating the file, ex- 
amine it with Superzap. The 
marking bytes within the file are 
well defined in the manual. In 
the MU type file, each record 





1000 CLEAR 1000 




1001 CLS:FORX = 1 TO 5 




1 002 PRI NTT AB(25)"REC' - ;X; : PRI NT: LI N El N PUTA$(X) 




1003 NEXT 




1004 OPEN"0",1,"TEST/MU"."MU' - 




1005 FOR X = 1 TO 5; - WRITE FIVE RECS TO FILE 




1 006 PUT1 ,„A5(X),5 . LEN(A$(X)) + 2; 




1007 NEXT 




1008 CLOSE 


Program 


Listing 4. Create and write MU file of strings and 


integers 





2000 


DIM K100):'dimension array to max. possible records. 


2002 


CLS:L = 1:OPEN"l",1."TEST/MU ,- ,"MU" 


2004 


GET1..,;:I(L) = L0Q1)!:' no data transfer 


2006 


IFLOC(1)$THEN2010 


2006 


L = L + 1:GOTO2004 


2010 


CLOSE:PRINTL;" RECORDS IN FILE" 


2012 


PRINT:PRINT"REC RBA":PRINT 


2014 


FOR X = to L- 1:PRINT X + 1;" "iKXfcNEXT 


2016 


PRINT" ■ ■ ■ EOF a - ■ . >";I(L) 


Program Listing 5. Create index array l( ) with RBA for each 


record 





Which TRS-80* Accounting Software 
Do I Buy . . . 

That's a tough question. I know. I asked it myself not very long ago. I'm Mike 
Motta As president of Shawmut Systems, specialists in TRS-80* custom soft- 
ware, my customers were asking me for Model II and 16 Accounting Software 
— GL. AR. AP and Payroll But I said "Why write the software. There must be a 
good package already available." So I searched for the best I could find And I 
found it! 

Now. when I tell you that these are the best Accounting programs I've seen on a 
microcomputer, you probably think that you are just listening to another sales 
pitch. But you're not You're listening to a businessman with over twenty years 
combined experience in sales, management, and programming. So when I say 
that these programs will work for you. it really means something. 

Each program, designed for the Model II cr 16, will work with one or more floppy 
or hard disks. Wilh each program. I'll include a 200 page manual written with 
the first time user in mind, and a set of sample data files so you can start using 
the program right away. 

But I won't stop there. If you have a question, or a problem, call me. You won't 
get an operator, or order taker. You'll ge*. me. And if I can't talk to you on the 
spot. I'll call you back. And I'll fix your p-oblem. FAST. 

Now I could say a lot more about these programs, but you really won't know 
how good they are until you try them. So. order the programs you need, and try 
them for 14 days. If you're not convinced that these are the programs for you. 
send them back, and I'M refund your morey 

My price for these programs is only $289.00 each, postpaid I could charge hun- 
dreds more, but I want you to have the best programs at the best possible price 
So mail or call your order m today. I'll make sure you n be satisfied 



Model 11/16 Accounting Software Packages 



Accounts Receivable 
General Ledger 



S289 
S289 



Accounts Payable 
Payroll 



S289 
S289 



SHAWMUT SYSTEMS 

105 Circle Drive • PO Box 324-A 

Somerset, MA 02726 

(617) 672-9794 



Ask about our Model I and I 
versions. 

"TRS-80 is a Trademark 
of Tandy Corp. 



Send check, money order or 
Visa/MC number 



Mass. residents add 
5% sales tax. 
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RADIO 
SHACK 

TRS-80'S 
Full Line 

WE PAY SHIPPING in the 48 continental states on prepaid 

orders of $100.00 or more. 
NO TAXES are collected on out-of-state shipments. 
WE ACCEPT Visa, MasterCard and American Express, or 

you can save additional money by paying cash. 

TOLL FREE ORDER NUMBER 800/531-7466 

Pan American 
Electronics 



1117 Conway • Department B 

Mission, Texas 78572 

Phone: 512/581-2766 

Telex Number 767339 

TM — Trademark of Tandy Corporation 



• See List of Advertisers on Page 451 
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begins with a start-of-record 
mark (SOR). This adds one byte 
of overhead for each record, but 
in working with variable length 
strings, the strings can be read 
in order, because the system 
knows where each one starts. A 
marking byte is also added to 
each numerical item in the file to 
tell the system whether it is in- 
teger, single or double preci- 
sion, and to each string to tell 
the system its length. Strings 
exceeding 127 bytes use two 
marking bytes. 

Ml) type files are easy to work 
with and flexible but use extra 
disk space and can be slow. 
Random processing is possible 
using the RBA file positioning 
techniques discussed earlier. 
The Ml) file, as the manual 
states, was intended to replace 
PRINT#/INPUT# file types and is 
excellent for data that is widely 
varying in nature, such as 
strings to 255 characters long 
mixed with numbers of varying 
precision. 

Program Listing 5 is a quick 
demonstration of how to build 
an index array from the Ml) file. 
You could save the index as an- 
other file, or use it for proc- 
essing during program execu- 
tion. Try it on the five-record Ml) 
test file, with the array l( ) con- 
taining the RBA values. GET 
1,!I(0),.A$,B; obtains the first rec- 
ord, and record N would be ac- 
cessed using GET 1,!I(N-1)„;. 
This allows true random access 
to a file containing records of 
varying lengths. The extra mark- 
ing bytes eliminate the space 
wasted in field item files. The 
MU file can be updated as well, 
but the new record must fit into 
the same space as the one it 
replaced. 

If you can use strings that are 
of consistent length (e.g. phone 
numbers), there are more appro- 
priate file types. For example, if 
a file contained only strings of 
seven characters mixed with in- 
tegers, you might use an MF file 
setting the record length at 
eight for the string plus three 
bytes for each integer, five for 
single precision, and nine for 
double precision numbers. You 
can process this type of file by 
record number. Again, the more 
you think out your data format, 
the easier it will be to choose the 



right file type for fast access 
and disk space economy. 

If the data is mixed but in an 
iron-clad format, you can use 
the Ml type file. This file type 
can not be updated randomly, 
but it can be read using the 
intra-record techniques de- 
scribed earlier. 

The Structure of File Types 

Here is the order of how much 
work the system does, from al- 
most none of it to nearly all the 
housekeeping: 

Fl: This file is a continuous 
stream of data bytes. All control 
is in the programmer's hands. If 
you ask for a number and are 
positioned at a string, the sys- 
tem will calmly return a com- 
pletely meaningless value. The 
system can not help you re- 
cover. It has no way to detect 
such an error, unless you try to 
input past the EOF. These files 
are very compact but require 
that you be aware of every facet 
of the data structure. 

FF: All records have the same 
length, which you must state in 
the open statement. Expres- 
sions are not allowed in the 
IGELs. The system will handle 
I/O by record number. Again, the 
files are very compact, and other 
than the record length, the sys- 
tem is ignorant of the data struc- 
ture. An important attribute of 
this file type is its ability to 
process a single item in a record 
without reading or writing the 
whole record. 

Ml: The system adds bytes to 
the data in the file to mark their 
types. The file can only be writ- 
ten sequentially (or extended), 
but can be read randomly by file 
positioning. 

MF: This file is like Ml but you 
can update it randomly and ac- 
cess it by record number or file 
positioning. Expressions are 
allowed in IGELs. You specify 
record length in the Open state- 
ment. 

Ml): The system marks all 
items and the start of each 
record. This type adds the most 
extra bytes, but is very flexible 
with records and strings of vary- 
ing lengths. Used with an index 
file containing the RBA of each 
file SOR, strings of up to 255 
bytes can be rapidly accessed 
randomly and sorted or manipu- 
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NEWDOS/80 Version 2.0 
The Support Keeps Coming. 
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Apparat's newest, 
disk operat- 
ing system for 
the TRS-80", 

NEWDOS/80 Version 2.0, has 
added many new enhancements 
and features to make your Model I 
or III computer more powerful. 
We've kept one thing the same. 
Our support. 

Version 2.0 is our second 
upgrade of our original NEWDOS 
for the TRS-80. Each version 
builds and improves on the 
capabilities of the preceeding 
versions. Just as important, 
Apparat's commitment to 
supporting our products makes a 
good product even better. By 
providing our customers with 
zaps on an ongoing basis, we're 
continually making NEWDOS/80 
Version 2.0 a more powerful tool. 



Version 2.0... 

High Performance DOS 

NEWDOS/80 Version 2.0 
builds even more performance 
into NEWDOS/80. The versatility 
and sophistication of Version 2.0 
includes features like: 

• Double density support on the 
Model I 

• Enhanced compatibility 
between Model I and III 

• Triples directory size 

• Dynamically merge in basic 
(also allows merging of non 
ASC II format files) 

• Selective variable clearing 

• Can display basic listings page 
by page 



• Automatic 
repeat function key 
• Routing for 
peripheral handling 

• Enhanced disassembler 

• Command chaining 

• Superzap to scan files 

• Fast sort function in basic 

These new features, added 
to the existing capabilities of 
NEWDOS/80, makes it one of the 
most powerful additions you can 
make to your system. And 
Apparat's commitment to support 
assures that you've purchased a 
superior product, both today and 
tomorrow. At just $149.00 it could 
be the best investment you will 
make for your TRS-80. 

If you're thinking about 
upgrading your system, call 
Apparat today. Dealer inquiries 
welcome. 

303-741-1778 

TRS-80 Is a registered trademark of randy Corp. 
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Apparat, Inc. 

440 1 5<>. Tamarac ftirkway, Denver CO 80237 (303) 74 1 1 778 
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lated using this index file. The 
MU system is very easy to use 
and understand. 

Final Thoughts 

Hundreds of other details, 
tricks and tidbits can be learned 
by experimentation or gleaned 
from the NEWDOS80 documen- 



tation. The program modules in- 
cluded here could be com- 
pressed considerably, and there 
is a lot of room for sophisticated 
programming techniques once 
you have mastered these funda- 
mental concepts. I have found 
them to be well worth the time 
spent studying them. 



One way to picture the entire 
file situation in NEWDOS80 is 
as an analogy to computer lan- 
guages. In Basic and other high- 
level languages, you enter 
words and numbers and manip- 
ulate them, without Knowing 
how or where they are stored. 
The operating system makes 







AS - "THIS IS A STRING IN THE FILE 










BV. 


= c 


- -123456 D#= 3.5759458 




Writing the above data creates the following disk images: 








00 5448 


4953 


2049 


5320 


4120 5354 


5249 


4E47 


THIS.IS.ASTRING 


10 2049 


4E20 


5448 


4520 


4649 4C45 


0000 


0020 


IN.THE.FILE .... 


20 F191 


0A30 


D1C5 


4B0C 


6482 

FFand Fl FHee 






.0. K.d. 


00 9C54 


4849 


5320 


4953 


2041 2053 


5452 


494E 


.THIS.IS.ASTRIN 


10 4720 


494E 


2054 


4845 


2046 494C 


4572 


0000 


G.IN.THE.FILEr.. 


20 7300 


20F1 


9174 


0A30 


D1C5 4BDC 
Ml and MF Files 


6482 


~~ 


a....t.0..K.d. 


00 709C 


5448 


4953 


2049 


5320 4120 


5354 


5249 


p.THIS.IS.A.STRI 


10 4E47 


2049 


4E20 


5448 


4520 4649 


4C45 


7200 


NG.IN.THE.FILEr. 


20 0073 


0020 


F191 


740A 


30D1 C54B 
MU File 


DC64 


82— 


S....t.0..K.d. 


00 5448 


4953 


2049 


5320 


4120 5354 


5249 


4E47 


THIS.IS.A.STRING 


10 2049 


4E20 


5448 


4520 


4649 4C45 


2C20 


3020 


.IN.THE.FILE..0. 


20 2D31 


3233 


3435 


3620 


2033 2E35 


3736 


3934 


- 123456.3.57594 


30 3538 


200D 








PRINT* File 


■""—~ 


— — 


58.. 




Fig- 


1. Comparison of the various file formats 



the rules, and sometimes uses 
time analyzing data and worry- 
ing about where to put it in mem- 
ory. Some of us rebel in the face 
of such a dictatorship. The need 
to be independent of the operat- 
ing system's tyranny gives us 
the desire to direct the computer 
and run things our own way. To 
do this we learn to use Assem- 
bly or machine language. My 
first Assembly language pro- 
gram stored and analyzed one 
string. I had to write the program 
this way, since that string hap- 
pened to be 43,548 characters 
long! 

NEWDOS80's new file types 
give you the power to create 
your own data structures and 
use your imagination more free- 
ly than do the older (still fully 
supported) file types. At the very 
least, you can save disk space 
and time. The rules are still in 
the hands of the operating sys- 
tem, but the choice is so varied 
you hardly notice! ■ 

Randy Resnick is a musician 
living in Paris. He is currently 
working on laser-graphic 
svstems. 
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ACCOUNTING 

the Language of Business 






HPLUS 

Computer Technology, Inc. 

SOFTWARE 
FOR FINANCIAL MANAGEMENT 

We make it easy! Plus Accounting Software Packages are menu- 
driven for easy and confident operation. Our extensive documen- 
tation for installation and operation is easy to understand. And, 
Plus is easy to buy, we are amazingly inexpensive. The Plus techni- 
cal support package with our 800 number "hot-line" makes it easy 
to stay up-to-date and informed. 

Select a package for a specific application, or get the total system. 
You can be sure your professionally-designed Plus Accounting 
Software Package will provide efficient, cost-effective financial 
management for your most demanding needs. Make a sound 
business decision today... make your financial control and planning 
management a Plus. We speak your language. 

PLUS FINANCIAL AND ACCOUNTING SOFTWARE PACKAGES AVAILABLE: 

• GENERAL LEDGER • ACCOUNTS RECEIVABLE 

• ACCOUNTS PAYABLE • FIXED ASSETS 

• PAYROLL • EASYTRAK™ ACTIVITY MONITORING SYSTEM 

All packages menu-driven. Each accounting package is available 
"stand alone", or can automatically post to General Ledger. 
Flexible user-defined file sizes for flexibility. Complete with 
extensive documentation and thorough installation guide. 
Furnished on disc. 

PLUS PROGRAM AVAILABILITY: 

TANDY MODELS II & III 

• THE IBM PERSONAL COMPUTER 



spoken here! 



PLUS 

Computer Technology, Inc. 

PLUS COMPUTER TECHNOLOGY, INC. 

6900 North Austin Avenue — Chicago, IL 60648 

1-312-647-0988 

1-800-323-4240 (Outside Illinois) 

WHAT WE DO FOR YOU IS OUR 
MOST IMPORTANT PRODUCT. 
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UTILITY 



Color Diskdump 



by Ken Knecht 



Ihave written a Basic program tor the 
TRS-80 Color Computer that lets 
you see what is stored in a disk file. The 
program also reads any area of 
memory. 

Since the Color Computer displays 32 
characters on each line, many lines are 
needed to display a single disk sector of 
256 bytes. This program displays the 
decimal codes of each character in the 
file with their ASCII equivalent above 
them — if it is a printable ASCII char- 
acter. If the ASCII character is a space 
then no character is shown. If the char- 
acter is not printable then a period is 
displayed. You can choose to print the 
program's output on your printer if 
you have one. 

When you start the program, you 
are asked for the name of the file. You 
can also select a display of memory. 
The file can be any type: direct, se- 
quential, data, Basic program, ma- 
chine language and so on. Next, you 
are asked which sector you wish to be- 
gin with. The program tells you if this 
sector is beyond the length of the file. 
If the sector is valid, as the program 
continues you have frequent opportu- 
nities (every 32 bytes) to restart the 
program and look at another file or an- 
other sector of the same file. When 
each sector has been displayed, you 
can restart the program, go to the next 
sector, or display any sector. 

The location of the bytes displayed 
within the sector is displayed above ev- 
ery eight-byte line together with the 



The Key Box 

Color Computer 
16K RAM 
Disk Basic 
One Disk Drive 



Model I users had it; 
now Color Computer 
owners can have it, too. 
So examine those files. 



sector number. You are always aware 
of where you are in a file. The sector 
count begins with one, and the byte 



count within the sector with zero. 

If you choose to read memory, the 
display is the same, except you see the 
contents of memory. You are asked for 
the starting memory address. After 
each four lines you can continue incre- 
menting memory addresses, start at a 
new address, or end the program. ■ 

Ken Knecht can be reached at 1340 
W. 3rd St. #130, Yuma, A Z 85364. 



10 CLEAR1000:P=0:CLS 

20 INPUT'OUTPUT TO PRINTER (Y/N) " ; Z$ : IF Z$="Y" THEN P=-2 

25 INPUi"READ FROM DISK OR MEMORY (M/D) " ; Z $: IF Z$="M" THEN 230 

30 F$="":PRINT"FILE NAME (PRESS ENTER TO" : INPUT"END PROGRAM) ";F$ 

•IF F$=»" THEN END 

40 INPUT "STARTING SECTOR" ;S 

50 OPEN"D",l,F$:IF S>L0F{1) THEN 210 

60 FIELDfl,128 AS A$,128 AS B$:GET #1 , S:V=0 : SK=0 

70 FOR X=0 TO 96 STEP 32: FOR Y=0 TO 31 STEP 8 : PRINTIP , "SECTOR" ; S 

; "BYTES" ;V; "TO";V+7 

80 FOR Z=l TO 8 

90 L$=MID$(A$,X+Y+Z,1) :L»ASC(L$) :IF L<32 OR L>122 THEN PRINTiP," 

. ";ELSE PRINTiP," "+L$+" "; 
100 NEXT Z:IF P=-2 THEN PRINTiP," " 
110 FOR Z = l TO 8 

120 L=ASC(MID$(A$,X+Y+Z,1)) :IF L<10 THEN PRINTIP," "+STR$(L)+" " 
;ELSE IF L<100 THEN PRINTIP, STR$ (L) +" " ; ELSE PRINTIP ,STR$ (L) ; 
130 NEXT Z:IF P»-2 THEN PRINTiP," " 
135 V=V+8:NEXT Y 

140 INPUT "CONTINUE (Y/N)";Z$:IF Z$="Y" THEN 150 ELSE 220 
150 NEXT X:IF SK=0 THEN SK=1 : A$=BS:GOTO 70 

160 PRINT'INPUT -1 TO END, FOR NEXT" : PRINT" SECTOR, OR THE SECT 
OR NUMBER" :INPUT"FOR A SPECIFIC SECTOR" ;N 
170 IF N=-l THEN 220 

180 IF N=0 THEN S«S+1:IF S>LOF(l) THEN 210 ELSE 60 
190 S=N 

200 IF S<=LOF(l) THEN 60 
210 PRINT'NO MORE DATA IN FILE" 
220 CLOSE:GOTO 30 

230 BS="":PRINT"START AT WHAT MEMORY ADDRESS" : PRINT" ( PRESS ENTER 
TO QUIT, A":PRINT"A POSITIVE NUMBER FOR ADDRESS" : INPUT B$:IF B$ 
="" THEN END ELSE B«VAL(B$) 

240 FOR Y-l TO 4 : PRINTiP, "BYTES" ;B; "TO" ;B+7 :FOR Z=B TOB+7:L=PEEK 
(Z) 

250 IF L<32 OR L>122 THEN PRINTiP," . " ; ELSE PRINTiP," "+CHR$( 
L)+" "; 

260 NEXT Z:IF P=-2 THEN PRINTiP," " 
265 FOR Z=B TO B+7 :L=PEEK (Z) 

270 IF L<10 THEN PRINTIP," "+STR$(L)+" ";ELSE IF L<100 THEN PRIN 
TiP,STR$(L)+" ";ELSE PRINTiP, STRS (L) ; 
280 NEXT Z:IF P=-2 THEN PRINTIP," " 
285 B=B+8:NEXT Y 
290 INPUT'CONTINUE (Y/N)";Z$:IF Z$="Y" THEN 240 ELSE 230 

Program Li.sliiii- 
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Circle 28 on Reader Service card — 



Slaying 
Monsters 
Should Be 
Mostly 
Fun and 
Games 
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Be one of more than 16 million 
alter-egos that your computer can 
generate. Walk into a labyrinth 
filled with traps, treasures and 
monsters. There you'll test your 
strength, constitution, dexterity, 
intelligence . . . against thou- 
sands of monsters in over 200 
cavernsand chambers — growing 
in wealth, power and experience as you progress 
through the four levels of the dungeon. 

Your character will do whatever you want him to do. 
Do battle — in real time — with the likes of giant ants, 
ghouls, zombies. . . Explore the various levels of the 
maze and discover the great treasures within. 

The Game Manufacturer's Association named The 
Temple of Apshai the computer game of the year. 
The Temple is the very f i rst computer game — ever to 
win the Hobby Industry award for excellence. There 
can be only one reason for that: it's a great game. 

So what will you think of The Temple of Apshai now? 
Now that it's even better than ever. With better 
graphics — animated movement — and completely 
new sound effects that make your computer come 
alive and make The Temple even more fun* 

The Temple has a superbly illustrated 

56-page Book of Lore, and your 

ocal dealer has it for the ATARI,* * 

TRS-80.** APPLE,** and IBM** 

computers. 

*lf you already have The Temple of Apshai, you 

can enjoy these great improvements. Just 

send us your original cassette or disk 

together with your check for $5.00 and 

we'll send you the brand new version — 

with better-than-ever graphics and sound. 

"ATARI. TRS-80. APPLE and IBM 

are trademarks of Atari, Inc., Tandy 

Corp.. Apple Computer, Inc., and IBM. 

respectively. 

1981. AUTOMATED SIMULATIONS, 
INC., P.O. Box 4247. Mountain View. 
Ca.. 94040. 




BUSINESS 



Forms Maker 



by Charles Perelman 



Here's an easy-to-use utility that cre- 
ates forms, such as invoices, on the 
Model II screen. With the arrow, tab, 
and repeat keys you can move rapidly 
around the screen placing keyboard 
characters where you want them. You 
can erase or type over any entry, copy 
the form directly to the printer, or save 
to disk for future use. 

Although written in Basic, the pro- 
gram takes advantage of the Model II 
supervisor calls with machine-language 
USR routines. The program was written 
with TRSDOS 2.0. Twenty-two lines 
are available for your forms. Instruc- 
tions appear at the bottom of the 



With USR routines and 
this Basic utility, 
you can create business 
forms on your Model II. 

screen. Use valid TRSDOS file names 
when saving forms to disk. 

Program Overview 

The program is modular and self- 
documenting. USR routines are identi- 
fied with U variables. Lines 220 and 230 
load a Basic patch to implement PEEK 



Program Listing 



10 
2 
30 
40 
100 



****************************** 

FORMS MAKER 

BY CHARLES R. PERELMAN, A PROFESSIONAL 

9777 WILSHIRE, BEVERLY HILLS, CA . 9021 

'****************************** 

110 ' INITIAL SETUP 

120 CLEAR 2000 

130 DEFINT L,M,S,U-Y 

U0 DIM Ul(23) ,U3( 12) ,S(959) 

200 '****************************** 

210 'IMPLEMENT PEEK AND SCREEN PRINTER 

220 FOR X-0 TO 23:READ U1(X):NEXT 

2 30 V-0: DEFUSR-VAR PTR(U1(0)):V-USR(0) 
240 FOR X-0 TO 12:READ U3(X):NEXT 

300 '******************************** 

3 10 'SET UP REGISTERS FOR USR CALLS 

320 U2(0)-15872:U2(2)-84 48:U2(4)-4 352:U2(6 
500 '******************************* 

510 'INSTRUCTIONS 

520 CLS: PRINT"MODEL II REQUIRES FILES TO B 

BASIC. IF YOU": PR I NT"NEG LECTED TO DO TH I 

'SYSTEM', PRESS < ENTER > . " : PR I NT"TH EN TYPE 

AND PRESS <ENTER> TO RESTART." 

530 PRINT:PRINT" IF YOU HAVE OPENED A FI 

ONTINUE. " ; 

540 ZS-INKEYS:IF Z$-"" THEN 54 ELSE IF AS 
550 CLS: PRINT@25, "FORMS MA KER " : PR INT : PR I NT 
E FROM MENU, USE ARROW KEYS AND TAB TO POS 
N SCREEN. TYPE IN ANY KEYBOARD CHARACTER 
560 PRINT"CHANGE BY OVERTYPING OR ERASE WI 
BAR.":PRINT" PRESSING THE <CRTL> KEY AND 

THE MENU. ": PR I NT" <CR TI.xD> SAVES THE SCR 



COR PORATION 
2, 1982 



) -256: U2(8)--13873 



E OPENED WHE 

S, PRESS <BR 

'BASIC FORM 



N ENTERING 
EAK>, TYPE 
SMKR -F: 1' 



LE, PRESS < ENTER > TO C 



C ( Z S ) <> 1 3 TH 
AFTER MA 
ITION.":PRIN 
ON TOP 22 LI 
TH BACKSPACE 
<X> WILL RE 
EEN TO DISK, 



EN 54 
KING CHOIC 
T"CURSOR 
NES ." 

OR SPACE 
TURN YOU T 

AND <CRT1. 

Listing continues 



for reading the screen. Additional ma- 
chine language is read in lines 240-320 
for the screen-to-printer routine and to 
prepare registers for the screen-to- RAM 
and screen-to-disk routines. Data line 
12020 contains the PEEK instructions, 
and line 12030 contains the screen-print 
routine. 

Movement of the cursor with the ar- 
row keys is nondestructive. From the 
top line, the up arrow moves the cursor 
to the bottom of the screen in the same 
column and vice versa with the down ar- 
row from the bottom line. From the 
right margin, the cursor moves down to 
the beginning of the next line. Moving 
backwards, it goes up to the end of the 
previous line. From the right edge on 
the bottom line, the cursor moves to the 
beginning of the same line. Tab erases 
any characters it passes over. 

The error traps go to error-handling 
routines beginning at 10270. When 
working with a form, after pressing 
<CTR L> <P> for printout you must 
turn on the printer to continue with the 
program. 

Forms Maker lets you make master 
forms as needed for reproduction on 
a copier or with a stencil. Revisions 
are simple and efficient with the masters 
on disk.H 

Charles R. Perelman (9777 Wilshire 
Blvd., Beverly Hills, CA 90212) is an at- 
torney, a CPA, and a certified tax 
specialist. 



The Key Box 

Model II 
TRSDOS 2.0 
Model II Basic 
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THE COLORQUEST EXPERIENCE 

For the TRS-80C and the TDP System 100 Color Computers 




Written by K.vki Herrboldt A Tim Nelson 




««*w«viiiiia 



BEYOND THE CIMEEON MOON A real-time science fiction adventure game of mind-Mowing magnitude — staged in deep space on a 
malign, sentient spacecraft. Written in fast machine code with 3-dimensional high-res graphics and sound. Chooee from a myriad of fate*. Survive 
the laser barrage set up by a guantJet of robots bent towards your destruction. 




Kevin Herrboldt ft Tim Nelson 



MB 




&. 



ADVENTURE TRILOGY A Trilogy of quests featuring 3-D high-res graphics in machine code. First comes ritual combat on the WORLD 
UNDER THE CIMEEON MOON, to test your worthiness as a warrior. Once proven, you will be teleported to DAZMAR'S UNDERWORLD OF DOOM to 
search for the Eye of Dazmar. The FORSAKEN GULCH is the final arena, where a wicked idol awaits restoration. 




r 




THE NIBBLER & MS. NIBBLER A fast maze chase game featuring the nibbler man and three bumbling preditors Written in machine 
code and joystick compatible, this fun packed game is enjoyed by all. MS. NIBBLER is similar to THE NIBBLER described above but features a 
different maze and MS. NIBBLER for the ladies. 





p * 






MM. 

V JHff^sjJfliiil 
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COMBAT G AMEPACK 3 action packed games featuring lifelike graphics and sound. EXTENDED BASIC required 2-1-0 TANK COMBAT 

pits two players against each other in 5 different terrains. STELLAR BATTLE lets you pilot a flexwing fighter through deep space fighting dorian 
squadrons. GALACTIC BLOCKADE is a favorite two-player arcade game of speed and skill. 

ORDERING 
ALL GAMES ARE $24.95 for 16K Cassette; $29.95 for 32K Disk. 

Include $3.00 for shipping in the U.S. ft Canada, $6.00 for Foreign orders. C.O.D. add $2.00 

AVAILABLE AT DEALERS EVERYWHERE. IF NOT, ASK WHY! 



VEGAS GAMEPACK The thr.lls of a Las 
Vegas casino at home! Extended BASIC required. 
CASINO CRAPS. 21. ONE ARMED BANDIT, UP 
AND DOWN THE RIVER. A KENO. A bank tracks 
players winnings from game to game 



NELSON 

SOFTWARE 

SYSTEMS 



X 



9072 Lyndale Avenue So. 612/881-2777 



A Division of Sof tlaw Corporation Minneapolis, Minnesota 55420 U. S. A. 



COLOR-STI CK 



X HERE AT LAST' 

Finally an interface for tht Color 
Computer to let you us* the famous 
x ATARI JOYSTICK' 

Just plug it into the joystick port 
and plug the Atari Joystick into it. 
The Color-Stick can iiprove scores 
SIX and mart while Baking saw gates 
■ore exciting and fun to play. 

Color-Stick interface $19.95 each 
or two for $34.95. (less joysticks) 
Atari Joysticks $9.95 each. 

Better Software Company 
P.O. Box 2778 
Greenville S.C. 29682 
(883-295-3648) 

^387 



Add $2.11 per order shipping and 
handling. Ue accept VISA, MASTERCARD 
CHECKS and HONEY ORDERS. 
C.0.0. add $3.88 extra per order. 
S.C. residents add 4H sales tax. 



Color Computer Programs 
From St*r-Kit« 

SPELL 'N FIX — Essential for serious word 
processing! Finds and fixes spelling and 
typing mistakes fast. 20.000* word diction- 
ary can be expanded. Truly professional 
program. $69.29 for RS disk or cassette. 
$89.29 for Flex. 

HUMBUG - The Ultimate Monitor has 37 
commands to enter, examine, start, stop, 
even single-step machine language pro 
grams, and more. $39.95 on disk or cassette 
for 16K or 32K systems. $49 95 for 64K 
systems. 

CHECK N TAX - Set of programs to 
balance checkbook and keep tax data on 
disk. $50. 

REMOTERM - Allows using a terminal to 
give the Color Computer a full 24x80 display 
for serious users or remote operation. 
$19.95. 

LFPR1NT — Permits use of a non-standard 
printer. $19.95 

NEWTALK — Voice output program to 
examine and check memory. $20. 
SHRINK — Our fast version of Eliza $15. 
OXXO - Our fast version of Othello. $15. 
CHECK N TAX requires 32K, all others 
16K. Wc accept cash, check. COO. Visa or 
MC. NY State residents please include sales 
tax. 



Star-Kits 



P.O. Box 209— E 
Mt. Kisco, NY. 10549 
(914)241-0287 

• 432 



Listing continued 

><P> PRINTS HARD COPY . ": PR INT: PR INT"PRESS ENTER TO CONTINUE."; 

570 Z$-INKEY$:IF Z$-"" THEN 570 ELSE IF ASC(Z$)<>13 THEN 570 

6 00 '**************************** 

610 'MAIN MENU 

620 CLS :PRINT@34 0,"MAIN MENU" : PR INT : PR INT" 1 . CREATE NEW FORM":P 

RINT"2. EDIT OLD FOR M . " : PR I NT "3 . RECALL CURRENT FORM FOR EDIT. 

":PRINT"4. END PROGRAM .": PR INT: PR INT"PLEASE PRESS NUMBER FOR CH 

OICE."; 

630 Z$-INKEY$:IF Z$-"" THEN 630 

640 IF INSTR("1234",Z$)-0 THEN L»9 1 1 : M- 1 :G0SUB 10120:GOT0 630 

650 CLS:0N VAL(Z$)G0T0 1020,2020,3020,4 020 

1000 *************************** 

1010 'CURSOR MOVEMENT 

1020 PRINT§1840, "PRESS <CRTL> AND: <X> FOR MENU, <D> TO SAVE TO 

DISK, <P> TO PRINT" ;: PR INT@0,"" ; 
1030 B$-INKEY$:IF B$-"" THEN 1030 

1040 IF ASC(B$)=28 OR ASC(B$)=8 OR ASC(B$)-9 THEN PRINT B$ ; 
1050 IF ASC(B$)-31 AND R0W(Z)=21 THEN L-P0S (Z ) : PR INTgL , "" ; ELSE I 
F ASC(B$)«31 THEN PRINT CHR$(255); 

1060 IF ASC(B$)-30 AND R0W(Z)-0 THEN L- 1680+P0S (Z ) : PR INT0L, "" ; EL 
SE IF ASC(B$)=30 THEN PRINT CHR$(254); 

1070 IF ASC(B$)-29 OR ASC(B$)>31 AND ASC(B$)<128 THEN PRINT B$ ; 
1080 IFR0W(Z)>21 THEN PR INT@l 680 , "" ; :G0T0 1030 
1090 IF ASC(B$)«4 THEN G0SUB 10220:G0T0 1020 
1100 IF ASC(B$)=24 THEN W-1:G0SUB 10320:GOTO 620 
1110 IF ASC(B$)=16 THEN G0SUB I0420:G0TO 1020 
1120 GOTO 1030 

2 000 **************************** 
2010 'LOAD FORM FROM DISK 

2020 PRINT9320, "ENTER NAME OF FILE TO RECALL: ";:LINEINPUT F$ 
2030 ON ERROR GOTO 10270 

2040 CLS:PRINT CHR S (02 ) : 0PEN"I", 1 ,FS : PR INT0184O , "FILE NAME IS: " 
;F$ 

2050 FOR L-0 TO 1680 STEP 80:G0SUB 10520:LINE INPUT! 1 , A S : PR I NT A 
$;: NEXT 

2060 CLOSE:PRINT CHR $ ( 1 ) :GOTO 1020 
3000 *************************** 

3010 'RECALL FROM RAM 

3020 W-2:G0SUB 10320:GOTO 1020 

4 000 **************************** 

4010 'END PROGRAM 

4020 PRINT CHR$(31)+CHR$(26) :M = 3:G0SUB 10120:PRINT CHR$(30):END 
10000 **************************** 
10100 'SUBROUTINES 
101 10 'FLASHING MESSAGES 

10120 E$(1)-"0NLY I TO 4 PLEASE" : E$ ( 2 ) - M FI LE NOT FOUND" : E$ { 3 ) -"B 
YE FOR NOW": E$ (4) -"TURN PRINTER ON" : E$ { 5 )-" IMPROPER FILE NAME." 
10130 PRINT CHR$(02):FOR X-l TO 2 : PR I NTG 1 760 , " *** "+E$(M) + " ***" 
; : FOR Y-l TO 800: NEXT 

10140 PRINT CHR$(25) : PR INTgl 760, SPACES ( 80) ; : FOR Y=l TO 500:NEXT: 
NEXT X:PRINT CHR $ (0 1 ) ; : PR INT(?L , M " ; :R ETUR N 
10200 *************************** 

10210 'SAVE TO DISK 

10220 ON ERROR GOTO 10270 

10230 PRINT? 1760, "ENTER FILE NAME: ";:LINEINPUT F$ : PR INT0 1 760, 

"SAVING FILE " ; 

10240 OPEN "0",1,F$ 

10250 FOR L=0 TO 1680 STEP 80:GOSUB 10 520 : PR I NT# 1 ,AS : NEXT 

10260 CLOSE: PRINTS 17 60, SPACES (80) ; : RETURN 

10270 IF ERR-53 THEN M-2:GOSUB 10I20:RESUME 620 

10280 IF ERR-52 THEN PR INT: PR INT: PR INT"F ILES NOT OPENED WHEN BAS 

IC ENTERED. YOU MUST START PROGRAM AGA IN . " : PR INT"AT TRSD0S READ 

Y, ENTER 'BASIC FORMSMKR -Ft 1"': FOR X-I TO 1 000 : NEXT: SY STEM 

10290 M-5:GOSUB 10120:RESUME 620 

10 300 *************************** 

10310 'SCREEN TO RAM 

10320 Vl-0:U2(I)-94: U2(3)-VARPTR (S(0) ) :IF W- 1 THEN U2(7) — 1 ELSE 

U2(7)-0 
10 330 DEFUSR2-VARPTR (U2 ( ) ) : VI -USR 2 ( ) :RETURN 
104 00 ****************************** 

10410 'EXECUTE SCREEN PRINT 

10420 M-4:G0SUB 10120 

104 30 V3-0:DEFUSR3-VARPTR (U3 (0 ) ) : V3-USR 3 ( ) : CS-INKEY $:R ETURN 

10S00 ***************************** 

10510 'READ SCREEN TO A$ TO SAVE OR LOAD 

10 520 Vl-0:U2(l)-ll:U2(7)-CVI(CHR$(L-INT(L/80)*80)+CHR$(INT(L/80 
) )):U2(5)-204 80:A$-SPACE$(80) : U2 ( 3) -CVI (CHR S (PEEK(VAR PTR (AS ) + l ) ) 
+ CHR$(PEEK(VARPTR (A$)+2) ) ) : DEFUSR 2 -VAR PTR (U2(0)) :V1-USR2(0) :RETU 
RN 

12000 *********************** 
12010 'MACHINE LANGUAGE USR ROUTINES 

12020 DATA -13023,8797,26623,1744 1,8830,26625,-15583,8955,26627, 
14910, 1330, 104, -12255, 8773, 10757, 1769 7, 8779, 107 59, -15583, 8959, 23 
2 59,264 30,-8910,-13990 

120 30 DATA 33, 17 84, -15 08 2, -324 50, -4 5, 2 04 86, 3 34 2, 4 296, 4 559, 80, -16 
103,-4 848,201 



358 • 80 Micro, December 1982 



Scanned by Ira Goldklang - www.trs-80.com 




LARQECAPACITYSYSTEMSLARCECAPA 



This graph was produced with lass than two dozen 
keystrokes on a TRS-80 Model I with EPSON MX-80 
printer plus GRAFTRAX. 

YOU CAN DO IT TOO WITH AUTOPLOT, the 
sensational automatic curve plotter written in BASIC 
+ fast machine language. 

• Plot functions y>ftx), x«f(y), or x-f(v), y-g(v) 

• Plot data from keyboard or disk file 

• Linear or logarithmic presentation 

• Numeric integration or differentiation 

• Automatic scaling and labelling of axes 

• 4 different print sizes and formats 

• Many more features 

AUTOPLOT for TRS-80 

(Model I or III with 48k, 1 disk drive) 

on disk with 40 page manual $79. 50 

AUTOPLOT for LNW-80 

( + Hi-Res video graphics) $99.50 

NEW AUTOPLOT for CQP-115 

Color Graphics Printer $69.50 

CA. residents add 6% sales tax 

Phone orders, VISA and MASTERCARD welcome 

MENLO SYSTEMS 

3790 El Camino Real, Suite 221 
Palo Alto, CA 94306, Tel. (415) 856-0727 " t2t 

TRS-80. CGP-11S TH o< TlflOy Cecp. MX-S0. GRAFTRAX. TM o« EPSON Inc 



SMALL & (REQ. 32K 2 DISKS) 

LARGE CAPACITY 
m PROGRAMS M ||| 

ON TDOS (A MINI DOSPLUS) 
ACCOUNTS RECEIVABLE 

5000+ CUSTOMERS 
15000+ TRANSACTIONS 

BALANCE FORWARD 99 TRANSACT CODES 
30-60-90-120 AGED STATEMENTS SHOW 
DATE/INV*/DESCRIP/AMT (WITH AGEING) 
SELECTIVE FINANCE CHARGES « RATES 
FAST ENTRY POSTING W/AUDIT REPORT 
SUB-ACCTS 'r OF CREDIT LIMIT DATE OF 
LAST PAYMENT SALES ANALYSIS SPECIAL 
90 DAY ACCOUNTS LABELS 

$100.00 

GENERAL LEDGER 

400+ ACCOUNTS 
5000+ TRANSACTIONS/MONTH 
NO OTHER SYSTEM OFFERS... 

t REPORT FLEXIBILITY/CAPACITY 
t DEPARTMENT P & L (UP TO 5) 
t UNLIMITED ACCOUNT CATAGORIES 
t STATEMENT OF CHANGES (ASSETS) 
t PERCENT PSL comparison 

100"'r sales MTDvsYTD 

or net sales QTDvsYTD 

or total Exd MTDvsQTD 

$150.00 

TEST SETS $50.00 MANUALS $30.00 
HOLMAN OP SERVICE 
2059 WEST LINCOLN 3.00 S&H 

OROVLLE CA 95965 VISA OR MC 
916-533-5992 COD* 

*COD(CASH CERTIFIED CK MONEY ORDER) 

-355 
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Pep up your UN€ INPUT 
routine with €-Z UN€ INPUT. 

The contents of avanoble ore 
not destroyed irUN€ INPUT is 
terminated immediately. Rli 
ofthe€DIT subcommands con 
be used to edit them. LIN6 
INPUT can be terminated by 
the up arrouu, doiun orroiu or 
enter key and the terminating 
key can be tested to alter 
program control. 

ONLY $14.95. Suppied on 
cassette for the TRS-80 
Models I & III Disk Basic 
systems. Specify RAM 
version ujhen ordering. Send 
check or money order to: 
Howard Bowe 
1 6 Lombard! Place 
flmituville, NV 11701 




TRS-80 MODEL II 

£Lf3000 



TRS-80 MODEL 16 

128-K$ 



8 4 MEGABYTE HARD DISKS (PRIMARY UNIT)$4000 



^spHE^ y 



WE ALSO CARRY EPSON AND OKIDATA 
PRINTERS. XEROX 820 AND 

ALTOS COMPUTERS. 
NO OUT-OF-STATE TAXES. 

Sold with the manufacturer s limited warranty Copies 

of such warranty may be obtained for review from 

Perry Oil and Gas Co 



WE ACCEPT 

CERTIFIED CHECKS. 

CASHIERS CHECKS 

AND MONEY ORDERS 




1 90O26-10628 1 9 

DISK RS-232 TAPE VERSION 

(ALL RADIO SHACK EQUIPMENT) 



16-K $ 

TRS-80 COLOR 26-3004 

|| 16-k $425 32 " K $ 



309 



26-3002 



26-3003 



COLOR DISK DRIVES 

$ 475 12-3*315 



T.M.TANDY CORP 



PERRY OIL & GAS INCORPORATED 

Dept. No. A- 1 1 37 NORTH MAIN ST , PERRY. MICHIGAN 48872 

PHONE (5171 625-4161. MICH " 124 

FOR OUR PRICES. PLEASE CALL TOLL FREE 1 -800-248-3823 



*■ See Lis i of Advertisers on Page 45 1 
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TUTORIAL 



The Key Box 

Model I or III 

16K RAM 

Cassette or Disk Basic 



Your routines can become efficient. 



Screen Strings 



Don Davidson 
2413 Main Road 
Silver Creek, NY 14136 



String variables play an im- 
portant role In almost every 
program. Learn how your micro 
handles the strings and you can 
make your routines more efficient. 

String Variables 

When a string variable is put 
into a Basic program, the com- 
puter's type, name, length and 
address are stored in memory in 
the variable list table just above 
the program. Each string record 
occupies six bytes in the table 
(Fig. 1). The decimal values in the 
figure are for A$. five bytes long, 
at decimal memory address 
17143 (247 + 256*66). The values 
for any variable can be found us- 
ing the VARPTR command. 

Enter the short demonstra- 
tion in Program Listing 1. Line 30 



finds the location of the record 
for A$ in the variable list table. 
Line 40 gets the length of the 
string, 50 obtains the address of 
the string and 70 converts this 
address to a decimal number. 

Run the program. Note the ad- 
dresses of the string and its 
variable pointer. The string Is 
located about fourteen bytes 
above the beginning of the pro- 
gram. The pointer is about 250 
bytes above that, depending on 
your spacing. 

Edit line 10 to read: 10 A$ = 
"ABCDE" and run it again. The 
string length changes to five, as 
you might expect. The string ad- 
dress stays the same, while the 
pointer address increases by 
two (we used two more bytes in 
the program). 

Enter as a direct statement 
(no line number): POKE VP,3: 
PRINT A$. 

The result is ABC. We changed 
the length of the string by chang- 
ing the number stored in the ad- 
dress found by VARPTR. Next, if 



the LSB (least significant byte) of 
the string address is less than 
254, try another direct statement: 
POKE VP + 1 , LSB + 2: PRINT A$. 

This adds two to the address 
in the table telling where the 
string is stored. The result should 
be CDE. So, the computer can be 
told the length and address of 
any string by POKEing the values 
into the variable list table. 

One more point. Change line 
10 again: 10 A$ = CHR$(65). 

This time A$ = A, but its ad- 
dress is the last byte in your 
computer's memory. Any time a 
CHR$ or STRINGS is used in a 
string, or when two or more 
items are combined with a + to 
form a string, the computer as- 
sembles it in reserved string 
space in high memory. 

Try: 10 FOR I = 65 TO 69: A$ = 
A$ + CHR$(I): NEXT. 

The location of A$ will be 20 
bytes below the end of computer 
memory. What is in those last 
twenty bytes besides our 5-byte 
string? We can PEEK them 



VAHOTR R£-jRNS T "'S ADDRESS 



lD lH \E\ 13 H 



CODE 13 IS STRING VARIABLE) 

SECONO CHARACTER OF STRING NAME 

FIRST CHARACTER OF STRING NAME 

STRING LENGTH 

LEAST SIGNIFICANT B^Tf OF STRING ADDRESS 
MOST SIGNIFICANT BYTE OF STRING ADDRESS 



Figure 1 



to find out. But wait a minute! AS 
already points to the beginning 
of the 20 bytes. It is simpler to 
use a direct statement again: 
POKE VP,20:PRINT A$. 

The result is ABCDEEABCD 
DABCCABBAA. 

Reading from right to left, the 
computer interpreted CHR$(I), 
put it in memory, then added it 
to the existing A$, which it also 
put in memory. It repeated this 
for five loops, each time using 
the next lower space in the re- 
served string area specified by 
the CLEAR nnn statement. In 
this instance, we did not reserve 
any, so the computer set aside 
50 bytes for us. 

Defining a Screen String 

The video screen is memory 
mapped in addresses 15360- 
16383: a string can be created in 
screen memory. Make the fol- 
lowing changes in the program 
and run it. 



10 A$. -' 

35 POKE VP.64: POKE VP* 1,0: POKE 

VP ♦ 2.60 
80 PRINT A$ 



Line 10 creates A$ in the 
variable list table. Line 35 makes 
it 64 bytes long, beginning at the 
screen's upper left (0 + 256 * 60 
= 15360 decimal). Now any- 
thing on the first line of the video 
screen is A$ and is printed. To 
show this more vividly enter: 
FOR I = 1 TO 15:PRINT A$;:FOR 
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J = 1TO200:NEXT:NEXT 

As the screen scrolls, what- 
ever moves up to the first line 
becomes A$. 

Such a string can be made up 
to 255 bytes. It can be put any- 
where on the screen as long as 
the whole string is within the 
limits of video memory. 

Screen Strings for a Text Editor 

To show the method's poten- 
tial, consider a Basic text editor. 
Text editors or word processing 
programs, handy for written com- 
munication, are very expensive. 
The basis of their operation is 
represented in this very simpli- 
fied routine: 



10 REM 

20 l$ = INKEY$:IF»= ""THEN 20 

30 REM * TESTS FOR CONTROL 

CHARACTERS HERE 
40 TEXTS - TEXTS ♦ IS 
50 PRINT IS:: GOTO 10 



The program works well until 
it unexpectedly stops. If you 
were not watching the screen 
when it happens, you may lose a 
few words. 

Why? Line 40 works like the 
loop in the demonstration pro- 
gram using 20 bytes of memory 
to create a 5 byte string. A 
60-character line uses 1890 



bytes (nV2 + 1.5 x n), leaving 
more than 1800 garbage bytes. 
When the reserved string space 
is full, the computer has to stop, 
sort out extra debris and rear- 
range current strings to make 
room for more before resuming 
its task. 

By establishing a screen 
string for the video line where 
the input will be, we can delete 
line 40 and get TEXTS when the 
line is finished. With this meth- 
od we create only 60 extra bytes 
for a 60 character line— one for 
l$ each time a character is 
entered. You may wonder about 
all the times the program loops 
through line 20 when there is no 
input. The interpreter reestab- 
lishes the address of l$ each 
time, even though it does not 
change. Since its length is zero, 
no string storage is used. 

The reduction from 1800 to 60 
bytes is a big improvement, but 
we can go further. A character 
picked up by IN KEYS becomes 
IS and is stored in the next free 
space of the string storage area. 
The computer keeps track of the 
next byte in addresses 16598 
and 16599. With our routine, 
each time another character is 
entered the address stored in 
16598 is decremented by one. 



DEMONSTRATION PROGRAM 




5 CLS 




11 AS-*ABC* 




2f T-24: PRINT "AS- " A$j 




31 VP- VARPTR(AS) : PRINT TAB(T) "ADDR. OF VAR . PTR. -" VP 




41 PRINT 'LENGTH OF AS-IS* PEEK(VP)s 




SI LSB-PEEK(VP+1) : MSB-PEEK (VP+2) 




6i PRINT TAB(T)"ADDR. OF STRING: LSB-' LSB ", MSB-" MSB 




71 DEC" LSB ♦ 256»HSB: PRINT TAB(T) ■DECIMAL ADDR. OF STRING - 


' DEC 


91 LIST 1I-7I 




95 ■ 




Program Listing 1 





S \ 


VE L RESTORE THE CONTENTS OF A SCREEN 




Save The Screen 


97 


•S ■ HOST SIGNIFICANT BYTE OF SCREEN ADDR. 
AS- SCREEN STRING INCLUDES 3 SCREEN LINES ♦ 63 BYTES OF 4TH LINE 
BS[«-3)- SAVES ALL BUT LAST BYTE OF EACH QUARTER OF THE SCREEN 
P(I-3I- LAST BYTE OF EACH QUARTER OF THE SCREEN 


111 


S-61: AS-": VP«VARPTR(AS) t POKE VP,255s POKE VP+1,1: FOR I-l 




TO 3: 

POKE VP+2,S: B$(I)-A$i S"S+li P(I) -PEEK(S»2S6-1) i NEXT: RETURN 




Restore The Screen 


1(7 


•S - LAST BYTE OF EACH QUARTER OF THE SCREEN 


111 


CLS: S-15359: FOR I-l TO 3: PRINT BS(I)j: S-S+256: POKE S,P(I): 
IF I<3 PRINT: NEXT ELSE NEXT: RETURN 


195 


■ 




Program Listing 2 



NO BREAKS 



SLAVE DRIVER® KEEPS YOUR PRINTER WORKING 
WHILE YOU AND YOUR COMPUTER DO MORE 
IMPORTANT |OBS . . . 



£&ato 



'ffce. 



**L 



ir «V 



COMPUTERS ARE FAST . . . PRINTERS ARE SLOW. That's a 
problem more people are realizing every day as they wait for 
the slow printer to finish before they can use the fast 
computer again. Technology has come to the rescue by 
designing an electronic device that takes the output of the 
fast computer fast and feeds it to the slow printer slowly, as 
the printer needs it. It's called a printer buffer. 

SLAVE DRIVER 6 is an inexpensive, universal printer buffer. 
It can be used with all popular micro-computers that have a 
Centronics parallel port to the printer. SLAVE DRIVER® 
receives information from the computer at up to 4000 
characters per second and holds it until your printer can 
handle it. Your SLAVE DRIVER® is controlled by a custom LSI 
and uses standard Centronics signals. 

60 SECOND INSTALLATION 

SLAVE DRIVER® is designed to be plugged directly into the 
input port of the Epson and other similar printers. It is 
powered by the printer or an AC adapter. Other Centronics 
compatible printers can be attached using the adapter cable. 
Installation can be completed in less than 60 seconds. Just 
plug it in. SLAVE DRIVER® takes up little space; about the 
size of a paper back book. Such a little fellow for such a big 
job! 

EASY USE AND FLEXIBILITY 

SLAVE DRIVER® is completely transparent to the user, no 
machine language programming to learn, no control codes 
to send, no programs to change. The buffer-full light and the 
reset switch give full flexibility of operation. List your 
program to SLAVE DRIVER®, return to programming while 
the listing prints. Dump a line of data to SLAVE DRIVER® and 
compute the next record while the data prints. Send 
complete reports to SLAVE DRIVER®, make disc back-ups, 
even turn off the computer and go home. SLAVE DRIVER® 
oversees the printer until all the work is done. 

JUDGE FOR YOURSELF 

Each SLAVE DRIVER® comes complete with interface cable, 
power supply, instruction manual, 30-day money-back 
guarantee and limited one year warranty. To order send 
your check or money order to the address below: $189.95 for 
the expandable 8K model (holds approximately a 4-page 
letter); $289.95 for the 64K model (holds a 32-page double- 
spaced report). Please include $3.50 for shipping. Visa and 
MasterCard users may phone 703/228-5800 to hasten your 
order. (VA residents please add 4% sales tax) 

IN STOCK AND AVAILABLE NOW 

FREEDOM MICROtYSTfMS ^ 

Star Route 2 * Wytheville, VA 24382 



703/228-5800 



oooooooooooooooooooooooooooooo 
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„ EPSON 

E$ MX-80 AND MX-100 

OWNERS 



MXPLUS ™ GIVES YOU 
CONTROL OF YOUR PRINTOUT 

• SELECT CONDENSED, BOLD, OR WIDE 
PRINT INSTANTLY USING THE PRINTER 

PANEL BUTTONS. |N0 COMPTER CONTROL CODES REQUIREO) 

• ACTIVATE PERF-SKIP AND LEFT MARGIN 
INDENT TO AUTOMATICALLY FORMAT YOUR 
PRINTOUT INTO NEAT PAGES THAT CAN BE 
PUNCHED AND BOUND. 

MXPLUS™ INSTALLS IN MINUTES, NO SOLDERING! 

MXPLUS IS A PLUG-IN MODULE FOR ALL EPSON MX-80/100 
PRINTERS AND IS COMPATIBLE WITH ALL INTERFACE BOARDS. 
MXPLUS HAS A 1 YEAR WARRANTY. 



ORDER TODAY 

ORDERS CALL 24 HR 800-835-2246x441 

INFORMATION CALL 213-969-2250 



ORESSELHAUS COMPUTER PRODUCTS 

BOX 929 

AZUSA. CALIFORNIA 91702 



S49.95 

P0STPAI0 CALIF A00 6'\ 

SAME OAY SHIPPING 

WITH MC/VISA 



BASF 6106A 
DISK DRIVES 



Reconditioned to new unit performance, 40 track, 12 M Sec T-T. SS. SO or DO. 
Compatible with TRS 80* MOO I. Ill and color also Heath 8/9 computer 

BARE DRIVE $124.95 

2 DRIVE CABLE 21.00 

4 DRIVE CABLE 32.00 

TECH MANUAL 10.00 

Sold only with drive) 

DUAL P/S W/CASE 74.95 

DUAL P/S (BARE) 59.95 

SINGLE PIS W/CASE 44.95 

SINGLE P/S (BARE) 34.95 

Cases finished in black wrinkle. Color options available, add $2.00. Specify 
color: Tan, Blue. Green, Silver. 

DUAL P/S W;CASE 54.95 

SINGLE PIS W/CASE 34.95 



POWER SUPPLIES 



POWER SUPPLY KITS 



BASF DRIVE REPAIR 

3S.OO PLUS PARTS 

90DAY GUARANTEE 



Terms: 

Add 3% Visa/MC, COD. M.O. cashier's check, personal checks delay shipment. 
Send to: COMPUTER PERIPHERAL RESOURCES 

(C.P.R.I 
P. 0. BOX 834, OAK HARBOR. WA 98277 



or PHONE (206) 679 4797, ORDER NUMBER 



■ W\ 



All shipping UPS ground, western states add $4.00. midwest and east add 
$8.00. Washington residents add 6°g sales tax. 



1$ Is used to compare to con- 
trol codes and take proper ac- 
tion, or to print It on the screen. 
The current 1$ then becomes 
garbage. If only we could use 
the same location to store 1$ for 
the whole line. 

After the string location is es- 
tablished and the program is 
ready for a line of input, get the 
contents of the least significant 
byte of the string storage ad- 
dress with M - PEEK(16598). 
Then change line 10 in our sim- 
plified routine to 10 POKE 
16598.M. 

This will cause the same ad- 
dress to be used each time. Ex- 
cept for the rare instance where 
the first letter of a line is the last 
available byte of string storage, 
there is no pause during entry as 
there is no change in total string 
storage until the line is finished. 
This routine is also faster than 
the original, since no string con- 
catenation takes place during 
input. 

Another problem with Basic 
word processors crops up when 
they reach their specified line 
length in the middle of a word. 
The slight delay while shifting a 
word to the next line sometimes 
causes the loss of one or two let- 
ters. This is resolved by writing a 
short machine-language sub- 
routine into the input routine so 
characters typed beyond the 
line length get a short beep from 
the amplifier. Input continues 
uninterrupted until a space is 
typed. The last word is shifted to 
the next line. 

To make or revise your own 
word processor, use these hints 
on screen strings. 

First, establish the screen 
string. POKE the desired line 
length plus twenty into the 
VARPTR to allow for overrun at 
the end of the line. Print the line 
number if desired. Then PEEK 
locations 16416 and 16417 for 
the current cursor location. 
Transfer these to the address of 
the screen string in the variable 
list table (in VARPTR + 1 and 
VARPTR + 2). The screen string 
will start at the cursor location. 
An input routine similar to the 
one in Program Listing 3 (lines 
220-260) is used. 

Be sure to have your program 
check the cursor location for 
each line. If it is greater than 



16319, PRINT @ 1023, " " to 
scroll the screen. Then redeter- 
mine the cursor location. This 
prevents the screen from scroll- 
ing during input. Scrolling would 
move your input out of the 
screen string location. 

To further reduce time-con- 
suming string manipulation, ex- 
change pointers instead of 
strings when moving lines. 

By now, your mind is probably 
running away with Ideas for in- 
cluding this method in some of 
your own programs. Here are a 
few short applications you may 
find useful. 

Saving a Screen Display 

Sometimes it is convenient to 
save the contents of a screen 
display for recall later in a pro- 
gram. In Listing 2, line 100 is a 
one line subroutine to save the 
screen. Line 110 is another one- 
liner to restore it. 

Subroutine for String Input 

You have a full well-formatted 
screen. You need an input from 
the keyboard. But when you 
press enter at the end of the in- 
put, it erases the next line on the 
screen. Or someone uses a com- 
ma or colon in their input; the 
computer only takes part of the 
input and prints ?Extra Ignored 
on the next line. The unemo- 
tional computer can ignore this, 
but it ruined your nice display. 
Listing 3 lists the essentials of a 
subroutine to prevent this prob- 
lem. Now, in programs for things 
like data management requiring 
a lot of input, the program will 
not hang In the middle of a line. 

Saving Disk 
Directories In an Array 

Program Listing 4 gives a rou- 
tine for putting disk directories 
into a string array for NEWDOS 
or other systems allowing DOS 
commands from Basic. It is 
handy for making an index of 
your programs. 

A Block of Screen Strings 

Program Listing 5 is a short 
routine for creating a block of 
screen strings. Its use can save 
a portion of the screen, compare 
current screen graphics with the 
originals, or output selected 
lines or line segments to a 
printer. ■ 
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SPECTACULAR GAMES 



For TRS 80 

COLOR COMPUTER 




If not available at your local daalar aak why not and 

Call Toll Free 800-426-1830 

Excapt WA.,AK„ HI., (8:00-4:00 Mon.-Frl.) 



RAINBOW 



CSBTIflCATlO* 

UAL L /A 
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MODEL II USERS 
Access DEC with 

REFORMATTER 



ReformaTTer conversion software lets 
you read and write DEC RT- 1 1 single 
density diskettes on your Model II 
under TRSDOS or CP/M. 

ReformaTTer is ideal if you want: 

• Access to large system data bases 

• Distributed data processing 

• Offline program development 

• Database conversion 

With ReformaTTer, you have: 

• Automatic file conversion between 
Model II and DEC RT-1 1 single 
density diskettes. 

• Complete DEC file reorganization 
and maintenance facilities. 

• Access to RSTS/E, RSX1 1-M and 
VAX/VMS via DEC resident utilities 
reading RT- 1 1 . 

Customers like Memorex, Upjohn, 
Arthur Young & Co., the (J.N., Stan- 
ford CI., and Sandia Labs enjoy the 
benefits of ReformaTTer. So can you. 
Specify the version of ReformaTTer for 
your operating system: 

TRSDOS - DEC 
CP/M ~ DEC 
TRSDOS version runs on one drive. 
CP/M version requires two. 

Other Model II versions of Refor- 
maTTer conversion software include: 
TRSDOS «* CP/M 
TRSDOS ~ IBM* 
CP/M - IBM 
Order ReformaTTer today at $249 
each version. 

'Available exclusively 

from Radio Shack, 

Cat. '26-4714. 

• 380 

(415) 324-9114 

TWX: 910-370-7457 

467 Hamilton Ave., Suite 2, Palo Alto, CA 94301 

!— -- ------------------- - — 

Please send complete information on the follow-l 
ing versions of ReformaTTer. 

Please send ReformaTTer TRSDOS—DEC 

CP/M-DEC. 
My check for S249 (plus S5 shipping. Cal res. 
add 6' 2% sales tax). 

Charge to my Visa MasterCard. 

* exp. date 




Signature 

Name 

Company 

Street 

City 

State 

Mail to MIcroTech Exports. Inc. 

467 Hamilton Ave.. Palo Alto, CA 94301 
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Zip 



SUBROUTINE 



( Variables L t S tc 



STRING 



INPUT 



supplied by the calling program ) 



SO 



AS- 



2ie 

220 
233 

240 
25B 
260 
295 



MAX. LENGTH OF INPUT STRING 

SCREEN LOC. ( 8 TO 1823 ) 

SCREEN ADDRESS OF S 

LEAST SIGNIFICANT BYTE OF SC 

MOST SIGNIFICANT BYTE OF SC 

COUNT OF STRING LENGTH 

ADDRESS STORING LSB OF NEXT AVAILABLE SCREEN ST0R. ADDR. 

CONTENTS OF H 

SCREEN STRING 
BS-INPUT STRING RETURNED TO THE PROGRAM 
K»0: AS-": M-16598: V-VARPTR(AS) : SC-S+15360: SM-INT(SC/256) : 
SL-SC-SM«256: POKE V,L: POKE V+l.SL: POKEV+2.SM 

FOR I»S TO S+L-l: PRINT e I, CHRSU4);: NEXT: PRINTeS,;: HC-PEEK(M) 
POKE M,MC 

IS-INKEYS: IFIS-" OR IS-CHRSU0) OR IS-CHRS(26) OR IS"CHRS(27) 
THEN 230 ELSE IF IS-CHRS<13) THEN BS-LEFTS(AS.K) : RETURN 
IF IS-CHRSI8) OR IS-CHRS(24) THEN K-K-l ELSE K-K + l 
IF K<L PRINT IS;: GOTO 226 
IF K-L PRINT CHRSU5) I$|l GOTO 221 ELSE 220 



Program Listing 3 



LOAD 



DIRECTORIES 



INTO 



T R I N G 



ARRAY 



309 
310 

320 
330 
340 
350 
360 
370 
330 
395 



—1 



•BS ARRAY SAVES ENTRIES 

A$- SCREEN STRING 

ES- DISK I.D. 

I - ENTRY COUNTER 

SL- LEAST SIGN. BYTE OF SCREEN ADDR. 

SM- MOST SIGN. BYTE OF SCREEN ADDR. 

K « GETS LENGTH OK ENTRY 
CLEAR 4800: CLS: DIM B$(3BB): AS-*": V-VARPTR(AS) : POKE V,13: 
PRINT"(IF NO MORE DISKS TO BE LISTED, ENTER 'NONE'.)*! 
INPUT-ENTER I.D. NO. OF DISK WHICH YOU HAVE INSERTED" ; ES 
IF ES-"NONE" THEN 37B ELSE SL-108: SM-6B: CMD "CIR" 
I-I+l: SL-SL+2"! IF (SL+4) /64-INT( (SL+4) /64) THEN SL-SL+4 
IF SL>255 THEN SL-SL-256: SM-SM+1 

POKE V+l.SL: POKE V+2.SM: K-INSTR(AS," "): IF K-l THEN I-I-l: GOTO 311 
BS(I)-LEFTS(AS,K-1)+STRINGS(15-K,32)+ES: GOTO 33B 
REM * BS ARRAY NOW CONTAINS THE DIRECTORY ENTFIES • 
REM * PUT SORT ROUTINE HERE • 



Program Listing 4 



CREATE 



BLOCK 



SCREEN 



STRINGS 



N 



SCREEN LOCATION OF 1ST STRING (B TO 1B23 ) 
LENGTH OF STRINGS 
NUMBER OF STRINGS 



4BB DIM AS(N-l) : SC-S+15296: SM-INT(SC/256) : SL-SC-SM*256 
411 FOR I- 8 TO N-l: A$(I)-"": V-VARPTR ( AS ( I ) ) : 

SL-SL+64: IFSL>255 THEN SL-SL-256: SM-SM+1 
42B POKE V.L: POKE V+l.SL: POKE V+2.SM: NEXT: RETURN 

SK i ••••«•••• • ••••■■•••• ■ ■ ■ ■ • ■ • ■ ■ 

End of Routines for article 

Following are Teats to check out SCREEN STRING Routines 



710 

720 

725 
730 
740 

75B 
76B 

770 
795 
8BB 
805 

eia 

620 
822 
325 
630 
840 
85B 
875 
),: 
895 



• ■ ■ . ■ TEST FOR SAVE - RESTORE SCREEN ROUTINE - - - - 

CLEAR120B: CLS: S-15423 

Fill The Screen 
FOR I- 65 TO 80: PRINT STRINCS(63 ,1) j : POKE S.I: S-S+64: 
IF K8B PRINT: NEXT ELSE NEXT 
GOSUB IBB: S-459: FOR 1-1 TO 3BB: NEXT 
FOR I-B TO 2: PRINT* I*64+S .STRINGS ( 48 , 32) : : NEXT 
PRINT? 529, "PRESS ENTER TO CLEAR SCREEN" ;: INPUTE 
Restore The Screen 

CLS: PRINTS 529, "PRESS ENTER TO RESTORE SCREEN" ;: INPUTE 
GOSUB 118 

FOR I-1TO 488: NEXT: PRINT«384 , jCHRS ( 2BB) ; : PRINT»384 , : : END 
....... TEST FOR STRING INPUT ------- 

CLEAR 5BB: CLS: P-512 

PRINT#P,CHRS(31) » 

INPUT'INPUT SCREEN LOCATION (512 TO 1BB6)";S 

INPUT'MAX. LENGTH OF INPUT STRING";L 

IF S+L+7 >1023 PRINT'RUNS OFF BOTTOM OF SCREEN.": GOTO 818 

PRINTeP,CHR$(31) ; 

PRINTSS, "INPUT: *»: S-S+7: GOSUB 288 

PRINT CHRSI15) ;: N-N+l: PRINTS N*64 , "BS-"CHRS(34 i BS;CHRS(34) ; : GOT08B5 

END 

REM TO TEST DISK DIRECTORY ROUTINE, ADD LINE 398 FOR J-0 TO I : ? BS(J 

NEXT: END 



TEST 



FOR 



BLOCK 



F 



STRINGS-- 



900 CLEAR1000:CLS:INPUT"LOCATION OF 1ST STRING (0 TO 1023) " ; S 

910 INPUT'LENGTH OF STRINGS'jL 

920 INPuT'NUMBER OF STRINGS';N 

925 DIMBS(N) :CLS: FORI -65T078: FORJ-0TO63STEP4 : PRINTUSING'M I "; J;CHRS(I) ; : NE 

XT: NEXT 

927 INPL'T'PRESS ENTER TO PRINT BLOCK OF STRINGS" iZ 

930 GOSUB4B8:FORI-BTON-l :BS( I) -AS(I) :NEXT 

940 CLS:F0RI-8TON-l:PRINTBS(I) :NEXT 



Program Listing 5 



Scanned by Ira Goldklang - www.trs-80.com 



Announcing 



STOCKVUE 



The first comprehensive "what if" program designed 
just for the stock market investor. 

STOCKVUE confers enormous decision-making ability to anyone 
who trades in stock and/or options. 

Basically the program provides, in spread sheet format, calculations 
of dividends, interest (margined trades), trade commissions (based 
on user's choice of full-service or discount broker), and exact open- 
ing cost according to SEC rules on margin requirements. 

You provide information related to the opening trade plus a couple of 
hypothetical figures: a future date for closing the position and a likely 
price for the stock on that date. The program quickly posts all the 
details and the bottom line— net return on investment. 

Then other variations are easy to consider, just by moving to the in- 
put variable of your choice and changing it. STOCKVUE instantly 
recalculates and displays the new answer— like VISICALC! 

Versions available: IBM PC. TRS-80 III, CP/M. Price $129.95, tax- 
deductable. VISA and MasterCard welcome. 

Other programs available from Star Value Software: OPTIONVUE— 
for trading option spreads, straddles, and combinations; OPVALU— 
for assessing the fair market value of call and put options. 

Call or write for more information: 

mm wmme m^mmm 

12218 Scribe Drive, Austin, TX 78759 

Phone 512/837-5498 „346 



stOTiasm 



i 



PACKER Machine language program that edits all or part 
ot your Basic program to run taster save memory or 
ease editing The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic inserts spaces and renumbers lines 
SHORT— deletes unnecessary words spaces and REM 
statements PACK— packs lines into maximum multiple 
statement lines including all branches MOVE— moves 
line or blocks ot lines to any new location on program On 
2 cassettes lor 16K 32K & 48K 
For TRS-80 Mod I or ill Level ll or Disk Basic . S29 95 
SYSTEM TAPE DUPLICATOR Copy your SYSTEM format 
tapes Includes verity routines The Model III version 
allows use ot both 500 and 1500 baud cassettes speeds 

For TRS-80 Model I or III Level II S15 95 

CASSETTE LABEL MAKER A mini word processor to print 
cassette labels on a line printer Includes 50 peel and - 
stick labels en tractor teed paper 

For TR-80 Model I ot III Level II & Printer Si 1 95 

PRINT TO LPRINT TO PRINT Edits your Basic program in 
seconds to change all Prints to L Prints (except Pnnt@ or 
Pnnt»i or LPnnts to Prints Save edited version 

For TR-80 Mcdei I or III Level ll $12 95 

FAST SORT ROUTINES tor use with Radio Shacks 
Accounts Receivable Inventory Control l and Disk 
Mailing List Systems tor Model I Level ll Sorts In 
SECONDS 1 Ycu ll be amazed at the time they can save 
Supplied on data diskette with complete instructions 

FAST SORT tor Accounts Receivable S19 95 

FAST SORT tor Inventory Control I S19 95 

FAST SORT tor Disk Mailing List ispecify data diskette ot 

cassette tor t drive systemi S14 95 

ALL THREE ROUTINES S44 95 

Prices Subject to change without notice Call or write tor a 
complete catalog Dealer inquiries invited VISA and 
Masterchatgt accepted Foreign order in US currency 
only Kansas residents add 3*1 sales tax 
On-I ne catalog in Wichita FORUM-80 316-68221 13 
0' can our 2~ hour phone ' 3 1 6> 683-4811 or writi 
COTTAGE SOFTWARE .„ 
614 N HARDING 
WICHITA KANSAS 67208 
TRS-80 s a trademark ot Tandy Corporation 



□ 



TIRED OF NO DISK SOFTWARE? 



□ 



TRS-80 




Flexplus 

Compatible 

Software 



FLEXPLUS DOS 



Sleuth 
allows 



hich 
dis 



TOLL FREE 
ORDERS ONLY 

800-426-1830 

EXCEPT WA. HI. AK 

SPECTRAL 
ASSOCIATES 

145 Harvard Ave. 

Tacoma, Washington 98466 

(206) 565-8483 

WRITE FOR COMPLETE 
CATALOG 

ADD }% FOR SHIPPING NO COD 

VISA OR W ASTERCH ARGE ACCEPTED 



Disassembler A progra 
to e*amme modify 
assemble obiect program files on disk or in 
memory on 6809 systems Will convert an 
object file in RAM to a le»t file on dish 

Tabularasa (Electronic spread sheen These 
programs enable the user to generate and 
maintain tabular computation schemes pro 
vidmg a simple user interface and sophnti 
cated report generation 

Cross Assembler A set of modules for 
6800/1 6805 6802 8080/5 and Z 80 
micro processors which will enable the user 
to convert a master assembly module to 
assemble code for any of the above micros 

PASCAL 



FLEXPLUS s a powerful easy to use disk operating system Spectral Associates has adapted 
TSC s FLEA to the best DOS complete* compatible wttSi Radio Shack software lor use on the 
Color Computer Eliminate the need for Radio Shack s TRS DOS use FLEXPLUS with 
Editor Assembler and haw the options ot a full range of utilities FLEXPLUS works on the 32K 
Radio Shack disk system with 64K memory chips wth a M.gh Resolution multi screen formal that 
supports a 24 kn* bv 51 character display' Also included art special enhancements to Radio 
Shack s Disk system when you are running FLEX with sing* or double vded single or double 
density 35 40 and 80 track dnves 

Advantages of FLEXPLUS are: 

• Best price anywhere 

• Easy start-up — just type "RUN FLEX* 

• Allows you to save RS compatible disk files from FLEXPLUS 

• All FLEX compatible software will run including INTERRUPT 
DRIVEN SOFTWARE 

• NO HARDWARE MODIFICATIONS NEEDED 

• Warranty will not be voided — no need to open computer 

• Wide range of available software 

• Requires Supercharger board 

• *1 49 95 for FLEXPLUS. Editor/Assembler and Supercharger 



AVAILABLE ON DISK: 

• Editor Assembler 

• Super Monitor 

• Color Text Star Word 
Processor 

• Sound Source 

• Compuvoice 



Call or write us for price information 
and for a complete list of Fle«plus 
Compatible Software 



SUPERCHARGER - Allow machine language access 

to all 64K RAM in a Series E PC board 

No hardware mods $39.95 

DISK BASED EDITOR/ASSEMBLER MACROS 

CONDITIONAL ASSEMBLY • will work with Super 

charger $49.95 



FANTASTIC BARGAIN 

FLEXPLUS. Editor/Assembler and Supercharger 

ALL FOR ONLY $149.95 

^ 119 



□ 
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TUTORIAL 



How they work for Fortran and Basic. 



Boolean Logic Operators 



John Crew 

1 106 Karin Drive 

Normal, IL 61761 



The Level II Basic reference 
manual mentions only brief- 
ly that numeric variables (in- 
teger, single precision and dou- 
ble precision) can be used like 
Logical Fortran variables and 
how If . . Then statements work. I 



shall deal with the more under- 
standable Fortran Logical vari- 
ables before proceeding to their 
Level II Basic equivalent. Ref- 
erences to Fortran apply spe- 
cifically to WATFIV-S, although 
they are true for most versions. 
A Logical variable can receive 
two different values (represent- 
ing true and false) because of 
some logical operation. Figure 1 
gives examples of Logical vari- 
able assignment statements in 
Fortran and their Level II Basic 



C THIS PROGRAM READS STUDENT ID NUMBERS AND TEST SCORES 


C (WHICH RANGE TO 100) AND PRINTS AN AVERAGE SCORE FOR 


C EACH STUDENT A NEGATIVE ID NUMBER IS USED TO INDICATE 


C THE END OF THE DATA 
C 

REAL INDAVG 


INTEGER IDNUM. SC0RESI5), I. SUM 


LOGICAL FINISH 


5 READ 10, IDNUM, SCORES 


10 FORMAT (I6.5<1X.I3)) 


FINISH = (IDNUM LT. 0.0) 


IF (FINISH) GO TO 40 


SUM = 


DO20I = 1,5 


SUM = SUM + SCOHES(l) 


20 CONTINUE 


INDAVG = FLOAT(SUM) / 5.0 


PRINT 30, IDNUM. SCORES. INDAVG 


30 FORMAT f ', 'STUDENT NUMBER: \I6.' FIVE TEST SCORES'. 


+ ' '. B(1X,I3), AVERAGE OF THESE TEST SCORES: ', 


+ F3.2) 


GO TO 5 


40 STOP 


END 


Program Listing 1. Sample Fortran program. 



equivalents. 

An assigned Logical variable 
can replace a logical expression 
(see Fig. 2). Program Listings 1 
and 2 demonstrate Logical vari- 
ables. In both sample programs 
the variable name Finish replaces 
a logical expression after the 
keyword If. If the variable Finish 
contains a value representing 
false, the program will skip the 
rest of the If.. Then statement. 

The sample Basic program is 
like a Fortran program, but with 
minor differences. Fortran pro- 
grams must define any variables 
in the first non-comment pro- 



The Key Box 



Basic Level II 
Models I or III 



gram lines. Logical variables 
must have their own definition 
statements. Read and Print 
statements usually have an ac- 
companying Format list. The pe- 
culiar default rule assigns a type 
to each undefined variable so that 
it is best to define all variables. 

A Logical variable separates 
the evaluation of some logical 
expression from the If. .Then 
statement or statements where 
it would normally appear. You 
might wish to set a flag for later, 
or to test the same condition in 
several places in your program. 
Evaluate the common condition 
in a subroutine and store the 
result in a Logical variable, sav- 
ing typing and memory space. 

Level II Basic returns a - 1 for 
a true logical expression and 
for a false one. In an If.. Then 
statement, when the computer 
reaches the end of the logical ex- 





Legal assignment ot a Value to a LOGICAL Variable 


LEVEL II BASIC FORTRAN 


R'-o = 

Fig. 1. 


equivalent to 
P# = -1 P = TRUE. 
Q! = Q ■ FALSE. 
(NOT P») OR (P« AND O!) R = (.NOT. P) OR (P AND Q) 

P. Q. ana R are LOGICAL variables 

Legal assignment of a value to a Logical variable. 
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BUY DIRECT 

AT DISCOUNT PRICES 
It's simple .... 




NEW! 



Radio Shack TRS-80 

Hard Drives 
Model I & II. . .from 



$ 



TRS-80 Color Computer 



BUY 
DIRECT 




PRICED 
FROM 



2087 



TRS-80 Model 
Computer 



TRS-80 Model III 
Computer 



DIRECT 




PRICED 
FROM 



Smith Corona TP-1 
Daisy Wheel Printer 




PRICED 
FROM 




PRICED 
FROM 



TRS-80 Model 16 
Computer 



BUY 
DIRECT \s£ 



PRICED 
FROM 




FRANKLIN 

ACE 1000 



A ATARI 



Qz. commodore 



CALL FOR PRICES 



ALL TRS-80'S ARE PURE RADIO SHACK EQUIPMENT 



1-800-841-0860 



Write for our Consumer Discount Price List 

Micro Management Systems, Inc. 

PARCEL DIVISION - DEPT NO. 4- 

2803 THOMASVILLE ROAD EAST 

CAIRO, GEORGIA 31728 

912-377-7120 



[ 



BUYING DIRECT-MAIL 
QUESTIONS & ANSWERS 



i 



Why Purchase A Computer By Direct-Mail? 

When buying a name-brand product - price is usually 
the main reason. The product is the same quality no 
matter where you buy. 
Do I Really Save Money - If I Need Help? 
When you buy by direct-mail the firm has geared its 
operation to sell at low prices. The savings will give 
you additional money to buy the extras you may need. 
Automakers don't teach you how to drive a car • we 
don't teach you how to use a computer. We do sell you 
a name-brand computer at low, low prices. Buy the 
computer and software you want, then you can learn to 
do-it-yourself and consult a professional only when ad- 
ditional help is required. 

What About The Warranty On My Equipment? 
If you purchase your computer equipment from a 
direct-mail firm • make sure the firm is an authorized 
dealer. Beware of firms selling modified or altered 
name-brand products as the manufacturer's warranty 
may no longer apply. Micro Management Systems 
sells only original factory-pure name-brand products 
covered by the manufacturer's warranty. Write us for 
a free copy of the warranty on any product we sell. 

Which Direct-Mail Company Should I Buy From? 
Micro Management Systems - Cairo, Georgia. We sell 
name-brand products. We offer low, low prices. We 
have a large inventory to assure prompt delivery. Our 

obligation to you QUALITY PRODUCT - PRICE 

-HONESTY - RELIABLE. 
Who Is Micro Management Systems? 
Micro Management Systems has been selling com- 
puter equipment to the consumer on a direct-mail basis 
since 1978. Since that time thousands of consumers 
have purchased from us. We are HONEST and 
RELIABLE. If you plan to purchase by direct-mail 
you owe it to yourself to call us. We offer quality name- 
brand products, low prices, prompt delivery, toll free 
phones for quotes and orders, references, convenient 
ordering. All products we sell are factory-pure and 
backed by reliable name-brand manufacturers. 

WE SELL AMERICA - Call us 1-800-841-0860 
Write for our CONSUMER DISCOUNT PRICE LIST. 



TRS-80 COMPUTERS 

COLOR COMPUTER 
Priced From '289 

MODEL III TRS-80 
Priced From '399 

MODEL II TRS-80 
Priced From *2899 

MODEL 16 TRS-80 
Priced From '4098 



FRANKLIN 

ACE COMPUTER 
CALL FOR PRICE 



A ATARI 

f E commodore 

Sffff SMITH-CORONA 



1-800-841-0860 



Micro Management Systems, Inc. 

PARCEL DIVISION • DEPT NO. k A 

2803 THOMASVILLE ROAD EAST 

CAIRO, GEORGIA 31728 

912-377-7120 



^St* List ol Advertisers on Page 451 
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A NEWSLETTER FOR POCKET COMPUTER USERS 

This timely, compact publication provides up to the minute 
information on pocket computers, including models such as 
the Radio Shack TRS-80 PC-1 and PC-2, Sharp Electronic's 
PC-1 500 and PC-1 21 1 , and others as they are announced. Sub- 
scribe now to receive a valuable bonus absolutely FREE! 

■ Up to the Minute News ■ Product & Equipment Reviews 

■ Important Operating Tips ■ Practical Programs ■ More 
By Subscription Only: for a calendar year period (January — 
December). You get all issues published to date for the calen- 
dar year in which you subscribe, at the time you subscribe. 

MC/VISA Phone Subscriptions: (203) 888-1946 
□ I am interested. Please send me more information. I have a: 

D Radio Shack PC-2 □ Sharp PC-1500 □ 

a 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 

(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 
D 1982/83 Subscriber (Issues 11 - 30). $60.00 in U.S. 

(U.S. $72.00 to Canada. U.S. $90.00 elsewhere.) 
a 1983 Regular Subscriber (Issues 21 - 30). $36.00 in U.S. 

(U.S. $42.00 to Canada. U.S. $50.00 elsewhere.) 
Orders must be accompanied by payment in full. We do not 
issue invoices for the POCKET COMPUTER NEWSLETTER. 
Thank you for your remittance. 

Name: 

Addr: 

City: State: Zip: 

MCA/ ISA #: Expires: 

Signature: 

POCKET COMPUTER NEWSLETTER 
P.O. Box 232, Seymour, CT 06483 



I 



*^25 



I 



FREE 

EASY 

CALC 

UPGRADE 




Instant Software announces a new version of 
Easy Calc! 

For all the customers who have the old version of Easy 
Calc, Instant Software would like to make a free up- 
grade to improve the quality of the program. If you 
have a copy of Easy Calc which is not version 2.7, 
please send the original disk back to Instant Software 
and they will upgrade the program FREE I 
Send your program to: 

Instant Softv\oe 

Attn: Production Dept. 

Rte. 101 Ac Elm St. 

Peterborough, NH 03458 

(803) 924.9471 



Level II Basic 



Fortran 



equivalent to 
W - - 1 P = TRUE. 

Q! ■ Q = .FALSE 

R% = (NOT P») OR (P» AND Q!) R - (.NOT. P) .OR. (P .AND. Q) 

P. Q. and R are LOGICAL variables 



Level II Basic 



Fortran 



equivalent to 



If A - A THEN... 

IF - 1 THEN... 
IF NOT THEN... 

-1:IFQ%THEN.. 



QV. 



Q% = 87: !F Q% THEN. 



IF A = A THEN... 

IF (TRUE) THEN... 

IF (.NOT. FALSE.) THEN.. 

Q = TRUE 
IF (Q) THEN... 



Q - .TRUE. 
IF (Q) THEN.. 

Fig. 2. Tests which are always true. 



IF M THEN... 
IFQITHEN... 
IF R% THEN... 
IF (R% OR O!) AND NOT (R% AND Q!) PRINT "R XOR O IS TRUE." 
IF A%(3» THEN... 
IF INS - "Y" and P! THEN... 
P! = 21: Q! = 16: IF P! ANDO!. ...ALWAYS TRUE 
P! - 64: Q! - 12&IF P! AND Q! THEN... 'ALWAYS FALSE 
IF A + 9THEN... , FALSE ONLY IF A - -9 

Fig. 3. Additional examples of using Logical variables in Level II 
Basic. 



10 REM THIS PROGRAM READS STUDENT ID NUMBERS AND TEST 

20 REM SCORES (WHICH RANGE FROM TO 100) AND PRINTS AN 

30 REM AVERAGE SCORE FOR EACH STUDENT. THE END OF THE 

40 REM DATA IS INDICATED BY A NEGATIVE ID NUMBER. 

50 CLEAR a DEFINT A-Z: DIM SCRE(4) 

60 READ IDNUM!: FOR I = TO 4: READ SCRE(I): NEXT 

70 FINISH = (IDNUM !<0) 

80 IF FINISH GOTO 160 

90 SUM ■ 
100 FOR I = TO 4 
110 SUM - SUM ♦ SCRF.fl) 
120 NEXT 

130 INDAVG! = CSNG(SUM) / 5.0 
140 PRINT USING "STUDENT NUMBER 
FOR I = TO 4: PRINT USING " 
AVERAGE OF THESE TEST SCORES: »#• .##" ; INDAVG! 
150 GOTO 60 
160 END 
170 DATA 123456, 97, 78, 84, 76, 89, 654321, 79. 80, 91, 83, 100.-1, 0, 0. 0, 0, 

Program Listing 2. Level II Basic version of Fortran sample 
program. 



FIVE TEST SCORES: "; IDN U M ! ;: 
SCREW: NEXT: PRINT USING " 



pression (indicated by a "," a ":", 
the conventional "Then," or the 
beginning of another Basic state- 
ment), it compares the result of 
the evaluation to 0. If it is (indi- 
cating a false expression) the 
computer scans for the keyword 
Else and, on locating it, executes 
any following statements. If Else 
is absent in that line the computer 
moves to the next program line. 

All Level II needs is stored in 
a register upon reaching the end 



of a logical expression after the 
keyword If. A number, numeric 
variable or complex arithmetic 
statement can replace a logical 
expression (see Figs. 2 and 3). 

These techniques should 
work in other Microsoft versions 
of Basic, perhaps not with Pock- 
et Computer Basic. ■ 

The author is currently a 
junior at Illinois State University 
majoring in Physics. 
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ARRANGER 



100''. Machine Language D'sk Index Program 

lor the TRS-80 Model l&lll 

Automatically recognizes ALL maior DOS's' 

TheArrangensa master index system that 
automatically records the names of your 
programs, what disks those programs are 
on and type of DOS Features include — 

• Automatic single and double density 
recognition 

• Accepts LDOS. DOS-. TRSDOS. 
DBLDOS. NEWDOS/80, MULTIDOS 

• Works interchangeably with Model III. I 
double density. 

• Capacity ot 200 disks. 44 filenames/disk 

• Quickly locates any amount of free 
granules 

• Finds a program in less than 30 seconds 1 

• Alphabetizes 1500 filenames in 40 sees ' 

• Option to sort by any extension 
(/BAS. /CMD. rn?) 

• Easily updates diskettes previously 
added with only 2 keystrokes 

• Backup function built in 

• Uses 1 to 4 drives. 35. 40 or 80 tracks 

• Radio Shack doubler compatible 
Requires 32k 

1 disk minimum 

JUST $29.95 

FREE SHIPPING 

Specify. TRS 80 Model number 

(If you've added double density to 
your Model I. please indicate) 

TRIPLED SOFTWARE ^ 



P.O. Box 642 
Layton. Utah 8404 1 
(801)546-2833 



VISA OR 
MASTERCARD 



COLOR HI-RES 

GRAPHICS 

FOR THE TRS-80 " MODEL I 

Create spectacular color 

graphic displays with your 

TRS-80 Model I with 

COLOR-GRAF 

Connects to the expansion port of 
your computer and uses your color 
TV for the graphics display. 
You control a color display that includes 

■ 256 x 1 92 pixel resolution 

■ 1 5 colors plus transparent 

■ 4 graphics modes 

■ easily movable animated patterns 

Complete documentation and software 
allows you to set each pixel, create 
patterns, draw lines, and much more' 

COLOR-GRAF comes in a 7'2"x6"x 
3" cabinet complete with 40 pin con- 
nector, power supply, RF modulator. 
documentation and software for $195. 

For information, or to order, write or call 

Solectronics 

400 Asbury Ave.. Evanston, IL 60202 
(312)866-8737 „ 



STOCK MARKET DATA 
over 20 YEARS on 
DISK or TAPE 

NOW AVAILABLE - 

OVER 2 YEARS OF WEEKLY OR DAILY 
CLOSING PRICE DATA ON DISK OR TAPE 
FOR TV-ZSE PROVEN MARKET INDICATORS 



I (62 



I 982 



* DOW JONES INDUSTRIAL 

• DOW JONES TRANSPORTATION 

• DOW JONES UTILITY 

* STANDARD AND POOR'S 300 

ALSO INCLUDES- 

PROCRAMS TO MAINTAIN THESE FILES. 
CREATE FILES FOR YOUR OWN STOCKS. 
AM} SAMPLE PROGRAMS I LLUSTRAT I NC 
RUTMING AVERAGE AND CYCLIC MARKET 
ANALYSIS TECHNIQUES. 

WEEKLY DATA 

101 MODEL l/lll CASSETTE. $34. •• 

D 102 MODEL III DISKETTE ... S3 4 . M 

3 101 HARDCOPY PR I NTOUT . . . $2299 

DAILY DATA 

□ 104 MODEL l/lll CASSETTE. * 44. 99 
3 I0S MODEL III DISKETTE. .. »44. 9» 

3 106 HARDCOPY PRINTOUT. ... 132. »» 

FREE SH I PP I NG W I TH I N CONT I rJENTAL USA 

(ADD 101. FOR SHIPPING ELSEWHERE ] 

24 -HOUR TOLL-FREE ORDER LINE 

\ ^S 1-800-227-3800 EXT. 942 r " 

YOUNG IDEAS. INC 
w 172 

555 N. NEW DALLAS • SUITE 310 
ST. LOUIS, MO 03141 



-ATTENTION ALL TRS-80 OWNERS- 

No matter how your Model I, II, or III is used, whether it be business 
or pleasure, this product can benefit you 

The FATIGUE FIGHTERtm reduces the operator fatigue 
(irntated, watery eyes and headaches) caused by the harsh white 
video display thereby making computer use more efficient and/or 
enjoyable The graph at the right will help explain how it works. 
Superimposed on the standard eye sensitivity curve is the band pass 
curve of the FATIGUE FIGHTERtm as recorded by a 
spectrophotometer. A marker is also on the graph at the ideal 
psychological tolerance color As you can see, the green color of the 
FATIGUE FIGHTER: M takes advantage of both eye sensitivity and 
psychological tolerance to make the display less irritating. 

The FATIGUE FIGHTERtm is made of tough '„ inch thick acrylic 
sheet which adds absolutely no distortion or fuzziness to the display 
and is industry proven to be an excellent material for optical filtering 
(e.g. lenses for laser safety goggles) It installs easily on all three 
TRS 80® models with a pressure sensitive adhesive which will not let 
the filter fall off yet allows easy removal if necessary Finally, the black 
and silver border design makes it a perfect match for the computer 
styling. 

If you want a FATIGUE FIGHTERim of your own but prefer not 
to order by mail, check with your local computer stores to see if they 
have them in stock. Otherwise follow the ordering instructions below 

Sana Nam* & Address Typed or Clearly Printed with Check or Money Or- 

TO ORDER' der ,u s - FUNDS ) to ' S14.95 Each. Including Shipping. Canadian Orders 

* add S1.00 Each. All Other Foreign Orders Add $2.00 Each tor Shipping. 

NO CREDIT CARD ORDERS. COD'S (U.S. ORDERS ONLY) are S2.S0 Addi- 
TRS40 IS A tlonal Per Order ft are Accepted by Mail or by Calling 904-378-2494 9-5 

TANDY CORP M-F Florida Residents Add 5% Sales Tax. 

TRADEMARK ALL MAIL ORDERS MUST BE SENT TO TNE U.S. ADDRESS 



S3 



SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIDA 32601 ^35 



DEALER INQUIRIES INVITED' 



CANADIAN DEALERS ONLY— For pricing and ordering information contact: 

MICRO C0MP ENTERPRISES. 955 Brock Rd S Uml 3. Pickering Ont LI W 2X8 Phone 416-8394561 



Psychological 
Tolerance Color 



MAXr- 



MIN 



FATIGUE FIGHTER 
Spectral Curve 



Eye Sensitivity 
Spectral Curve 




Violet 



T r— i — r— 

Blue Green Yellow Orange Red 



* fr-©» •>» 
followinal Psycho logical studies 
show erten to be acst pleasant 
for- ex t e n de d "in(in». Cue s e n an- 
siustaj paaks m *» areen band 
of '-he ea e c tru». Contrast is en- 
hanoad bu raduein* the aabient 
light falling on • CRT. The** 
three factors coabine to fight 
operator fatigue. rir.elly, we 
wanted ejora than just function. 
We wanted a filter that visually 
Matched TRS-ee styling. Pictured 
here is aroof of our success, a 
product we era proud of. 



•See List ol Advertisers on Page 451 
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UTILITY 



LOAD 80 



The screen stops when full 



Scroll Your Listings 



Mark C. Pax ton 

4056 Three Oaks Boulevard 

Troy, Ml 48098 



The assembly program pre- 
sented here changes the 
way LIST functions on your non- 
disk Level II TRS-80: When you 
enter the List command, the 
screen fills with source lines of 
any Basic program resident in 
memory, and stops once the 
screen is full— it does not spin 
madly past you. 

To continue viewing the pro- 
gram listing one line at a time, 
press the up arrow key for each 
new line desired. If you wish to 
scroll backward one line at a 
time, press the down arrow key. 

Using the Program 

Key the source code in Pro- 
gram Listing 1, using an editor/ 



The Key Box 

Basic Level II 
Model I 
16KRAM 
Printer Optional 



assembler, and create a system 
tape named SCRS. Set the mem- 
ory size to 32540 and load the 
system tape. When the program 
stops loading, control transfers 
to the ready mode, from the sys- 
tem mode. 

At this point you can either 
CLOAD or key in a Basic pro- 
gram. When you execute the 
LIST command the screen fills 
with lines; listing will stop when 
the screen is full. The machine 
then waits for your input — how- 
ever, it recognizes only the up or 
down arrows. To break out of 
this mode before listing has 
completed, repeatedly hit the up 
arrow key and the Break key at 
the same time until the break is 
recognized. 

To switch between normal 
LIST mode and the modified 
LIST mode, key in the SCRS 
command, or the SCROFF 
command, in normal command 
mode as illustrated below: 

> 

>SCRS 
> 

>SCROFF 
> 

SCRS (SCRoll Screen) causes 
the LIST command to scroll one 
line at a time. SCROFF (SCRoll 
OFF) returns the LIST command 
to its normal operating mode. 

Analysis of the Program 

The program takes advantage 
of three DOS exits: 41E2H, 
41B2H, and41DFH. 



The DOS exit at 41 E2H is called 
from the System command rou- 
tine (at 02B2H). The SCRS pro- 
gram uses it to pass control back 
to the Basic ready mode, once it 
has completed loading. 

The DOS exit at 41B2H is part 
of the ready routine which starts 
at 1A19H, 41B2M is called from 
1A1CH. At this point, you have 
already made a keyboard entry 
which has been compressed to 
space compression codes wher- 
ever possible. Therefore, this 
DOS exit is used to slip out and 
check the input buffer for the en- 
try of a new command: SCRS or 
SCROFF. If you do not enter 
either of these commands, con- 
trol returns to Basic and no 
harm is done. If you enter either 
SCRS or SCROFF, then you ex- 
ecute the appropriate routine in 
the program to activate or deac- 
tivate the modified LIST mode. 

The DOS exit at 41 DFH is part 
of the LIST/LLIST command rou- 
tine logic. LIST starts at 2B2EH, 
and LLIST starts at 2B29H. The 
two commands use the same 
code. However, between 2B29H 
and 2B2EH, the output device 
type indicator (located at 



409CH) gets set to 01, which in- 
dicates the printer. (The default 
code is zero, for video. A minus 1 
means the cassette.) The call to 
41 DFH is made from 2B44H; it is 
called once before each line is 
displayed. 

If you have a line printer on 
your system, put a check in the 
SCRS program to see if the out- 
put device type indicator (at 
409CH) contains an 01 H. If it 
does, you can return immediate- 
ly to Basic to avoid problems. 
It is not necessary that you do 
this however; the only adverse 
effect is that the screen clears 
every time you enter LLIST. 

The program in Listing 1 is not 
very large considering the func- 
tions it performs. This is due 
largely to the use of numerous 
ROM routines to perform gener- 
al tasks. A short study of the 
listing itself will prove beneficial 
and may add new ROM routines 
to your own repertoire. ■ 



Mark Paxton, a professional 
programmer and systems an- 
alyst, also teaches Cobol part- 
time. 







Program Listing 




41E2 

SYSTEM CKD 
41B2 C3AP7F 
41B2 
TEST SUPPER 


■ •■10 

• ••2« 

3BB30 


ORG 41E2H 

JP MITO 
ORG 41B2H 


j SET UP AUTOSTOP Of 
/SET UP USER EXIT TO 

Listing continues 
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OUR PRICES, SELECTION 



:u 



MAKE IIS COMPETITIVE. 
OUR PEOPLE MAKE US EXPERTS, 



Red Baron. 
Home of the Nation's Largest Computer Printer Inventory. 



NEC 8023 

Outstanding Graphics, Print 
Quality & Performance 



rfillrahi 




144 x 160 dots/inch • Proportional Spacing 

• Lower case descenders • N x 9 dot matrix 

• 8 character sizes • 5 unique alphabets 

• Greek character set • Graphic symbols 

• 100 CPS print speed • Bi-directional logic- 
seeking • Adjustable tractors • Single-sheet 
friction feed • Vertical & horizontal tabbing 

NEC 8023 f>/*«ll 

Dot Matrix List $795 pUdll 

Televideo CRT's 

Price, Performance & Reliability 

910 List $699 CPoll 

925 Lis t$995 ? how 

950 List $1 195 Prices 

Other Quality Printers at Red Baron 

List Discount 

Anadex DP-9501A $1725 5C.II 

Anadex DP-9620A $1845 SCall 

Anadex WP-6000 $3250 SCall 

C. itoh 8510 Prowriter . . . . $845 SCall 

IDS Microprism 480 $799 SCall 

Diablo 630/6 $2995 $2570 

NEC Spinwriter RO 

Serial Parallel 77xx $3055 $2500 

Parallel 35xx $2290 $1000 



Interface Equipment 

Complete Stock of Options. 
Cables and Accessories. 

GRAPPLER+ APPLE INTERFACE $1 

CCS APPLE SERIAL Interface & Cable . $1 
ORANGE INTERFACE for Apple II 

Parallel Interface Board and Cable . . $ 
NOVATION D-CAT 

direct connect modem $1 

Novation Cat Acoustic Coupler $1 

COMPLETE STOCK OF EPSON 

ACCESSORIES SC 

CUSTOM PRINTER CABLES FOR Apple. 

Atari. IBM, TRS-80 (all models) $C 

HAYES MICROMOOEM II S3 

PRINTER STANDS: Large $ 

Small $ 

PRINTER RIBBONS— Most Types $C 



IDS Prism 80/132 

Affordable Color, Speed 




Dot Resolution Graphics • 9-wire staggered 
printhead • Lowercase decenders • Over 
150 CPS • Bi-directional, logic-seeking 

• 8 character sizes • 80-132 columns 

• Proportional spacing • Text justification 

• Optional Color 

Prism 80 Base List $999 Cf*«.|| 

Prism 132 Base List $1,299 Qlrdll 



Smith-Corona TP-1 
Daisy Wheel Printer For Under S900 




Letter quality • Standard serial or parallel data 
interlace • Drop-in ribbon • 144 WPM • Various 
fonts available • Loads paper like typewriter • 
Handles single sheets for forms 



Smith-Corona TP-1 List $895 



SCall 



The Epson Series 

High-Quality Printers 
at a Low Price. 



The Okidata Series 

Hi-Res & TRS 80 Block Graphics 








Epson MX80 List $645 ▲ A , , 

Epson MX80FT List $745 SL3I 

Epson MX-100 List $995 w 

Full Line of Epson Acessories. 



120 CPS • 9 x 9 Matrix • Bidirectional logic 
seeking printing • Lower case descenders 
• Four print styles • Optional Hi-Res Graphics 

Okidata 82A List $649 CP-ill 

Okidata 83A (w Tractor) . List $995 pUdll 




Our People, Our Product 
Both Are Specialized. 

Red Baron is an organization of compu- 
ter printer specialists. They know the 
capabilities of each printer, and how to 
match one to your exact need Call for 
expert consultation today! 



Here's How To Order 

Phone orders are welcome; same-day shipment on 
orders placed before 11:00 a.m. Free use of Master- 
Card and Visa. COD's accepted. Personal checks 
require 2 weeks clearance. Manufacturer's warranty 
included on all equipment. Prices subject to revision. 
APO/FPO Orders Welcome. 

Call For Free Catalog: 

(800) 854-8275 

CA, AK, HI (714) 630-3322 



Red Baron 




COMPUTER PRODUCTS 



-275 



1100 N.TUSTIN #207 

ANAHEIM. CA 92807 



! Baron Computer Products. 1982 



LOAD 
80 

LOADS 
EASY 



LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 




In the April, 1981 issue of 80 Micro we introduced LOAD 
80 to save you the time and trouble of typing our programs 
yourself. LOAD 80 cassette tapes contain dumps of the 
major program listings in 80 Micro. 



If you have not yet ordered any LOAD 80 tapes and wish 
you had, don't worry. We are now offering a "back issue" 
cassette program. You can order any LOAD 80 cassette 
from April, 1981 to date for $9.97. Back issues of 80 
Micro are also available with the LOAD 80 cassettes for 
$3.50. With the complete documentation found in the com- 
panion magazine issue, you should have no difficulty 
loading any of 80s major programs. 



Please send me the following: 
month year 



month year 



Tapes 



Magazines 



ITEM 


COST 


QTY. 


TOTAL 


LOAD 80 Tapes: August 1962 Double Issue 
add $1 50 per tape tor postage and handling 


$17.97 
$9.97 






80 Micro 

add $1.00 per magazine tor postage and 

handling 


$3 50 








T 


0TAL 





Check Enclosed Bill my: 



MC 



AE G VISA 



NAME 

ADDRESS 
CITY 



STATE. 



CARD* 

SIGNATURE 



ZIP, 

. _ EXP. DATE. 
INTERBANK #_ 



Please allow 4-6 weeks 'or delivery 

LOAD 80 • 80 Pine Street • Peterborough NH 03458 

Attn Debra Boudneau 



Listing continued 








41B2 C3C37F 


00140 




JP 


USEXIT 


41DF 


• 0050 




ORG 


41DFH ;EXIT 'LIST' CMD 


41DP C31C7F 


00060 
00070 
00080 
00090 
00100 
00110 




JP 


SCRS 










* MAINT-DATE- 


■=-«> 02.12. Rl • 




* DESCRIPTION 


■■*> M.C.PAXTON * 
«--> SCROLL UP * 




00120 


* OR 


DOWN OF 


BASIC LISTINGS * 




00130 








7F1C 


00140 




ORG 


32540 ;SET MEMSIZE TO THIS 


7F1C D5 


00150 SCRS 


PUSH 


DE .-LINE DELIMITER 


7F1D Cb 


00160 




PUSH 


BC ;NEXT LINE PTR 


7F1E E5 


00170 




PUSH 


HL ;PTR TO LINE I 


7F1F 2B 


eais? 




DEC 


HL 


7F2B 2B 


BC192 




DEC 


HL 


7F21 KB 


00200 

00210 
00220 




EX 


DE.HL ;DE-PTR TO BEGIN 
; OF LINE (PTR TO 
; NEXT LINE) 


7F22 2AA440 


00230 




LD 


HL,(40A4II) ;BEG OF BASIC 


7F25 B7 


00240 




OR 


A ;CLR CARRY 


7P26 F.D52 


00250 




SBC 


HL.DE 


7F28 2893 


00260 




JR 


NZ.CONT ;NOT FIRST LINE 


7F2A CDC901 


00270 
00280 




CALL 


01C9H ;CLS ON 1ST LINE 


7F2D ED5B2040 


00290 


CONT 


LD 


DE,(4020H) rDE-CURSOR P 


OSITION 










7F31 21803P 


00300 




LD 


HL,3F80H ;HL-DELIMITE 


R LINE ADDRSS 










7F34 B7 


00310 




OR 


A ; CLEAR CARRY 


7F35 ED52 


00320 




SBC 


HL,DE ,-CHECK TO SEE IF AT 


BOTTOM OF SCR 










7F37 FA3E7F 


00330 




JP 


M, KBSCAN ;JUMP TO KBSCAN IF 


AT BOTTOM 


00340 










00350 




> SCROLL 


SCREEN FORWARD ROUTINE <-«■« 


7F3A El 


00360 


UP 


POP 


HL j UP SCREEN ROUTINE ; 


RESET REGS 


00370 






;AND GOBACK FROM WHE 


NCE WE CAME) 










7F3B CI 


00380 




POP 


BC 


7F3C Dl 


00390 




POP 


OE 


7F3D C9 


00400 

00410 




RET 




7F3E CD2B00 


00420 


kbsca: 


CALL 


2BH ; KEYBOARD SCAN ROUTINE - 


LOOK FOR 


00430 






,-Ur ARROW ENTRY OR DOWN ARRO 


W ENTRY. 


00440 






;IG!CRE EVERYTHING ELSE 


7F41 B7 


00450 




OK 


A 


7F42 28FA 


00460 
00470 




JR 


Z , KBSCAN 


7F44 FE5B 


00480 




CP 


5BH ;UP AH ROW 


7F46 28F2 


00490 
00500 




JH 


Z, UP 


7F48 FEDA 


00510 




CP 


0AH ;DOWN ARROW 


7F4A 2884 


00520 
00530 




JR 


Z,DO'./N 


7F4C 18F0 


00540 




JR 


KliHCAN 


0002 


00550 


TSTSCR DEFS 


2 




00560 


; =»•» 


> BACKU 


DISPLAY ROUTINE <"»■« 


7F50 AF 


00571! 


DOWN 


XOR 


A 


7P51 P5 


0858B 




PUSH 


AF 


7F52 21C03F 


CB59B 




LD 


HL.3FC0!: 


7F55 224E7F 


00606 




LD 


(TSTSCR) ,HL ;SET A-0. A IS 


CTh FOR ♦ OF 


0OC10 






; LINES ON SCREEN TO BACKUP 


OVER. SET 


006 20 






; TSTSCR VARIABLE TO LAST LI 


NE OF SCREEN 










7FS8 B7 


0O63B 


AGN2 


OR 


A ; CLEAR CARRY 


7F59 114B00 


00640 




LD 


DE,4CH 


7FSC 2A4E7F 


B065B 




LD 


HL, (TSTSCR) (HL-LIHE ADD 


KESS 










7F5F ED52 


0O66B 




SBC 


HL.DE jCALC NEW SCRH LINE 


ADDRSS 










7F61 224E7F 


00673 




LO 


(TSTSCR). HL ;SAVE FOR NE 


XT TIME 










7F64 CD5A1E 


006 80 




,';■.:.:. 


1E5AK rCOWVRf TO HEX (INT 


DE IT GOES 










7P67 7A 


00690 




:,:, 


A.D 


7F68 B3 


0O7BB 




OR 


E ;NZ-LINE » THERE, Z-N 


O LINE ( 










7F69 2005 


00710 




JH 


NZ.CONT2 


7F6B Fl 


00720 




POP 


AP 


7F6C 3C 


00730 




IMC 


A sIHC CTR FOR 1 LINES 


TO BACKUP 










7F6D P5 


00740 




PUSH 


AF ;SAVE CTR (IN A) 


7F6E 18E8 


00750 




JR 


AGN2 ;DO IT AGAIN 


7F70 210B3C 


00760 


COHT2 


LD 


HL.3CO0H ;LOAD ADDRESS OF SC 


R 1ST LINE 










7F73 CD5A1E 


00770 




CALL 


1E5AH ;DE-HEX LINE 1 ON RET 


7F76 CD2C1B 


00780 




CALL 


1B2CH ;BC-PTR TO ::EXT LINE P 


TR 


00790 






; ON RETURN 


7F79 50 


00800 




LD 


D.B 


7F7A 59 


00810 
00820 




:,d 


E,C ;UL ■ BC 


7F7B 2AA440 


00830 


AC.;. 


LP 


HL.140A4H) ;H1. = BEG1.J M)DRSS 


OF BASIC TEXT 








7F7E E5 


0O84G 
00850 




PUSH 


HL 


7F7F 44 


00860 


TEST 


LU 


B,H 


7FB0 4D 


30870 




LD 


C,L 


7F81 B7 


00880 




OR 


A 


7F82 ED52 


00B9B 




S3C 


HL,DE 


7F84 El 


00900 




PC? 


BL 


7F85 280C 


00910 

8B92B 




.::-' 


Z.DONE 


7P87 C5 


00930 




PUSH 


EC 


7F88 DDE1 


00940 




POP 


IX 


7F8A DD6E00 


0B950 




1.3 


L,(IX) 

Listing continues 
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Listing continued 








7F8D DD6C01 


89960 




LD 


H r (IX+l) 


7F9I C5 


88970 




PUSH 


BC 


7F91 18EC 


00980 
98990 




JR 


TEST 


7P93 Fl 
G. 
7P94 47 


01080 


DONE 


POP 


AF /RETRIEVE COUNTER IN A RE 


81010 




LD 


B,A 


7F95 B7 


01020 




OR 


A 


7F96 78 


01038 




LD 


A,B 


7F97 2807 


01040 
010S0 




JR 


Z, ABOUND 


7P99 DDES 


01060 




PUSH 


IX ;PUT ADDRESS OP PREV 


LINE PTR 










7P9B Dl 


01070 




POP 


DE I INTO THE DE REGIST 


ER PAIR 










7P9C 3D 


01080 




DEC 


A 


7P9D P5 


81090 




PUSH 


AF 


7F9E 18DB 


91100 

01110 




JR 


MB 


7FA8 4E 


01120 


AROUND 


LD 


C,(HL) JPUT EVERYTHING BACK 


IN PLACE 










7PA1 23 


01130 




INC 


HL 


7PA2 46 


01140 




LD 


B, (HL) 


7FA3 23 


01150 




IMC 


HL 


7FA4 ES 


01160 




PUSH 


HL 


7PA5 C5 


01170 




PUSH 


BC 


7PA6 CDC 981 


01180 




CALL 


01C9H ;CLS 


7PA9 CI 


01190 




POP 


BC 


7PAA El 


01200 




POP 


HL 


7PAB Dl 


01210 




POP 


DE 


7FAC Dl 


01220 




POP 


DE 


7PAD PI 


01230 




POP 


DE ;DE=DELI NITER LINE NO. PR 


OM STCK 










7PAB C9 


01240 
012S0 




RET 




7PAP 3EC9 


01260 


AUTO 


LD 


A,0C9B 


7PB1 32E241 


01270 




LD 


(41E2B) ,A 


7PB4 21191A 


01280 




LD 


HL.1A19H 


7PB7 E3 


01290 




EX 


(SP) ,HI, 


7PB8 C9 


81308 
01310 

01320 




RET 


GO TO 1A19H <READY> 




/•USER 


EXIT: 


CHECK INPUT B'Jr'FER FOR SCRS/SCR 




OFF ENTRY • 


01330 
01340 








7PB9 S3 


CMDLIT 


DEFM 


'SCRSSCROFF 1 


7PC3 ES 


013S0 


USEXIT 


PUSH 


HI. ;SAVE DUFPER POINTER 


7PC4 08 


01360 




EX 


AF,AF' ;SAVE REGISTERS 


7PC5 D9 


01370 




EXX 


/SAVE REGISTERS 


7FC6 El 


01380 




POP 


HL /RETRIEVE PTR TO BUF 


PER 










7PC7 D7 


01390 




RST 


10H /LOCATE 1ST BYTE OP 


COMMAND ENTRH 










7PC8 2B 


01400 




DEC 


HL /POINT BEPORE COMMA N 


D ENTRY 










7FC9 E5 


01410 
01420 




PUSH 


HL /SAVE POINTER 


7PCA 11B87F 


01430 




LD 


DE,CHDLIT-1 /POINT TO LITERA 


LS - 1 










7FCD 0684 


01440 




LD 


B,4 /LOAD 1ST COMMAND LB 


NGTH 










7PCP CDB27F 


014S0 




CALL 


CMDTST (IS IT <SCRS>? 


7PD2 2817 


01460 




JR 


Z, SCRON /GO- IF YES 


7FD4 El 


01470 




POP 


HL 


7PDS 0606 


01480 




LD 


B,6 /LOAD 2ND COMMAND LE 


NGTH 










7PD7 11BC7F 


01498 




LD 


DE r CMDLIT+3 /POINT TO NEXT L 


ITERAL 










7PDA CDE27F 


01503 




CALL 


CMDTST /IS IT <SCROPP>? 


7PDD 2813 


01510 
01520 




JR 


Z, SCROFP /GO- IF YES 


7PDP 08 


O1S30 


GOBACK 


EX 


AF.AF' /REPLACE THE ORIG RE 


GS 










7PE0 D9 


01540 




EXX 




7PE1 C9 


01550 
01S6O 




RET 




7PE2 23 


01570 


CMDTST 


INC 


HL 


7FE3 13 


01580 




INC 


DE 


7FE4 1A 


01599 




LD 


A,(DE) /GET BYTE PROM LITER 


AL 










7FES BE 


01600 




CP 


(HL) /DOES IT NATCH THE C 


ORRES PONDING 


01610 






/BYTE THAT WAS ENTER 


ED IN THE 


01620 






/BUFFER AREA? 


7PE6 2002 


01630 




JR 


NZ.NOPE /IF NOT, THEM GET OUT 


7FE8 10F8 

E 

7PEA C9 


01640 




DJNZ 


OIDTST /MATCH -TEST NEXT BYT 


01650 


NOPE 


RET 


/Z=POUND, NZ-NOT POUND 




01660 


I******************* 




01670 


;* SCRON ROUTINE • 




01680 








7FEB 3EC3 


01690 


SCRON 


LD 


A.0C3B 


7PED 32DF41 


91711 




LD 


(41DFH),A /ENABLE THE JUMP 


7FPB 180S 


01710 
01720 
01730 
01740 
017S9 




JR 


READY iGOBACK TO <READY> 




t* SCROFP ROUTINE * 


7FP2 3EC9 


SCROPF 


LD 


A,0C9H 


7FP4 32DF41 


01760 




LD 


(41DFH),A /DISABLE THE JUMP. 


RESTORES 


01770 






/THE LIST COflKAHD TO ITS ORG 


INAL MODE 


01780 






tOP OPERATION. 


7FP7 21191A 


017 90 


READY 


LD 


HL,1A19H /<READY> RTI1 ADDRE 


SS 










7PPA E3 


01800 




EX 


(SP),HL (STICK IT ON THE STA 


CX 










7PPB 18E2 


01810 




JR 


GOBACK /RETURN TO < READY > P. 


TN 


• 1828 








1A19 


01830 




END 


1A19II 


•0000 TOTAL 


ERRORS 









o 





Selling 80 Mi- 
w ^ V a^^~ cro will make mon- 

_^0^^ ^^B ^^^ y° u - Consider 

^r ^^J Fact #1: Selling 80 Micro in- 

^^^K^r creases store traffic— our dealers 

^^^ tell us that 80 Micro is the hottest- 

^^r selling computer magazine on the news- 

stands. 
Fact #2: There is a direct correlation between 
store traffic and sales — increase the number of people 
coming through your door and you'll increase sales. 
Fact #3: Fact #1 + Fact #2 = INCREASED $ALE$, 
which means more money for you. And that's a fact. 

For information on selling 80 Micro, call 800-343-0728 
and speak with Ginnie Boudrieau, our bulk sales man- 
ager. Or write to her at 80 Micro, 80 Pine St., Peter- 
borough, NH 03458. 



micro 



80 Pine Street Peterborough, NH 03458 

800-343-0728 



IS 



HARD COPY 



STORAGE 

a problem? 



Here's the ideal way to keep your 
growing collection of 80 Micro in 
order! The 80 Micro Library Shelf 
Boxes. 







. . .sturdy, corrugated, white, dust-resistant boxes will keep 
your issues of 80 Micro orderly and available for constant 
reference. Self-sticking labels are available for the boxes, too, 
not only for 80 but also for Microcomputing, 73 Magazine, CQ, 
QST, Ham Radio, Personal Computing, Interface Age, Byte 
and Radio Electronics. Ask for whichever labels you want 
with your box order. Each box holds a full year of the above 
magazines. Your magazine library is your prime reference: 
Keep it handy and keep it neat with these strong library shelf 
boxes. One box (BX1000) is $2.00, 2-7 boxes (BX1001) are $1.50 
each, and 8 or more boxes (BX1002) are $1.25 each. Be sure to 
specify which labels we should send. Shipping and handling 
charges are $2.00 per order. Call in your credit card orders on 
our toll-tree line 800-258-5473, or use the order card in the back 
of the magazine and mail to: 



micro 



ATTN: BOOK SALES 

Please allow 4-6 weeks for delivery. No COO orders accepted 



Peterborough. 
NH03458 
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120 

DAY 

WARRANTY 




'NO YOURE NOT SEEING THINGS, THATS FOUR INTERNAL DRIVES IN 

A MODEL III WITH UP TO 4 MEG. DISK STORAGE AVAILABLE NOW. 

ONLY FROM DISPLAYED VIDEO!!" 



DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 



fa 






^ 



DISPLAYED VIDEO is now offerinq TRS80* MODEL III with TANDON disk drives, one of the most reliable 
disk drive systems on the market, for INCREDIBLY low prices. 

MODEL III with 48K, dual 40 track double density disk drives, complete systems with TRSDOS and ONE BOX 
OF DISKETTES 

PLUG IT IN AND GO $1,749.00 

MODEL III with 48K. dual 40/40 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES 

PLUG IT IN AND GO $2,149.00 

MODEL III with 48K. dual 80 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES 

PLUG IT IN AND GO $2,149.00 

MODEL III with 48K. dual 80/80 track double density disk drives, complete systems with NEWDOS 80 and ONE 
BOX OF DISKETTES ' \^ __ 

PLUG IT IN AND GO $2,449.00 

MODEL III with 48K. four 40 track double density internal disk drives, complete systems with TRSDOS and ONE BOX OF 
DISKETTES 



PLUG IT IN AND GO.. ..$2,399.00 

MODEL IE with 48K. four internal drives of any configuration available to achieve up to 4 meg of disk storage 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket. 

dual power supply, all hardware cables and connectors (gold plated) $329.00 

MODEL 16 w/1 drive.. ..$4,450.00 w/2 drives $4,850.00 



CALL 



DISPLAYED 
T5fo 



IMMEDIATE DELIVERY 

120 Days Parts and Labor Warranty 
DEALER INQUIRIES INVITED 

Free Shipping in the U.S. 
48 Contiguous States 



Visit Our Two 
RETAIL LOCATIONS: 

886 Ecorse Rd.. Ypsilanti, Ml 48197 
(313) 426-5086/(313) 4824424 
111 Marshall St.. Litchfield. MI 49252 
(517) 542-3280 

Radio Shack Authorized Dealership at: 
111 Marshall Street, Litchfield, Michigan 49252 #P142 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO. 

886 Ecorse Road, Ypsilanti, Michigan 48197 




"TRS 80 is a trademark of the Tandy Corporation 
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Prices subject to change without notice 





DISPLAYED VIDEO IS DRIVING DOWN 
PRICES ON DISKS! 



%£? 



DV'S COLOR COMPUTER FIRST DRIVE 

$425.00 

80 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY 

4*dL $275.00 ?M 

+C& 40 TRACK TEAC DISK DRIVE W/CASE & POWER SUPPLY 

$239.00 

TEAC'S NEW 40 TRACK SLIMLINE W/CASE & POWER SUPPLY 

$269.00 

TWO DRIVE CABLE $23.99 

With Gold Plated Connectors 

NEWDOS 80 $ 1 1 5 . 00 MODEL I or III 

Bare Drives & Cases Available Upon Request 

DV'S 5 MEG. HARD DISK 



► 



$1949.00 

ATHANA DISKETTS 
$26.95 

100 Percent Certified W/Own Hub Rings 



^0 



EPSON PRICES 

We're not going to make you call for prices. 
Here they are in black and white!! 

MX 80 (W/GRAPHTRAX) PLUS $459.00 
MX80FT (W/GRAPHTRAX) PLUS $545.00 
MX82FT (W/GRAPHTRAX) PLUS $555.00 

MX100 (W/GRAPHTRAX) PLUS $709.00 
PRINTER CABLE $23.99 



/A?^ 



'• 



Stop In Our Two 
Retail Locations: 

886 Ecorse Rd.. Ypsilanti, MI 48197 

(313) 426-5086/(313) 4824424 

or 

111 Marshall Street, 

Litchfield. MI 49252 

(517) 542 3280 



We Carry A Full .Line of OKIDA'i A Printers 




D ISPLA YED 
~IDEQ 



i 




IMMEDIATE DELIVERY 

180 Days Parts and Labor Warranty 

DEALER INQUIRIES INVITED 

Free Shipping in the U.S. 
48 Contiguous States 



Radio Shack Authorized Dealership at: 

1 1 1 Marshall Street. Litchfield. Michigan 49252 *P142 

To Order: Call (313) 426-5086 or (313) 482-4424 or (517) 542-3280 or write DISPLAYED VIDEO. 
886 Ecorse Road. Ypsilanti. Michigan 48197 

*TRS-80 is a trademark of the Tandy Corporation Prices subject to change without notice 
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SERIES 



APL Primer— Part I 



by Margaret M. Grothman 



w 



hat's the difference between monadic and dy- 
adic functions? Stay tuned for a description 
of system commands and variable names. 



API. is such a concise and efficient 
computer language that Basic seems 
clumsy by comparison. It has built-in 
functions that let you do with a few 
keystrokes what would take many pro- 
gram lines in another language. Be- 
cause of its large library of built-in 
functions, API. lends itself well to 
mathematical and statistical applica- 
tions. Functions not built in can be de- 
fined by you and called by name. This, 
plus its ability to operate on arrays, 
gives APL its strength. 

APL80, written by Phelps Gates and 
published by Ramware (Milford, NH 
03055), is a large subset of the standard 
APL language, and is available in ei- 
ther 16K cassette or 32K disk versions 
for the Model I. All the examples here 
work with the 16K version. 

Because the large number of func- 
tions exceeds the number of symbols 
on a normal keyboard, standard APL 
requires a keyboard with special sym- 
bols, such as Greek letters. Since the 
TRS-80 has no such keyboard, shifted 
letters represent many special APL 
symbols. 

APL as a Calculator 

APL has no print or write statement. 
To print to the screen, type your mes- 
sage in single quotes. 

Enter: 'THIS IS A MESSAGE.' 
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Result: THIS IS A MESSAGE. 

Another example is: 

Enter: '10 ♦ II t 3' 
Result: 10+ 11 + 3 

If you omit the single quotes, APL 
behaves like a calculator. You are us- 
ing the execution mode, which is like 
the command mode in Basic. 

APL does not use the dash sign for 
subtraction. The dash functions as a 
prefix to indicate a negative number. 
The sign for subtraction is also a dash, 
but it is in a lower position and is pro- 
duced by pressing the clear key. 



Enter: 30_ 
Result: 18 



12 



Enter 30- 12 

Result: SYNTAX ERROR: 30 12 

The second example will not execute 
because APL cannot find an operator. 
The negation sign indicates only that 
12 is negative. 

In APL80, you set the symbol for 
multiplication by pressing the shift key 
followed by X. It appears on the screen 
as a small graphics block followed by 
the letter X. The asterisk, which is the 
multiplication operator in Basic, is the 
power function in APL80. 



Enter: 10 § \ 3. 
Result: 30 

Enter: 10*3 

Result: 1000 (10 cubed) 

Division requires the percent sign. 
The slash, used for division in Basic, is 
used in APL for other functions. 

Enter: 15"/o3 
Result: 5 

APL is accurate to six significant 
digits. 

Enter: 3.333333 X 10 
Result: 33.3333 

Enter: 6.666666 X 10 
Result: 66.6667 

Only six digits are displayed in the 
answer, regardless of how many you 
enter. Also, in the second example the 
sixth digit is rounded up. 

Combined Expressions 

APL has no hierarchy of operations. 
Expressions are executed in order from 
right to left. This is one of the hardest 
features of APL to adjust to because it 
differs from other programming lan- 
guages, and from mathematical con- 
vention. One reason for the right-to- 
left rule is that it is easy to remember. 
APL has so many functions that re- 
membering a hierarchy would be dif- 
ficult. 



Enter: 3,X2+12 
Result: 42 



The result is not the same as the 



NOW f 



JFD-III Floppy Disc Controller Kit *ny* 



Thousands of our controllers have been installed and the user satisfaction has been 
tremendous. Those who have compared the rest say that ours is the best. 

Kit includes controller board, mounting brackets, cables, power supply for 2 internal drives, and illustrated instruc- 
tions. This controller has been tested for compatibility with most major operating systems including TRSDOS. LDOS. 
NEWDOS/80. DOSPLUS, and MULTIDOS. The controller supports any mix of 5V4" drives including single or 
double density, single or double sided, 35, 44, 77 or 80 track drives. 



JHD-III Winchesters for TRS 80 Model III 

5 Mbyte formatted — $1,795 10 Mbyte formatted — $1,995 



These drives plug into the 50 pin I/O expansion port. System includes host adaptor, cables, fan cooled cabinet. 
Controller features 1 1 bit error detection and correction, automatic track remapping and variable sector interleaving. 
An LDOS compatible driver is included with the kit for those who already own LDOS. 

TERMS: Cashier's Check or COD. Personal Checks take 3-4 weeks to clear. 



To order call (505) 265-5072 
or send order to: 




JAM Systems, Ltd. 



137 Utah N.E., 
Albuquerque, NM 87108 



TRADEMARK CREDITS 

TRSDOS is I Trademark of Tandy CorporalH 

LDOS is a Trademark of Logical Systems. In 



NEWDOS is a Trademark of Apparai. Inc 

DOSPLUS is a Trademark of Micro-Systems Software, inc 

MULTIDOS is a Trademark of Cosmopolitan Electronics CorporatH 



Dealer inquiries invited. ^101 
Call for the name of dealer nearest you. 



TRS-80 

100% Radio Shack Equipment 

SAVE A BUNDLE 

Order Toll Free 1-8Q0S74-1551 

FLA Residents 904-438-6507 collect 

EPSON OKIDATA CITOHetc. 



TMl\ SALES CO. 



704 W Michigan Ave; P.O. Box 8098 
Pensacola, FLA 32506 



'TRS-80 is a trademark ol Tandy Corporation 



^See List ol Advertisers on Page 451 
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1983 

SOFTWARE 
FOR 
MODEL I HI 



<«. San 



l> * •", j - 



CONSUMER SOFTWARE 



WHOLESALE PRICES 



"... OVER two years of research 
and development have gone into 
these sophisticated software 
selections." 



MICRO SCRIPT V Ihe prelessmnal word processor at an" 
altordable price' Foe novice and speed typists alike Bell 
& •ihistles 1 Ybu Ml A s«mous masterpiece which lills the 
void m any program library . .. . *2« 95 

MANAGtMENT SYSTEM It 7 V '»« '»" ">'••*" ,lle » * ■** 
piogiam with lightning Sort is here! files can be 
created added, updated, listed, deleted or saved to tape 01 
printer Includes Merge search total and label printing 

524 95 

GEHERATIONS M the Genealogy Program Tiace your 
roots m the formal recognized by genealogists worldwide 
Create your family tree and compile information for 
dewendenti on lile * 1 9 95 



Circle 



MICRO SH0RT ,V Enioy the convenience ol progiamming 
shorthand 11 statements and 9 commands at the stroke 
ol a single key A must lor any piogiammei S14 95 

MICRO MATH ,W . an educator endorsed program now 
available to the geneial public Four basic ruth lunctions. 
hone skills ol all ages Unique graphics full dimensional 
sound Report card & wrong answer letneval Printer 
routines included $16 95 

SUPER 10G' M . the ultimate logkeeping system lor 
amateur tadio operators Features column headings lound 
in conventional radio logs, nothing is left out 1 FREE 
cellsign duplicating program included > 1 9 95 

AMAIEUR HAOIO THEORY REVIEWS 1 " Upgrade sue 
ressfuliy ■ Pass the FCC Eiam Ovet B5% ol our customers 
have passed! Eipenence an approach to learning even 
teitbooks cannot provide Specily License Class HA 95 

- MANY MORE - 



MICRO-80 INC. 

E. 2665 Busby Road 

Oak Harbor, WA 98277 

1 206 675 6143 
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Basic or Pascal result, and does not 
follow accepted mathematical prac- 
tice, in which multiplication is per- 
formed before the addition. Here, 2 
is added to 12 first, and the result is 
multiplied by 3. 

You can alter the order of execution 
by using parentheses. Expressions 
within parentheses are executed from 
right to left. The parentheses in the 
next example force execution of 3 
times 2 before adding 12. 

Enter:(3 i X2)+12 
Result: 18 

If you evaluate 8 + 20x2+12, 
mathematical convention requires that 
multiplication be performed before ad- 
dition, making the correct answer 60. 
Presenting this task to a Basic inter- 
preter or a Pascal compiler produces 
the same result. But if you enter APL 
line 8 + 20 X 2 + 12, the answer is 288. 
The right-to-left rule causes execution 
in this order: 

2+12=14 
20x14 = 280 
8 + 280 = 288 

The result of each operation be- 
comes data for the next operation. If 
you want the expression evaluated con- 
ventionally, use parentheses to execute 
20x2 before the two addition opera- 
tions. The equation 8 + (20 i X 2)+ 12 
produces the mathematically correct 
answer. 

Here are two more examples: 

Expression: 7x5 
5x10 

Enter: 7 i X5<7o5 1J X10 
Result: .7 



Expression: 4(3) 



3/15 + 7 



Enter: 4 X3 Vo (3 to 15) + 7 
Result: 1.66667 

The first example requires no paren- 
theses because the normal right-to-left 
execution causes no errors. The second 
example, however, requires parenthe- 
ses around 3 % 15 to prevent the 7 from 
being added to 1 5 before division takes 
place. When in doubt, use parentheses; 
extra ones do no harm. 

Monadic Functions 

The terms monadic, dyadic, and 
niladic describe the number of 
operands or arguments a function re- 
quires. All the functions introduced so 
far are dyadic: they require one 
operand before the function symbol 



and one after. A monadic function has 
only one argument, following the sym- 
bol. Niladic functions have no 
operands. None of APL80's built-in 
functions are niladic. 

The absolute-value function is an ex- 
ample of a monadic function. Its sym- 
bol is produced by typing shift, J. (In 
APL80, all symbols preceded by a shift 
are displayed on the screen with a small 
graphics block.) 



100 (use the negation sign, not the 



Enter J 
minus), 
Result: 100 



A monadic function generally shares 
its symbol with a dyadic function. For 
example, the dyadic use of shift, J is 
the residue function, which returns the 
remainder when division is executed. 

Enter: 3 J 16 

Result: 1 (3 goes into 16 with a remainder, or 

residue, of I). 

The residue function can be used to 
extract the fractional part of a positive 
number. (In APL80, the residue func- 
tion doesn't work with negative 
arguments.) 

Enter: LJ 8.75 
Result: .75 

Each dyadic arithmetic function has 
a corresponding monadic function that 
uses the same symbol. The division 
symbol °/o used as a monadic operator 
produces the reciprocal of a number. 
(The reciprocal is one divided by the 
number.) 

Enter: w o5 
Result: .2 

The dyadic multiplication function 
shares its symbol, shift X, with the 
monadic sign function. This function 
returns a 1 if the operand is positive, 
- 1 if negative, and if it is zero. 



Enter: X5 
Result: 1 



Enter: X- 3 

Result: - 1 

The minus sign (clear key) may be 
used as a monadic function to change 
the sign of a number. 

Enter: 2 

Result: -2 

Another symbol that does double 
duty as a monadic and a dyadic func- 
tion is the exclamation point. 
Monadic! is the factorial function. Re- 
member to put the symbol before the 

Circle 36 on Reader Service card — 




Save more money (and data) with our hard disk drive 

Introducing the new, low-priced Winchester hard disk drive 
from A.M. Electronics. Designed to put the power of hard 
disk data storage within reach of more system owners than 
ever before. 

More megabytes per buck 

Our drive features an unformatted data capacity of 6.7 
megabytes, with an average access time of 75 milliseconds 
Up to four drives can be daisy-chain connected for even 
greater capacity. 

Ready to run with TRS-80 

Each drive comes complete with controller board, ST-506 
interface, and a DOS Plus 4.0i for complete plug compati- 
bility with your TRS-80 system. 

Quality you can count on 

Manufactured from the finest components, the A.M. 
Electronics hard disk drive has an expected life rating of 
five years when used 50% of the time. 

Power consumption is unusually low: typically one amp 
less than other Winchester systems. 

™ TRS-80 is a trademark of Tandy Corp. 



The disk and read/write heads are fully enclosed in a 
module using an integral air recirculation system with an 
absolute filter. You can depend on stable operation and high 
reliability in any office environment. 

Think of the possibilities 

Word processing, large mailing lists, database management, 
financial planning and forecasting . . . demanding applica- 
tions like these and many more are now possible — and 
affordable — with the new A.M. Electronics hard disk drive. 

For more information, or to find the location of your 
nearest dealer, please contact: A.M. Electronics, Inc., 3446 
Washtenaw Ave.. Ann Arbor, Ml 48104, 313/973-2075. 
Telex: 220821 HPC. In Europe, contact A.M. Electronics, 
Ltd., 10 Barley Mow, Barley Mow Passage, Chiswick, 
London W4 4PH, England, Tel. (01)994-6477, Telex: 
8811418. 



rO|A.M. ELECTRONICS 

f m ii I THE POWER BEHIND THE DRIVES'" 



K.. I*-B»c. I, (Ml 



argument, not after, as you would in 
conventional mathematical notation. 

Enter: !4 

Result: 24 (4 times 3 times 2 times I ) 

The dyadic function that uses ! is 
called the combinatorial function. It is 
used to find the number of combina- 
tions of a certain size within a larger 
number. For example, 3!4 returns 4, 
the number of combinations of 3 that 
can be formed out of four objects. 

The @ sign is also used for a 
monadic-dyadic function pair. The 
dyadic form is used to find logarithms 
to any base. The first argument is the 
base and the second is the number. To 
ask for log 16 to the base 4, 

Enter: 4@16 

Result: 2 (exponent to which 4 must be raised to 

obtain 16). 

When (a is used as a monadic func- 
tion, the natural log is returned. For 
example, to find the natural log of .7, 

Enter: @.7 
Result: -.356675 

Variable Assignments 

You may use long variable names in 



APL. APL.80 will accept names as long 
as 60 characters. Since using the vari- 
able requires typing the entire name, 
short names are desirable. 

Variable names can consist of any 
combination of letters and numbers, 
but must start with a letter. Names can 
contain dashes but not spaces. Assign a 
variable by typing shift followed by the 
left arrow. 

Enter: NUMBER^15 

The value assigned to a variable is 
displayed when you enter the name. If 
you type an unassigned name, an error 
message results. 

Enter: NUMBER 
Result: 15 

Enter: NAME 

Result: VALUE ERROR: NAME 

Variables are used in expressions in 
the same way as constants. New vari- 
ables may be defined in terms of al- 
ready defined variables. 



Enter: VALUE- 
Enter: VALUE 

Result: 45 



-NUMBER. X 3 



Once a variable is assigned, it keeps 
its value until assigned another. 



Enter: NUMBER* 
Enter: NUMBER 
Result: 16 



-NUMBER * 1 



The monadic version of the plus sign 
is used to transfer the value assigned to 
one variable to another. It is called the 
identity function. After the transfer 
the same value will be assigned to both 
variables. 

Enter: V-(15*2) + 3 X 45 
Enter: W— + V 
Enter: W 

Result: 360 

Text material may also be assigned 
to variables. These are called literals. 
To assign a literal, type the name in sin- 
gle quotes. 



Enter: NAME1- 
Enter: NAME2" 



-•FOZZY' 

-'BEAR' 



Arithmetic operations may not be 
performed on literal variables. 



Enter: NAME3-NAME1 + NAME2 
Result: DOMAIN ERROR: NAME3" 
* NAME2 



-NAME I 




PRACTICAL PERIPHERALS 

Rl FFEREl) PARALLEL INTERFACE 

FOR EPSON PRINTERS 



$159.95 

Plus Shipping 
And Applicable Tax 



The MBP-16K is an intelligent Centronics-compatible parallel interface 
for the Epson MX-80. MX-80 F/T. and MX-100 printers, with 16,384 bytes of 
onboard RAM for data buffering. 

The buffering capability of the MBP-16K increases your data processing 
efficiency by eliminating the wait normally experienced while printing. An 
Epson printer prints at 80 characters per second; at this speed it takes 
about five minutes to print a 16,000 character document. During most of 
this time the computer is waiting for the Epson to finish one line so it can 
send the next. The computer can't do anything else during this period 
because its s tied to the printer By using the MBP-16K it takes the 
computer only tour seconds to send a 16,000 character document. The net 
result is to eliminate the computer-waitmg-for printer/pnnterwaiting-for- 
computer bottleneck, and keep both working. Any program that involves 
printed output will be speeded up by using the MBP-16K 

The MBP-16K supports all standard Epson Commands, is compatible 
with GRAFTRAX-80. and is plug compatible with the standard Epson cable 
The MPB-16K does not require any user software for control 

The MBP-16K is easy to install — it simply plugs into the existing 
auxiliary interface connector inside the Epson without modification of the 
printer. 



"VIZ. A. CON." 
A CONSOLIDATION SYSTEM FOR VISICALC USERS 

NE\* PROIHO ADDS 3-DIMENSIONAI CAPABILITY FOR VISICALC MODELS. 

in the past, lo do a consolidation with VISICALC. a user had to replicate the model m 
memory and laboriously build the formulas to sum the cells The firs! thing one 
discovers using this approach is that you quickly run out of memory The second is that 
recalculation time gets much longer The third is that you spend a lot of time operating 
and controlling the consolidation process 

Now with the help of VIZ A CON you can add a third dimension to your VISICALC 
models You can combine multiple pages oi VISICALC data from a model for 
hierarchical consolidations leg Department. Division. Company, eic.) or lor 
summations over periods of time leg Month. Quarter. Year-To-Date. etc.l 

VIZ. A CON creates data files usable with VISICALC You can use VISICALC for 
what if games at any level of your consolidation Then use VIZ A CON to find out 
what happened at other levels 

VIZ A CON gives you the ability to set up special formulas (e.g. rations, 
percentages) that can be recalculated after a consolidation process You can customize 
tit es. 'ow and column headings, footnotes, etc for each report created by VIZ A CON 
Reports can De automatically saved in standa'd ASCII form that can be used with a 
word processor VISICALC precision is maintained tor a>l data 

TRS-80 Modal l/lll Disk $89 95 

TRS-80 Model II MK $119.95 

IBM PC 64K and above $1 19.95 



ASSET MANAGER 

ASSET SYSTEM is a complelely computerized asset depreciation system 
particularly designed lor the *8K TRS 80 Model II. DOSPLUS 3 4. and dot matrix printer 
The system 

i) assigns control numbers lo each asset 

2) accumulates assets according to General Ledger codes 

3) computes depreciation expense on each asset 

The ASSET SYSTEM is comprised ot six p'imary programs 
ij Asset Sys'em Menu 4i Asset sort 

2) Properly 5) Search 

3i Reports 6) Delete 

The SYSTEM is configured to handle 500 asset numbers Counters are displayed on 
the screen as the data is being entered This enables you to monitor your progress as 
data is entered 

TRS80 MOD III Disk only $79.95 

Also available 

General Ledger Program Disk Model III $125.00 



MICRO SOLUTIONS, INC. Software Center 



Master Charge & Visa 
9949 Harwin, Houston, Texas 77036 



(713) 789-5443 or 1-800-231-6667 
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new . 
ford Processing 

Catalog 




of Letterheads, Forms 1 
and Supplies ... I 



Featuring Micro-Pert" . . . continuous Letterheads with 
a clean, trim edge when detached. 

Full color catalog also offers checks, statements and 
invoices designed to work with programs from over 200 
software sources. Plus stock tab paper, labels, diskettes, 
printwheels, work station furniture and accessories. 

■ Quality products at low prices. 

■ No "handling charges" or hidden extras. 

■ Small quantities — as low as 500 checks, 
statements, invoices. 

■ Money Back Guarantee 

■ One source for your word processing needs. 

Fast service . . . buy direct by mail or 
PHONE TOLL FREE 1 + 800-225-9550 

(Mass residents 1 + 800-922-8560) 8:00 A.M. to 5:00 P.M., ET 



NAME 








PHONE 




COMPANY 


STREET 


CITY. STATE and ZIP 




To help 


us 


send you 
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SOFTWARE BRANO 




PACKAGE f 

| — 1 Do o*n 
I I programme 


"5 



COMPUTER MAKE 



[_: 



Not 

Purchased 



LINE OF BUSINESS 



Number ol 
Employees 



Nebs 
Computer Forms 

P^j* 12 South Street. Townsend, *• 



CODE 15150 



• 533 



, Massachusetts 01469 



A division ol New England Busircss Service. Inc 



Do your own taxes like an expert 
with TAX/SAVER 



TAX/SAVERI M The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Manual: Tax information, lists of deductions, tax glossary. 

• TAX/SAVER'" I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging. 

• TAX/SAVER™ II: all features of TAX/SAVER'" I plus 
business income and capital gains. 

• 40**0 Discount on yearly updates. 



Reviews and Users' Comments: 

About TAX SAVER" 

"This is a very valuable tool" — R. Perry. Personal Computing Magazine. 

"Tax Preparation Software", December 1981 
"This is the perfect program for those doing taxes for others ( . . good for an 
individual, too!!) - BM . Missoula, MT (Professional Preparer! 

About TAX FORECASTER": 

"VERY HANDY!" T. Pettibone, "Software Critic". 1982 ..312 

^Copyright 1982 'Registered trademark ol Tandy Corp 



TAX FORECASTER", a quick tax planner lor 1982 1983. lets 
you see how financial decisions will affect your taxes. Merely change 
one or more entries to see your tax refigured 

NF.W1 PROFESSIONAL TAX FORECASTER" 

t^* *"" adds disk storage of client files and income averaging 

Orders will be tilled in late January to allow inclusion of new lax laws 
TO ORDER: 



Call colled 203-324-3009 01 203-544-8777 or maii this 
coupon to Micromatic Programming Co. 

P.O. Box 158, Georgetown, CT 06829 

Please enroll me in member's service and send: 

□ TAX SAVER" 1 (a $89.95 Manual Included 
D TAX SAVER" II <&■ $139 95 Manual Included 

□ TAX FORECASTER" ;° $59.95 

□ PROFESSIONAL TAX FORECASTER" 

Q $99.95 (requires 48K) 
($15 off any TAX FORECASTER" with any TAX SAVER"! 
D Tax Form Overlays (set of 6) (a $39 95 
D Please send me more information 

Please check one: 

TRS 80* Model I D 32K. 2 drives D 48K. 2 drives 
TRS 80* Model III □ 32K. 2 drives □ 48K. 2 drives 

Add $3 50 tor postage and Kindling. CI residents add 7 .."■ sales tax 











( itv. 




3 Visa 


Zip 


□ Check 
Card No . 


□ Master Charge 


F*p Amp 



• See List ol Advertisers on Page 451 
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There is a way, however, to combine 
literals. 

Enter: NAME3— NAME], NAM E2 
Enter: NAME3 
Result: FOZZYBEAR 

Or better yet, 

Enter: NAME3"-NAME1.",NAME2 
Enter: NAME3 
Result: FOZZY BEAR 

The comma is used to chain vari- 
ables together. This is the catenation 
function. It may be used for combining 
any variables, not just literals. 

In the following example, variables 
are used to convert 10 degrees Celsius 
to Fahrenheit degrees. The first line as- 
signs the value 10 to the variable name 
CELSIUS. The second line applies the 
conversion formula, F - 32 + 9/5 x C, 
and assigns the result to the variable 
FAHRENHEIT. The last line retrieves 
the value of FAHRENHEIT com- 
puted in the second line. 

Enter: CELSIUS"^ 10 

Enter: FAHRENHEIT-32 + (9V 5) X CELSIUS 

Enter: FAHRENHEIT 

Result: 50 

This operation could be done in two 
lines by using the quad symbol in the 
second line. The quad symbol is usual- 
ly represented by a little box called a 
window. In APL80, it is obtained by 
typing shift, Q. Replace the second and 
third lines in the above example with 
,Q*-32 + (90/05), X CELSIUS. 

Quad used in this way causes the 
value assigned to the variable to be 
displayed right away, making it un- 
necessary to enter the variable name 
separately. You will be seeing the 
quad function later in another use. 

Although this example illustrates the 
assignment and use of variables, it is an 
awkward way of doing the job. To ap- 
ply the formula to a different value of 
CELSIUS would require retyping the 
lines. There is a better way. 

An APL80 Program 

A more efficient way of converting 
Celsius temperatures to Fahrenheit is 
to define a function that can be called 
by name. Until now, we have done 
everything in execution mode. To cre- 
ate your own functions in APL, you 
must be in the definition mode. The 
system command )DEF takes you to 
that mode. 

To avoid typing long names when 
the function is used, I've shortened 
FAHRENHEIT and CELSIUS to 



FAHREN and CEL. You do not have 
to type the line numbers; they are done 
automatically in the definition mode. 
This function consists of only two 
lines: the title line and line 1 . When line 
number 2 is presented, press break to 
exit from the definition mode. 

)DEF FAHREN 

1: 32-(9«o5) X CEL 

2: break 

To call the FAHREN function, as- 
sign a value to CEL, then type and en- 
ter the function name. 

Enter: CEL-5 
Enter: FAHREN 
Result: 41 

This is a niladic function, one with 
no arguments. Later you will write this 
function as a monadic function, in 
which the value of CEL need not be en- 
tered separately first. 

Try using FAHREN once more. 
This time assign seven values to CEL, 
each separated by a space. 

Enter: CEL- 15 10 - 5 5 10 15 

Enter: FAHREN 

Result: 5 14 23 32 41 50 59 

You have assigned a series of val- 
ues to CEL. The variable CEL is now 
a vector, similar to a one-dimensional 
array in Basic. No dimension state- 
ment is required; dimensioning is 
done automatically in APL. You 
need only write an assignment line 
with the desired values following the 
left arrow, separated by spaces. 
When FAHREN is called, the defined 
operations are performed on each 
member of the vector. 

You have written an APL program. 
APL programming is just writing user- 
defined functions. 

Another APL80 Program 

A defined function need not be re- 
stricted to one formula as in 
FAHREN. The function CONE de- 
fined below computes the base area 
and the volume of a cone when its 
height and the radius of its base are as- 
signed to HT and RAD. Again, short 
variable names are used to avoid the te- 
dium of typing long names. To use 
CONE, assign values to RAD and HT, 
then type CONE. 



)DEF CONE 

1: 'THE AREA OF THE BASE IS' 

2:3.1416 i XRAD*2 

3: 'THE VOLUME OF THE CONE IS' 

4: (3.1416 "fo3) f X(RAD*2) i X HT 

5: break 



Enter: RAD-1 2 3 

Enter: HT-1 2 3 

Enter: CONE 

Result: THE AREA OF THE BASE IS 3.1416 

12.5664 28.2744 

THE VOLUME OF THE CONE IS 1.0472 

8.3776 28.2744 

Like FAHREN, CONE requires 
that its variables be defined in advance. 
Also like FAHREN, CONE can be re- 
written to avoid the separate assign- 
ment statements. Since CONE has two 
arguments, it will be rewritten in Part 
II of this series as a dyadic function. 

It is possible to assign a single value 
to one variable and a vector to the 
other. In this way you can determine 
the effect of holding one variable con- 
stant while varying another. 

Enter: RAD-2 

Enter: HT-4 5 6 

Enter: CONL 

Result: THE AREA OF THE BASE IS 12.5664 

THE VOLLME OF THE CONE IS 16.7552 

20.944 25.1328 



Other System Commands 

The definitions of several APL80 
commands mention the word "work- 
space." In APL, workspace refers to 
the area of memory in which assigned 
variables and defined functions are 
stored. Work in progress can be stored 
and retrieved by saving and loading the 
workspace. 

All system commands are preceded 
by a right parenthesis. 

• )CLEAR erases all the assigned vari- 
ables and defined functions from 
memory. In APL jargon, you have 
cleared the workspace. 

• )FNS lists the names of all the func- 
tions defined in the workspace. 

• )VARS lists all variable names that 
have been assigned. 

• )SAVE saves the workspace to tape. 

• )LOAD loads a saved workspace 
from tape. 

• )CHECK is used to verify a saved 
workspace. 

• )ERASE removes a function or vari- 
able from the workspace. The function 
or variable name follows the word 
ERASE. 

• )EDIT allows you to make changes 
or insertions in a named function. 
The edit function will be described 
next month. 

• )OFF clears APL80 from memory 
and returns you to Level II Basic. ■ 

Margaret Grothman can be 
reached at 5117 Denton Place, Madi- 
son, Wl 53711. 
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FREE 

business software 
directory 

• Radio Shack's Model I, II. III. 

• Heath's MBASICand HDOS 

• CPM: Xerox. Alto... 

• IBM Personal Computer 



IDM2 is GREAT !" 



-publisher of 80- US 



"(Gl.) superior to either the Osborne (SBSG & Taranto) 
or Radio Shack... MAIL- X has a greater capacity ... 
more flexible than (R.S.)" 

-columnist of 80-microcomputing 

" imperceptively fast. . .(DBMS) is a good and reliable 
workhorse" -publisher ot Interface Age 



Data base manager, integrated accounting package 
(AR. AP. GL & Payroll), inventory, word proces- 
sing, and mailing list. Compare and be selective ! 



H^ 



Micro Architect, Inc. 

96 Dothan St.. Arlington, MA 02174 




FINALLY 
NEW! 

FROM 
COMPUTEX 



An audio cassette based Assembly Language and 
Basic Language course designed to help you learn 
how the software "pros" write programs to sell. 
Actual classes were recorded along with student 
comments and questions {the next best thing to 
being there). 

Z80 Assembly Language Course $150.00 

(includes manuals and class handouts) 

Basic Language Course $130.00 

(includes manuals and class handouts) 

CERTIFICATES OF COMPLETION A VAILABLE 
Call or write for our tree brochure 



TRAINING DIVISION 




'UM/ 



17321 El Camino Real 
Houston, Texas 77058 



(713)488-8022 



the micro computer pros 








DEMON 







7REN& 

P.O. Box 741, Bloomfield Hills. Ml 



By Jeffrey Sorensen and Philip MacKenzie 

The end is near; the demonic forces have invaded our galaxy. 
It is up to you to defend the galaxy from destruction. At 
your command is a powerful star cruiser equipped with high- 
energy missiles and defensive shields. Only with practice and 
patience will you be able to defeat the many waves of demon 
attacks and reach the three special challenge levels that will 
test your mental and physical dexterity. (Disk version saves 
high scores.) 




Software Company 

48013 (313) 540-8143 



16K Model I /1 1 1 Tape SI 9.95 
32K Model l/l 1 1 Disk S24.95 
Add S1.75 for shipping and handling 
Michigan Residents add sales tax 
Dealer Discounts Available 



■ See List ot Advertisers on Page 451 
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TECHNIQUE 



L4=^ 



.. ~> 



LOAD 80 



The Key Box 

Basic Level II 
Model I or III 
16KRAM 



Speed up your Basic displays. 



POKE Graphics 



3lf CLS:PRINTCHRS(23) :PRINT»20,'POKE GRAPHICS'; :FORAT«1TO1000:NE 

XT:CLS:GOTO350 

311 AM*PEEK(293) i IPAH-73THENAS-173B5:AMS-"Model III'ELSEAS-17129 

:AM$-*Model I* 

311 • 

Janes Schoofcr 
33 Jackson Road 
Berlin, New Jersey 18009 
609 767-2751 

312 PRINTCHR$(23) |PRINTS0,*I see you ace using a *+AN$; iFORAT-IT 
O1I00:NEXT:CLS 

314 INPUT'What line No. is the string you want to change in';AL 

316 Al -PEEK (AS) :A2-PEEK(AS+1) :A3-PEEK(AS+2) : A4«PEEK(AS+3) 

316 A9-A3+A4*256 

320 IPA9-ALTHENCLS:PRINT*I have found line No. ";AL:GOT0324ELSEC 

LSiPRINT'l am looking at line No. "|A9 

322 IPA9<ALTHENAS-A1+A2*256:GOT0316ELSEIFA9>ALTHENPRINT*I can no 

t find that line. Please check your input. *:FORZZ-1TO1000:NEXT:C 

LSiGOTO310 

324 A0-AS:PRINT*It starts in memory location No. *>A0:PRINT* 

326 PRINTPEEK(AI) | jA0»A0+l:AJ"AJ*liIFAJ<4TBENGOTO328ELSEIPPEEK(A 

0) O0TBENGOTO328 

330 PRINT i PRINT' 

*:PRINT*This is the computer code for the line. a 

iPRINT a The first two numbers (nl+n2*256) - start address of next 

line." 
332 PRINT'The next two numbers (n3+n4*256) - present line number 
.*:PRINT'The regaining numbers are the ASCII • Internal Codes fo 
r the" j PRINT "program line.*: INPUT'Press 'ENTER' to continue. "ill 
sCLS 

334 PRINT'Press the up arrow to go to next higher memory locatio 
n."> PRINT' Press the down arrow to go to next lower memory locati 
on.* i PRINT'Press ' C to change the present memory location. "iPRI 
NT'If 'C is pressed you type in the new Code No. • press 'ENTER 

336 PRINT'As you change each memory location you will be shown w 
hat'iPRINT'ia in the next location. Be careful not to change so 
me thing" iPRINT'outside of the string parenthesis. Press 'BREAK' 
to escape.' 

337 A0-A0-AJ 

338 PRINT'Maaory location', A0; " - "; PEEK ( A0) , 'ASCII ■ "i 

340 IFPEEK(M) >-32ANDPEEK(A0) <>191THENPRINTCHR$ (PEEK (A0) ) ELSEPRI 

NT'Computer code" 

342 GOSUB390:COTO338 

350 PRINT'For introduction press 'I' any other key to start. 'iGO 

SUB390 : IFAKEY $<>*I'THENGOTO310ELSECLS 

352 PRINT'Uslng poke graphics can add fast graphics to a BASIC p 

rogram. 

First you make up dummy strings. Example >> GRS-" »CHRS(34) ; "0123 

456789*;CHR$(34);* 

Next you poke a graphics character code into each memory* 

354 PRINT'location. Then when the string is printed in the progr 

then graphics will appear on the screen. In this example if 

we poke graphics character '191' into each location between 

the parenthesis when GRS is printed we will sie '; 

356 PRINTSTRING$(10,191);' 

printed. >>Press any key for program*; :GOSUB390:CLS:GOTO310 

365 GOT0365 

390 AKEY$-INKEY$iIPAKEYS-**THEN390 

392 IPASC(AKEY$)-91THENA0-A0+1 

394 1FASC(AKEYS)-10THENA0-A0-1 

3 96 I FASC ( AKEY $ ) -67 ORASC ( AKEY $ ) - 9 9THEN 3 9 8ELS ERETURN 

396 INPUT'New code '; AN :POKEA0, AN: RETURN 

Program Listing 



James S. Schaefer 
33 Jackson Road 
Berlin, NJ 08009 



POKE Graphics add high 
speed displays to a Basic 
program. 

The first two memory loca- 
tions of each line store the start- 
ing address of the next line. To 
find the start address of the next 
line use the formula n1 + n2*256. 
The next two memory locations 
store the present line number. 
To find the present line number 
use the formula n3 + n4*256. 
Control, text characters and 
space compression codes com- 
bine to store the rest of the lines. 
A zero ends each line and tells 
the computer to go to the next 
line or end the program. 

To create POKE graphic 
string(s) first make up dummy 
string(s) to change into graphic 
strings(s). Begin the program 
with these strings because the 
computer must "see" the graph- 
ic string(s) before they are 



printed. 

The POKE Graphics program 
starts at line 300, leaving enough 
room for any graphic display you 
put in your program. For exam- 
ple, start a 15 character dummy 
string in line 10 by writing 10 
G1$ = "123456789012345" To 
change this into a graphic string 
find the memory locations and 
POKE the new graphic codes 
into the locations now storing 
123456789012345. 

You can use the POKE Graph- 
ics program when you have 
keyed in line 10 as above. 

Line 310 PEEKs location 293 
to see if the program is in a 
Model I or Model III. A 73 stored 
in this location indicates Model 
III; any other indicates Model I. 
You are then informed of this in 
line 312. Line 310 also sets AS 
(address start) equal to the 
memory address of the begin- 
ning of the Basic program by us- 
ing the pointer at addresses 
16548 and 16549. This makes the 
program compatible with both 
the Model I, the Model III and 
Disk Basic. Line 314 asks what 



Memory location 


Hfflttltt = 71 


ASCII = G 


Memory location 


HUMM — 49 


ASCII = 1 


Memory location 


##### = 36 


ASCII = % 


Memory location 


##### - 213 


ASCII » Internal Code 


Memory location 


##### = 34 


ASCII = " 


Memory location 


##### = 49 

Table 1 


ASCII = 1 
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Scanned by Ira Goldklang - www.trs-80.com 



EPSON PRINTERS 



COOSOL COMPUTER PRODUCTS 

HAYES SMART 

MODEM* CHRONOGRAPH 





• EPSON MX70 S288 • HAYES SMARTMODEM (300 BAUD) 

• EPSON MX80 F/T GRAFTRAX PLUS CALL • HAYES SMART MODEM (300 & 1200 BAUD) 

• EPSON MX1 00 GRAFTRAX PLUS CALL • RS-232C COMPATIBLE 

OTHER PRINTERS * ^ Boft HALF -° UPLEX 0PERATl0N 

• NEC PC-8023A-C . CALL • TOUCH TONE and PULSE DIALOG 

• NEC 3550 CALL • AUTO-ANSWER/DIAL'REPEAT 

• NEC 351 0.351 5. 3530 S1695 • COMPLETELY PROGRAMMABLE 

• NEC 7710. 7715, 7730 $2275 • BUILT-IN AUTO MONITOR 

• NEC 7720. 7725 $2645 • STATUS AT A GLANCE 

• CITOH 851 OAP CALL • 851 OACD CALL • DIRECT-CONNECT DESIGN 

• CITOH 1541 SP CALL • 1541SRE CALL • HAYES CHRONOGRAPH 

• CITOH F10-40PU $1395 • F10-40RU $1395 • NOVATION AUTO-CAT AUTO ANS 

• CITOH F10-55PU S1795 • F10-55RU $1795 • SIGNALMAN MARK 1 (300 BAUD) 

• 0KIDATA82A CALL • 83A CALL • U.D.S. 103 OALP (300 BAUD) . 

• 0KIDATA84A . CALL • 82A TRACTOR $55 • U D S 103 JLP (300 BAUD) 

• TALLY MT 1602 MT 1605 ,., S1495 • U D S 202 SLP (1200 BAUD) 

• TALLY MT 1802 MT 1805 $1795 „.,,.,..., 

• DIABLO 630 and 620 SERIES CALL TE """ , * l » 

• QUME SPRINT 5 45'RO.KSR & 55/RO.KSR CALL • TELEVIDE0 910 S595 • 912 

• ANADEX ADX-9500-P ADX-9501-P S1295 • TELEVIDEO 920 $750' • 950 

• C0MREXCR-1-S.CR-1-C.CR-1-Q. CALL • ADDS Viewpoint A1 A2 A3 

• SMITH-CORONA TP-1 CALL 

^105 

COOSOL. INC. P.O. BOX 743. ANAHEIM. CALIFORNIA 92805-0743 



SANYO COMPUTER 




$229 • SANYO MBC-1 000 S1599 

$595 • SANYO MBC-2000 S2699 

• SANYO MBC-3000 S4999 

• SANYO ACCESSORIES* SOFTWARE CALL 
OTHER COMPUTERS 

• ALTOS Computer Systems CALL 

• ADDS Computer Systems CALL 

• NEC PC 8001 A, PC-801 2A, PC-8031 A. and 

JB 1201 (NEC SYSTEM) $2149 

$209 • NEC Other CPU's and Software CALL 

S219 • DYNABYTE 5605-6-1 S5999 

S8 g • DYNABYTE OTHER SYSTEMS CALL 

$175 • XEROX 820 SYSTEM w/5 1/4- DRIVES $2499 

$ 19 9 • XEROX 820 SYSTEM w/8" DRIVES S2995 

S?4Q ^>ORWAREFC^UHf^B(VVf^^^^^^^CALL 

I COOSOL SPECIAL DISCOUNTS 

APPLE SOFTWARE CALL 

BM S( F ' WARE CALL 



PHONE 7 DAYS 
A WEEK 



Calif. (714I 545-2216 
(8001854 8498 



J 



TRS-80- "CAN YOU BUY DIRECT?" 




SAVE SALES TAX* 
PLUS DISCOUNT 

•TEXAS RESIDENTS ADD ONLY 4"o 



"WE ARE CLOSER" 



FORT WORTH COMPUTERS 



IN TEXAS CALL 817-573-4111 



TOLL FREE ORDER NUMBER: 1 - 8 00- 4 33 SAVE 



kTm 



TRAOE MARK OF THE TANDY CORPORATION 



377 PLAZA GRANBURY • FORT WORTH • TEXAS 76048 



^See List ol Advertisers on Page 451 
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HOW YOUR TRS-80 8 CAN OUTSMART I BM-PC 9 | 
With X YZT software you rTRS-80 becomes a real pro! I 

INTERACTIVE CONTROL LANGUAGE (rel.2-A) . . S59.00/S 1 ma 

The most powerful control language ever designed lor the micro. Intended for 
control of computer operation, software enhancement and customization. Just 
check list of features: 

• Interactive program/ICLcoexecution* 

• Enhances DOS. assemblers, 
compilers, wordprocessors. 
database, etc • 

• Provides data for keyboard input 

• Access to display output* 

• &RETCODE indicates result of 
execution* 

• Conditional execution of DOS 
commands & /CMD files 



• Complete control over computer 
operation 

• Powerfull command language 
processor 

• Interaction with operator 

• Control interception* 

• Queue structure for data 
manipulation* 

• Variables and information passed 
between programs 

• Virtual I/O for keyboard and display operations* 

• Exclusive ICL feature 

LIBRARY SUPPORT OPTION . . .$79.00/510 ma 

Upgrade your DOS with libraries' Organize your files neatly - put all 
/BAS files into BAS/LIB. /CMDs to CMD/LIB. /RELs to REL/LIB, etc. 
Use regular DOS commands to list, copy. kill, print, load, save . files 
directly to/from libraries. Your processing will be faster, plus LSO 
saves space -minimal file size is 1 sector, not granule! In addition, the 
compress option saves another 30% of space. Using LSO we 
managed to place all files that previously occupied 2.5 diskettes 
onto one diskette and still 10% of space remained free! 
SPECIAL OFFER: ICL and LSO $99.00 

To order, specify Mod l/lll and DOS. 

Check. MO.COD plus S2.50 s/h 

Foreign orders • extra $ 1 00 

XYZT COMPUTER DIMENSIONS, INC. 

/ N 2 PENN PLAZA. SUITE 1 500 

/ ml--/ — 7» NYC. NY 10121 

^ f K / (212)244-3100 • '56 

Dealers inquires welcomed * registered trademarks 
NEWDOS/80* □ DOSPLUS' □ LDOS ! □ TRSDOS" D NEWDOS*-* 3 
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line and AL (associate line) 
holds the line number. 

A1 holds the least significant 
byte and A2 holds the most sig- 
nificant byte for the memory lo- 
cation of the next line. (Remem- 
ber n1 + n2*256.) A3 holds the 
least significant byte and A4 
holds the most significant byte 
for the present line number. (Re- 
member n3 + n4*256.) 

Line 318 makes A9 equal to 
the present line number (A3 + 
A$*256). If A9 equals AL then 
you have the line number you 
need and AO = AS. AO is the 
memory location for the line you 
need. Line 328 prints the ASCII 
and control codes to check for 
the dummy string. AJ records 
the number of memory locations 
the line uses so that after the 
code is printed you can return to 
the beginning of the line in 
memory. If the line found does 
not equal the line you need A9 is 
set to equal the start of the next 
line in memory. This continues 
until the line is found or there 
are no lines left. 



You can now step through 
memory locations searching for 
the 123456789012345 you want 
to change. The up arrow steps 
up in memory; the down arrow 
steps down in memory. Press 
the up arrow until you see the 
contents of Table 1. 

Now you can change the 1 
stored here into a graphics 
code. Press C and answer the 
question New code ? with a 
graphics control code between 
128 and 191. After you change 
this memory location you will 
see the new code. If you change 
the 1 into graphic code 191 the 
screen will show: 

Memory location ##### = 191 
ASCII = ■ 

If you wanted this, press the up 
arrow to move to the next higher 
memory location. If not, press C 
to change the code stored in the 
memory location. Remember 
that if you change one outside 
of the quotation marks you 
could destroy your program. Be 
careful! ■ 



MUM 



P.O. BOX 5636 • STATION "A" • CALGARY • ALBERTA • CANADA • 



i 



CANADIANS 

All our software now available 
at the lower American prices 



Some Examples 

■ Scarfman 23.95 

■ Defence Comm 19.95 

■ Robot Attack 19.95 

■ Space Castle 19.95 

■ Meteoroids 19.95 

■ NewDos80 2.0 149.95 

■ Mod III 16K 10%Off 

■ 5-1/4" Disks 34.95 

■ 3M8" Disks 49.95 

■ Green Screens 37.95 

■ Cables from 39.95 

■ Rams- 16K 24.95 



Other Products At 
Similar Savings 

■ Cornsoft Group 

■ Big Five 

H Apple Games 

■ Atari Comp Games 

■ Adventure Inter. 

■ Instant Software 

■ Med Systems 

■ Spectral Assoc. 

■ Sub Logic 

■ Modem 80 

■ Printers 



MOST TR5-80 PROD 
AT 10% DISCOUNT 



Enclose cheque or 

Money order 

with all orders. 

Add 5% for Visa orders 

Sorry no C.O.D.s 
No phone orders. 

ADD1.50/ORDER 
FORSHIPR/HAND 
3/4 WEEKS DEL 




• 469 
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THE 

S€IGCTRIC 

INTERFACE 



\NT 




Daisy wheel quality 
without daisy wheel expense* 

You need the quality print that a daisy wheel printer provides hut the thought 
of buying one makes your wallet wilt. Selectric" Interface, a step-by-step guide to 
interfacing an IBM Selectric I/O Writer to your microcomputer, will give you 
that quality at a fraction of the price. George ^ioung, co-author of Microcom- 
puting magazine's popular "Kilobaud Klassroom" series, offers a low-cost alter- 
native to buying a daisy wheel printer. 
Selectric Interface includes: 

♦ step-by-step instructions 

♦ tips on purchasing a used Selectric 

♦ information on various Selectric models, in- 
cluding the 2740, 2980, and Dura 1041 

♦ driver software for Z80, 8080, and 6502 chips 

♦ tips on interfacing techniques 

With Selectric Interface and some background in electronics, you can have a high- 
quality, low-cost, letter-quality printer. Fbtals not included. 



ISBN 0-88006-05 1 -4 1 28 page 



$12.97 



Credit card orders call TOLL-FREE 
1-800-258-547 >. Or mail your order with 
payment plus 51.50 shipping and han- 
dling to: Wayne Green Inc. Attn: Retail 
Btxik Sales, Peterborough, NH 03458. 
Dealer inquiries united. 

A \\ ayne Oreen PuHk atiun 



Yi-. 1 « in Selectric Interface 1 :i.L -i J 

•pv pill* H.^Otor '■IlippiD^ illlJ ll. Midline. 

MAsTlK ; \ISA 



•i:."7 (BK7vSs> |vr 
L AMl.X 



Card f 
Signatun 

Name 

Addrev 
Cit> 



Expires 



State and Zip 

A W.iyik' tireen Publication 

All order* shipped I 'PS it lomplete -treet addrt"* is given. SI 12 



UTILITY 



Easy Picture Editor 



by Ron Ginger 



The TRS-80 Color Computer pro- 
vides some great graphics commands 
that make graphics programs easy for 
the novice programmer — easy, but tedi- 
ous. All graphics require \ and y coordi- 
nates and some require several argu- 
ments. Keeping the arguments straight 
and getting the right coordinates takes 
careful work and much patience. Draw- 
ing the picture on graph paper helps 
keep things organized, but it's hard to 
see exactly what the screen will look like 
until you type in the entire program. 

I use a GIG I color graphics terminal 
connected to a VAX 11/780 at work 
and have access to some powerful 



Simple commands for 
art or game graphics: 
lines, boxes, and circles 
for the Color Computer. 

graphics editor software that lets me 
generate picture files by simple menu- 
driven keypad commands. I discovered 
that the same capability was possible for 
the Color Computer. 

The program lets you create a 
drawing with simple keyboard com- 
mands and then save a tape file, in Basic 
program format, that can be loaded and 



Program Listing 

1 REM *********************** 

2 REM * PICTURE EDITOR * 

3 REM * BY RON GINGER * 

4 REM * VER 1 JAN 9 1982 * 

5 REM *********************** 

10 CLEAR 10O0:PMODE 3,1:PCLS:DIM L$(50) 

15 D$=CHR$(94)+CHR$(9)+CHR$(10)+CHR$(8)+CHR$(95)+CHR$(93)+CHR$(9 

1)+CHR$(21) 

20 CSS(0)="GRN YEL BLU RED" : CSS ( 1) ="BUF CYN MAG ORA" 

25 CLS:BL$=STRINGS(32," ") : FC=4 :CM=1 :CS=0 :BC=1 

30 C$(l)=" GREEN ":CS(2)=" YELLOW ":C$(3)=- BLUE ":C$(4)=" RE 

D 

^ G £$iD)=" BUFF ":CS(6)=" CYAN ":C$(7)=" MAGENTA" :C$( 8) ■" OR 

40 GOTO 2000 

45 PRINT0CP,CHR$(143);:C$=INKEY$:IF C$="" THEN PRINTPCP, CHR$ ( 175 

) ; : GOTO 4 5 

50 RETURN 

55 C=INSTR(1,"12345678",C$) 

60 IF C=0 THEN RETURN 

65 IF Ca=l AND C<4 THEN C=C+4 

70 IF Cb=0 AND C>4 THEN C=C-4 

7 5 RETURN 

100 REM **********COMMAND INPUT***** 

105 C$=INKEY$:IF C$="" THEN 105 

110 SCkEEN 0,1 

115 CP=CM*32:GOSUB 45 

120 IF ASC(C$)=94 THEN CM=CM-1 

125 IF ASC{C$)=10 THEN CM=CM+1 

130 IF CM<1 THEN CM=13 



/ i\lma continue* 



run to draw your picture. You can use 
this program to create a display or as the 
basis of a game program. 

Operation is simple. The text screen 
displays all possible commands and ar- 
guments. A blinking cursor appears in 
the first display column which you 
move up and down with the arrow keys. 
When the cursor is in front of the item 
you want to draw, press enter. If the 
command requires more arguments, the 
cursor will jump to the appropriate 
place and await your entry. 

Once you have selected an object to 
draw, the graphics screen displays a sin- 
gle dot. Each arrow key moves this 
marker one pixel in the corresponding 
direction. With shift and an arrow, the 
marker moves 10 pixels. When the mark- 
er is where you want it, press enter. For 
lines, place the marker at the beginning 
of the line, press enter, move the marker 
to the end of the line, and press enter 
again. A line will be drawn between the 
selected points. You can continue to se- 
lect and enter points as needed. 

Boxes are entered in a similar man- 
ner. You move the marker to one box 
corner, press enter, move it to an oppo- 
site corner, and press enter again. lor 
circles, first select the center, then a 
point of the circumference. Pressing an 
incorrect key returns the text screen for 
another command input. 



The Key Box 

Color Computer 

16K RAM 

Extended Color Basic 
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Machines-Language Disk I/O 8c Other Mysteries, 
To Harness The Power of Disk Drives. 



The best and most complete book 
on TRS-80 Model I and Model III 
disk I/O available. 

"Machine-Language Disk I/O & 
other mysteries" by Michael Wagner. Volume 5 
of the popular ". . . and other mysteries" scries 
published by IJG. 

More than 190 pages of information 
and discoveries on the subject of disk I/O for the 
beginner and expert alike, using Z-80 Assembly 
Language to directly control the TRS-80 Model 
I and Model III disk drives and interrupt 
systems. With this book anyone can become a 
disk I/O "expert", and make more efficient use 
of disk space, or to write his or her own "full 
blown" disk operating system! 

For the beginner and old pro'. 

Machine- Language Disk I/O & 
Other Mysteries is packed with source code and 
flow chart illustrations for every function and 
operation described. And the source code for 
two complete disk I/O driver routines, one for 
the Model I and one for the Model III, are also 
included for "instant" access to your floppy 
drive systems. 

Plus, the source code for a small disk 
operation system (S/OS) is included as a bonus. 
This S/OS contains all of the routines described 
in the book and shows how all of the disk I/O 
and interrupt functions should be incorporated 
into a working system. 

On machine language disk I/O. 

Machine- Language Disk I/O & 
Other Mysteries explains what the floppy drive 
system is all about, what Tracks and Sector arc, 



the Western Digital Floppy Disk Controller 1771 
and 1793 chips, read/write access, reading a 
selected drives' status, how to test and make 
sure a disk is in a drive or if a drive is on the 
system (on-line), the Head Restore command, 
the Head Step and Seek commands, the 
"Force-Interrupt of function" command, the 
Read Address command, the Read Track 
command, the Write Track (FORMAT) 
command, the Read Sector command, the Write 



— F? 

•Writ «#VJ. M«f/»rr ^ 

«V- Oil UK AW'S I tKlES 




Sector command, Post Non-Maskablc- 
Interrupt Processing for the model III, and 
much more. 

On TRSDOS file I/O 

and most TRSDOS-likc operating systems, 
Machine- Language Disk I/O & Other 
Mysteries explains; what a disk file really is, 
what records are and how they're stored on the 
disk, creating a file, performing Direct Record 
I/O, performing Single Byte I/O, closing & 
killing files; error processing and TRSDOS 
error codes with their meanings, and much 
more. 

Plus many other handy programs, 
routines, and revelations are included. Such as a 
TRSDOS error message displaycr, a disk 
formatter program, a program to calculate a 
password for a given encode, a object file 
load-format displaycr, a file oriented full screen 
file editor, and a FULL BLOWN smart terminal 
program. 

Machine- Language Disk I/O & 
Other Mysteries is a must for all programmers 
at just $29.95- Available at computer stores, 
selected B. Dalton Booksellers and independent 
book dealers. If your dealer is out of stock, 
order direct. Include S4.00 for shipping and 
handling. Foreign residents add $11.00 plus 
purchase price, in U.S. funds. 



1953 West 
11th Street 
Upland, CA 
91786 (714) 
946-5805 




TM TRS-80 and TRSDOS ire registered trade marks ot TANDY Corp. 



IJG, Inc 1981 



When you are ready to save your 
masterpiece, simply select the save line 
and enter the file name you want to give 
the program. You are asked for a begin- 
ning line number for the Basic program. 
If the image is simply a drawing, 10 is a 
good place to start. If you plan to add 
some statements to the program to cre- 
ate a game, select a line number that 
puts the graphics in the correct location 
for your program. 

How II Works 

The program begins by initializing 
several needed variables and then, in 
lines 2000-2075, setting up the screen 
with the command list. It then jumps to 
the command-input routine at line 100. 
Lines 120 and 125 test input for the up 
and down -arrow keys (ASCII 94 and 
ASCII 10) and adjust CM to indicate 
the command selected. If you press en- 
ter, line 150 branches to an ON CM 
GOTO to dispatch to the section to han- 
dle the command. 

lines 200-295 handle the input of x 
and y coordinates. I tried to use joy- 
sticks for this, but found them some- 
what clumsy and inaccurate. Note the 
use of INSTR in line 21 5 to select one of 
eight possible entries. This technique is 
faster and neater than the usual section 
of If.. .Then lines sometimes used. 

The string DS is set up in line 15, us- 
ing CHRS for each possible \alue of ar- 
row and shift arrow keys. In 215 the en- 
tered variable. CS, is tested with INSTR 
and, if any arrow was pressed, returns a 
value between one and eight. If any oth- 
er character is pressed, C will be set to 
zero and the On GOTO will fall through 
to the next line. 

The program data is stored in an ar- 
ray L$, with LP pointing to the next ele- 
ment to add to the array. Note PIC-ED 
dimensions L$ to 50. If you intend to 
create a very long program, you might 
need to change the DIM and the Clear 
for string space. The commands are 
added to LS without a line number. The 
tape-writing routine (lines 900-1015) 
adds a beginning line with PMODE 3,1 
PCLS and Screen command and devel- 
ops a line number based on the input 
value for starting line. A final line is 
added with a GOTO to maintain the 
display in the finished program. 

I've found the program both fun to 
work with and useful as an easy way to 
generate graphics for other programs. It 
brings out the artist in everyone. ■ 

Ron Ginger (17 Poller Road, I ram- 
ingham, MA 01701) owns a Color 
Computer and a PDP-11. His interests 
are computing and boat building. 
390 • 80 Micro, December 1982 



135 IF CM>13 THEN CM=1 

140 IF ASC(CS)«=13 THEN 150 

145 GOTO 115 

150 ON CM GOTO 300,340,340,600,710,700,400,500,500,800,1100,1200 

,900 

200 REM ********* 'COORDINATE INPUT** 

205 PC=PPOINT{X,Y) 

210 C$«INKEY$:IF C$="" THEN 210 

215 C=INSTR(1,D$,C$) 

220 PSET(X,Y,PC) 

225 ON C GOTO 235,240,245,250,255,260,265,270 

230 C=ASC(C$) : RETURN 

23 5 Y=Y-l:GOTO 27 5 

240 X=X+l:G0TO 275 

245 Y-Y+1:G0T0 275 

250 X-X-l:GOTO 275 

255 Y-Y-10:GOTO 27 5 

260 X=X+10:GOTO 275 

265 Y-Y+10:GOTO 275 

270 X=X-10:GOTO 27 5 

275 IF X>255 THEN X=255 

280 IF X<0 THEN X=0 

285 IF Y>191 THEN Y-191 

290 IF Y<0 THEN Y=0 

295 PC=PPOINT(X,Y) :PSET(X,Y, (PC AND 7)+l):GOTO 210 

300 REM***********COLOR CHANGES***** 

305 CP=43:GOSUB 45 

310 IF C$="l" THEN CS-l:GOTO 325 

315 IF C$="0" THEN CS=0:GOTO 325 

320 SOUND 10,5:GOTO 305 

325 PRINT e43,CS;CS$(CS) ; 

330 L$(LP)="SCREEN 1 , "+C$: LP=LPti 

335 GOTO 110 

3 40 REM B/F COLOR 

345 CP-82:GOSUB 45:GOSUB 55 

350 IF C»0 THEN SOUND 10,5:GOTO 345 

355 PRINT§82,C;C$(C) ;:BC=C 

360 CP=114:GOSUB 45:GOSUB 55 

365 IF C=0 THEN SOUND 10, 5 -.GOTO 360 

370 PRINT @114,C;C$(C) ;:FC-C 

375 COLOR FC,BC 

380 LS(LP)="COLOR"+STRS(FC)+","+STRS(BC) :LP=LP+1 

385 GOTO 110 

400 REM **********CIRCLES*********** 

405 CP=242:GOSUB 45:GOSUB 55 

410 IF C-0 THEN 100 

415 CC«C:PRINT@242,CC;C$(CC) ; 

420 SCREEN 1,CS 

425 GOSUB 200: IF C<>13 THEN 110 

430 XO«X:YO«Y 

435 GOSUB 200:IF C<>13 THEN 110 

440 R=INT(SQR( (XO-X) *2+(YO-Y) *2) ) 

445 IF AR=1 THEN 525 

450 CIRCLE(XO,YO) ,R,CC 

455 L$(LP) ="CIRCLE("+STR$(XO) +" , " +STRS ( YO) +") ,"+STR$(R) +","+STR$ 

(CC) 

460 LP=LP+1 

465 IF AR=1 THEN 525 

470 GOTO 100 

500 REM **********ARC, ELLIPSES****** 

505 CP»271:GOSUB 540 : ST$=N$: ST=N 

510 CP=281:GOSUB 540 : SP$«N$: SP=N 

515 CP=304:GOSUB 540 : HW$=N$: HW=N 

520 AR*l:GOTO 420 

525 LS(LP)*"CIRCLE("+STR$(XO)+","+STR$(YO)+") , "+STRS ( R) +" , "+STRS 

(CC) +" , "+HW$ + " , "+ST$+" , "+SP$ 

530 CIRCLE(XO,YO) ,R,CC,HW,ST,SP 

535 AR=0:LP»LP+1:GOTO 100 

540 REM **********NUMBER INPUT****** 

545 PRINT eCP," ■$!*$"■" 

550 GOSUB 45 

555 IF ASC(C$)=13 THEN 575 

560 IF ASC(CS)<46 OR ASC(CS)>57 THEN SOUND 10,5:GOTO 550 

565 NS=N$+CS:IF LEN(NS)"4 THE?; 57 r 

570 PRINT 8CP,CS; : CP-CP+1 :GOTO 550 

575 N»VAL(N$) : RETURN 

600 REM **********LINES************* 

605 SCREEN 1,CS 

610 GOSUB 2S2: IF C<>13 THEN 110 

615 XO-X:YO-Y:PSET(X,Y,FC) 

620 GOSUB 200: IF C<>13 THEN 110 

625 LINE(XO,YO)-(X,Y) ,PSET 

630 GOSUB 660 

635 L$(LP)=L$(LP)+"PSET":LP=LP+1 

640 GOSUB 200:IF C<>13 THEN 110 

645 LINE -(X,Y) ,PSET 

/ mint cofilmues 
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Serial Line 
Analizer 



Serial Line Analizer 

Plugs into TRS-80 color computer Rom 
Pack port Displays EBCDIC. ASCII. Binary 
and HEX at 50. 75. 110. 134 5. 150. 200. 300. 
600. 1050. 1200. 1800. 2000. 2400. 4800 9600 
19200 Baud Baud rates can be split over two 
channels Analizer is async and supports 
computer/ modem/terminal 'printer applica- 
tions or trouble shooting Industrial serial 
analizers sell tor 3000 and up New techno- 
logy allows us to sell it for $199. 

EPROM Programmer 

Read and program EPROM on the TRS-80 
color computer, for $80. 

EPROM Board 

Board with sockets and support chips allow 
you to plug in your own EPROM and execute 
them on the color computer, for $30. 

Tape map utility 

Displays TRS-80 tape file information File 
name, file type, gap information, start ad- 
dress, load address and data blocks. $15. 

Tape save utility 

4K color computers can save machine code 
or binary files on tape with this utility. $15. 

Musid 

Simple note entry using joystick on TRS-80 
color computer Supports whole notes 
through thirty-seconds and 1 1 keys Can 
save music scores and recall them later to 
play or to change Easy to use. $30. 

Add $1 .50 for post and handlg. Prices subject 
to change- Wl resident* add 5% sales tax. 



ONTROL LRAFT INC. 



P.O. Box 123 • Muskego. Wl 53150 
414-784-9027 



TRS-80™ MODEL III 
TRSDOS™ 1.3 Users 

Super DIR 1.3 

SDIR a directory maintenance and display 
program enhancing present commands and 
allows unlimited access to your disk and disk 
files. Not recommended for those who need 
to be protected from themselves. 

^mong its many features: 

SDIR run under TRSDOS 1.3. 

SDIR abbreviated (horizontal or vertical) or 

super expanded listing with scrolling. 
SDIR graphi<~ diskette map with areas 

marked by file type. 
SDIR map showing location of any file. 
SDIR single stroke commands. 
SDIR list files a granule at a time. 
SDIR sort by name, extension, size, starting 

location or back as it was. 
SDIR rearrange order for special needs. 
SDIR most modifications either temporary 

or permanent. 
SDIR create, kill, rename, change attributes 

or reposition files. 
SDIR reduce number of extents, speed up 

direct file handling. 
SDIR change any byte on disk. 
SDIR pack out holes in disk space. 

Comes complete with manual which also 
describes the directory. How to add your 
name to boot message, substitute SDIR for 
DIR, backup protect your files like Scripsit" 
and many many more. 

Price $59.95. Send check or money order to: 

SMS Products ^ 499 

1117 32nd. Ave, SE Albany, OR 97321 

■ tradnnuiHi o< TANDY CORP 



Sof *L W. 



by 



| PABSoft | 

Excellence in Technical Software 

LINEAR CIRCUIT ANALYSIS 

DC Analysis $17 

AC Analysis $17 

State Variable Analysis $17 

All Three $40 

DIGITAL FILTER DESIGN 

Butterworth & Chebychev I $17 

Chebychev II $17 

Elliptic $17 

All Three $40 

• Professional Programmers 
•Fast Machine Language 
•Tape or Disk (Specify) 

Tape Assumes Non-DOS System 
For Disk Specify DOS 

• Model I or III (Specify) 
Minimum 48K RAM 

•Output to Video or Printer or Both 
•Catalog Available Nov 82 

• Update PABSoft Software to 
Different Computer for 1/3 
the Price 

PAB Software, Inc. 
P.O. Box 15397 
Fort Wayne, Indiana 46885 , ? 




FINALLY! PROFESSIONAL QUALITY PERSONAL INCOME TAX PROGRAM 

FOR UNDER $30 



e Don't wait until April 15. Use SUPERTAX to develop your 
tax strategy NCW. 

e An ABSOLUTE MUST for every personal software library 

e Extremely easy to use AND fully deductible on Schedule 
A or C 

• Invaluable for year-end tax planning or for tax return 
preparation 

e Written by C.P.A with Master's degree in tax 

SUPERTAX I: Ideal for tax planning and return checking, this program is 
simple, comprehensive and very fast Answer all those what if ques 
tions throughout the year, and at the same time make your tax return 
computer- accurate Using either screen or printer output, it generates 
summanes of Page 1 and 2 and Schedule A of Form 1040 This program 
also prints an overall summary of the return showing Adjusted Gross 
Income. Itemized Deductions. Taxable Income. Regular Tax. Income 
Averaging Tax. both Minimum taxes, and Payment Due or Refund (all of 
which are calculated by the program) SUPERTAX I also calculates the 
moving expense deduction, investment credit, taxable capital gains, poli- 
tical and child care credits, medical limitations and more 

SUPERTAX II: This 2-disk set includes the efficient SUPERTAX 1 program 
as well as the more detailed SUPERTAX II program which makes all of the 
SUPERTAX I calculations, but which also PRINTS THE INCOME TAX 
RETURN 1 This program prints Page 1, Page 2, Schedules A. B, and G 
(income averaging) of the FORM 1040 as well as the Form 3468 (invest- 
ment tax credit) using tractor feed income tax forms (one of each is 
supplied with the program) 

• See List of Advertisers on Page 451 



e Undeniably one of today's greatest software values 

e Available for . Radio Shack Models I, II, III and 16 and 

Apple II t 48K or larger systems 
e Also available on standard 8" CP/M 
e Data can be saved on disk 
e Subsequent year updates available at 20% discount 

e Programs are fully prompted and include manual loaded 
with valuable tax information and guidance 

SUPERTAX III: A 2 disk set which includes both the SUPERTAX I and 
SUPERTAX II programs PLUS a program to calculate and print Schedule C 
of the FORM 1040. Also included is a stand alone depreciation program 
which calculates and prints your depreciation schedule using both the old 
rules and the new ACRS rules Output from the depreciation program is 
designed to serve as a supplement to IRS FORM 4562 



SUPERTAX I 


$24 00 


SUPERTAX II 


$31 50 


SUPERTAX III 


$36 50 



8" diskettes $2.00 higher Add $1 50 for postage & handling 

ROCKWARE DATA CORPORATION 

DFPT 80M ■ PO BOX 401710 ■ DAI 1 AS TX 75240 • (214) 596-0588 



cpm Radio Shack & Apple i 

Inc 



in- trademarks of Diqitai Research Tandy Corp and Apple Computers 
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K- TRS-80 

Model! ™ 



EPROM Storage 
Alternative to 
Tapes and Discs 

Need reliable turn-key 
operation for your TRS-80*? 

Can't afford tape/disc problems? 

Plug Bug Systems has the cure! 

15 day money back guarantee 

THE IDEA 

A Modularised REPROGRAMMABLE EPROM - • memory System loi 
user creation ot up to 24K burned >n BASIC Or MACHINE 
LANGUAGE programs instantly accessible without tapes or discs 
tor Model l and Ml 48k options available No soldering o> EPROM 
handling all units have then own powe' supplies 1 

THE SYSTEM 

A CONTROtlER MODULE is plugged into the IRS 80" Individual 
unourned 1 ?K or 6K EPROM memory packs are then plugged into 
the controller Under direction of our system software the use' 
loads his target program and burns it mic t or ? packs thus pro 

viding jp to ?4K storage The CONTROLLER MODULE also provides 
the interlace lor transferring the burned programs or data into 
RAM avoiding tape and disc load erro"-' BASIC and MACHINE 
LANGUAGE programs/data car be called up by tile name and start 
e<ecuting immediately Disc and cassette lunctions sun valid 

OR 

Programs can be executed directly ''om a pack without the CON 
TROLLER MODULE by plugging them into the TRS 80* 
I Mod el l 16K 3?K) keyboard connector bus 

SYSTEM SUPPORT 

Plug Bug RAM 

6K static read/write memory tor program development includes a 
write protect switch thereby simulating EPROMs Ptograms 
e» ecu ted directly or accessed via CONTROLLER MODULE 

Softwar* 

PRBURN cassette system contiol program supervises burn wly 

and tiiespec naming ot programs Can be translerred to disc 

Doc um«nl«t Ion 

Complete straightforward instructions Machine language know 

ledge not required 

Burn Service 

We provide a reprog'amming service lor your Phjg Bug packs inon 

disclosure agreement provided) 



PLUG BUQ PACKS 

6K {EPROMj J84.95 

I ?K (EPROM) S94.95 

48K (EPROM SVS1EM) INOUIRE 

6K (RAM) J94.»5 

CONTROLLER MODULE $119.50 

BURN SERVICE PACK 114.95 
to order send cashiers check or money order to 

PLUG BUG SY8TEMS 

RID 3 Bo» 300 

Ml Kisco NY 10549 

914 666 /672 

C D on request 

■KM 13 00 lor smpginq and handling 

add $5 00 tor Canada and Me.ico 

"Trade Mark Tandy Radio Snack Corp 

• * Packs erasable with ultra-violet lamp • 377 
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/ idling continued 

650 GOSUB 665 

655 L$(LP)«L$(LP)+"PSET":LP»LP+l:GOTO 640 

660 L$(LP)="LINE("+STR$(XO)+","+STR$(YO)+")-("+STR$(X) +","+STR$( 

Y) +") ," : RETURN 

66 5 L$(LP) ="LINE-("+STR$(X)+","+STR$(Y)+") , ":RETURN 

700 REM **********BOXES************* 

705 F=l 

710 SCREEN 1,CS 

715 GOSUB 200: IF C<>13 THEN 115 

720 XO=X:YO=Y:PSET(X f Y f FC) 

725 GOSUB 200:IF C<>13 THEN 115 

730 IF F THEN LINE (XO ,YO) - (X , Y) , PSET , BF 

735 IF F=0 THENLINE(XO,YO)-(X,Y) ,PSET,B 

7 40 L$(LP) ="LINE("+STR$(XO)+","+STRS(YO)+")-("+STR$(X)+","+STR$( 

Y) +") r PSET,B" 

745 IF F THEN L$ (LP) =L$ (LP) +"F" 

750 LP=LP+1 

755 F=0:GOTO 100 

800 REM ***********PAINT************ 

805 CP=333: GOSUB 45: GOSUB 55 

810 IF C=0 THEN 110 

815 PP=C:PRINT §332 , PP;C$ (PP) ; 

820 CP=350:GOSUB 45:GOSUB 55 

825 IF O0 THEN 110 

830 BB=C:PRINT G350,BB; 

835 SCREEN 1,CS 

840 GOSUB 200:IF C<>13 THEN 110 

845 PAINT(X,Y) P PP,BB 

850 L$ (LP) =" PAINT ( "+STR$(XO) +" , "+STR$(YO) +") , " +STRS ( PP) +", 

(BB) 

855 LP=LP+1 

860 GOTO 100 

900 REM ***********SAVE TO TAPE***** 

905 CP=432:GOSUB 1240 

910 CP=443 

915 GOSUB 45 

920 IF ASC(C$)=13 THEN 945 

925 PRINT §CP,C$; :LN$=LN$+C$ 

930 IF LEN(LN$)=4 THEN LN=VAL(LN$) :GOTO 945 

935 CP=CP+l:GOTO 915 

940 PRINT@450,"LOAD TAPE-PRESS RECORD"; 

945 C$=INKEY$:IF C$="" THEN 945 

950 PRINT §500, "...WORKING"; 

955 OPEN "0",-l,N$ 

960 X$=STR$(LN)+" PMODE 3 , 1 : PCLS: SCREEN 1,1":PRINT t-l,X$ 

965 LN=LN+10 

970 FOR 1=0 TO LP 

975 X$=STR$(LN+I*10)+" "+L$(I) 

980 PRINT #-l,X$ 

985 NEXT I 

990 LN=LN+(I+1) *10 

995 X$=STR$(LN) +" GOTO"+STR$(LN) 

1000 PRINT 1-1, X? 

1005 CLOSE 

1010 PRINT@448,BL$; : PRINTe478,BL$; 

1015 GOTO 110 

1100 REM *********LOOK AT GRAPHICS*** 

1105 SCREEN 1,CS 

1110 GOTO 100 

1200 REM *********SKIP A FILE******** 

1205 CP=400:GOSUB 1240 

1210 PRINT @450, "LOAD A TAPE-PRESS PLAY"; 

1215 C$=INKEY$:IF C$="" THEN 1215 

1220 PRINT §500,". . .WORKING"; 

1225 SKIPF N$ 

1230 PRINT £450, BL$; :PRINT @478,BL$; 

1235 GOTO110 

1240 REM *********FILENAME INPUT***** 

1245 N$="" 

1250 GOSUB 45 

1255 IF ASC(C$)=13 THEN RETURN 

1260 PRINT @CP,C$; 

1265 N$=N$+C$:IF LEN(N$)=8 THEN RETURN 

1270 CP=CP+l:GOTO 1250 

2000 REM *********SET UP TEXT SCREEN** 

2005 CLS:PRINT§8, "PICTURE EDITOR"; 

2010 PRINT§33, "COLOR SET" ;CS;CS$(CS) ; 

2015 PRINT@6 5, "BACKGROUND COLOR 1 GREEN"; 

2020 PRINT@97, "FOREGROUND COLOR 4 RED"; 

2025 PRINTC129, "LINES"; 

2030 PRINT8161,"OPEN BOX"; 

2035 PRINT@193, "FILLED BOX"; 

2040 PRINT@225, "CIRCLE COLOR"; 

2045 PRINT@257,"ARC START STOP"; 

2050 PRINT@289, "ELLIPSE H/W" ; 

2055 PRINT@321, "PAINT COLOR BORDER"; 

2060 PRINT@353,"LOOK AT DRAWING"; 

2065 PRINT@385,"SKIP FILE NAME"; 

2070 PRINT8417 ,"SAVE FILE NAME LN"; 

207 5 GOTO 110 
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HOBBY COMPUTERS ARE HEREHt you want to come 
up to speed on how computers work — hardware and 
software— this is an excellent book It starts with funda 
mentals and explains the circuits and the basics of pro- 
gramming, along with a couple of TVT construction proi 
ects. ASCII, Baudot, etc. This book has the highest rec- 
ommendations as a teaching aid $2.97." BK7322 

THE NEW HOBBY COMPUTERS-This book takes up 
from where Hobby Computers Are Here' leaves off. with 
chapters on Large-Scale Integration, how to choose a 
microprocessor chip, an introduction to programming, 
low-cost I/O for a computer, computer arithmetic, check 
mg memory boards, and much, much more! Don't 
miss this tremendous value! BK7340 Only S2 97 ' 

BOTH VOLUMES FOR $4.95! 
ORDER HC002 



I NEW NEW NEW" 

INTRODUCTION TO WORD PROCESSING by Hal 
Glatzer. This book explains in plain language what a 
word processor can do, how to use one. how it improves 
productivity— especially m businesses that handle lots 
of words— and how to buy one wisely No technical 
knowledge required, for all first time users and those 
considering purchasing a word processor BK1238 $12 95 

A USER GUIDE TO THE UNIX SYSTEM by Jean Yates 

and Rebecca Thomas Here at last is a dearly written 
book that allows you to use the Unix operating system 
easily, and at a traction of the time it previously took If 
you're using, evaluating or simply curious about this sys 
tern, this is your book BK1242 $1599 

WORDSTAR MADE EASY by Walter A, Ettlin. Now Word- 
Star is as simple to learn as it is easy to use This book 
teaches WordStar in 14 easy lessons, saving hours of 
hard work. It comes with a convenient pull-out Command 
Card BK1239$1195 




YOUR FIRST 
COMPUTER 
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• SOME OF THE BEST FROM KILOBAUD MICROCOM 
PUTING - BK731 1 - A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING Includ 
ed is material on the TRS-80 and PET systems, CP/M. the 
B080/8085/Z«0 chips, the ASR-33 terminal Da'a base 
management, word processing, text editors and tile 
structures are covered too Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interlaces and TVTs are 
also included in this large format, 200 plus page edition 
$1095' 

DON'T (or How to Care for Your Computer) -by Rod 
nay Zaks In plain language, with numerous illustra- 
tions, this book tells all the do's and don't's of the care, 
preservation and correct operation of the small com- 
puter system. Specific chapters cover each piece of 
hardware and software, as well as safety and security 
precautions and help for problem situations Have 
your computer work right the first time and keep it 
working No technical background required. For all 
computer users BK1237$1195 

YOUR FIRST COMPUTER by Rodnay Zaks Whether 
you are using a computer, thinking about using one or 
considering purchasing one, this book is indispen 
sable It explains what a computer system is, what it 
can do, how it works and how to select various com- 
ponents and peripheral units It is written in everyday 
language and contains invaluable information for the 
novice and the experienced programmer (The first edi 
tion of this book was published under the title An In 
troduction to Personal and Business Computina" ) 
BK1191 $6 95' 

MICROPROCESSOR INTERFACING TECHNIQUES 
— by Austin Lesea & Rodnay Zaks— will teach you how 
to interconnect a complete system and interface it to 
an the usual peripherals. It covers hardware and soft- 
ware skills and techniques, including the use and de- 
sign of model buses such as the IEEE 488 or S-100. 
BK1037$17 95.* 



AN INTRODUCTION TO MICROCOMPUTERS. VOL. 
— The Beginner's Book —Written for readers who know 
nothing about computers— for those who have an in 
terest in how to use computers— and for everyone else 
who must live with computers and should know a I tt <• 
about them The first in a series of 4 volumes, this book 
will explain how computers work and what they can do 
Computers have become an integral part of lite and 
society During any given day you are affected by com- 
puters, so start learning more about them with Volume 
0. BK1 130 $12.50." 

VOl . I — NEW 3rd Edition! Dedicated to the basic con- 
cepts of microcomputers and hardware theory The 
purpose of Volume 1 is to give you a tnorough under 
standing of what microcomputers are From basic con- 
cepts(which are covered in detail). Volume 1 builds the 
necessary components of a microcomputer system. 
This book highlights the difference between minicom- 
puters and microcomputers. BK1030 $15.95 



KILOBAUD KLASSROOM-Dy George Young and Peter 
Stark. Learning electronics theory without practice isn't 
easy And it's no fun to build an electronics proiect that 
you can't use. Kilobaud Klassroom, the popular series 
first published in Kilobaud Microcomputing, combines 
theory with practice This is a practical course m digital 
electronics It starts out with very simple electronics 
projects, and by the end of the course you'll construct 
your own working microcomputer! 

Authors Young and Stark are experienced teachers, 
and their approach is simple and direct Whether you're 
learning at home or in the classroom, this book provides 
you with a solid background in electronics— and you'll 
own a computer that you built yourself BK7386 $14 95 

TOOLS * TECHNIQUES FOR ELECTRONICS-by A A 

Wicks is an easy-to-understand book written for the 
beginning kit builder as well as the experienced hob- 
byist it has numerous pictures and descriptions of the 
safe and correct ways to use basic and specialized tools 
for electronic projects, as well as specialized metai- 
working tools and the chemical aids which are used in 
repair shops $4 95 ." BK7348 

• UNDERSTANDING AND PROGRAMMING MICRO 
COMPUTERS BK7382 A valuable addition to your 
computing library This two-pari text includes the best 
articles thai have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and soft 
ware aspects of microcomputing Well-known authors 
and wen-structured text helps the reader get involved 
$1095" 
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DOS RANDOM ACCESS & BASIC FILE HANDLING-By 
H J Mulier This book was written for the nonprogram 
me' : s '.-a Iqi the businessman or professional who 
needs to solve and write special programs tor m-house 
business problems, or the hobbyist who wants to go be- 
yond the cassette recorder and into disk storage and file 
manipulation It is written as a self instruction tutorial 
and will provide anyone with some Level II experience 
with the ability to write special programs for inventories. 
mailing list, work scheduling, record keeping, research 
project data manipulation, etc. 150 pages BK1236 
$29 50 

TRS-80 DISK *NO OTHER MYSTERIES-by Harvard C 
Pennington This >s the definitive work on the TRS-80 
disk system. It is full of detailed "How to use. infor- 
mation with examples, samples and in-depth explana- 
tions suitable for beginners and professionals alike 
The recovery of one lost fi'e is worth the price alone 
BK1181 $22 50 • 

MICROSOFT BASIC DECODED AND OTHER MYS 
TERIES— by James Farvour From the company that 
brought you TRS80 DISK AND OTHER MYSTERIES 
Contains more than 6500 lines of comments for the dis- 
assembled Level II ROMs and six additional chapters 
describing every BASIC subroutine, with assembly 
language routines showing how to use them Flow 
charts Tor all major routines give the reader a real in- 
sight into how the interpreter works BKH86 $29 50 ' 



MOD III ROM COMMENTED-Soft Sector marketing. 
1981 This book is not an instruction course on 
machine language, but rather an information source 
that you can use time and time again for writing your 
own program or patching old Mod I machine language 
programs It contains an explanation of ROMs in the 
latest machine from Tandy, with most every location of 
the 14K ROMs listed, with comments BK1235 $22 50 

THE CUSTOM TRS-80 AND OTHER MYSTERIES-by 
Dennis Kitsz More than 300 pages of TRS-80 customiz 
mg information. With this book you'll be able to ex- 
plore your computer like never before. Want to turn an 
8 track into a mass storage unit? Individual reverse 
characters'' Replace the BASIC ROMs' 5 Make Music - ' 
High speed, reverse video. Level I and Level IP Flu it It 
it breaks down'' All this and much, much more Even if 
you have never used a soldering iron or read a circuit 
diagram, this book will teach you how! This is the 
definitive guide to customizing your 80' BK1218 
$29 95* 

BASIC FASTER AND BETTER AND OTHER MYS 
TERIES by Lewis Rosenfelder You don t have to 
learn assembly language to make your programs run 
fast With the dozens of programming tricks and 
techniques m this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC Find out how 
to write elegant code that makes your BASIC really 
hum, and explore the power of USR calls BK1221 
$29 95 • 

THE CP'M HANDBOOK (with MP/M)-by Rodnay Zaks 
A complete guide and reference handbook for CP'M — 
the industry standard in operating systems. Step-by 
step instruction for everything from turning on the 
system and inserting the diskette to correct user 
discipline and remedial action for problem situations 
This also includes a complete discussion of all ver- 
sions of CP'M up to and including 2 2. MP'M aid 
CDOS BK1187$14 95. - 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



No COD. orders accepted. All orders add $1.50 for first book. $1.00 each additional book. $10.00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order'' Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department»Peterborough NH 03458. Be sure to include check or detailed credit card information. 



For Toll Free Ordering Call 1 800 258-5473 



80 Micro, December 1982 • 393 




micro 

BOOK SHELF 



3 9?*.~J s L 



NANOS SYSTEM 
REFERENCE CARDS 

For Models I, II, III and color computer 

At last! No more flipping through the pages of the 
Basic manual! No more working through the maze of 
machine language instructions! These cards com- 
pletely summarize the Basic and Assembler manuals' 
FEATURES INCLUDE: 

memory map. eyeball graphics, math instructions, 
basic commands, store instructions, basic functions. 



load instructions, basic statements, move instruc- 
tions, special keys, exchange instructions, print using 
examples, shift instructions, basic special characters, 
compare instructions, basic and assembler messages 
and codes, branch instructions, basic facts, data 
alteration instructions, reserved words. I/O instruc- 
tions, ROM routines, complete character chart with 
graphics and space-compression codes, hex-dec 
chart, control code cross-reference, assembler in- 
structions commands and operators, screen line 
layout, editor commands & subcommands, condition 
code easy access 

Designed as a fold-up. accordion-style card, fits in your 
pocket. Panels organized for optimum speed for 
reference. 

Model I: Basic only FC1001 $2.95 

Model I: BASIC and Assembler FC1002 $4.95 

Model II: BASIC and Assembler FC1005 $5.95 

Model III: BASIC only FC1004 $3.95 

Model III: BASIC and Assembler FC1003 $5.95 

Color BASIC and Extended FC1006 $4.95 

Apple II: BASIC only FC1007 $3.95 

Apple II: BASIC & 6502 FC1008 $4.95 



Z80 



6089 



INSIDE LEVEL II— For machine language program- 
mers. This is a comprehensive reference guide to the 
Level II ROMs, allowing easy utilization ot the 
sophisticated routines they contain. It concisely ex- 
plains set-ups. calling sequences, variable passage 
and I/O routines. Part II presents an entirely new com- 
posite program structure which unloads under the 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com- 
piler Special consideration is given to disk systems 
BK1183S15 95 ' 

• Z-M ASSEMBLY LANQUAQE PROGRAMMING- 
BK1177— by Lance A Leventhal. This book thoroughly 
covers the Z 80 instruction set, abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z 80 I/O devices and interfac 
ing methods, assembler conventions, and compari 
sons with 8080A/8085 instruction sets and interrupt 
structure $16 99 • 



TRS-80 ASSEMBLY LANGUAGE-by Hubert S Howe, 
jr This book incorporates into a single volume ail the 
pertinent facts and information you need to know to 
program and enjoy the TRS-80. Included are clear 
presentations of all introductory concepts, completely 
tested practical programs and subroutines, details of 
ROM and RAM and disk operating systems, plus com- 
prehensive tables, charts and appendices Suitable for 
the first time user or more experienced users BK1217 
$9 95' 

PROGRAMMING THE Z-80- by RodnayZaks Here is as 
sembly language programming for the Z-80 presented as 
a progressive, step-by-step course This book is both an 
educational text and a self-contained reference book. 
useful to both the beginning and the experienced pro- 
grammer who wish to learn about the Z-80. Exercises to 
test the reader are included BK1122 $15.95.' 



6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING — by Andrew O Staugaard, Jr. Getting 
involved with Tandy's new Color Computer? If so. this 
new book from the Blacksburg Group will allow you to 
exploit the awesome power of the machine's 6809 
microprocessor Detailed information on processor ar- 
i !>-_ij-e iddrvMin^ nodtt, register operation lata 
movement, arithmetic logic operations. I/O and inter- 
facing is provided, as well as a review section at the 
end of each chapter Four appendices are included 
covering the 6809 instruction set, specification sheets 
of the 6809 family of processors, other 6800 series 
equipment and the 6809/6821 Peripheral Interface 
Adapter. This book is a must for the serious Color Com- 
puter owner BK1215$13 95 '. 



MICROCOMPUTING CODING SHEETS Microcom- 
putings dozen or so programmers wouldn't try to work 
without these handy scratch pads, which help prevent 
the little errors that can cost hours and hours of 
programming time. Available for programming is 
Assembly/Machine Language (PD1001). which has col 
umns for address, instruction (3 bytes), source code 
(label, op code, operand) and comments, and lor 
BASIC IPD1002) which is 72 columns wide 50 sheets to 
a pad. $2.39' 
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SELECTRIC INTERFACE— by George Young You need 
the quality print that a daisy wheel printer provides but 
the IhoughLpJ buying one makes your wallet wilt 
SELECTRIC™ INTERFACE, a step by step guide to In- 
terlacing an IBM Selectnc I/O Writer to youi microcom 
puter. will give you that quality at a fraction ot the 
price. George Young, co-author of Kilobaud Microcom- 
puting magazines popular Kilobaud Kiassroom 
■live to buying a daisy 
wheel printer SELECTRIC INTERFACE inclooi 
by step instructions, tips on purchasing a used Selec 
trie, information on various Selectnc models in- 
cluding the 2740. 2980, and Dura 1041 driver software 
for Z80. 8080, and 6502 chips, lips on interfacing tech 
niques With SELECTRIC INTERFACE diul some back- 
ground m electronics, you can have a high quality, low 
cost, letter quality printer Petals not included BK7388 
(125 pages) $12 97 



TEXTEDIT — A Complete Word Processing System in 

Kit Form 

by It win Rappaport 

TEXTEDIT is an inexpensive woi I pi 

be adapted to suit your differing needs — from form let 

ters to lenqthv texts Written in TRS-80 Disk BASIC the 

system consists of several modules, permitting the 

loading and use of only those portions needed A disk 

is also available which provides the direct loading of 

the modules however, the book is required for 

documentation For V I Will HSDOSCON 

VERT one disk drivi \ ■ ■ . orcopyutilr 

ed to transfer to system disk). Runs under Tfl 

2.2/2.3 May not function under other systems BK7367 

(book, 90 pages) $9.97 DS7387 (disk) $19.97 



THE NEW WEATHER SATELLITE HANDBOOK-by Dr. 
Ralph E, Taggan WB8DQT Here is the completely up- 
dated and revised edition of the best selling Weather 
Satellite Handbook— containing all the information on 
the most sophisticated and effective spacecraft now 
in orbit Dr. Taggart has written this book to serve both 
the experienced amateur satellite enthusiast and the 
newcomer. This book is an introduction to satellite 
watching, that tells you how to construct a complete 
and highly effective ground station. Not |ust ideas, but 
solid hardware designs and all the instructions neces- 
sary to operate the equipment are included An entire 
chapter is devoted to microcomputers and the Weath- 
er Satellite Station, and for the thousands of experi- 
menters who are operating stations The New Weather 
Satellite Handbook details all the procedures neces- 
. .-nt spacecraft. Weather Satellite 
contains Operation Satellite Systems. Antenna Sys- 
tems .'. s. A Cathodr- Ray 
Tube (CRT) Monitor for Satellite r i, A Di- 
rect-Printing Fascimile System for Weather Satellite 
Display. How to Find the Satellite. Test Equpment Mi 
crocomputers and the Weather Satellite Station. Sta- 
tion Operation. BK7383 $8.95.' 



No COD. orders accepted. All orders add $1.50 for first book. $1.00 each additional book, $10 00 per book foreign airmail. Please allow 4-6 weeks for delivery. Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece of paper and 
mail to 80 Micro Book Department'Peterborough NH 03458 Be sure to include check or detailed credit card information 



For Toll Free Ordering Call 1 8002585473 
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THE BASIC HANDBOOK-SECOND EDITION- by 
David Lien This book is unique It is a virtual 
ENCYCLOPEDIA ot BASIC While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies II a 
computer does not possess the capabilities ol a need- 
ed or specified word, there ate often ways to ac 
complish the same Junction by using another word or 
combination ol words That's where the HANDBOOK 
comes in It helps you get the most Irom your com- 
puter, be it a "bottom of the line micro or an oversized 
monster BK1174S19 95 * 

LEARNING TRS-80 8ASIC-by David A Lien Dr Lien, 
who is the author ol THE BASIC HANDBOOK and the 
original Radio Shack LEVEL I USER'S MANUAL, has 
compiled a tutorial which includos portions ot the 
original USER'S MANUAL, and most ol LEARNING 
LEVEL II along with extensive additions. It will com 
pletely cover the TRS-80 Models I. II. III. and 16 (sorry, 
not the color or pocket computers). It is, ol course, writ- 
ten in the easy learning style which readers ol Dr. 
Lien's books have come to enjoy. BK1175 $19.95. 

BASIC BASIC (2ND EDITION)-by James S Coan This 
is a textbook which incorporates the learning ol com- 
puter programming using the BASIC language with the 
teaching ol mathematics. Over 100 sample programs 
illustrate the techniques ol the BASIC language and 
every section is followed by practical problems. This 
second edition covers character string handling and 
the use of data files BK 1026 $1 1 50 * 



INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING-by Michael P. Zabin- 
ski. Written by an experienced educator, this is the 
book lor those beginners who want to learn about com 
puters without having to become an expert it has prac- 
tical programs, useful line-by-line comments, excel- 
lent flowcharts accompanied by line numbers and over 
200 exercises which help the reader assess progress, 
reintorce comprehension, and provide valuable prac 
ticai experience BK1219$10 95" 

50 BASIC EXERCISES-by J. P. Lamoitier This book is 
structured around the idea that the best way to learn a 
language is through actual practice It contains 50 
completely explained exercises statement and 
analysis ol the problem, flowcharts, programs and ac 
tual runs Program subjects include mathematics 
business, games, and operations research, and are 
presented in varying levels of difficulty. This format 
enables anyone to learn BASIC rapidly, checking their 
progress at each step BK1192$12 95 - 

NEW REVISED EDITION 

PROGRAMMING IN PASCAL ty Pe'er Gfogono The 
computer programrr-ng language PASCAL was the 
first l.incuago '. emtody -n a coherent way the con 
cepts of structured programming, which has beer 
delmed by Edsger Dijkstra and CAR Hoare As such, 
it is a landmark in the development ol programming 
languages PASCAL was developed by Niklaus Wirth 
m Zurich, it is derived Irom the language ALGOL 60 but 
is more powerful and easier to use PASCAL is now 
widely accepted as a useful language that can be effi- 
ciently implemented, and as an excellent teaching 
tool It does not assume knowledge ol any other pro- 
gramming language and therefore suitable lor an in 
troductory course BK1 140 $12.95 ' 

ADVANCED BASIC— Applications including strings 
and files coordinate geometry, area, sequences and 
series. Simulation and qraphing and games BK1000 
$11 50 

INTRODUCTION TO PASCAL-By Rodnay Zaks. A 
step-by-step introduction for anyone wanting to learn 
the language quickly and completely. Each concept is 
explained simply and in a logical order All features ol 
the language are presented In a clear, easy-to-under- 
stand lormat with exercises to test the reader at the 
end ol each chapter. It describes both standa'd 
PASCAL and UCSD PASCAL, the most widely used dia 
lect for small computers. No computer or program 
ming experience Is necessary BK1189 $1595 
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HOW TO MAKE MONEY WITH COMPUTERS-ln 10 in 
formation-packed chapters Jerry Felsen describes 
more than 30 computer related, money-making, high 
profit low capital investment opportunities 
BK1003 $15.00 ' 

HOW TO SELL ANYTHING TO ANYBODY-Accordmg 
to The Guinness Book ot World Records, the author. 
Joe Girard, is "the world's greatest salesman. This 
book reveals how he made a fortune— and how you 
can. too BK7306$2 25 " 

THE INCREDIBLE SECRET MONEY MACHINE-by 
Don Lancaster. A different kind of 'cookbook' - from 
Don Lancaster Want to slash taxes? Get Iree vaca- 
tions? Win at investments? Make money Irom some- 
thing that you like to do? You'll tind this book essential 
to give you the key insider details of what is really in- 
volved in starting up your own money machine. BK1178 
$5.95.' 



ANNOTATED BASIC -A NEW TECHNIQUE FOR NEO 
PHYTES — BASIC programming w<is supposed to be 
simpie— a beginners programming language which 
was so near to English that is could be easily 
understood But m recent years BASIC has become 
much more powerful and therefore much more dillicult 
to read and understand BASIC simply Isn t basic 
anymore 

Annotated BASIC explains the complexities o» 
modern BASIC It includes complete TRSBO* Level II 
BASIC programs thai vou car- use Each program is an 
notated toexpiam m step by step tashic 
ol the program Programs are liowcha'ted to assist 
you m following the operational sequence And— each 
chapter includes a description ol the new concepts 
have been introduced 

Annotated BASIC deals wtf tie hnv,^ .i-d whys ol 
TRS 80 BASIC programming Hon -s a program put 
together^ Why is H wnttet I observing the 

programs and following the annotation you can devel 
op new techniques to use m your own programs— or 
modify commercial programs lor your specilic use 
Annotated BASIC Volume 1 BK7384 $10 95 
Annotated BASIC Volume 2 BK7385 $10 95 
Order Both Volumes and Save 1 BK7^8402 $18 95 



Games 



Business 



CAPTAIN 80 BOOK OF BASIC ADVENTURES - by Rob 

ert Liddil. This book contains 18 ol the most popular 
Adventure programs available today; all in one easy to 
read book with listings ready to be keyed in to your 
computer This unique book also contains an ADVEN- 
TURE GENERATOR program, not available Irom any 
other source. This generator program will actually 
write another BASIC ADVENTURE PROGRAM 1 Al 
though specilically written lor the TRS-80 Model I & III. 
these programs are adaptable to other computers us- 
ing Microsoft BASIC. BK 1240 $19.95. 
40 COMPUTER GAMES FROM KILOBAUD MICHOCOM 
PUTING— Forty games in all in nine different categories 
Games for large and small systems, and even a section 
on calculator games Many versions of BASIC used and 
a wide variety ol systems represented A must lor the 
serious computer gamesman. BK7381 $7 95 * 

BASIC COMPUTER GAMES-Okay. so once you get 
your computer and are running in BASIC, then what 7 
Then you need some programs m BASIC, that's what 
This book has 101 games lor you Irom very simple to 
real buggers You get the games, a description ol the 
games, the listing to put in your computer and a sam- 
ple run to show you how they work Fun Any one game 
will be worth more than the price of the book lor the fun 
you and your family will have with it BK1074 $7 50 ' 

MORE BASIC COMPUTER GAMES-Edited by David 
H. Ahi. More lun in BASIC 84 new games Irom the peo 
pie who brought you BASIC Computer Games In- 
cludes such favorites as Minotaur (battle the mythical 
beast) and Eliza (unload your troubles on the doctor at 
bargain rates) Complete with game description, list 
mg and sample run BK1182$7 50* 

WHAT TO DO AFTER YOU HIT RETURN — PCC's first 
book ot computer games 48 different computer 
games you can play in BASIC, programs, descip- 
dons and many illustrations. Lunar Landing. Ham- 
murabi. King. Civel 2. Oubic 5. Taxman. Sta* Trek. 
Crash, Market, etc BK1071 $16 50* 

No CO D orders accepted All orders add $1.50 lor first book. $1.00 each additional book. $10.00 per book foreign airmail. Please allow 4-6 weeks tor delivery Questions 
regarding your order? Please write to Customer Service at the following address. Use the order card in this magazine or itemize your order on a separate piece ol paper and 
mail to SO Micro Book Department'Peterborough NH 03458. Be sure to include check or detailed credit card information. 



BUSINESS SYSTEM BUYER'S GUIDE-By Adam Os 
borne with Steven Cook. When you enter the market 
place ol small business computers, you lace a bewil- 
dering array of products, prices, features and fables 
This guide cuts through the |argon and unravels the 
task of buying the right computer system This book 
provides solid information on how to determine your 
needs, how to choose software and hardware lor all 
business applications, what to expect from vendors. 
what to avoid, and what questions you must ask. It also 
provides a wealth ol detailed information on products. 
manufacturers, retailers and the whole microcomputer 
market BK1229 $9.95 

SO YOU ARE THINKING ABOUT A SMALL BUSINESS 
COMPUTER— by Richard G Canning and Nancy C 
Leeper. For a well-organized manual on the process of 
selecting the right computer system lor your small 
business, this text can't be excelled Designed to in- 
troduce the novice in data and word processing to the 
real benefits of computerization, the book is filled with 
money and time-saving tips, photos of equipment, 
lists of suppliers prices, explanations of computer ter 
minoiogy, and heiplui relerences to additional sources 
ol information. Everyone contemplating a first com- 
putet installation should have this book BK1222 
$14 00* 



SOME COMMON BASIC PROGRAMS- Published by 
Adam Osborne & Associates. Inc Perfect for non 
technical computensts requiting ready-to-use pro- 
grams Business programs plus miscellaneous pro 
grams invaluable for the user who is not an expen 
enced programmer Ail will operate in the standalone 
mode BK1053 $14 99 paperback 

THEORY Z-How American Business Can Meet the 
Japanese Challenge -by William Ouchi Why are the 
Japanese catching up and surpassing American in- 
dustrial productivity" 1 What allows Japanese In- 
dustrialists to offer guaranteed lifetime employment 
to their worklorce? This book will help you understand 
the Theory Z managerial philosophy and its implica 
tlons lot the American corporate future Examples are 
given of the American industrial giants already 
operating under Z-style management, and the impact 
of this style on the quality of their executives and 
workers is explored. A must for the alert businessman, 
large or small BK1226 $12.95* 



For Toll Free Ordering Call 1 8002585473 
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School micros: boon or bane? 



Panel to block conspicuous computing in schools 



By Eric Maloney 

80 Micro Managing Editor 

^^cam," "religion," and "fad" is how members of the Com- 
^^mittee on Basic Skills Education describe the increased use of 
microcomputers in the classroom. The committee charges micro- 
computer manufacturers are making misleading claims to hustle 
their machines. It also says educators are throwing away money that 
could be used for better teaching tools and touting computers to 
cover up their failure to effectively teach basic skills. 



"There is some sort of urgent re- 
quirement that every child must become 
computer-literate, which in the parlance 
of manufacturers means that he must 
learn how to interface with a computer 
and program a computer," said co- 
founder Eric Burtis. "This is absolutely 
untrue. The future of the U.S. is not 
based on everybody becoming comput- 
er-literate but on becoming literate in 
basic skills." 



Congressman Stark: Public financing of 
Apple's merchandising plan for the 80s? 



The committee was formed in April 
by Burtis and three other San Francisco- 
area residents. Burtis is the president of 
Centurion Industries, a manufacturer 
of dedicated microprocessor-based 
learning machines. 

Manufacturers are pushing schools to 
"get a computer first and then get the kid 
to learn the other stuff," Burtis said. 
He called it "tremendous overkill," 
and said schools often end up using 
their computers for drill and practice. 

"Drill and practice can be done a lot 
more effectively and at lower cost in 
other ways," he said. 

A. Daniel Peck, a professor of educa- 



tion at San Francisco State University, 
agreed, saying a $200 dedicated micro- 
computer is often far more efficient. He 
said schools are being pressured by 
manufacturers into buying micros, and 
then don't know what to do with them. 
He likens the micro boom to the large- 
scale purchase of language labs in the 
early 60s, which he said are now 
"languishing." 

Burtis added: "American educators 
have a history of seeking a bandwagon 
as a means of disguising the real 
problems. Manufacturers say, 'If you 
want to do the job for the American 
public, you must use computers.' And 
the teachers say, 'If you can't teach 
kids how to read and write, maybe this 
will work.' " 

But Burtis also placed part of the 
blame on parents: "Parents are dis- 
tressed about their kids not being able 
to learn, so they say, 'Well, if these 
computers are the answer, then buy 
some.' The teachers are being told, 



• 
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New Factory Direct Pricing 
Save $800 on a Dual Drive 

Model-Ill 



Thanks to our high volume production and low over- 
head, we can provide the highest quality peripherals at 
Rock Bottom Prices. MICRO MAINFRAME challenges 
the competition to meet our low prices. 

MICRO MAINFRAME can save you from $200 to $800 
on a dual drive Model-Ill* computer system. 

MICRO MAINFRAME can save you from S50 to $345 
on a disk controller complete with a 40 track TEC disk 
drive. 



MICRO MAINFRAME now makes it possible to bypass 
the middle man and purchase at our low, FACTORY 
DIRECT prices. 

MICRO MAINFRAME can save you from $60 to $255 
on a disk controller upgrade kit without drives. 

MICRO MAINFRAME invites you to check the pages of 
80 Micro and compare our prices. We have the lowest 
advertised prices of all. and we can deliver from stock on 
most items. 



M32-1 

M32-2 

FDC-3B . . . 
FDC-3C . . . 
FDC-3BK . . 
FDC-3CK . . 
FDC-3BKD 
FDC-3CKD 
S-BP1 .... 

SPS-1 

M-50FK ... 
M-50FM . . . 
DS-1A .... 



MICRO MAINFRAME PRICE LIST 

MOD-HI COMPUTER W/FDC-3B 

MOD-III COMPUTER W/FDC-3C 

FLOPPY DISK CONTROLLER (5" SS ONLY) 
FLOPPY DISK CONTROLLER (5" B 8" DS) . 

CONTROLLER UPGRADE KIT 

CONTROLLER UPGRADE KIT 

DRIVE UPGRADE KIT W/FDC-3BK 

DRIVE UPGRADE KIT W/FDC-3CK 

SMALL BUSINESS SOFTWARE PACKAGE 

SWITCHING POWER SUPPLY 

5 MB HARD DISK KIT W/DOSx 4.0D 

5MBHARDDISKW/DOSx4.0D, DMX-1A . 
DATA SEPARATOR 



$1495.00 

S1595.00 

S 79.95 

S 99.95 

S 179.95 

S 199.95 

S 349.95 

$ 369.95 

S 99.95 

$ 54.95 

S1795.00 

$2495.00 

S 39.95 



DUAL DRIVE MODEL-III COMPUTERS 
MICRO MAINFRAME has the lowest advertised prices 
anywhere on complete Mod-NT computers. The MMF 
Model-Ill* (Stock Number M3DD-1) is priced at only 
$1495.00 complete with our FDC-3B disk controller. 
switching power supply, 48K RAM. and two of the 
incredible new TEC 40 track, single sided disk drives. 

To substitute our FDC-3C disk controller and add 8" disk 
capability, please order Stock Number M3DD-2. 

BUSINESS SOFTWARE 

Our Small Business Software Package (Stock Number 
S-BP1 ) is a complete business package at an affordable 
price. The package includes General Ledger. Accounts 
Payable, and Accounts Receivable programs tailored 
specifically to meet the needs of small businesses. 

DATA SEPARATOR 

If you are having data transfer errors and/or would like 
to run 8" diskettes, MICRO MAINFRAME has a new 
data separator that not only fixes your data separation 
problems, but also gives you 8" drive capability when 
used with DosPlus 3.4 or higher. Now even Radio 
Shacks controller can run 8" disk drives. 

MODEL-III* DISK CONTROLLERS 

Now you can purchase our FDC-3B floppy disk control- 
ler for the unheard of low price of $79.95. Many of the 
dealers advertising in 80 Micro sell this controller as 
their own unit. Please order by the following stock num- 
bers: 



FDC-3B FDC-3B Controller only 

FDC-3BK FDC-3B With IK-3 Installation Kit 

FDC-3BKD . . FDC-3BK With TEC 40 Track SS Drive 

MMF beats the high cost of 8" disk operation with our 
FDC-3C disk controller and is fully supported by 
DosPlus 3.4. This unit has become the industry stan- 
dard controller. MMF was the first to deliver a Mod-Ill* 
controller, the first to use gold plated card edge con- 
nectors, the first besides Radio Shack to provide 
switching power supplies, and the first to deliver afford- 
able hard disks for the complete Radio Shack line of 
computers. 

SWITCHING POWER SUPPLIES 

If your disk upgrade kit did not include a switching power 
supply. MMF has just the fix that you need. We are 
providing our SPS-1 switching power supply for just 
$54.95. Don't let your system overheat with a faulty 
power supply. Replace with a genuine MMF Switcher 
today! 

MICRO MAINFRAME HARD DISKS 
All MICRO MAINFRAME hard disk subsystems feature 
ERROR CORRECTION. Most of the systems now ad- 
vertised for less do not have error correction. ERROR 
CORRECTION is an absolute necessity in a hard disk, 
since the disk media can become sensitive to certain bit 
patterns. Systems without ECC will simply give a DISK 
SECTOR NOT FOUND error message. Eventually, you 
will lose a substantial portion of your storage area. Insist 
on MICRO MAINFRAME and get your money's worth. 



MICRO MAINFRAME 



11325 Sunrise Gold Building E 

Rancho Cordova, CA 95670 

(916)635-3997 
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EDUCATIONcon/,™e</ 



'You'd better get computers.' " 

Burtis feels computer literacy is not 
the requirement for future success 
manufacturers and some educators 
claim it is. 

"It's a lie to say to kids, 'If you 
become computer literate you'll be 
more successful in the world of tomor- 
row,' " he said, "because what they 
learn on a micro will have no bearing on 
what they will need in the future." 
Burtis said manufacturers are imply- 



ing computer literacy comes before 
traditional skills. But, he said, effective 
computer use "is dependent on the in- 
dividual being academically proficient. 
If you don't have academic proficiency, 
the computer isn't worth a damn." 

Burtis and Peck are opposed to the 
Technology Education Act, the so- 
called Apple bill encouraging manufac- 
turers to donate microcomputers to 
elementary and secondary schools. The 
bill, introduced by Fortney H. Stark, 
Jr. (D. -Calif.), was prompted by an of- 
fer from Apple to donate 103, (XX) com- 
puter centers across the country. 

"It's just another means of asking 
the public to fund a merchandising plan 



for a manufacturer," Burtis said. "I 
think it's disgraceful. Even Apple 
blandly admitted that the purpose of 
the bill is to get Apples in front of kids 
so they'll grow up with them." 

Peck added that the Stark bill doesn't 
consider additional expenses the school 
will face to use the equipment, such as 
teaching aids, hardware, and software. 

Is there a solution to the problems the 
committee sees? Burtis thinks the key is 
public awareness. 

"People should demand of computer 
manufacturers, 'Hey. design them to 
make our lives easier,' rather than be 
told 'Here's a computer; figure out 
something to do with it,' " he said.H 



Tandy says hard to find good numbers 



\A/ hen it comes to computers in education, good 
« numbers are hard to find, said Radio Shack 
Education Director William D. Gattis. 

Gattis, on CompuServe's TRS-80 owners' special 
interest group, defended Tandy's refusal to release 
information on its computer sales to schools. 

"The fact is,'" he said, "we simply do not have ex- 
act figures representing total TRS-80 computers 
delivered to schools through our 4,300 company- 
owned Radio Shack stores in the USA. nor the 2.000 
independent Radio Shack dealers. So while we do 
monitor school purchase orders processed 
through our National Bid Department in Fort Worth, 
this does not represent all our sales to schools." 

"Our own experience," he continued, "leads me 
to question the claims by other manufacturers re- 
garding their percentage share of the education 
marketplace. With their products being sold to 
schools primarily through independent dealers, 
they are even further removed from accurate and 
objective sources of information than we are." 

Gattis said: "The figures released by commercial 
research firms are particularly frustrating since all 
have different numbers and almost none compare 
to our own current estimates. Of those I've seen re- 
cently, only the year-old Report on Microcomputers 
in Education published by Creative Strategies In- 
ternational seems to us a credible document." 

"The only sources of statistics we've en- 
countered that we feel we trust," he noted, "are the 
surveys conducted by the various state depart- 
ments of education. These agencies have the at- 
tention of public school districts throughout a 
state in a way that no commercial firm has 
achieved. Whereas a commercial firm might do 
well to see a 5 percent to 6 percent response to a 
survey mailing, most of the state surveys report in- 
formation from over 50 percent of the school 
districts in the state, and a couple are approaching 
100 percent." 
Gattis reported: 



• In Pennsylvania, the contracting unit for micro- 
computer purchases for local agencies during 1981 
reported $1.52 million in purchases of five micro- 
computer brands— $1 million of it for TRS-80s. 

• In Florida, the state Education Department's 
Management Information Services Center reported 
late in 1981 that more Florida schools. 401, had 
TRS-80s in them than any other micro. 

• In Louisiana, the state Education Department re- 
ported in February 1982 that more than 60 percent 
of the schools used TRS-80s. 

• In Oklahoma, a survey conducted by the state 
Department of Education in December 1981 re- 
ported 70 percent of the micros in that state's 
schools were TRS-80s. 

• In Kentucky, a survey conducted by KET-TV, the 
public education tv station operated by Kentucky 
State University, showed, with 78 percent of the 
districts reporting, that more schools used TRS-80s 
than the next two brands of computer combined. 

• In Idaho, a survey reported 56 percent of the mi- 
cros in that state's schools were TRS-80s. 

• In Montana, 37 percent of microcomputers in the 
schools were Tandy's, compared with 27 percent 
for the second-place company. 

"We are not saying that the results from these 
states can be extrapolated to the whole country." 
Gattis observed. "On the other hand, we did not 
simply choose to share information only on those 
states' surveys which appear favorable to us. So 
far, every state survey we've seen corroborates 
Radio Shack's position as a leader in the burgeon- 
ing educational use of microcomputers." 

"Tomorrow, next week, or next month, we may 
get results from all other states that show us in a 
much weaker position," he added, "but I doubt it. 
Just as much as I would encourage anyone to 
doubt the so-called statistics from any source 
that's based on projection or assumption instead 
of good, objective accounting. "■ 
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Our Users asked for it, and we made the 
best TRS-80 disk assembler even better! 
Now M-ZAL has: 

■ Recursive MACROS with full symbolic parameter 
substitution 

■ Conditional assembly with unlimited nesting 

■ Text Editor warm-start/ recovery option 

■ Support for all popular source file formats 

■ Load Module inspect/superzap using LINKER 

and the features that made it famous: 

■ True multi-pass assembly 

■ Full Screen Option Menus 

■ ENTRY/EXTERN symbols, relocation, and object 
module linking 

■ 8 character labels with sorted symbol table 

■ Built-in symbol table cross-reference 

■ Nested 'INCLUDES (source file chaining/nesting) 

■ Lower case support (Model 3 only) 

■ Over 175 pages of documentation including 
Z-80 Technical Manual 

■ Full Screen Text Editing and much, much more! 

M-ZAL provides a modular, structured development 
environment that makes programming your TRS-80 
a truly enjoyable experience. Order yours today. 
(Requires 32k, 2 disk system) 

'1050-10 Mod 1 S 149.00 

# 1250-10 Mod 3 $149.00 

CAU Development Software— 
The Professionals Choice: 

Full Screen Text Editor for BASIC: we were the first to 
give the TRS-80 this indispensable ability! A must for 
every BASIC programmer: 

#1210-20 Mod1&3 $29.95 

T-ZAL: custom designed for the Model 3. this tape 
based assembler has many of M-ZAL's most 
desired features. 

'1250-20 Mod 3 only $49.95 

XBUG: for machine language analysis and 
debugging— this tiny (2.5k) but powerful program 
lets you do it all! 

# 1020-10 Mod 1 $19,95 

# 1220-10 Mod 3 $19.95 

FILEXFER: transfer any disk file between two TRS-80s. 
Use direct cable link or RS modems. Mod 1 and 
Mod 3 can be mixed. RS-232 and disk reqd. 

# 1040-10 Mod 1 and 3 $49.95 



"We've been using M-ZAL heavily for 
over two months now, and it's been 
worth its weight in gold." 

— ChucK Tesier 
PROSOfT 

"...well written software that is long 

Overdue." -Bruce Douglass 

80 Microcomputing 
BASIC Editor Review 

"During the first 3 days of use, M-ZAL 
saved more money in programmers 
time than we had paid for the 

product." -William Denman 

Author of Asylum 
MED SYSTEMS 

"The editor has at least doubled my 
productive capacity.. .Having spent a 
good deal of money on so called 
'utilities' that don't work, it's a delight 
to find one that not only lives up to its 
claims but surpasses the advertising." 

-BASIC Editor user 



Our choice for the best TRS-80 DOS: 
DOSPLUS 3.4 Modi $149.00 

DOSPLUS 3.4 Mod 3 $149.00 



Call or write for more information. 
All products require level II. 
Mail orders specify catalog # . 
Send check, money order, or MC/VISA 
numbers and expiration date to: 

Computer Applications Unlimited 

P.O. Box 214, Dept. ABM Rye, New York 10580 

(914) 937 6286 

N.Y./ State residents add applicable sales tax. 
Outside USA and Canada add $ 10.00 shipping. 
Dealer Inquiries Invited. 




au, 



COMPUTER 
APPLICATIONS 
UNLIMITED. 



oOtv of CAU. Inc. 



TRS-80 is a TM of Tandy Corp M-ZAL is a TM of CAU, Inc 
Z-80 is a TM of Zilog. Inc. 



■See List ol Advertisers on Page 45' 
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NEWS 



Health 



in V-games 




Overreaction to games leads to heart disease 

t oncerned with the moral and intellectual effect of Pac-Man and 
^^its ilk on children, an army of parents across the nation is skir- 
mishing with video game purveyors over regulation of arcade-style 
machines. The real danger, though, might not be to children, but to 
adults, who risk health problems by playing the games. 

That's the indication of research con- 
ducted by Dr. Robert S. Eliot at the 
University of Nebraska Medical Center 
in Omaha. 

Those indications became a deadly 
reality in Calumet, IL, where the stress 
from playing "Berserk" short-circuited 
an 18-year-old man's heart. 

Eliot has tested more than 1 ,000 pa- 
tients during the past five years to learn 
how they respond to stress. One conclu- 
sion he's reached is one-third of the na- 
tion's population are "hot reactors" to 
video games. Their bodies overreact to 
them, making them particularly suscep- 
tible to heart disease. 

To identify hot reactors, Evans's lab 
has more than $300,000 in computer- 
ized equipment: machines to monitor 
blood pressure, heart rate, stroke vol- 
ume, adrenal gland secretions, and re- 
sistance the heart must overcome to 
move blood through the circulatory sys- 
tem. In an article appearing in the May- 
June issue of American Health, author 
Stephen Kiesling described a demon- 
stration he witnessed at the lab: 

"One of Eliot's patients, a middle- 
aged administrator, has a base-line 
blood pressure of 1 34/89 when he sits 
down to play the game.... 

"But within seconds, though he 
doesn't feel any different, his body re- 
sponds with signs similar to those of an 
athlete in action. His systolic pressure 
jumps to 207, while his diastolic pres- 
sure falls to 66. Meanwhile his pulse 
rate increases from 80 to 109 beats per 
minute, and his cardiac output doubles 
from 4.4 liters of blood per minute to 
8.4 liters.... 

"So far the patient's body has react- 
ed dramatically but in ways nature 
intended. Stress has triggered an out- 
pouring of catecholamines, substances 
produced by the adrenal glands to stoke 
up the body to fight or flee.... To 
achieve the same elevated heart rate and 
blood pressure on a treadmill — or 
track — would take eight or nine 
400 • 80 Micro, December 1982 



Photo by Omaha World-Herald 

Eliot: Drag racing with the brakes on. 

minutes rather than the same number of 
seconds.... 

"Activity uses up the catecholamines 
as they are excreted into the blood 
stream, damping the physiological in- 
crease. But instead of springing into ac- 
tion, the patient continues to play the 
video game. His physiological responses 
soon take an ominous turn.... 

"The patient still feels much the 
same, but his body is no longer behav- 
ing like an athlete's; instead, he has 
symptoms like those that can lead to a 
stroke. Stress is squeezing his blood ves- 
sels like a clamp on a garden hose. 

"His peripheral resistance triples, 
cutting his heart output back to 4.4 
liters per minute. His blood pressure 
goes from 207/66 to 183/125. 

"Eliot stops the game. 'What you are 
doing,' he tells the patient, 'is like drag 
racing a car with the brakes on.' " 

Work with lab animals, Kiesling ex- 
plained, has shown excess catechola- 
mines can rupture small muscle fibers in 
the heart within five minutes. And au- 
topsies of young men who suffered 



stress-related heart attacks showed their 
heart muscles had ruptured in seconds 
from stress-induced outpouring of cate- 
cholamines. 

Kiesling wrote there are other stress 
producers in Eliot's lab — interviews, 
arithmetic tests, or holding a hand in ice 
water — that can create much the same 
physiological response. "The difference 
between those tests and video games," 
the author noted, "is that people don't 
go out of their way to engage in them, 
let alone spend countless hours and 
quarters for the experience." 

According to Kiesling, Eliot said for 
hot reactors, video games "give all the 
excitement of competition without the 
physical component." He added Eliot 
fears "we may be heading toward a gen- 
eration of hypertensives in this country 
where young people play video games 
instead of sporting activities which con- 
dition the body." 

In the Calumet incident, the video 
game victim subjected an already weak- 
ened heart to the stress of playing 
"Berserk." Lake County, IN, Coroner 
Dr. Albert Willardo told 80 Micro Peter 
Bukowski had "some pathology in his 
heart muscle which probably was due to 
a viral infection that was not detected." 

He explained: "All of us have had vi- 
rus infections where we've felt pretty 
lousy for a long time and then we get 
well and we assume there's nothing left, 
there's been no damage, but in fact 
many times the heart and other organs 
have suffered damage. 

Because Bukowski 's heart was in a 
weakened condition, Willardo said, 
"anything could have precipitated the 
cardiac arrhythmia which ultimately 
caused his death. It could have hap- 
pened while he was playing tennis or 
just walking down the street." 

Despite his findings, Eliot has no ill- 
feelings toward video games. He told 
the Omaha World-Herald: "Video 
games can be a form of relaxation for 
many people; a means of taking your 
mind off your troubles. But we use 
video games as a diagnostic tool be- 
cause they offer one way of testing how 
an individual deals with pressure." 

If a person is a hot reactor, he added, 
he or she should "seek appropriate help 
and advice that will allow them to han- 
dle game and real-life pressures. It 
doesn't mean they have to give up play- 
ing. If you react poorly to adding up a 
column of figures, you don't stop doing 
your income tax."B 




— Professional — 

REAL ESTATE SOFTWARE 

to APPLE TRS40 k CPM SYSTEMS 

• PROPERTY MANAGEMENT SYSTEM: $450 

Tenant History Operating Stmt 

Lata Rent Rtport Budding Rtpertj 

Vacancy Itaport HH Bepart 

Income Retert Tax f ipensi Report 

Auto Lata Charge Prints Ckacks 

Returned Checks Prints Receipts 

• PROPERTY USTTJICS/COMPARABLES: S325 
— SCREEN BY — •»- Max/H* Prtw 

22 lUmt/Luting Mai Pitea/lacaM 

1000 Usttaf/Dkk Mai Priea/Sq Foot 

listing Maura Field Min Cashflow 

• REAL ESTATE ANALYSIS MODULES: S50/ModuU 

Horn* Purchata Tax Deterred Exchange 

Inceme Prap Analysis APR Loan Analysis 

Property Salaa Laan Amortization 

Construction Cost/Preta Daafactotlon/ACRS Anatytis 

Loan Sales/Purchase Laan Wrap Analysis 

• WORD PROCESSOR - WORD STAR: $295 



M PJmWM i tHm tnrrwtmi 

■ Otta. COO DkKt 

Cat *n*mi t* ••/,% S*M 1m 



MM f. lltna. Strati. Hi»»e«a« a«e» CA 9QZM 



TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• 100% Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store «7053 

175 E North Delsea Drive 
Vineland, N.J. 08360 
800-257-0426 
NJ 609-691-7100 .-vc 



TRS-80 MODEL I™ 
GOLDPLUG-80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) S9.95 ea 

Full set, six connectors. . . $54.95 






EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)498 4242 

*TRS-80isa trademark of 

Tandy Corp. 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS-80 Model 1 or 3. Level 2 or 
DOS with a minimum of 16K. 



488 80B 

For Model 7 

Operation 

Hl 



\JEL 



For Model 3 
Operation 



Model 488-80B or 488-80C Price. $375. 

+ 5*1. oping insurance & tai 
WHEN ORDERING SPECIFY DISK. OR TAPE 

SCIENTIFIC ENGINEERING 
LABORATORIES 

11 Neil Drive • Old Bethpage. NY 11804 
Telephone: (516) 694-3370 
' Trademark of Tandy Corp 
There is no allihaiion between Scientific 
Engineering Laboratories and Tandy Corp or 
Radio Shack 



^203 



Maxell Floppy Disks 

The Mini-Disks 
with maximum quality. 




Dealer inquiries 
invited COD's 
accepted Call 
FREE (800) 235-4137 




•*■> 



PACIFIC EXCHANGES 

100 Foothill Blvd San Luis 
San Luis Obispo, CA c - W I 
InCal call (800) 592-5 135 i 
805)543 1037 



*> X' 



96K MODEL 1 

BIGhtM* replaces the 16K keyboard 
RAM with 64 K chips. A custom mem- 
ory controller mounts Inside the 
keyboard case to give you 

• 48K keyboard memory on power-up 
t plus access to 32K E/I memory. 

• 2.7K RAM above ROM 1s available. 

• Optionally overlay ROM with RAM. 

• BIGMEM works with TRS-80** DOS or 

• remaps kybd/vldeo for 64K CP/M*** 

..$180 post paid with check or money 
order. COD add $3. NYS residents 
add sales tax. BIGMEM 1ncl. 64K RAM 
chips, A&T controller board. Internal 
cable, wire, solder and Instructions. 

MICR0HATCH 
PO Box 501 
DeWUt, NY 13214 
(315)446-8031 after 6PM 

Trademarks of *Microhatch, **Tandy 
Corp. and ***D1gital Research. 



"TRS80 color 

Prom the January 198' issue ol the CSRA Computer 
Gub ne» 



' - .-■'.- .-. ■■-. - vn«> I" iSPmrr '. .• - 

DC meeting when the Radio Shack repre- 
sentatives stated that the software in the t 
ROM cartridges could not be copied This 
month's 68 Micro Journal reported they had 
disassembled We programs on ROM by 

--.■-'-- ::--■-■ ■■-.-■ - ■•-: . .-. •• 

tape They promise details ne»l month Never 
tell a hobbyist something can t be done 1 This 
magazine seems to be the only source so tar 
of technical inlormations on the TRS-80 color 
computer - Devoted lo SS-50 6800 and 
6809 machines up to now. 68 Micro Journal { 
plans to include the TRS-80 6809 unit in / 



To get the MOST Irom your 6809 CPU This is the 
BEST SOURCE 1 The ONLY Magazine tor the 8809 
Computer Months Aheao ill Al Others 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 

USA 
•■ SD4 5C 2 "■ 14250 ) ■' 

•Fo-e.g- Jw 

Mail ft to USA P"C* 

i SCYi in USA Pr.re -"'■ 



'80" DEMI-CASE 



Sh 



•■• 




Mo* 



OfM.-r 



Encloses LNW & MDX I & II 

P.C. Boards, plus 

Cabling. A/C Cords, etc. 

Silver-gray Fiberglass 

$32.50 plus $2.50 shipping 
N.Y.S. residents add 7% tax 

SYRACUSE R&D CENTER 

Box 125. Devvitt. NY. 13214 

Specializing in Electronic Packaging 



^See List of Advertisers on Page 451 
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Wordstar makers win 
lawsuit against pirates 

MicroPro International and Digital Research 
settle out of court with Sunnyvale softbucs 

By Kerry Leichtman 

80 Micro Staff 

Claiming the first major victory in the war against software 
thieves, the makers of Wordstar and the CP/M operating 
system won a $250,000 judgement against Data Equipment Inc. of 
Sunnyvale, CA, and its chairman, Daniel O'Rourke. 

man O'Rourke is personally obligated 
to pay the plaintiffs $30,000. 

While it is disputable whether this 
was the "first ever microcomputer soft- 
ware copyright infringement suit" settl- 
ed in favor of a program's originators, 
experts said this and several other simi- 
lar cases are fine tuning the 1976 Copy- 
right Act into good protection for mi- 
crocomputer product originators. 

Seymour Rubinstein, president of 
MicroPro, also hopes the rest of the in- 
dustry will be encouraged by the court's 
favorable decision, "Our success. . . 
should be taken as a sign that software 
manufacturers will act aggessively to 
protect their own products against all 
unauthorized duplication." 

Daniel T. Brooks, of Computer Law 
Advisors, Washington, DC, thinks the 
present copyright laws are plenty thor- 
ough. Quoting from the bill that even- 
tually became copyright law, Brooks 



MicroPro International and Digital 
Research Inc. filed their lawsuit in No- 
vember 1981, (see 80 Micro, March 
1982, page 378). In September, San 
Francisco Federal District Judge William 
W. Schwarzer entered a stipulated final 
judgement against Data Equipment. 

The suit claimed Data Equipment 
produced and distributed unauthorized 
copies of MicroPro's Wordstar, Data- 
star, Wordmaster, and Mail Merge pro- 
grams, and Digital's CP/M operating 
system. Data Equipment acted as an 
OEM distributing complete hardware 
and software systems to businesses. 
MicroPro and Digital Research dis- 
covered the misuse of their programs 
when Data Equipment customers called 
them for update information. 

According to the terms of the settle- 
ment, Data Equipment will pay $250,000 
to the plaintiffs, and will reimburse 
their legal expenses. In addition, Chair- 
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told 80 Micro during a telephone inter- 
view, "Under the bill, it makes no dif- 
ference what the form, manner or 
medium of fixation may be; whether it 
is in words, numbers, notes, or any 
other graphic or symbolic indenture; 
whether embodied in a physical object, 
in written, printed, punched, magnetic, 
or any other stable form, and whether it 
is capable of perception directly or by 
means of any machine or device known 
or later developed." 

To Brooks the law is very clear in def- 
inition and intent. The other school of 
thought likens Read-Only Memory to a 
permanent machine part. Its code, its 
proponents contend, speaks directly to 
the machine, not to human beings, and 
therefore is not copyright protected. 

There is legal precedent in that argu- 
ment. The U.S. Supreme Court ruled 
( White v. Smith) at the beginning of this 
century that piano rolls for player 
pianos were not subject to copyrights, 
because their code was not designed to 
be communicated to human beings. 
Brooks explained, "At that point in 
time the Supreme Court was saying the 
copyright laws applied only to those 
things which the copyright laws say they 
apply to and we don't see where this ap- 
plies, therefore no protection." 

"In 1976," Brooks continued, 
"Congress expressly overruled that re- 
sult. There's a whole paragraph in the 
legislative history that basically says this 
particular section is designed to overrule 
that notion. It says, 'This broad lan- 
guage is intended to avoid the artificial 
and largely unjustifiable distinction de- 
rived from such cases such as White- 
Smith, under which statutory copyright 
ability has been made to depend on 
the form or medium in which the form 
is fixed.' 

"Whether it be the MicroPro case or 
Tandy v. PMC, the decisions are com- 
ing out in the right places now. The pro- 
gram, in ones and zeros, or in the volts 
and amps form is simply a representa- 
tion of a copyrighted work and with 
the aid of a machine or device, may be 
communicated to human beings." 

When a judge sits before two people 
where one is suing the other for a copy- 
right infringement on a computer pro- 
gram he has to fully understand the is- 
sues before him so that he can make the 
right decision. Judges, like a lot of soci- 
ety, are not educated in the bits and 

continued 
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Two great simulations 

forthe"80s". 



T80-FS1 




Simulator 

The realism of "out-the-window" flight can be yours with 
this challenging simulation that will excite beginners and 
test experienced pilots. On cassette, $25.00. 
On enhanced disk (increased world projection rates, 
10-frame-per-second approach mode, infinite horizon, 
hit/crash detection, and more), $33.50. For Model I or 
III: please specify since the media are different. 
All versions require 16K. 



T80-SG2 



Forest Fire 
Dispatcher 

Also challenging and realistic, Forest Fire Dispatcher 
features the ease of operation that lets you concentrate 
your energy and imagination on the job at hand: saving 
forests as efficiently as possible. A naturally deep 
strategy game for years of pleasurable interaction. On 
cassette, $24.95 (16K required). On disk, $29.95 
(32K required). Specify Model I (Level 2 BASIC) or 
Model III. 




See your dealer! 



For direct order, include $1.50 and indicate UPS or first class mail. Illinois 
residents add 5% sales tax. Visa and MasterCard accepted. 
If you don't yet own a disk, don't fret You can upgrade anytime. 
Cassette users may send back their cassette (but not the manual) along 
with $10 (first clsss shipping included) and receive the disk version. 



LOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, I L 61820 
(217) 359-8482 
Telex: 206995 
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bytes of computerdom. Brooks said the 
confusion, which led to some rulings in- 
consistent with the intent of the law, is 
understandable: "They do not have a 
working familiarity with what comput- 
ers are about. Many of them look at it 
as an alien object. The consequence is 
that, there is some room for confusion 
until responsible lawyers have framed 
the arguments in intelligible form pro- 
viding the information the judiciary 
needs to make the right decision." 

Will the framing take much time? 
Brooks doesn't think so: "I hope within 
a few years this particular point will go 
away. That isn't to say that the fertile 
mind of man won't come up with some 
new ones. It's only that this particular 
one will have disappeared. ■ 




Networking Poet Laureate 



E-poet says micros will shatter Gutenberg literature 



By John P. Mello Jr. 

80 Micro News Editor 

When the wired generation holds its convention to nominate 
candidates for Poet Laureate of the Network Nation, expect 
to see the name of David Hughes on the ballot. 



Hughes, 55, believes some day micro- 
computers will shatter traditional forms 
of writing based on Gutenberg technol- 
ogy. He's paving the way for the new 
literature by championing the cause of 
vanity publishing on The Source, a 
computer-based information service 
owned by Readers Digest. 

"I said to Readers Digest," the 
former West Point teacher told 80 
Micro, "I don't think you know what 
business you're in. You think you're 
selling information. I think you're sell- 
ing electronic experiences." 

He pointed out to Source officials: 
"Isn't it interesting that use of chat and 
mail — lateral contact between users — is 
far greater than the use of some of the 
dead data bases?" 

Chat and mail were okay, but 
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Hughes maintained subscribers needed 
more sophisticated lateral contact. How 
The Source met that need, the com- 
munity planner and educator said, is 
"almost a revolution in electronic 
literature." 

"What we did was create magazines 
on The Source," Hughes explained. 
Authors of the magazines receive royal- 
ties based on how often their work is ac- 
cessed by subscribers. Over a three 
month period, Hughes' magazine 
earned him $826 in royalties. 

But there are costs to vanity magazine 
publishers, Hughes noted. They pay for 
time — time needed to load their materi- 
al into the system and time to store it 
there. Storage fees are on a sliding scale 
based on blocks of 2048 characters, 
about 380 words. For the first 10 



blocks, a vanity publisher is charged 50 
cents a block a month; for blocks 11 to 
99, 20 cents a block; 100 to 999, 15 
cents; 1,000 to 9,999, 10 cents. 

"The magazine can definitely pay for 
itself if you put together an electronic 
bestseller," the Joy, CO, native said. 

He added: "Imagine the kid that sits 
down, writes a piece, and can publish it 
nationally. He can begin to get his repu- 
tation. If he's got something to say, 
people will access him. If he doesn't, 
he's paying for it. It's self-correcting be- 
cause he's not going to store forever 
garbage nobody reads." 

Hughes' magazine, SourceTrek, in- 
cludes 13 pieces ranging from a speech 
delivered to the Colorado Springs Ro- 
tary Club to ghost stories of Colorado. 
He uses his e-mag to experiment in writ- 
ing beyond the Gutenberg dimension. 

"A lot of word processing assumes 
the name of the game is to sit and use 
the screen to reproduce Gutenberg en 

continued 
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Give Your TRS-80* a Tremendous Boost 
with RACET COMPUTES Software 

RACET computes Utility Software makes the TRS faster, more efficient, 
and easier to use Our programming aids improve your productivity 
Our reputation is tor products that are professional in design and work 
as advertised!!! 

* NEW SPEED-UP KIT FOR TRSDOS * 
V2.0a & 2.0b MODEL 11 & 16 • S99.95 

This software fix' to TRSOOS 2 is a MUST to users impatient witn the speed of 
TRSDOS 2 Important features include Boot speed improved by a factor of 2 
i 2 times Time and Date need only be entered once at power on Data reads up to 
live times faster than in standard configuration The system runs faster then when 
verify detecl feature has been turned off but still retains the reliability of the verify 
detect function 

Special Note for SCRIPS1T u sers — Scripsit turns off the verify detect featu re The 
Speed-Up Kit turns it back on at no :oss in rjlsV ' time. The Speed-Uo it should 
dramatically reduce 'blown! directories anc r -oled data 

* SUPERZAP lor CP M 80 * S99.95 * 
You asked for it 111 And nov, iTshere'" Runsonany CP/M version 2 xsysts r • 
nmg on a Z80 CPU and 8 inch diskettes'!! Recov<» Blown Files' Access, r -- f> 
copv zero, and (>cm» my sertor on oisk or in memeory — in Hex or AS: l F- , i 
screen editor F, le edit mode 

* SUPERZAP tor TRSOOS II lor Models II and 16 . $99.95 * 

Recover Blown Files! 1 Now you can directly access, modify, copy, zero 
any sector on your diskette or Radio Shack Hard Drive Also included in th - par- 
age s a SCAN utility to facilitate a d sk search for a specified string Doci.n •■ r- 
tion ncludes a descriptic- I :' • "RSDOS II directory structure 
** Model II Fast Backup Utility ** S7S 
b TO t(j limes faster bacKups::' Full disk linkup hi c udmg venfy) in 
55 seconds!!! on two drive system — 2:15 on s.tjie drive system In 
business, time is money, and one BACKUP is woih 1000 te.irs' ' 

RACET compute Utilities & Programmer Aids 

Generalized Subroutine Facilities (GSF) Mod I S25. Mod III S30. 

Mod II $50 The S'A'jiARD ^gnu'st which all other sort* ire ompared' 

And then compare price" Mult -key multi-variable <md multi-Key 

character string sorts includes zen and move arrays ana sample 

p'og'ams 

Basic Link Facility BLINK' Mod I and III S30 Mod II S50 

Link fiom one BASIC program to another saving all variables' The new program 

can be smaller or larger than the original program. The chained program may 

either replace the existing program or can be merged by statement number The 

statement number where execution is to start can be specified' 

Infinite BASIC Mod I $50. Mod III $60 txtends Level II BASIC with 
complete Matrix Functions and 50 more string functions Includes 
RACET in-memory sorts" Select only those functions you want to 

rn'imze memory 

Infinite BUSINESS (Requires Infinite BASIC) Mod I and III $30 Complete 
printer pagination controls, hash codes binary array search, and 
packed decimal arithmetic ( 1 27-digit accuracyi 
C0MPR0C Command Processor Mod I and Mod III $30 Auto your disk 
to perform any sequence of instructions that you can give from the 
keyboard" ideal for setting up dedicated applications 
Disk Sort/Merge (DSM) Mod I $75. Mod III $90. Mod II $150 All 
machine language stand-alone Random file sort package Establish sort 
specification in simple BASIC command hie Sorts multiple-diskette 
files Only operator action is to switch diskettes when instructed Super 
'ast sort times improved disk 1/0 makes this the lastest Disk Son/ 
Merge available 

KFS-80 Keyed File System Mod I and III $100. Mod II $175 Machine 
anguage BASIC ISAM utility provides keyed and sequential access to 
multiple files Simple interface to BASIC Binary tree index system 
provides rapid access to records 

Utility Package Mod II $150 Recover blown diskettes Includes 
Superzap bulk copies, and other utilities for repair of blown diskettes 
Complete documentation on diskette structure and guidance for repair 
Other utilities include Dynamic DEBUG (with single-step, trace, sub- 
routine calling program looping and more). XCR. DISKID. Directory 
Catalog System XPURGE 
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Development Package Mod II $125 Includes RACET Superzap. 
Apparal Disassembler and Model M interlace to Microsoft Editor 
Assembler + and documentation for Mod I and uploading service 
Assemble directly into memory, MACRO facility, save all or portions of 
source to disk, extended editor commands. 

Basic Cross Reference Utility Mod II $50 SEEK and FIND functions for 
variable, line numbers, strings, keywords. AH' options available for 
line number and variables Load from BASIC - call with control R 
Output to screen or printer 

FIELD PROVEN 

5 to 140 MEGABYTES On Line for the TRS-80* Model II 

Winchester and Cartridge Disk Drives available for immediate delivery" 

5 MEGABYTE Winchester Oisk Drive — CALL for PRICING 

LOWEST PRICES AVAILABLE ANYWHERE" 



I 




14 + Megabyte (formatted) ARM Winchester Disk Drive S3595 

includes ECC error detection and correction FAST. Service Contract Available 
($30 monttvdrive) Multiplexor Available 

20 Megabyte Cll Honeywell Bull Cartridge Drive $7995 

10 Megabytes fixed, 10 removable for the professional installation 
requiring Removable Media BACKUP. 60 and 120 Megabyte add-on 
Winchester drives available 

10 Megabyle Cameo - Western Oynex Cartridge Drive $5995 

5 Megabytes fixed. 5 removable for the smaller professional installation 
Removable Media BACKUP Multiplexor available for up to four users!' 

HARD SOFT DISK SYSTEM (HSDS) SOFTWARE 

HSDS is available for the Radio Shack (2.0{A} compatible). Cameo. 
Cynthia Bull ARM. Corvus. QCS Data Peripherals, and Santa Clara 
Systems hard disk systems and others 1 !' 

Compatible with your Version 2 0(a) TRSOOS files. Compatible with 
your existing BASIC programs and files Compatible with most machine 
language programs that use the standard calling sequence You can 
access both your floppy disk drives and HSDS files interchangeably!! 
Complete utilities include HZAP (Hard Disk SUPERZAP). Directory 
Catalog System, Parameterized FORMAT. HPURGE (Bulk Copy/Purge 
Utility) and others 

The Hard/Soft Disk System (HSDS) Software has more than One Year's 
FIELD Experience The latest HSDS version adds several enhancements 
including maintenance ol system files on the hard drive, files as large 
as the disk, the ability to segment the disk as logical drives, and defin- 
able directory size Uses 3 2K memory Mixed floppy and hard drive 
operation is supported 

HSDS for Radio Shack $500 
HSDS for Other Drives $400 

E- RACET computes ltd-3 

L_ Integrity in Software «J 

1330 N Glassell. Suite M. Orange, CA 92667 (714) 997-4950 

CALL FOR COMPETITIVE PRICING ON HARD DRIVE SUBSYSTEMS - 
BUY WHERE YOU CAN GET SOFTWARE SUPPORT!! 

CHECK VISA. M/C COO ON CERTAIN HARDWARE 

TELEPHONE ORDERS ACCEPTED (714) 997 4950 

•TRS-80 IS A REGISTERED TRADEMARK OF TANDY CORPORATION 

CP-M IS A TRADEMARK OF DIGITAL RESEARCH 

^41 CIRCLE READER RESPONSE FOR FREE CATALOG 
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route to a piece of paper," he contend- 
ed, "but I think you can do things on a 
screen you can't do on a piece of paper." 

Hughes maintained that until now, 
writing has operated on a fixed data 
base — the 26 letters of the English lan- 
guage — and required our eyes to be dy- 
namic. He reasoned, "If you take the 
dynamic things of games — the graph- 
ics — and apply them to letters, I've got 
a sneaky suspicion we will create a new 
form of extension." 

Hughes playfully emphasizes this 
point in the opening of his magazine. 
He prints on the screen a quote from 
The Rubaiyat of Omar Khayyam: 

The Moving Finger writes; 

and, having writ, 
Moves on: nor all your Piety 

nor Wit 
Shall lure it back 

to cancel half a Line, 

Then he reverses the cursor and erases 
half a line. 

On another occasion, Hughes was in- 
spired by an Orchestra 80 rendition of a 
Scarlatti pastoral he downloaded from 
CompuServe. He wrote for his maga- 
zine an article titled "Sunday on a 
CRT." "When 1 reached the point in 
text," he said, "where in the print world 
you would describe the music, suddenly 
1 realized, 'Why should I do this?' I 
went back to the file, picked a fragment 
of code, embedded it in the text and 
went on." 

During the last two years, Hughes 
has pushed beyond the limits of the 
alphabet in what he calls "word, 
dance." He described the technique as 
"creative electronic literature beyond 
the edges of Gutenberg English." 

"One of my first tasks," he ex- 
plained, "was to eliminate punctuation 
on the screen, on the ground there's a 
brain equivalent and ways to make em- 
phasis occur on the screen that are 
superior." 

"This convention called punctua- 
tion," he continued, "is nothing more 
than ASCII English — in other words, 
code. When I speak, I don't say comma 
or period, but on paper, I have to have a 
comma to pause. On the screen, I don't 
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Hughes and some of his students practice their Electronic English with the help of a micro. 



have to have a comma. I can actually 
pause." 

Hughes isn't the only artful experi- 
menter on The Source. People have 
composed electronic duets in verse. 
They have assumed fantasy roles, like 
the Pink Elephant, and conducted im- 
provisational "theater" on the message 
system. "That's damn exciting," the 
electronic bard said, "because I think it 
will draw people into the computing 
world who call computers dehumaniz- 
ing. I say they are the most humane 
thing ever invented." 

He added, "It is my absolute convic- 
tion that until the people with words be- 



gin to understand computing in a cul- 
tural context, not as a clerical skill, not 
as a computer skill; that they see tele- 
communications as a device that can do 
things other technologies cannot do; 
then we're not going to drag enough of 
the human race into this." 

One way to get people to understand 
the cultural ramifications of computers 
is through education. But much of that 
has become part of the problem, ac- 
cording to Hughes. He declared: "This 
myth that everyone has got to learn to 
program is one of the biggest impedi- 

continued 



INTERFACE EXPANSION SYSTEMS FOR THE TRS-80* COMPUTERS 



The MDX Series Interface Expansion Boards provide a wide range of features for the TRS-80* Computers. 
Fully assembled units offer immediate, inexpensive expansion; or choose the bare or partially assembled 
units for even more savings. Since assembly of the board in sections is possible, you can build in the 
features you need, as you need them! P.C. Boards are solder masked and silkscreened for easy assembly; 
each comes with the illustrated User's Manual . 



TRS-80* Model I EXPANSION 

Our MDX-1 and MDX-2 Interface Expansion Boards are field 
tested/field proven and offer more options for the Model I 
than any on the market. Also compatible with the PMC-80 and 
LNW-80 Computers. Custom Case Available for MDX-2. 




FEATURES: 

• MEMORY EXPANSION to 48K 

• ONBOARD SUPPLY, fully protected 

• PHONE MODEM, 0-600 baud, direct connect, 
"answer" and "originate" modes 

• REAL TIME CLOCK, software programmable 

• PARALLEL PRINTER PORT 

• SERIAL PORT-RS232and 20ma loop 
compatible 

• EPROM OPTION for user firmware 

• DUAL CASSETTE LINE 

• FLOPPY DISK CONTROLLER: The MDX 2 
has all the features of the MDX-1 plus Floppy 
Disk Controller. The Controller is compatible 
with any single or double-sided floppy disk 
drive that is configured for use with the 
TRS-80 computer. 

ALL MDX SERIES BOARDS ARE WARRANTED AND SERVICE 
IS AVAILABLE. 
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TRS-80* Model III EXPANSION „„ 

The MDX-3 Interface Expansion Board is desinged to mount 
inside the Model III Computer. Connectors provide external 
access to the Floppy Disk Controller (for external drives) and 
RS232 port. 

FEATURES: 

• DOUBLE DENSITY FLOPPY DISK CONTROLLER 1 .8 times 
the normal single density storage; digital data separation; controls 
up to 4 drives. 

• SERIAL PORT- RS232and 20ma loop compatible, 1 10-19.200 baud 

• PHONE MODEM-0 600 baud-direct connect- "answer" and 
"originate" modes. 

• FULLY COMPATIBLE with all Model III software. 



MDX-5: Also for the TRS-80* Model III 

For the user who already has disk we offer the MDX-5. This 
board mounts next to the Floppy Disk Controller Board in 
the Model III. 
FEATURES: 

• SERIAL PORT-RS232 and 20ma loop compatible, 1 10 19.200 baud 

• PHONE MODEM-0 600 baud direct connect "answer" and 
"originate" modes. 

• Fully compatible with all Model III Software 



PHONE MODEM ^m 

The MDX-4 Phone Modem utilizes the same Direct Connect, 0-600 
baud design as used in the other MDX series boards and: answer/ 
originate modes; solder-masked & silkscreened; onboard power supply. 
Compatible with any RS232 port 



*TRS-80 is a trademark of Tandy Corporation. 



Our Expensive Expansions Are Not Cheap, They Are Inexpensive. 
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For a free brochure 
contact: 
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MDX-5 


Ban 1' C Hoard & I'm r't Manual 


| 99.98 


I 74.85 1 74.98 


I 29 95 


$ 49.95 


Fully Ammblod 




1469.95* 1299.06 
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1224.95 


Installation Kit for Model III l)m< 




$116 99 
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145.00 







\i • manual ordered Kparately, $5.95 plus $3.00 postage N handli 

All board '>r<lriA. add $5.00 \<n postage A handling, i Pexas residents add S 

'\\ < ..iM and power (mnsfortnei m i assembl) required. 




6301 Manchaca Rd. Suite J 
Austin, TX 78745 



1-800-531-5002 

Texas Res. only (51 2) 441 -7890 
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ments to why people aren't getting into 
computers." 

"Computer literacy has come to 
mean programming classes," he con- 
tinued. "Even when Radio Shack offers 
teachers programming classes, they find 
very few English teachers. And after the 
few English teachers that show up learn 
to program, they ask, 'Now what?'" 

"A woman can learn how to drive a 
car without learning how to build an in- 
ternal combustion engine," he ob- 
served. "I say to my students, 'I will 
teach you how to write on this thing. 
Then it might become useful for you to 
learn how to program.' Just like a 
woman might learn how a carburetor 
works so she won't get ripped off by a 
mechanic." 

Hughes has pioneered a college credit 
course for Colorado Technical College 
called Electronic English. The entire 
course is conducted over The Source. 

He said his course focuses on screen 
characteristics and teleconferencing. 

"People 'recite' in class," he noted. 



"I grade them on screen readability. 
You're taught in speech class about how 
to stand when you talk, eye contact, and 
having your voice loud enough to be 
heard. In electronic speech, if you want 
to be an effective writer, you have to be 
acutely conscious of what a person is 
reading, how they're reading it, and the 
rate they're reading it. 

"If you can't handle a keyboard, 
don't know what a smart terminal pro- 
gram is, don't know what 300 baud and 
ASCII code is, don't visualize what a 
guy with an Apple with 40 characters 
uppercase only is seeing while you're 
writing in 64 characters upper- and 
lowercase, you don't know how to 
speak to another person." 

Guest teachers in Hughes' classes 
don't give lectures. They give electures, 
plugging their lessons into The Source 
where students access them. 

Hughes explained his students put in 
three hours of class work a week but 
don't meet at regular hours. However, 
his course differs from correspondence 
courses because a student is connected 
to his classmates and the instructor. 

Two or three times during the 
1 1-week course, he continued, students 
must "bring their brains to the 
classroom." During those sessions, 



"We already provide highways for people's bodies. Why don't we provide highways for their 
minds?" 




students upload 2,000 word composi- 
tions and the class discusses them on the 
system in real time. 

Hughes also teaches his classes about 
software aids to writing like Aspen 
Software's Grammatik, Proof-Edit, 
and Proofreader. And he leads discus- 
sions on what freedom of information 
means in the electronic era. 

"Why don't we create programs that 
allow the individual to screen, by a 
filter, words offensive to him," he 
opined. "System operators should 
never try to censor what a speaker says 
because in the microcomputer age, 
readers can be their own censors based 
on their own value system." 

Hughes' students attend his classes 
from all over the United States and the 
world. They've included a former lieu- 
tenant governor of Alaska, a hay and 
grain dealer in Iowa, a travel agent in 
Australia, and a professional writer in 
London. 

The electronic educator believes 
breaking down geographical barriers 
through microcomputer networks can 
preserve cultural diversity. 

He cited the case of Anne Charles, a 
21 -year -old Cree Indian, who travelled 
350 miles from L 'Orange to Regina, 
Canada, to ask Hughes if she could take 
his course. Hughes, who was in Regina 
to address the International Association 
of Business Communicators, told the 
association's conferees: 

"Anne Charles wants to be a jour- 
nalist. She does not have to move to 
Montreal and become French-Cana- 
dian to do that. She could learn jour- 
nalism while staying in L 'Orange, then 
turn around and export the culture of 
her people for pay." 

Later, Hughes explained to Charles 
how she could use an Epson printer to 
preserve the Cree language: "For her 
uncles, who speak Cree and write in a 
cunieform, I did a quick little program 
that spit out of the Epson the language 
of her people in cunieform form. I said 
her brothers and sisters could learn how 
to put the speech of her people on an 
Epson and communicate it over net- 
work lines." 

By using microcomputer technology 
in this fashion, Hughes contends society 
"can really start to solve the cultural 
and economic problems of the world." 

"We already provide highways for 
people's bodies to get them to big 
centers," he observed. "Why don't we 
provide highways for their minds?" ■ 
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COLOR COMPUTES 



PROGRAMMABLE 
SOUND MODULE 



AT LAST — the COLOR COMPUTERS 
audio capabilities even SURPASS its 
great graphics! If you can program in 
BASIC — plug in the PSM cartridge 
and start to create life like explosions, 
engines, animals, wind, water and other 
sounds limited only by your imagination. 
Complex sound effects are continuously 
maintained independently of your 
program. The PSM Is a power packed 
hardware/software combination and 1002 
compatible with ALL models of the 
Color Computer. 

PSM + complete instructions $98-95 

Available from; 

MAPLE LEAF SYSTEMS 

P.O.BOX 2190, STATION C , Downsview 
Ontario, CANADA M2N 2S9 ^92 



MOD 2 



MERGIT-CLII 

LINKS MODEL 2 ONE DISK GENERAL 
LEDGER (PN 26-4501) PROGRAM WITH 
SCRIPSIT" 2.0 ALLOWING ULTIMATE 
FLEXIBILITY IN REPORT FORMATS 
AUTOMATICALLY S89.95 

CAMES-V 
5 assorted GAMES for mod2 $19.95 

SAVE!! Buy both for $99.95 

INDEPENDENT SOFTWARE 

POB 3126 

FEDERAL WAY, WA 98003 

(206)941-6022 WA res add 6.5* tax 

no COD orders please 

"trademark of TAKDY CORP .,494 



i'pJT.I Munch? 



sss 
s 



s 
s 

$$$ 



D Punch Con.cn.on K.n w>ll help you SAVT MONEY 
5 A VI STOtAOf S»ACE SAVE TIME D' Punch Kin 
ore engineered to you con quickly, occurotely & 
tofely moke alteroiiont necettory to lei you ute both 
>.de> of your H or S .eclored SINGH SIDED Ookettei 
Converting I bo* ot dnketiei will more than poy lor 
each D. 'Punch Kir • Hub fteinforcer Kit occu'ately 
poufiom Hub *.einf Ring to hub opening * Dull 
Sleeve leu you replace your lost or damaged tleevei 
Indicate your tyftem config with order 

D.' Punch Kit * — ti%' dnvet & eq ) for e> 
[Apple Aton. CBM 4040. Franklin] 16 9) 

b D'Punch Kit B - (3V4" drive* & eq. tor e> 

TBS B0 (Mod I llll. IBM. Oborne Zenith] 14 95 

c D; Punch Kit C 8" dnvet & eq 1 'of e> 

Allot Zenith. IBS 80 Mod II] 16 9} 

d label. — [100 po| 3 00 

e Write Protect Stickert - [lOOpxtj 2 65 

1 Hub Reiniorcec Kit (3%') 10 99 
g Hub Uemforcer Kit (81 13 99 
h Hub Remrorcer Ringt [Sit")- (SO pet] 5 85 
i Hub Remforcer Ringt 8 — 1 50 pet] 6 20 
| D.U Sleeve. (SU') — 1 10 pci| 235 
k Oitk Slee.et(8') - [I0pct| 3 85 

Add S2 thippmg & handling lo* eoch SI) order 

.no. mem At HI. & Overteot cutt write to. SAH chorget 

MA KM odd i% loi Send check or money order to 

D/PunchCo(12) 

rO Be> 201 NewtenHles MA 02161 
Tel |«I71 964-312* Telei 499 1 009 CH Til 
€19-7 D Punch Corp Pot Pend 
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MEMOREX 
Diskettes 




Top-quality 

Memorex 

Diskettes 

from Tech* Data, your complete 

word and data processing supply 

center. Dealer inquiries invited 



Call Toll Free 

1-800-237-8931. 

In Florida, call 

813-577-2794. 



V 



Tech* Data Corporation 

3251 Tech Drive North ^ *w 
St Petersburg. FL 33702 



W..I..D..E RETORT SUPPORT 

HD 11/16 and DAISY WffiEL II 

Print 15 and 20 Characters/inch 



D L P Company 
6798 Wetheridge Dr. 
Cincinnati, Ohio 45230 

513 232-7791 •" , " 3 

VISA OR MASTERCARD ACCEPTED 

$75.00 

260 characters in just 13" at 20 
CPI; 170 in 7". Excellent qua- 
lity 15 CPI printing; 195 Char, 
in 13"; 120 in 8". SCRIPSIT" 2.0 
TRSDOS"" 2.0/4.1, VISICALC®, PR0- 
FlLE m , BASIC, COBOL, etc. 



EPSON MX-80 

CARTRIDGE RIBBONS 



$7 # oo 



MINIMI V1 ORnrR 



LABELS 

|s lt ,x3'. Pin-fed white 

pRfs-HRr stNsmvi 

Minimum Ordrr ! up 3.000 

Zuf IOA0O. 3ut< I5.00O. 4ur Z0XXK 



$2.99 

per M 



PAPER 

108 white 

I2.V -horis 



$20.oo 



Prices Include Shipping! 

C heck must accompany orders 

COMPUTER SALES AND SUPPLIES 
P O Box 02294 - Cleveland, OH 44102 

(216) 281-8820 •*« 



AB± 



ABS Suppliers 

3352 Chelsea Circle 

Ann Arbor, Ml 48104 

(313)971-1404 



B17 TAPE OPERATING SYSTEM will let you 

• Save & Loaa prog-ams 6X taster than Model-' 

• Save & Load Data Arrays over 800X taster 

• Backup standard System tapes mat ioad-n-go 
$14.95 Specity 16K. 32K, or 48K 

MICRO-SCOPE diagnostic tor ANY Disk System 
Tests MEMORY, FDC, DISK RFAD/WRITE. 
PRINTER A RS-232 Built-m Disk Drive timer 
Exceptional value 
$18.95 

WORDSMITH Word-processmg program In BASIC 
A Trainer' tor more complex W/P programs Easy- 
to use Specity Tape/ Disk version Tape version 
requires B1 7 Tape Operating System tabovel 
Disk version requires 32K RAM-up Uses MX-80 
Printer 
$14.95 

Add $1.50 postage- handling per Model-i item. 

Write tor our FRF E Reterence Sheet •' ,73 



SECURE 
PROGRAMS 



AND ASCII FILES 

WITH 

code a 

COMES WITH 

LIST SOURCE 

AND BRUN UTILITY 

$ 1 9.95 

SEND CHECK OR 
MONEY ORDER TO 

HPB VECTOR CO. 

130 CENTER ST. 
EAST STROUDSBURG _, itt ' 

PENNSYLVANIA 18301 

ALLOW TWO WEEKS DELIVERY 
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Will the meek in- 
herit the market? 

Industry 
watchers 
were sur- 
prised by the 
meek pricing 
moves made 
by Atari and Commodore 
in the face of Texas In- 
struments' $100 rebate 
plan, according to Elec- 
tronic News. 

That weekly speculated 
soon after TI announced its 
rebate plan Atari was pre- 
pared to give away $150 in 
software and gift certifi- 
cates to buyers of its low- 
end micro and Commodore 
would be knocking $50 off 
its VIC. 

The official word from 
the two firms, however, was 
less dramatic. Atari — faced 
with potential resistance 
from retailers for whom 
software is a high margin 
item — anounced it would 
offer six $10 certificates 
good for software and 
peripherals with the sale of 
its 400 computer. And 
Commodore revealed a $25 
to $40 VIC pricecut, de- 
pending on purchase 
volume. 

Electronic News also re- 
ported the low- end- micro 
price war has forced Com- 
modore to change some of 
its production and market- 
ing schedules. Production 
of the VIC, set for 50,000 
units a month, has been 
upped to 70,000 units a 
month. That, in turn, has 
reduced Commodore's 
commitment to its new 
game micro, the MAX 
Machine. 

Commodore had planned 
to place equal marketing 
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Roach: We've been tarred and feathered. 



emphasis on the VIC and 
MAX Machine, but the 
firm's vice president for 
marketing, Kit Spencer, 
told the newspaper: "We 
have decided to make VIC 
our major product for the 
Christmas season." 



Electronic News said 
Tandy's official line on the 
fireworks in the low-end 
market is its company- 
owned stores insulate it 
from price bombings. Tan- 
dy's president and chief ex- 
ecutive officer, John 
Roach, told the industry 
weekly: "We're getting 
tarred and feathered with 
people guessing our res- 
ponse to the TI, Com- 
modore and Atari business. 
It's difficult to understand. 
We're a retailer and 
whatever our strategy is, we 
will not talk about it until 
we implement it." 




Computer division 
boosts Tandy's 
profits picture 

Tandy Cor- 
poration ex- 
perienced a 
32 percent 
jump in prof- 
its for its 
fiscal year ending June 30. 
Contributing to the increase 
was a 72 percent hike in 
shipments from its com- 
puter division. 

The $224 million in prof- 
its for the 1982 fiscal year 
compares to $169 million 
earned in FY 1981. 

The Fort Worth firm esti- 
mated computer revenues 
account for 3 1 percent of its 
annual revenues. 

Computers are in a 
strong growth cycle, the 
company noted, and calen- 
dar 1982 will be the first big 
year for home sales. 

Tandy projects sales of 
its product will grow three 




to four times in 1982, com- 
pared to 1981. 

The firm also said early 
orders for its Model 16 have 
exceeded expectations. 

Tandy to give Na- 
tional Science Foun- 
dation hardware 

Tandy Cor- 
poration an- 
nounced an 
agreement 
with the Na- 
tional Sci- 
ence Foundation to provide 
computer equipment to in- 
stitutions for use in educa- 
tion programs in science, 
mathematics, and engineer- 
ing through the Fort Worth 
firm's TRS-80 Educational 
Grants Program. 

The foundation, an inde- 
pendent agency of the U.S. 
government, will be award- 
ing the computers as the 
equipment portion of pro- 
jects supported by its on- 
going development-in- 
science education program. 
Charles Phillips, Radio 
Shack senior vice president 
for special markets, told 
the T.H.E. Journal the 
program is "a timely and 
important step supporting 
the need for renewed em- 
phasis on science education 
in this country." 



He added that "this par- 
ticipation with NSF is in 
accord with the philosophy 
behind our Tandy TRS-80 
Educational Grants Pro- 
gram — that is, rather than 
simply giving out hard- 
ware, we want to support 
projects that have a mean- 
ingful plan for educational 
applications using that 
hardware." 



PROGRAMMING TOOLS FOR YOUR 
TRS-80 ™ MODEL I AND MODEL HI 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER if a powerful disk or tape based assembler and debugger for 
the TRS-80. Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger. Quickly switch from assembler to 
debugger and back again without losing the source code. This feature makes INSTANT 
ASSEMBLER an excellent learning toot for assembly language programming. 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers In that It 
produces relocatable code modules that can be Inked with the separate LINKING LOADER, 
which is suppled in two versions for loading programs Into either high or low RAM. This lets 
you build long programs with small modules INSTANT ASSEMBLER also features im- 
mediate detection of errors as the source code is entered, a compactly coded source format 
that uses 1/3 as much memory as standard source, and many operational features Including 
single stroke entry of DEFB and DEFW pinpoint control of listings, alphabetic listing of 
symbol table, separate commands for listing error Ines or the symbol table, block move 
function, and verification of source tapes 

INSTANT ASSEMBLER'S debugger provides single stepping with full register displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly of 
object code in memory memory display in ASCII format, and hex-to-decimal or decimal- 
to-hex conversion The single stepper will step one instruction at a time or at a fast rate to any 
defined address 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory In a 16K machine this 
will leave you enough memory to write assembly language programs of around 2000 bytes 
This and its module-linking feature make INSTANT ASSEMBLER ideal for users with only 
16K machines The Instruction manual may be purchased separately for $3. which will apply 
towards the purchase of the INSTANT ASSEMBLER In addition to disk L 0, the disk version 
includes a stand-alone version of the debugger 

Specify Model I or Model III. TAPE 1NTASM $29.95 on tape 

Specify Model 1 or Model III. DISK INTASM $35.95 on disk 

RESTORE DAMAGED TAPES WITH RESQ2 

Cassette recordings are subject to several types of damage. Thin spots in the oxide, dirt, 
voltage fluctuations while recording, or stray magnetic fields can all contribute to lost or 
added bits. RESQ2 was written to provide a method of restoring tapes that can no longer be 
loaded for these reasons It can restore BASIC. SYSTEM. ASSEMBLER, and DATA tapes. 
RESQ2 compares two copies of the damaged tape to attempt a restoration, though restora- 
tion can often be accomplished with only one copy After the damaged data is corrected in 
memory, a new tape may be recorded and verified which does not contain the errors. The 
success rate of RESQ2 will depend on the severity and quantity of errors RESQ2 comes with 
a comprehensive user manual and examples of two types of crashed' programs to practice 
on. 
Specify Model I or Model IB. RESQ2 $19.95 on tape 

RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature print formatting package featuring user defineable line and page 
length (with Ine feeds inserted between words or after punctuation), screen dump, pnnter 
pause control, and baud rate selection In addition, printing is done from a 4K expandable 
buffer area so that the LPRINT or LUST command returns control to the user while printing is 
being done Works with cassette or disk systems Ideal for Selectric or other slow printers 
Allows printing and processing to run concurrently. Output may be directed to either the 
parallel port, serial port, or the video screen 80 Microcomputing said "I can only give my 
highest recommendation of Spooler and Mumford Micro Systems " 
Specify Model I or Model III. SPOOLER $16.95 on tape. $21.95 on disk 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of almost any tape including Basic. SYSTEM, data Ists. assembler 
source, or "custom loaders". The file name, load address, entry point, and every byte I in 
ASCII format) are displayed on the video screen. Model III version allows changing tape 
speed so you can load in a tape at 500 baud and write It out at 1500. 
Specify Model I or Model HI. CLONE $16.95 on tape. $21.95 on disk 

MACHINE CODE FAST FOURIER TRANSFORM 

Written by Dr AH. Gray. Jr. co-author (with JD Markel) of the classic text "linear 
Prediction of Speech", this complete package includes 3 versions of the machine language 
FFTASM routine assembled for 16. 32. and 48K machines, a short sample Basic program to 
access them, a 10K Basic program which includes sophisticated interactive graphing and data 
manipulation, and a manual of instructions and examples The machine language sub- 
routines use variables defined by a supporting Basic program to make data entry and retrieval 
automatic, without PEEKs and POKEs They perform 20 to 40 times faster than their Basic 
equivalent (256 points in 12 5 seconds), and handle up to a 1024 point complex FFT The 
FFT is useful in analyzing stock market and comodity trends as well as for signal analysis. 

Specify Model I or Model HI. FFTASM $49.95 on tape 

FFTASM on disk with source code $69.95 
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INSIDE LEVEL II 

ammers Guide to the TRS- 



80 ROMS 



INSIDE LEVEL D is a comprehensive reference guide to the Model I and Model III ROMs 
which allows the machine language or Bask programmer to easily utilize the sophisticated 
routines they contain. Concisely explains set-ups. calling sequences, and variable passage 
lor number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines. Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes In both Basic and machine 
code with the speed and efficiency of a compiler. In addition, the 18 chapters include a large 
body of other information useful to the programmer including tape formats. RAM useage. 
relocation of Basic programs. USR call expansion, creating SYSTEM tapes of your own 
programs, interfacing of Basic variables directly with machine code, and special precautions 
for disk systems INSIDE LEVEL II was reviewed in the April 1982 issue of 80 Microcomput- 
ing which said "The book has no flaws, it is a perfect gem " Byte Magazine said "I recommend 
this book to serious machine language programmers." 
Includes updates for Model III INSIDE LEVEL D $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine language program one instruction 
at a time, and see the address, hexadecimal value. Zilog mnemonic, register contents, and 
step count for each instruction The top 14 Ines of the video screen are left unaltered so that 
the "target program" may perform its display functions unobstructed STEP80 wiD follow 
program flow right into the ROMs, and is an invaluable aid in learning how the ROM routines 
function. Commands include step (trace) disassemble, run in step mode at variable step rate 
display or alter memory or CPU registers, jump to memory location execute a CALL, set 
breakpoints in RAM or ROM. write SYSTEM tapes, and relocate to any page in RAM The 
display may also be routed to your ine printer through the device control block so custom 
print drivers are automatically supported. 
Specify Model I or Model III. STEP80 $16.95 on tape, $21.95 on disk 

SMART TERMINAL PROGRAM 

This machine language program may be used as a smart terminal with time share systems or 
for high speed file transfers between two disk-based micros over modems or direct wire. It is 
menu driven and extremely simple to use. Functions include real-time terminal mode, save 
RAM buffer on disk, transmit disk file, receive binary files, examine and modify UART 
parameters, program 8 custom log-on messages, automatic 16-bit checksum verification of 
accurate transmission and reception, and many more user conveniences. Supports Ine 
printers and lowercase characters With this program you will no longer need to convert 
machine language programs to ASCII for transmission, and you will know immediately if the 
transmission was accurate 
Specify Model I or Model IB. TELCOM $39.95 on disk 

DISK INDEX VERSION 3.0 

Our excellent disk indexing program has now been entirely rewritten in machine language h 
will run on either a Model I or Model III and catalog disks for either machine regardless of 
which one is running it. (Model I owners must have double density to catalog Model III disks ) 
DISK INDEX will assemble an index of your entire program library by automatically reading 
program names and free space from each disk directory The index may then be alphabetized 
or searched for any disk, program, or extension Disks or programs may be added or deleted, 
and the whole index or any part may be sent to the printer The index itself may also be stored 
on disk for future access and update A 48K machine will hold over 2500 programs in each 
index, and you may build as many indexes as you need Version 3 runs substantially faster 
than our previous version and works with any operating system written for the Model I or 
Model III except CP/M. 
Specify Model I or Model III INDEX 3.0 $29.95 on disk 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK- 2 clock modification allows CPU speeds to be switched between normal, an increase 
of 50%. or a 50% reduction, selectable at any time without interrupting execution or crashing 
the program Instructions are also given for a 100% increase to 3.54 MHz The SK-2 may be 
configured by the user to change speed with a toggle switch or on software command, ft wdl 
automatically return to normal speed any time a disk is active, requires no change to the 
operating system, and has provisions for adding an LED to indicate when the computer is not 
at normal speed h mounts inside the keyboard unit with only 4 necessary connections for the 
switch option (switch not included), and Is easily removed if the computer ever needs service 
The SK-2 comes fully assembled with socketed IC's and illustrated instructions 
Model I only SK-2 $24.95 

RAMTEST 

This machine language program is a very thorough test for several types of RAM errors and 
will indicate which chip, if any is faulty It also includes a separate test for power Ine gltches. 
Specify Model I or Model III RAMTEST $12. 95 on tape, $17.95 on disk 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a full refund will be made Include $2 Ml 
for postage and handling California residents add 6'7> sales tax Visa Master, liar.;, and ( ()|) 
orders accepted SPECIFY MODEL I OR MODEL III. Dealer inquines invited 

Box 400 -E Summerland. California 93067 (805) 969-4557 

• 6? Quality software since 1978 
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Cosmo discovers 
Network Nation 

The Cosmo 

girl has dis- 
covered the 
Network Na- 
tion and it 
looks like an 
8.5. "forget dating through 
the personals or friends' fix- 
ups!" Cosmopolitan 
magazine exhorted its 
readers in its September 
issue. "An electronic brain 
right in your own living 
room can introduce you to 
thousands of men... in 
seconds!" 

Cosmo discovered the 
wonders of networking 
through author Elizabeth 
Fcrrarini, who stumbled on 
The Source while looking 
for a man "who'll be 
G.I.B., pay for dinner, and 
treat me like precious porcc- 
lain . . .have a college 
degree, solid profession, 
good looks, weight in pro- 
portion to height, and make 
at least $50,000 a year." 



Despite her assets — 
magna cum laude college 
graduate, homeowner, late- 
model sports car driver, and 
good teeth — Ferrarini 
found "Mr. Terrific was 
being strangely elusive." 

"Just in time to avert ter- 
minal loneliness," she 
wrote, "a friend told me 
about a company that 
allows nearly 20,000 com- 
puter owners to communi- 
cate with each other in a 
flash. When I learned that 
over 90 percent of these 
computer buffs are males, 
their median age is 35, and 
they are college-educated 
412 • 80 Micro, December 1982 



professionals with an 
average yearly income of 
almost $50,000, I knew the 
object of my capitalistic 
fantasies must be among 
them." 

After purchasing a micro 
and learning how to use The 
Source, the Cosmo author 
realized the potential of net- 
working: "Using my com- 
puter to communicate via 
the telephone line, I could 
dash off torrid love letters, 
place ads on an electronic 
bulletin board, and even 
carry on 'conversations' 
with other subscribers by 
way of our respective com- 
puters' keyboards. Admit- 
tedly, all of this sounded to 
me like science fiction. Im- 
agine getting my mail deliv- 
ered by an electronic brain 
and communicating with 
people I'd never seen. A 
smart chimpanzee could be 
sending me electronic 
billets-doux." 

Ferrarini placed a lonely 
hearts message on The 
Source's electronic bulletin 
board and 24 hours later, 
she had 16 e-letters, 12 of 
them with one thing in com- 
mon: a trip to her home 
state within the next two 
months. 



Overall, the Cosmo 
author appeared satisfied 
with the chipsters her ad at- 
tracted. "Although I've 
encountered my share of 
duds," she wrote, "com- 
puter owners are, on the 
whole, a likeable lot. With 
my desk-top model and a 
telephone, I can plug into 
an endless supply of avail- 
able males — and keep my 
checkbook balanced, too." 





Computer life 
after 40? 

Is there com- 
puting after 
40? The 
Source says 
yes. In a 
statement on 
a recent survey it completed 
on its subscribers, the infor- 
mation utility said the 
average age of its users is 
42, three years older than 
the average age in 1981 . The 
Source also noted 64 per- 
cent of its subscribers are 
over 35, compared to 56 
percent last year. 

In a related matter, The 
Source announced it is car- 



rying an electronic version 
of the U.S. News Washing- 
ton Newsletter. According 
to a statement from the in- 
formation utility, each week 
the letter carries about a 
dozen stories on investment 
opportunities, economic 
trends, and key government 
activities. 

Apple millionaire 
raps Woodstock 

Although 
pre-concert 
publicity 
touted the 
US Festival 
as the Wood- 
stock of the 1980s, the man 
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who picked up the SI 3 
million tab for the event 
disavowed any similarities 
between the rock-a-thons. 

Millionaire and Apple 
computer founder Ste\e 
Wozniak rapped Wood- 
stock in an article appearing 
in the Providence Sunday 
Journal. "If I listed the 
things that were wrong with 
Woodstock, it would over- 
flow one diskette on my 
word processor," he said. 
"Woodstock was really a 
lot of lies, miserable lies. 
They were a bunch of hip- 
pies spending money that 
wasn't even theirs. They 
didn't even have any sanita- 
tion." 

Sanitation is something 
they had plenty of at Wo/.- 
niak's concert. At the 
500-acre park carved to 
Wozniak's specifications by 
the construction superin- 
tendent at Disnev World, 



there were 2,500 latrines, 
the best commode-to- 
concert-goer ratio in 
history. 

Apparently, US Festival 
planners hoped its partici- 
pants would react different- 
ly to their concert than their 
Woodstock predecessors. 
While people attending 
Woodstock professed to be 
members of a mythical 
love-peace entity called 
"The Woodstock Nation," 
rock impresario Bill 
Graham told the Journal 
that an US Festival 
goer — gazing at laser lights 
and multi-dimensional visu- 
al effects — was supposed to 
"feel like an extra in a 
Steven Spielberg movie." 

"Woodstock was essen- 
tially anti-establishment," 
one festival goer, a 30-ycar- 
old insurance man from 
Santa Barbara, CA, 
opined. "This festival isn't 




anti-establishment. Hell, we 
are the establishment." 

Computer books 
hot, but some 
make them shoddy 

Computer 
books have 
been selling 
as never be- 
fore and 
publishers 
are turning out dozens of 
new titles every month. Un- 
fortunately, according to 
Omni magazine, in the 
scramble to publish as 
many computer books as 
possible, publishers have 
rushed out amateurish 
guides written by computer 
freaks who know their sub- 
ject but don't know how to 
explain it clearly. 

The opportunistic tactics 
that some publishers 
employ can also contribute 




to low standards in com- 
puter books, Charles Piatt 
wrote in the pop-science 
magazine. 

He added: "Anyone who 
writes a short article for one 
of the computer magazines, 
for instance, will have his 
name picked up by at least a 
couple of book publishers, 
who'll send form letters en- 
couraging him to write a 
book for them on any com- 
puter-related subject, re- 
gardless of his qualifica- 
tions. Indeed, some book 
publishers prefer to hire 
amateurs, because I hey are 
less trouble to work with. A 
would-be writer, excited by 
the prospect of seeing his 
work in print, won't com- 
plain if the publisher makes 
changes, and he will do the 
work for lower pay." 

But even books done by 
reputable publishers and 
professional authors can be 
disappointing. Plait said. 
He cited the second edition 
of Personal Compulinu, by 
Daniel R. McCilynn, pub- 
lished by John Wilcv and 
Sons of New York. Al- 
though authoritative and 
thorough, Piatt noted, 
readers without a science 
background will find the 
book's explanations diffi- 
cult to understand. 

Another book that looks 
like a winner but is disap- 
pointing, he said, is H 77//- 
out Me You 're Nothing, by 
Frank Herbert, author of 
Dune. "Herbert claims he's 
out to debunk and demysti- 
fv computers," Piatt wrote, 
"but he has a techno- 
freak's love of jargon and 
the book is full of sweeping 
generalizations that be- 
tray a lack of firsthand ex- 
perience. It will intimidate 
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ADVANCED BAUDOT RADIOTELETYPE 

FORTHETRS-80 MODELS I and III 

Disassembled Handbook ■ Volume 5 

Knowledge ot assemble' is NOT required 

— For boli BASIC "e*come>s ana advanced assent- > 
language programme's Mode 1 -3 

- Load handle can QTH rig CO etc ''om BASIC to 
disk CMD ONE TIME ONLY 

— includes BASIC load pgm 'o> newcomers 
-60 66 75 and ioo speed Baudot UTTy 
-Type ahead m BOTH 'eceive K transmit 
-21 prepa'eo messa.jes -S nput messages 

Automatic Mo'se code ID with v ou' can 

Store 2W t-,ics receive message automatically 

retransm ssion it desired 
-Edd above similar to Pencil 
-5 Chapters tor new BASIC programmers 
-5 Chapters lor advanced assembly programmers 
-Requires 4HK . PORT ?ero decoder . Tu 
-No HS 23?C mter'ace is required 

Ne*< omprs SHOULD nrde' d s» A note M :•■ 

VOLUME 5: - $20 ppd - WITH DISK $49 ppd 
|US tundtl add $8.50 mrMM airmail 

German - French - Japanese language editions 

RICHCRAFT ENGINEERING LTD. 

• 1 Wahmada Industrial Park 
Chautauqua, New York 14722 

COD orders— US only (716) 753-2654 
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FALL SPECIALS 

48K 2 Drive Mod III $1579.00 

125K LNW-80 Mod II $1499.00 

C. Itoh Prowriter8510 Printer $ 439.00 

Sooper Spooler 

Printer Interface $ 299.00 

Verbatim Disks. SS, DD, 40tk ... $ 23.00 
Elephant Disks, SS, DD, 40tk ... $ 21.00 
Daisy Wheel II 

Cartridge Ribbon $ 6.50 

Mailing Labels (5,000) $ 15.00 

20#9.5" x 11" 

White Tractor Paper $ 25.00 

Hardware for your computer at 
a price you can afford! 

EAST COAST DATA 

4825 Wycliff Road • Portsmouth, VA 23703 
804/484-6636 (Voice) • 804/484-9636 (Data) 

Prices and specitications sub/eel to C/ianga. 
MasterCard and Visa welcomed. 



NEW SOFTWARE 

for TRS 80 Model III 

and the Color Computer 



■ Church Contribution System 

designed to simplify and facilitate the tedi- 
ous chore of recording envelopes Provides a 
variety ot reports Maintains its own data- 
files Onlyj 150 

■ Data Base Manager 

designed to help organize all your dala and pro- 
vide you with meaningful reports Add or delete 
any information New files can be created and 
old information transferred Only $150 

a Single Entry Ledger 

designed as an uncomplicated control of 
finances for home or small business Add de- 
lete edit at any time Compatible with 
DBM Only $95 

Write or phone for complete software price list 




2457 Wehrle Drive 
Amherst. NY 14221 
716 631-3011 




"SC0REIT" TAKES THE 
GREMLINS OUT OF GRADING 

A COMPUTER PROGRAM FOR THE 
RADIO SHACK (TM) TRS-80 
MODEL III WHICH SCORES MULTIPLE 
CHOICE TESTS AND GENERATES: 

* Test Statistics 

* Score Roster 

* Histogram of Scores 

* Item Statistics 

* Map of Item Responses 

UNIQUE FEATURES 

* Built-in error detection 

* Special diagnostics to guide 
revision 

* Interface with answer sheet scat 
ners 
(optional at additional cost) 

Include printer model and type when or- 
dering. License for use o' the compiler) 
version of the program may be obtained 
by remitting S195.00 to 

J. Eli 81 Associates 
635 South Hennessey St. 
New Orleans. LA 70119 
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iple Output Free on Request 

Please send SASE .-491 



SEND AND RECEIVE 

MORSE CODE 

•SEND UP TO 40 WPM 
•COPY OVER 100 WPM 

Your Modal I or III becomes a pro- 
grammable keyboard keyer that can 
•and morse from tha keyboard or 
from stored messages. Keying Is dona 
either by the relay or by the audio 
output. Received morse is decoded, 
displayed, stored and printed. The 
cassette earphone plug connects to 
the receiver speaker to copy off the 
air. No hardware except patch cords 
is required for many setups. 

satisfaction guaranteed 
Cassette with instruction booklet 
only $19.95 postpaid. Model I or III. 
LEVEL II. with at least 16k required 

ROGO Computer Products 

4752 DeBeers Drive 

El Paso, Texas 79924 ^343 
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and baffle the reader who 
does not already own a 
computer and doesn't know 
the language." 

Piatt identified as a use- 
ful and well-researched 
handbook Wilma E. Ben- 
nett's Checklist /Guide to 
Selecting a Small Comput- 
er, published by Pilot 
Books of New York. The 
book contains no fewer 
than 332 questions to ask a 
computer salesman before 
you buy a computer. 

And if you need excuses 
to avoid buying a comput- 
er, there's Computer 
Choices: Beware of Con- 
spicuous Computing!, by 
H. Dominic Cowey and 
Neil Harding McAlister. 
Piatt said that book de- 
bunks the whole computer 
fad with case histories of 
small businesses that went 
bankrupt after computeriz- 
ing and private users who 
bought home computers, 
couldn't find anything 
useful to do with them, and 
abandoned them to gather 
dust in the attic. 

Teacher shortage 
giving high-tech 
advantage to 
Japan, Germany 

A worsening 
math teacher 
shortage is 
allowing 
Germany 
and Japan to 
develop the capability to 
outdistance the United 
States in the high-technolo- 
gy era, according to Dr. 
Stephen Willoughby, presi- 
dent of the National Coun- 
cil of Teachers of 
Mathematics. 
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Studies by the NCTM 
have yielded results similar 
to findings by independent 
researchers (see 80 Micro, 
October 1982, p. 382). They 
show the math teacher 
shortage the most severe of 
any subject taught in the na- 
tion's education system. 
The shortage of science 
teachers is next. 

Since 1972 there has been 
a 77 percent decline in the 
number of secondary-level 
mathematics teachers pre- 
pared in 600 teacher-train- 
ing programs nationwide. 
And only 55 percent of 
graduates prepared to teach 
math go into teaching. 

Willoughby, in a report 
by United Press Interna- 
tional, estimated more than 
half the new math teachers 
are not qualified to teach. 

The situation can be 
turned around, however, by 
some proposals currently 
before Congress, he said. 
Those bills would — 



• Set up tax credits for 
firms assigning full-time 
math-competent workers 
part-time to teach in public 
schools; 

• Give tax credits to firms 
hiring math and science 
teachers for the summer; 
and 

• Direct loans at 7 percent 
interest to students aiming 
to teach math or science. 

Japanese penetrate 
disk-drive market 

Increased 
Japanese 
penetration 
into the U.S. 
disk-drive 
market was 
reported by the Electronic 
News. 

Alps Electronics Ltd. of 
Tokyo dislodged Shugart 
Associates as a supplier of 
5.25-inch drives to Apple, 
the industry weekly report- 
ed, while TEAC won a 
5.25-inch drive contract 
with the Digital Equipment 
Corporation and Sony 
locked up a $30 million con- 
tract to supply 3.5-inch 
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drives to Hewlett-Packard. 

It was a low bid that won 
the Apple contract for Alps. 
The Tokyo firm bid under 
$50 a drive to supply the 
mechanism-only devices to 
Apple, which will insert the 
controller-boards in the 
drives. 

Despite Alps' and TEAC's 
victories in the 5.25-inch 
market, the Japanese may be 
planning to corner the disk- 
drive market elsewhere. 
Grover Mullin, general 
manager of OEM market 
requirements for Control 
Data Corporation of Min- 
neapolis, told EN. 

Since the Japanese en- 
tered the 5.25-inch market 
late, he contended, they 
might concentrate on put- 
ting higher density on 
smaller floppies. 

Sony is the only company 
to deliver to the U.S. 
market a microfloppy 
drive — 3.5 inches, single- 
sided, double-density — 
although Hitachi and Mat- 
sushita are ready to bring 
their 3-inch drives to mar- 
ket. Sony is expected to 
release a double-sided 
microdrive next year. 

In additon to increased 
activity in the microfloppy 
market, 5.25-inch and 
8-inch manufacturers are 
finding a demand for slim- 
line or half-height drives. 
Some 1500 8-inch half- 
height drives a month are 
being shipped by NEC, EN 
reported. 

Currently, NEC and 
Tandon are the only firms 
producing the 8-inch half- 
heights, but MPI, Shugart, 
Qume, and Mitsubishi have 
announced they will be pro- 
ducing them, lowering the 
price of the drives to $370 a 
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drive for volume shipments. 
One NEC official told 
EN: "We're seeing a lot of 
interest in the product. The 
fact that it has reduced 
power requirements and 
can fit in a smaller space 
makes it attractive to 
customers." 

Anti-video game 
forces paranoid 

Computer 
games aren't 
creating a 
generation 
of computer 
zombies, a 
child psychologist and com- 
puter expert said in a report 
appearing in the Providence 
Journal. 

Mitchell Robin, a profes- 
sor of psychology at the 
New York City Technical 
College, maintained parents 
are "paranoid" about com- 
puters, because they grew 
up during a period when the 
machines were portrayed as 
Ghengis Khans in waiting — 
just biding their time until 




Correction 

In the October issue of 80 Micro the number for Bob 
Rosen's BBS was published incorrectly. The correct 
number is (212) 441-3755. 



the malevolent machines 
could take over the world 
and force humans to watch 
reruns of / Love Lucy. 

In the story appearing in 
the Rhode Island daily, 
Robin said his two daugh- 
ters, aged 8 and 5, are more 
proficient in killing off 
multi-colored video mon- 
sters than their father, 
something he doesn't mind. 

"When they win," he 
said, "I'm delighted they 
can see dad as being 
fallable. They learn that I'm 
human with limitations and 
that I'm not always suc- 
cessful in what I'm doing. 
I'm not superhuman." 

Robin contended parents 
could learn a great deal 
about themselves and how 
their children see them com- 
peting with them in video 




game play: 

"I find that parents who 
must always be right and 
never lose anything are par- 
ents whose children distrust 
them. Parents are humans 
and we tend to get very easi- 
ly seduced into being 
perfect" in the eyes of 
children. 

Robin debunked a com- 
mon fear among anti-video 
game elements that the ma- 
chines' warlike, violent 
themes will have a bad ef- 
fect on children: "I've 
worked in programs with 
children as young as 8 years 
old. I see their humanity in- 
creasing, not decreasing." 



Commodore's Fink 
moves to ad agency 

Alan W. Fink, 
the driving 
force behind 
the spectacu- 
lar rise of the 
VIC-20 mi- 
crocomputer, has left Com- 
modore and joined Korn- 
hauser & Calene Inc., a New 
York advertising agency. 

The agency, which worked 
closely with Commodore in 
marketing the VIC-20, 
hired Fink to head its new 
consumer electronics mar- 
keting group. 



Fink: Driving force behind VIC. 




According to a statement 
from Kornhauser, under 
Fink's guidance, the VIC- 
20 took only six months to 
capture a significant share 
of the personal computer 
market and made a signifi- 
cant contribution to Com- 
modore's 63 percent in- 
crease in fiscal 1982 sales. 

"The category of small 
personal computers is so 
new that there are few, if 
any, organizations that can 
provide the expert market- 
ing assistance needed to sell 
successfully," Board Chair- 
man Henry Kornhauser 
said. "Alan Fink provides 
the vital link in the market- 
ing chain by bringing to cli- 
ents the manufacturer's 
viewpoint." 

Today's engineers 
and technicians ob- 
solete in 5 years 

Today's de- 
sign engin- 
eers and 
technicians 
may be tech- 
nologically 
obsolete in three to five 
years, according to Douglas 
Bonham, director of 
Heath/Zenith Educational 
Division of the Heath Com- 
pany, Benton Harbor, MI. 
Bonham told the T.H.E. 
Journal technology is 
changing so fast in the elec- 
tronics and computer fields 
that engineers face obso- 
lescence as quickly as the 
products they design. 

In addition, electronics is 
invading virtually every 
field where mechanical and 
electrical equipment used to 
dominate, forcing many 
engineers to learn entirely 
new disciplines. ■ 
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Season's 
Greetings 

As kids and kids in spirit 
enter the Fun House this 
month, you can see that I've 
decorated the place for the holi- 
day season. 

Christmas falls as usual on 
December 25, and Hanukkah 
starts on December 1 1 this year. 
Though the two holidays cele- 
brate different events, there are 
similarities. Both include deco- 
rations, giving gifts, and play- 
ing games, somewhat apart 
from their religious meanings. 

So let's have a Fun House 
party with these programs: 

The 1 2 Days of Christmas is 
a Color Computer program 
that celebrates that peculiar 
story of gift -giving gone wild. 

Dreidel is a Level II listing for 
an ancient Hanukkah game of a 
spinning top and shifting for- 
tunes. It's pronounced dray- 
dui 

Peglegs is my holiday gift to 
you — a simple, but tricky com- 
puter version of a game you 
may recognize. There are list- 
ings for Level II and the Color 
Computer. 

This month's Nickel Bargain 
Bin is the solution to the 
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REM * 12 DAYS OP CHRISTMAS / TRS-80 COLOR BASIC 4K * 

CLS(f) 

DIM AS (24) 

DATA A PARTRIDGE IN A PEAR TREE., TWO TURTLE DOVES 

DATA THREE PRENCH HEMS, POUR CALLING BIRDS 

DATA PIVE GOLDEN RINGS, SIX GEESE A-LAYING 

DATA SEVEN SWANS A-SWIMMING, EIGHT MAIDS A-NILKING 

DATA NINE PIPERS PIPING, TEN DRUMMERS DRUMMING 

DATA ELEVEN LORDS A-LEAPING, TWELVE LADIES DANCING 

DATA 12TH,11TH,10TH,9TH,BTH 

DATA 7TH,6TH,5TH,4TH,3RD,2ND,1ST 

Z$- a 204 204 185 193 197 185" 

204 204 210 197 193 176 185 185 176 176 176 176" 
210 210 210 200 200 200 204 204 204" 



Y$-"197 
X$-"204 204 204 



322, "THE TWELVE DAYS OF CHRISTMAS 



W$-"147 147 147 147 176 176 176 176 170" 

V?-"176 185 193 197 185 193 193 193" 

U$-"2B4 197 193 185 176" 

T$-"197 197 159 170 176" 

S$-"185 176 170 159 147" 

N-l 

FOR A-l TO 24 

READ A$(A) 

NEXT A 

X-31 

Z-0 

FOR Y-0 TO 15 

FOR L-X-Z TO X+Z 

K-RND(20) 

IP K<6 THEN SET(L,Y,RND(8)) ELSE SET(L,Y,6) 

NEXT L 

Z-Z+l 

NEXT Y 

PRINT 9 

IF G-50 GOTO 430 

FOR T-l TO 1500 

NEXT T 

CLS(0) 

FOR A-12 TO 1 STEP -1 

PRINT 

PRINT 

PRINT "ON THE "A$(A+12)" DAY OF CHRISTMAS 

A$-W$ 

GOSUB 799 

PRINT "MY TRUE LOVE GAVE TO ME:" 

A$-V$ 

GOSUB 790 

FOR B-N TO 1 STEP -1 

IF B-l OR B-2 THEN B$-" " ELSE B$«", " 

IF N>1 AND B-l THEN PRINT "AND "; 

PRINT A$(B); 

IP B-l THEN PRINT B$; ELSE PRINT B$ 

IF B>5 THEN A$-Z$ 

IF B-5 THEN A$-X$ 

IP B>1 AND B<5 AND N<5 THEN A$-Z$ 

IP B-4 AND N>4 THEN A$-U$ 

IP B-3 AND N>4 THEN A$«T$ 

IF B-2 AND N>4 THEN A$-S$ 

IF B-l THEN A$-Y$ 

GOSUB 790 

U-U+B 




NEXT B 
PRINT 9 
N-N+l 
FOR X-l 
NEXT X 
CLS{0> 



0, "TOTAL GIPTS:";0 
TO 500 



790 
800 



760 NEXT A 

770 G-50 

780 GOTO 330 

IF N>1 AND B-l THEN SOUND 193,3 
FOR J-l TO LEN(AS) STEP 4 

810 B$-MID$(A$,J,3) 

820 P=VAL(B$) 

830 SOUND P,3 

840 NEXT J 

850 RETURN 

860 END 
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Peglegs game. 

So, fa-la-la-la-la, and let's get 
started before the hot cider 
gets cold. 

The 12 Days of Christmas 

If a wild gift -giver duplicated 
the events of this Christmas 
song, someone would wind up 
with 364 items by the 12th day. 
I found that out when I built a 
running total into this program. 
It displays the entire song with 
the melody if you want to sing 
along. That's all the program 
does, but that's a lot, consider- 
ing the length of the listing. 

Dreidel 

Hanukkah is a Jewish holi- 
day that celebrates the long-ago 



rededication of the Temple of 
Jerusalem. And Dreidel is a 
game that children have been 
playing on Hanukkah for hun- 
dreds of years. 

This program is given only in 
Level II; it simulates a game of 
Dreidel with the computer play- 
ing against a human. 

A dreidel is a top with four 
sides. On each side is a letter 
from the Hebrew alphabet. 
These letters are shown with 
this article (see Fig. 1). 

Each player starts with the 
same amount of Hanukkah 
gelt — gelt means money — or 
you can use counters ranging 
from peanuts to marbles. 

To start, each player puts five 
pieces of Hanukkah gelt in the 
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'LET'S PLAY DREIDEL." 

•THE LIMIT IS 100..." 

'HOW MUCH HANUKKAH GELT FOR EACH";B 
100 THEN PRINT: PRINT: GOTO 260 



Dreidel 

100 REM *DREIDEL / TRS 80 LEVEL II * 

110 CLS 

120 CLEAR 150 

130 S$«CHR$(128) 

140 T$-CHR$(131) 

150 U$=CHR$(171) 

160 V$=CHR$(179) 

170 W$=CHR$(181) 

180 X$=CHR$(186) 

190 Y$=CHR$(187) 

200 Z$=CHR$(191) 

210 P=582 

220 A=596 

230 M=608 

240 PRINT 

250 PRINT 

260 PRINT 

270 INPUT 

280 IF B> 

290 C=B 

300 G=B 

310 D=0 

320 CLS 

330 ES=S$+Z$+STRING$(5,T$)+Z$+S$ 

340 A$(1)=S$+Z$+S$+S$+V$+U$+S$+Z$+S$ 

350 A${2)«S$+ZS+S$+S$+V$+Y$+S$+Z$+S$ 

360 A$(3)=S$+Z$+S$+Z$+T$+Z$+S$+Z$+S$ 

370 A$(4) =S$+Z$+S$+W$+Z$+X$+S$+Z$+S$ 

380 B$=S$+Z$+STRING$(5,S$)+Z$+S$ 

390 C$=S$+STRING$(7,Z$)+S$ 

400 D$=S$+S$+STRING$(5,Z$)+S$ 

410 F$=S$+S$+S$+S$+Z$+S$ 

420 Y=21 

430 FOR X=0 TO 126 

440 SET(X f Y) 

450 SET(X f Y+10) 

460 NEXT X 

470 PRINT @ 514, "YOU"; 

480 PRINT £ 528, "POT"; 

490 PRINT @ 542, "ME"; 

500 X=0 

510 FOR Y=21 TO 31 

520 SET(X,Y) 




530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6 80 
690 
741 
700 
710 
720 
730 



SET(X+27,Y) 

SET(X+54,Y) 

Z-k) 

SET(X+78,Y) 

SET(X+126,Y) 

NEXT Y 

PRINT 

PRINT 

PRINT 

IF C<1 

IF D-0 

Q=Q+1 

PRINT 

IF C<1 

IF G<1 

IF Q-l 

IF Q-2 



main pile. Each player spins the 
dreidel. These are results of the 
letters that are face up when the 
top stops spinning: 

• NUN — Nothing happens. 

• GIMMEL— Take all the pot. 

• HE— Take half the pot. 

• SHIN— Give half of what 
you have to the pot. 

When the pot is empty, each 
player must put five counters in 
it. The loser is the player who 
cannot put five counters into 
the empty pot. 

This program includes a 
spinning dreidel and enough 
automatic features to make it 
easy to play. 

Peglegs 

And now it's time to open 
your gift. 

Peglegs is a computer version 
of a game that has been around 
for a few hundred years. I offer 
program listings for Level II 
and Color Basic. 

To start, a cross-shaped 
board draws on the screen and 
fills with 32 pegs. The space in 
the center of the board is 
empty. 

Your goal is to remove as 
many pegs as you can from the 
board by jumping pegs. 



aa nn? 



Nun GiiiiiiH'l He 

Figure I 



Shin 



§ P,C; 
§ A,D; 
§ M,G; 

OR G<1 GOTO 660 

GOTO 1060 

S 768,""; 
GOSUB 1130: PRINT @ 768, "I WIN."i GOTO 1180 
GOSUB 1130: PRINT § 768, "YOU WIN.": GOTO 1180 
THEN PRINT "YOUR TURN. "/ 
THEN PRINT "MY TURN, "jj POR T-l TO 500: NEXT T: GOTO 



PRINT "TAP ENTER TO SPIN THE DREIDEL." 

K$-INKEY$ 

IF KSO"" GOTO 740 

GOTO 710 



Dreklel Cummin's 



• Circle 29 on Reader Service card 
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Divklcl C on tinned 



740 GOSUB 1150 

750 FOR X=l TO RND(3) 

760 IF X/2<>INT(X/2) THEN FOR Z = Z TO RND(45)-Z+10 

770 IF X/2=INT(X/2) THEN FOR Z=Z TO RND(10) STEP -1 

780 U=RND(4) 

790 PRINT § Z,E$; 

800 PRINT @ Z+64,A$(U); 

810 PRINT @ Z+128,B$; 

820 PRINT § Z+192,C$; 

830 PRINT 3 Z+256,D$; 

840 PRINT § Z+320,F$; 

850 NEXT Z 

860 NEXT X 

870 PRINT £ 624,""; 

880 IF U=l THEN PRINT "NUN"; 

890 IF U=2 THEN PRINT "GIMMEL"; 

900 IF U=3 THEN PRINT "HE"; 

910 IF U-4 THEN PRINT "SHIN"; 

920 PRINT § 768,""; 

930 IF U=l THEN PRINT "NOTHING." 

940 IF U=2 THEN PRINT "TAKE ALL." 

950 IF U=3 THEN PRINT "TAKE HALF." 

960 IF U=4 THEN PRINT "GIVE HALF." 

970 IF U-2 AND Q=l THEN C-C+D: D=0 

980 IF U=2 AND Q=2 THEN G-G+D: D»0 

990 IF U=3 AND Q=l THEN I=INT(D/2): C=C+I: D=D-I 

1000 IF U=3 AND Q=2 THEN I=INT(D/2): G=G+I: D=D-I 

1010 IF U=4 AND Q=l THEN I=INT(C/2) : C-C-I: D=D+I 

1020 IF U=4 AND Q=2 THEN I=INT(G/2) : G-G-I: D=D+I 

1030 GOSUB 1130 

1040 IF Q=2 THEN Q=0 

1050 GOTO 590 

1060 PRINT £ 768,""; 

1070 PRINT "WHEN POT IS EMPTY, WE EACH PUT IN 5." 

1080 C=C-5 

1090 G=G-5 

1100 D-D+10 

1110 GOSUB 1130 

1120 GOTO 590 

1130 FOR T=l TO 500 

1140 NEXT T 

1150 PRINT § 768,STRING$(43," ") ; 

1160 PRINT § 624,STRING$(10," "); 

1170 RETURN 

1180 GOTO 1180 

1190 END 



Peglegs 



100 


REM * PEGLEGS / 


TRS- 


80 LEVEL 


II 4K * 






110 


CLS 














120 


Q=32 














130 


U$="JU" 














140 


D$="JD" 














150 


L$="JL" 














160 


R$="JR" 














170 


Y=3 














180 


FOR X=18 TO 


36 












190 


SET(X,Y) 














200 


SET(X,Y+22) 














210 


NEXT X 














220 


X=6 














230 


FOR Y=9 TO 


19 












240 


SET(X,Y) 














250 


SET(X+42,Y) 














260 


NEXT Y 














270 


X=18 














280 


FOR Y=3 TO 


24 












290 


IF Y<9 OR Y>18 


THEN 


SET(X,Y) j 


SET(X+18 


Y) 


300 


NEXT Y 














310 


Y=9 














320 


FOR X=6 TO 


48 












330 


IF X<±9 OR 


X>35 THEN 


SET(X,Y] 


: SET(X 


,Y+1P) 


340 


NEXT X 














350 


FOR Y=5 TO 


24 STEP 3 










360 


FOR X=21 TC 


36 


STEP 


6 








370 


SET(X,Y) 














380 


NEXT X 














390 


NEXT Y 














400 


FOR Y=ll TC 


17 


STEP 


3 










You're a winner if you have 
two pegs left and you're a dou- 
ble winner if you have only one 
peg left. You're a triple winner 
if only one peg remains and its 
position is the space in the mid- 
dle of the board. 

Now, how do you move 
around and jump? The Color 
Computer and Level II versions 
are slightly different, but this 
should make both of them 
clear: In both versions, you 
move into jumping position by 
tapping D for down, U for up, 
L for left, and R for right. 

In the color version, your po- 
sition is marked in blue if you 
are on a space not occupied by a 
peg. If you are on one of the oc- 
cupied spaces, the position will 
blink on and off. 

In the Level II version, your 



410 FOR X=9 TO 45 STEP 6 

420 SET(X,Y) 

430 NEXT X 

440 NEXT Y 

450 RESET(27,14) 

460 A=27 

470 B=5 

480 A$=A$+INKEY$ 

485 PRINT @ 653, A$;" "; 

490 PRINT @ 480, "SCORE" ;Q; 

Peglegs ( on limit's 
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NFLO INC. 




2 MEGABYTES DISK STORAGE 

$1,000.00 



INFLO 2 MEG SYSTEM FOR TRS-80, LNW. or PMC 80 



$1000.00 



THE INFLO 3.2 MEGABYTE HIGH SPEED SYSTEM FOR: 



TRS 80 MOD I or III or PMC 80 
Late LNW 80 or LNW Model II 

NEW PRICING LNW Model 



$1550.00 
$1300.00 

$1995.00 



FULL LINE OF LNW PRODUCTS AND SOFTWARE 



CHARM 

AUTOPLOT/LNW 
LNWBASIC 
HIRES 1&2 



LA (504) 293-3400 

NJ (201) 751-8444 

FL (305) 443-7749 



CALL YOUR LOCAL DEALER 

MA (413) 583-6383 

DC (703) 527-9060 

NY (516) 924-9229 



$39.95 
$99.50 
$69.95 
$20.00 



IL (312)782-5300 

Wl (414) 261-1780 

OR (503) 232-5552 



THE LNW USERS GROUP BI-MONTHLY NEWSLETTER IS NOW IN CIRCULATION; 
FOR MORE INFO ON THIS GROUP CALL THE LNW BBS (516) 924-8115 



LNW is a trademark oi 
LNW Research Corp 



TRS-80 is a trademark of 
Tandy Corp 



Inflo Inc. 

244 Mill Rd. 
Yaphank, NY 11980 

(516) 924-9229 
Dealers inquiries invited 



=.--. . 



BBS Number is lor Modem use only 




*See List ol Advertisers on Page 451 
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Peglegs Continued 

500 IF Q=2 THEN PRINT § 154, "WINNER" ; 

510 IF Q=l THEN PRINT e 90, "DOUBLE"; 

520 IF Q=l AND A=27 AND B=14 THEN PRINT @ 90, "TRIPLE"; 

530 IF POINT(A,B)— 1 THEN RESET(A,B) : FOR T=l TO 10: NEXT T: SET 

(A,B) 

540 IF POINT(A,B)=0 THEN SET(A,B) :FOR T-l TO 10: NEXT T: RESET(A 

550 IF A$="U" AND POINT(A,B-2) <>-l THEN B-B-3: A$="" 

560 IF A$="D" AND P0INT(A,B+2) <>-l THEN B-B+3: A$="" 

570 IF A$-"L" AND POINT (A-3 ,B) <>-l THEN A-A-6 : A$="" 

580 IF A$«"R" AND P0INT(A+3 ,B) <>-l THEN A-A+6: A$="" 

590 IF B-5<4 GOTO 610 

600 IF A$-U$ AND POINT(A,B-5)=0 AND P0INT(A,B-6) -0 AND POINT(A,B 

-3)— 1 GOTO 690 

610 IF B+5>24 GOTO 630 

620 IF A$-D$ AND P0INT(A,B+5) -0 AND P0INT(A,B+6) =0 AND POINT(A,B 

♦3)— 1 GOTO 690 

630 IF A-9<6 GOTO 650 



Color Peglegs 



100 REM * PEG LEGS / TRS-80 COLOR BASIC 4K * 

110 CLS(0) 

120 Q-32 

130 U$-CHR$(94) 

140 D$-CHR$(10) 

150 L$-CHR$(8) 

160 R$-CHR$(9) 

170 Y-3 

180 FOR X-18 TO 36 

190 SET(X,Y,5) 

200 SET(X,Y+22,5) 

210 NEXT X 

220 X-6 

230 FOR Y-9 TO 19 

240 SET(X,Y,5) 

250 SET(X+42,Y,5) 

260 NEXT Y 

270 X-18 

280 FOR Y=3 TO 24 

290 IF Y<9 OR Y>18 THEN SET(X,Y,5) : SET(X+18,Y,5) 

300 NEXT Y 

310 Y-9 

320 FOR X-6 TO 4 8 

330 IF X<19 OR X>35 THEN SET(X,Y,5): SET(X,Y+10 ,5) 

340 NEXT X 

350 FOR Y-5 TO 24 STEP 3 

360 FOR X=21 TO 36 STEP 6 

370 SET(X,Y,8) 

380 NEXT X 

390 NEXT Y 

400 POR Y-ll TO 17 STEP 3 

410 FOR X-9 TO 45 STEP 6 

420 SET(X,Y,8) 

430 NEXT X 

440 NEXT Y 

450 RESET(27,14) 

460 A-27 

470 B-5 

480 A$-INKEY$ 

490 PRINT g 502, "SCORE" ;Q; 

500 IF Q-2 THEN PRINT g 32, "WINNER"; 

510 IF 0=1 THEN PRINT § 0, "DOUBLE"; 

520 IF Q-l AND A-27 AND B-14 THEN PRINT 0, "TRIPLE"; 

530 IF POINT(A,B)-8 THEN RESET(A,B) :F0R T-l TO 10: NEXT T: SET(A 

,B,8) 

540 IF POINT(A,B)<>8 THEN SET(A,B,7) : FOR T-l TO 40: NEXT T: RES 

ET(A,B) 

550 IF A$-"U" AND POINT(A,B-2) <>5 THEN B=B-3 

560 IF A$="D" AND POINT(A,B+2) <>5 THEN B=B+3 

570 IF A$-"L" AND POINT (A-3 ,B) <>5 THEN A-A-6 

580 IP A$-"R" AND POINT(A+3 ,B) <>5 THEN A-A+6 

590 IF B-5<4 GOTO 610 

600 IF A$-U$ AND POINT(A,B-5)<>5 AND POINT(A,B-6) <>8 AND POINT(A 

,B-3)-8 GOTO 690 

610 IP B+5>24 GOTO 630 

620 IF A$«D$ AND POINT(A,B+5) <>5 AND POINT( A,B+6) <>8 AND POINT(A 

f B+J)-8 GOTO 690 

630 IF A-9<6 GOTO 650 

640 IF A$-L$ AND POINT ( A-9, B) =0 AND POINT (A-12 ,B) =0 AND POINT (A- 

6,B)«- 1 GOTO 690 

65B IF A+9>49 GOTO 665 

660 IF A$-R$ AND POINT (A+9,B) -0 AND POINT ( A+12, B) =0 AND POINT(A+ 



position simply blinks, wher- 
ever you are. 

To jump a peg in the color 
version, just press one of the 
four direction arrows on the 
keyboard. To jump a peg in the 
Level II version, tap JD for 
jump down, JU for jump up, 
JL for jump left, and JR for 
jump right. 

You cannot make any illegal 
moves, and there are other safe- 
guards built in. You don't have 
to press enter with this pro- 
gram; the arrow keys do the job. 

If you don't understand this 
yet, run the program and you 
soon will. 

If you can't win, take a look 
at the Nickel Bargain Bin offer 
at the end of the column. 

Peglegs is tough to beat, but I 
have a strategy and it's yours 
for a nickel and a self ad- 
dressed, stamped envelope. If 
you want the answer, send the 
request with a note bearing the 
words "PEGLEGS SOLU- 
TION" to me, Richard 
Ramella, 1493 Mountain View 
Ave., Chico, CA 95926. Do not 
send the request to this maga- 
zine; I am responsible for the 
offer. 

Next month is January, isn't 
it? No better time than the first 
of the year to think about 
time — calendars, timepieces, 
leap years, and such. So, until 
1983... ■ 



6,B)=-1 GOTO 690 

665 IF LEN(A$)>1 THEN AS="" 

670 GOTO 4 80 

690 RESET(A,B) 

700 IF A$=U$ THEN RESET(A,B-3) 

710 IF A$=D$ THEN RESET(A,B+3) 

720 IF A$=L$ THEN RESET(A-6,B) 

730 IF A$=R$ THEN RESET(A+6,B) 

740 SET(A,B) 

745 A$="" 

750 Q-Q-l 

760 GOTO480 

770 END 



B=B-6 
B=B+6 
A-A-12 
A=A+12 
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The Original Magazine for Owners of the TRS-80 Microcomputer 

MODEL I • MODEL II • MODEL III • POCKET COMPUTER • COLOR COMPUTER 



Software 

for TRS-80 

Owners 



CQMPUTRQNICS 

MONTHLY NEWS MAGAZINE 



for TRS-80 
Owners 




PRACTICAL APPLICATIONS 

NEW EXPANDED BUSINESS 
SECTIONS 

GAMBLING 

GAMES 

EDUCATION 

PERSONAL FINANCE 



BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS & ANSWERS 
PROGRAM PRINT OUTS 
...and MORE! 



YOUR CHOICE k 



A. 



with your Subscription or Renewal 



NANOS SYSTEMS CORP 

TRS-80 At Your 

Fingertips Complete quick 
reference guide to basic, assem- 
bly language and graphic codes 
— all at your fingertips for all 
TRS-80 computers (specify 
computer). 

Assembly Language Section N.A tor Color Computer 



B. 



OR 



A Word Processor, 
Data Management 

System and Cleanup 

(A maze game) All on cassette. 
(Add $3 for diskette, add $5 for 
modified MOD-II diskette version 
— N./A on color computer or 
pocket computer ) 



READER SERVICE FOR H & E COMPUTRONICS .-9 



•CQMPLJTRQNICSi 



CALL TOLL FREE 

800-431-2818 



24 HOUR ORDER LINE 

914-425-1535 



50 North Pascack Road 

Spnng Valley. New York 10977 (()u|side of New ^ ^^ 

D One Year Magazine Subscription $24 D New □ Renewal 

□ Two Year Magazine Subscription $48.00 D New O Renewal 

□ Sample Issue $4. □ Mod II Newsletter Subscription $18 
Your Choice TRS-80 " al Your Fingertips or Word Processor/ Data Management , 
Model 1 1 Model II I Model III Color Computer Pocket Computer 



I ■■ 



NEW! 



NEW! 



MOD-II 

NEWSLETTER 

"$18/year (or 12 issues)" 



Name 



Address 



City 



Stata 



-3L 



Signature 



Credit Card Number 



Expiration Date 



AdO $12/Y«ar (Canada Mexico) — Add $24/ Year Aii Mail outside ol U S A Canada and Mexico 
Ail Prices and Specifications Subject to Change 



' TRS-80 is a trademark ot the Radio Shack Division ot Tandy Corp 



from 



MS 



FOR THE TRS-80 MODEL I AND MODEL III 



I System Diagnostic 



For Cassette or Disk 



IS YOUR COMPUTER WORKING CORRECTLY? ARE YOU SURE? 

Tests every component of your TRS-SO for proper operation* 



DISK 

$99.95 

CASSETTE 

$ 94. 95 ij& 



ROM: Checksum test 

RAM: Four separate tests including every address and data value 
Video Display: Character generator, video RAM, and video signal tests 
Keyboard: Every key contact tested 
Line Printer: Character test 
Cassette Recorder: Read/write/verify data 

RS-232-C Interface: Read sense switches (Model I), connector fault, data transmission, framing, data loop, baud rate 
generator 
Disk Drives: Disk controller, drive select and restore, track seek and verify read, read/write/verify all tracks and 
sectors, formatting, disk drive timer, disk head cleaner 
Model I: single or double density, 35, 40 or 80 track drives 
Model 3: single or double density, 35, 40 or 80 track drives 
single or double sided drives 



One program adapts to any system configuration and hardware. 

Individual tests of each device with operator monitoring and intervention. 

Continuous system tests run continually for hours, with diagnostic reports optionally written on line printer. 

Complete instructions and documentation. 

SPECIFY TRS-SO " MODEL I OR MODEL LU 



SMART TERMINAL 

Enables your TRS-80 to be used as a data communications terminal 
to a time-sharing system, computer bulletin board, or another computer, 
via the RS-232-C interface. 

• MEMORY BUFFER holds data for transmission or data received from 
other computer. 

• CASSETTE or DISK may be used to load or save data from memory. 

• AUTOMATIC TRANSMISSION of data from memory. 

• AUTOMATIC STORAGE of incoming data at user's option. 

• TRANSMIT or RECEIVE WITH VERIFICATION options included for 
communication between two TRS-80s using Smart Terminal. 

• Full CONTROL KEYS, including control key mapping into any ASCII 
character. True BREAK key. Lower case supported on Model I. 

• Buffered LINE PRINTER ECHO for incoming data. 

• Disk and cassette files fully compatible with ELECTRIC PENCIL" and 
SCRIPSIT" programs. 

• BAUD RATE and RS-232-C CHARACTERISTICS can be reset from 
within the program. 

• SAVE PROGRAM option creates "personalized" back-up copy of 
program with all options set as specified by user. 

• ONE PROGRAM supports both cassette ana disk systems. Program is 
compatible with PMC-80 and other TRS-80 "work alike" computers. 
Model I or III Version supplied on cassette $09-75 

_. supplied on diskette $74-95 

Model II (CP/M J Version $7995 



MON-3 and MON-4 

The TRS-80 Monitor Programs "3 and #4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

e BEGINNERS can learn to interact directly with the computer in 

Machine Language, 
e 40-PAGE MANUAL provided with each program. 
e SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

O DISPLAY memory in different ways. 

O DISASSEMBLE memory to see Machine Language commands. 
O MOVE and COMPARE memory areas, 
e SEARCH through memory to find specific values. 
O MODIFY memory in various ways, 
e RELOCATE object programs, 
e PRINT output on video display or line printer. 
O READ and WRITE object tapes in SYSTEM Format 
e UNLOAD programs using low RAM on disk. 
e SAVE and READ disk files (MON-4 Only), 
e INPUT and OUTPUT of disk sectors (MON-4 Only). 
O SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 
e Create SYMBOLIC Tapes (MON-3) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON- J (For Cassette Systems) $30.05 
MON-4 (For Disk Systems) $49-95 



MAILING UST 

Maintains mailing lists of up to 1326 names (48K version). Add, change, 
delete, or find names. Machine language sort according to information in 
ANY field (first or last name, address, city, state, zip code). Three or four 
line labels printed in 1, 2, 3, or 4 columns, in master list, or on video display. 
TRS-SO Model 1/3 Disk Version SOO.es 
IBM PC Disk Version $79 95 



HOME BUDGET 

Keeps track of your monthly and year-to-date income and expenses. 
Income and expenses classified by code numbers for identification of 
categories. Data includes date, code number, amounts and check number 
(optional). Computes monthly and year-to-date summaries showing 
income tax deductions. All output printed on video display or line printer 
at user's option. Complete instructions for customizing to suit your own 
budget. 

TRS-SO Model 1/3 Cassette Version $2995 

TRS-SO Model 1/3 Disk Version $49 95 

1MB PC Disk Version $59 95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record "612, this program keeps track of 
income, expenditures, and payroll for a small business. Receipts and 
expenditures can be entered on a daily, weekly, or monthly basis. Program 
computes monthly, through last month, and year to date summaries. 
Payroll section (included in disk version only) keeps record of employees 
and paychecks with up to six categories of payroll deductions. Computes 
employee payroll records and year-to-date payroll totals. Complete 
instructions for customizing to suit your own business. 

TRS-SO Model 1/3 Cassette Version $29 95 

TRS-SO Model 1/3 Disk Version $49 95 

IBM PC Disk Version $5995 



•CQMPLITRQMCS 



SO N PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



^VfS^ 

NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3 00 for shipping in UPS Areas 
• Add $4 00 for C O D or NON-UPS Areas 
• Add 55 00 to Canada or Mexico 
• Add exact postage to all other countries 



Introducing the Most Powerful 
Business Software Ever! 

TRS-80™ (Model I, II, HI, or 16) • APPLE 1 " • IBM" • OSBORNE" • CP/M 1 " • XEROX" 




The VersaBusiness '" Series 

Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VeRSARECEiVABLES™ $99.95 

Versa Receivabifs'* is a co m p lete menu-driven accounts receivable, invoicing, and 
monthly statement generating system It keeps track o( all information related to who 
owes you or your company money, and can provide automatic billing for past due ac- 
counts VERSaReceivableS" prints all necessary statements, invoices, and summary 
reports and can be linked wth VI RSALeDOEA II" .ind V! rsaInvfntory". 

VERSAPaYABLES" $99.95 

VERSA Pa YABLFS- is designed to keep track of current and aged payables, keeping you 
II touch with all information regarding how much money your company owes, and to 
whom VfrsaPayahi FS" maintains a complete record Ofl each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With VlhsaPayables" you can even let your computer automatically select 

which vouchers are la be paid. 
VERSAPAYROLL" $99.95 

VERSA PAYROLL" is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government required payroll information. Complete employee records 
are maintained, and all ne< esaary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval. A payroll can be run totally, automati 
cally, or the operator can intervene to prevent a check from being printed, or to alter 
information on It, If desired, totals may be posted 10 th R If" system 



VersaInventory 



$99.95 



VERSA r^VENTORY" is a complete inventory control system that gives you instant access 
to data on any item. Versa Inventory" keepf track of all information related to what 
items are in stock, out of stock, on backord >.nd pricing data, alerts 

you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VersaRecfjvabi.es" system. Versa1nvf.NTor>- print! 
all needed inventory listings, reports of items below reorder point, inventory value re 
ports, period and year to date sales reports, pnee lists, inventory checklists, CtC 

■CQmHJTHQfiilCSi 

50 N. PASCACK ROAD, SPRING VALLEY, NY. 10977 



VERSALEDGER IT" $149.95 

Versa Ijnr.ER II" is a complete accounting system that grows as your business 
grows VkrsaLedger II™ can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• Versa Ledger II" gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor teed checks, 

• handles multiple checkbooks and general ledgers. 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 

VersaLfdger IP comes with a professionally-written 160 page manual de- 
signed for first time users The VERSALEDGER II" manual will help you become 
quickly familiar with VERSALEDGER 11", using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



SATISFACTION GUARANTEED! 



Every VERSA BUSINESS" module i 
and at a fraction o' their cost I' you a 



.nrnrrppd tn -xitpertoTi s.! other competitive systems, 
ml satisfied with any VERSABUSINESS" module, vou 
Manuals for any VERSABUSINESS" module may be 
rd a later purchase of thai module 



To Order: 
Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 



add $3 for shipping m UPS areas 
add $4 for C O D or non-UPS areas 



DEALER INQUIRIES WELCOME 

Ail prices and specifications subject to change Deln 



' add J5 to CANADA or MEXICO 
* add proper postage elsewhere 



of Tandy Corp 'APPLE a a trademark of Apple Corp 'IBM is a 
j trademark of Digital Research 'XEROX i* a trademark 



Corp. 'OSBORNE it a trademark ol Osborne Corp 



Experience Shows - S.B.S.G. has over 11,000 Installed Systemsl 



If you're not running 
Small Business Systems Group 
software . . . chances are 
you're not running! 




SMALL BUSINESS 
SYSTEMS GROUP 



GENERAL ACCOUNTING SYSTEM For TRS-80" 

S.B.S.G. has created the first completely user-configurable accounting system 
available for the TRS80™. 

User configurable? Each S.B.S.G. General Accounting System Module (except 
Order Entry) can be operated independently, or any of the modules can be 
combined in any configuration, providing a complete, coordinated system to 
fit the needs of your business. 

The SB.S.G. System allows you the maximum efficient use of available disk 
space. Each module will run on a standard 1 disk drive system (except for Model 
I systems, which require 2 drives). As you add more disk drives to your system. 

the amount of on-line data storage increases. Now here's an important fact 

the S.B.S.G. General Accounting System "spans'' your disk drives - that means 
that you can instantly access your data on any of up to 8 disk drives at any 
time! Since your S.B.S.G. Accounting System is user-configurable, it will work 
with 1 , 2, 3, 4 or more disk drive systems - and it is fully compatible with most 
hard disk drive systems (at additional cost). 



General Ledger 

The General Ledger accounting system consolidates financial data from other 
accounting subsystems in an accurate and timely manner. Major reports in- 
clude Trial Balance, Income Statement, Balance Sheet a user-defined report, 
and more. All data is maintained and reported by month, quarter, year and 
previous three quarters. Transactions may be entered via direct posting and 
external posting generated by A/R, A/P, Payroll - or any other user source. 

Accounts Receivable 

The objective of a computerized A/R system is to prepare accurate and timely 
monthly statements to credit customers. Management can generate informa- 
tion required to control the amount of credit extended and the collection of 
money owed in order to maximize profitable credit sales while minimizing 
losses from bad debts. This system is invoice-oriented. Invoices can be entered 
before they're ready for billing, after billing, or even after they are paid. Accounts 
Receivable allows entry of new invoices, credit memos, debit memos, or modi- 
fication or deletion invoice and allows for progress payment. The transaction 
information includes: type of A/R transaction, P.O. *", description of P.O., 
billing date, general ledger sales account r , invoice amount, shipping and 
transportation charges, tax charges, payment, and progress payment informa- 
tion. Reports include: summary or detail listing of invoices not yet billed, open 
items (unpaid invoices), closed items (paid invoices), and aging. Statements 
may be printed at any time and follow the format of nationally available forms. 

Order Entry 

The Order Entry Module was designed as a supplement to the Accounts 
Receivable Module, and will not operate independently. This system allows you 
to add. change, delete, list and print invoices; apply an invoice to correct custom- 
er account: generate computer assigned invoice numbers; note type (invoice 
credit memo, debit memo); record customer order number, invoice date, 
shipping date, FOB location, method of shipping, salesman, and payment 
terms; print selected number of shipping labels; enter, display and correct 10 
lines of data per invoice, noting the part number, description, price, quantity 



ordered, extension, taxable or not It also allows the user to enter, display and 
correct invoice totals, noting the invoice subtotal, taxes, shipping and handling, 
with disbursement up to 5 General Ledger accounts; print a transaction report; 
maintain a terms code file in the system; update Account Receivable and 
generate summary report totals. K automatically coordinates to the Inventory 
Module (if used) to determine description, price and out of stock status, and to 
immediately deplete inventory stock Price fields are easily modified to include 
percent or dollar discount 



Payroll 

Payroll involves many complex calculations and the production of reports and 
documents, many of which are required by government agencies. The Payroll 
system performs all necessary payroll tasks including file maintenance, pay data 
entry and verification, computation of pay and deduction amounts, and the 
printing of reports and checks. State and Federal Tax changes are easily im 
plemented by the user via menu prompting. In its link to General Ledger, each 
employee's payroll information is distributed to as many as 12 different GL 
accounts; system automatically posts to cash account 

Accounts Payable 

The Accounts Payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices. Several 
reports are available to supply information needed for the analysis of payments, 
expenses, purchases and cash requirements. The Accounts Payable system is 
invoice-oriented. K handles new invoices, credit memos and even debit memos 
and allows modification and deletion of invoices. The flexible check calculation 
procedures allows checks to be calculated for a set of vendors, specific vendors 
or even specific invoices. The reports include open item listings and closed 
item listings (both detail and summary), debit and credit memo listings, aging, 
check register report (to give an audit trail of checks printed), and vendor listing 
and vendor activity. Update reports are useful for audit trails and checking for 
accuracy. Checks may be printed at any time and follow the format of nationally 
available forms. 



Inventory 

Status reports and minimum reorder reports help to reduce the potential hazard 
of overstocking which results in cash flow problems. Program selection allows 
the user to store data for inventory located at up to five separate sites (divisions), 
coding up to 9 sales people. Available reports include inventory master list 
price listings, period and year-to-date sales, stock status, minimum reorder 
point and commission information. 



Model I, 48K and 2 Disk Drives . . . $195.00 Per Module 

Model III, 48K $195.00 Per Module 

Model II, 64K $295.00 Per Module 

Sample Report Printouts $ 10.00 



H & E COMPUTRON1CS Gives You A 30-Day Money Back Guarantee On All Modules 



E 



CQMPLITRQNICS 



C. 



EVERYTHING FOR YOUR TR840™ • ATARI" • APPLE™ • PET" • CP/M™ • XEROX™ • IBM™ • OSBORNE" 

•TRsaOs.tradenwW the Radio Shack DM*on of T.ndyCorp ' ATARI . a trademark of Alan he. '*m£ a. trademark ol Apple Corp. ' PET ■» « trademark c/ Commodore 
•CP/M, SO tr«lemarkofDigiWRe««rch 'XEROX is a trader™* of Xera, Corp. •• IBM is a trademark of IBM Corp -• OSBORNt a a t»demark of Orixxne Corp. 



BUSINESS PAC 100 




« se du*hin 24-Hour. 

* AH order. pr^ gtiara r,.e« 

* 30-Day «*> ney 



100 Ready-To-Run 
Business Programs 



(ON CASSETTE OR DISKETTE) Includes 128 Page Users Manual 

Inventory Control Payroll Bookkeeping System Stock Calculations. 

Checkbook Maintenance.....Accounts Receivable.... Accounts Payable 



BUSINESS 100 PROGRAM LIST 



NAME DESCRIPTION 

1 RULE78 Interest Apportionment by Rule of the 78s 

2 ANNU1 Annuity computation program 

3 DATE Time between dates 

4 DAYYEAR Day of year a particular date falls on 

5 LEASEJNT Interest rate on lease 

6 BREAKEVN Breakeven analysis 

7 DEPRSL StraightJine depreciation 

8 DEPRSY Sum of the digits depreciation 

9 DEPRDB Declining balance depreciation 

10 DEPRDDB Double declining balance depreciation 

1 1 TAXDEP Cash flow vs. depreciation tables 

1 2 CHECK2 Prints NEBS checks along with dairy register 

13 CHECKBK1 Checkbook maintenance program 

14 MORTGAGE/A Mortgage amortization table 

1 5 MLILTMON Computes time needed for money to double, triple. 

16 SALVAGE Determines salvage value of an investment 

17 RRVAR1N Rate of return on investment with variable inflows 

18 RRCONST Rate of return on investment with constant inflows 

1 9 EFFECT Effective interest rate of a loan 

20 FVAL Future value of an investment (compound interest) 

21 PVAL Present value of a future amount 

22 LOANPAY Amount of payment on a loan 

23 REGWTTH Equal withdrawals from investment to leave over 

24 SWPDISK Simple discount analysis 

25 DATEVAL Equivalent 6 nonequivalent dated values for oblig. 

26 ANNUDEF Present value of deferred annuities 

27 MARKUP * Markup analysis for items 

28 SINKFUND Sinking fund amortization program 

29 BONDVAL Value of a bond 

30 DEPLETE Depletion analysis 

31 BLACKSH Black Scholes options analysis 

32 STOCVAL1 Expected return on stock via discounts dividends 

33 WARVA1. Value of a warrant 

34 BONOVAL2 Value of a bond 

35 EPSEST Estimate of future earnings per share for company 

36 BETAALPH Computes alpha and beta variables for stock 

37 SHARPE 1 Portfolio selection model i.e. what stocks to hold 

38 OPTWRfTE Option writing computations 

39 RTVAL Value of a right 

40 EXPVAL Expected value analysis 

41 BAYES Bayesian decisions 

42 VALPRINF Value of perfect information 

43 VALADlriF Value of additional information 

44 cmUTY Derives utility function 

45 SIMPLEX Linear programming solution by simplex method 

46 TRAMS Transportation method for linear programming 

47 EOQ Economic order quantity inventory model 

48 QUEUE 1 Single server queueing (waiting line) model 

49 CVP Cost-volume-profit analysis 

50 CONDPROF Condrtional profit tables 

51 OPTLOSS Opportunity loss tables 

52 FQUOQ Fixed quantity economic order quantity model 

53 FQEOWSH As above but with shortages permitted 

54 FQEOQPB As above but with quantity pnee breaks 

55 QUEUECB Cost benefit waiting line analysis 

56 NCFANAL Net cash-flow analysis for simple investment 

57 PROF1ND Profitability index of a project 

58 CAP1 Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bat. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 F1NRAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PRINDLAS Laspeyres price index 

66 PRJNDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis linear trend 

69 T1MEMOV Time series analysis moving average trend 

70 FCJPPJNF Future price estimation with inflation 

71 MAfcLPAC Mailing list system 

72 LETWRT Letter wnting system-inks with MAILPAC 

73 SORT3 Sorts list of names 

74 LABEL1 Shipping label maker 

75 LABEL2 Name label maker 

76 BUSBUD DOME business bookkeeping system 

77 TIMECLCK Computes weeks total hours from timectock info. 

78 ACCTPAY In memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 TIMUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign. 

84 ACCTREC ri memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

86 PAYNET Computes gross pay requwed for given net 

87 SELLPR Computes selling price for grven after tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope including return address 

92 AUTOEXP Automobile expense analysis 

93 1NSF1LE Insurance policy file 

94 PAYROLL2 In memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS Sale-leaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfolio storagevafcjaBon program 



$99.95 



D TRS-80 Cassette Version 

□ TRS-80 (Mod-I or III), Pet, Apple 
or Atari Versions 

□ TRS-80 Mod-ll, IBM, Osborne 
and CP/M Versions 

ADO J3.00 FOR SHIPPING IN UPS AREAS 

ADD S4-00 FOR C.O.D. OR NON-UPS AREAS 

ADD $5 00 TO CANADA AND MEXICO 

ADO PROPER POSTAGE OUTSIDE OF U.S.. CANADA AND MEXICO 

iCQWRJTHQWICSr 



NEW 



TOLL- 



$99.95 OflO£fl 



■^ee 



'°*"S,OEoVL^£ 




50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



HOUR 

O A oftOE* 
* H LINE 




ASK FOR OUR 64-PAGE CATALOG 



DEALER INQUIRIES INVITED 



\*P\ 9 14) 425-1535 

ALL PRICES A SPECIFICATIONS SUBJECT tO CHANGE 
DELIVERY SUBJECT TO AVAILABILITY 



CQMPUTRQNICS 



• • • EVERYTHING FOR YOUR TRS-80** • • 
MODEL I, MODEL II & MODEL HI 



' TRS-80" is a trademark of Tandy Corp 



FROM 



£T RACET COMPUTES^ 



All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add $3 00forshippinginUPS Areas 
• Add $4.00 for C O D or NON-UPS Areas 
• Add $5.00 to Canada or Mexico 
• Add exact postage to all other countries 



*** 



ESSENTIAL UTILITY PROGRAMS FOR EVERY TRS-80 OWNER *** 



TacU Abaui Hotel Cmpuiw UtifUij VnaqKam 



■ ALL PROGRAMS ARE WRITTEN IN MACHINE LANGUAGE 

' ABSOLUTELY NO KNOWLEDGE OF MACHINE LANGUAGE IS NECESSARY TO USE ANY OF THE UTILITY PROGRAMS 

' EACH UTILITY PROGRAM IS CALLED UP FROM BASIC USING THESIMPLE BASIC COMMANDS PROVIDED 

' EACH UTILITY PROGRAM COMES WITH A RACET COMPUTES INSTRUCTION MANUAL 

' EACH INSTRUCTION MANUAL INCLUDES SEVERAL EXAMPLES OF UTILITY USAGE 

' EACH UTILITY ALLOWS THE USER TO PERFORM CERTAIN BASIC OPERATIONS TEN, TWENTY OR MORE TIMES FASTER THAN THE 

EQUIVALENT BASIC ROUTINE (FOR EXAMPLE. GSF CAN SORT AN ARRAY OF 1000 RANDOM NAMES INTO ALPHABETICAL ORDER IN 

UNDER 9 SECONDS!!) 



GSF (GENERALIZED SUBROUTINE FACILITY) 

• SORTS 1000-ELEMENT ARRAYS IN 9 SECONDS 

• SORTS UPT01SARRAYSSIMULTANEOUSLY(MIXEDSTRING. FLOATING POINTAND 
INTEGER) 

• SORTS SINGLE OH MULTIPLE SUBSTRINGS AS ASCENOING OR DESCENDING SORT 
KEYS 

• READ AND WRITE ARRAYS TO CASSETTE 

• COMPRESS AND UNCOMPRESS DATA IN MEMORY 

• MOVE ARRAYS IN MEMORY 

• DUPLICATE MEMORY 

• FAST HORIZONTAL AND VERTICAL LINES 

• SCREENCONTROLSFORSCROLLINGTHESCREENUP DOWN. LEFT. RIGHT ANDFOR 
GENERATING INVERSE GRAPHIC DISPLAYS 

• AODS PEEKS AND POKES (MOD-II VERSION ONLY) 



MOOEL-I VERSION 
MODEL-II VERSION . 
MODEL-INVERSION 



$25 00 
.S50 00 
$30 00 



DSM (DISK SORT MERGE) 

• SORT AN 86K DISKETTE IN LESS THAN THREE M'NUTES 1 

• SORTS LARGE MULTIPLE DISKETTE FILES ON A MINIMUM ONE DRIVE SYSTEM 

• ALL RECORDS ARE PHYSICALLY REARRANGED-NO KEY FILES ARE REOUIRED 

• SORTS RANDOM FILES CREATEO BY BASIC. INCLUDING FILES CONTAINING SUB- 
RECORDS SPANNING SECTORS 

• SORTS ON ONE OR MORE FIELDS IN ASCENOING OR DESCENDING ORDER 

• FIELDS MAY BE STIRNGS. INTEGER BINARY INTEGER OR FLOATING POINT 

• THE SORTEDOUTPUT FILE MAY OPTIONALLY HAVE FIELDS DELETED. REARRANGED 
OR PADDED 

• SORT COMMANOS CAN BE SAVED FOR REUSE 

• SINGLE SORT MERGE. OR MIXED SORT/MERGE OPERATIONS MAYBE PERFORMED 

• SORTED OUTPUT MAY BE WRITTEN TO A NEW FILE. OR REPLACE THE ORIGINAL IN- 
PUT FILE. 



MOUEL-I VERSION * 7 S00 

MODEL-II VERSION $150 00 

MOOEL-IM VERSION **>«> 



KFS-80 (KEYED FILE SYSTEM) 

• CREATE ISAM FILES (INDEX SEQUENTIAL ACCESS METHOD) 

• ALLOWS INSTANT ACCESS TO ANY RECORD ON YOUR DISKETTE 

• INSTANTLY RETRIEVE RECOROS FROM MAILING LISTS. INVENTORY. ACCOUNTS 
RECEIVABLE OR VIRTUALLY ANY APPLICATION WHERE RAPID ACCESS IS RE- 
OUIRED TO NAMED RECORDS 

• PROVIDES THE BASIC PROGRAMMER THE ABILITY TO RAPIDLY INSERT OR ACCESS 
KEYED RECOROS IN ONE OR MORE DATA FILES 

• RECORDS ARE MAINTAINED IN SORTED ORDER BY A SPECIFIED KEY 

• RECORDS MAY BE INSERTEO OR RETRIEVED BY SUPPLYING THE KEY 

• RECORDS MAY BE RETRIEVED SEQUENTIALLY IN SORTED ORDER 

• RAPID ACCESS TO ANY FILE REGARDLESS OF THE NUMBER OF RECORDS 

• MULTIPLE INDEX FILES CAN BE EASILY CREATED WHICH ALLOWS ACCESS OF A 
SINGLE DATABASE BY MULTIPLE KEYS (FOR EXAMPLE. BY BOTH NAME AND ZIP- 
CODE) 



MODEL-I VERSION . 
MODEL-II VERSION . 
MODEL-III VERSION 



$100 00 
$175 00 
$100 00 



MAILLIST (A MAILING LIST DATABASE SYSTEM) 

• IDEALLY SUITED FOR ORGANIZATION MAILING LISTS. PERSONAL AODRESSBOOK, 
OR MAILING LISTS BASED ON DATES SUCH AS REMINDERS FOR BIRTHDATES OR 
OUES PAYABLE 

• USED ISAM (INDEX SEOUENTIAL ACCESS METHOO) FOR RAPID ACCESS TIMES 

• YOUR MAILLIST CAN ALWAYS BE SORTED AND MAINTAINED BY UP TO FOUR INDEX 
FILES IFOR EXAMPLE NAME ZIPCODE DATE ANO NUMBER i 

• MAILLIST ALLOWS UP TO 30 ATTRIBUTES TO BE SPECIFIED ITO BE USED IN SEL- 
ECTION OF SPECIFIED RECORDS WHEN GENERATING REPORTS OH MAILING 
LABELS 

» MAILLIST SUPPORTS BOTH 5 OR 9-DIGIT ZIPCOOES 

• PRINTING MAY BE ST ARTED OR ENDED AT ANY POINT IN THE L 1ST THE USER CAN 
SPECIFY FIELDS OR CODES TO BE PRINTED 

• CAPACITY IS 600 NAMES FOR MODEL-I, 3500NAMES FOR MODEL II. 38.000 NAMES FOR 
MODEL II WITH HARD OISK DRIVF 1200 NAMES FOR MOOEL III 



MODEL-I VERSION . 
MODEL-H VERSION 
MODEL-III VERSION 



$75 00 

$150 00 

$7500 



HSDS HARD DISK DRIVE SOFTWARE 



MAKES 'RSDOS COMPA''BlE WIT" MOST "ABC 
ADDS MANY EXTRA FEATURES XO "RSDOS 



COMPROC (COMMAND PROCESSOR) 



auto 'Our disk to perform any sequence of ns~r.c t >ons that vcu 
normally give from the keyboard for example insert the d.ske'te 
press the reset button your command file could automatically show 
you the directory show 'he free space on the dlkse t te load a ma- 
CHINE LANGUAGE SUBROUTINE LOAPBASiC lOAD AND RUN A BASIC PROGRAM 
AND SELECT A GIVEN ITEM ON YOUR MENU ALL WITHOUT TOUCHING THE KEY- 
BOARD') 



MOOEl-i VERSION ... . 

MODEL-MI VERSION . 

NOT AVAILABLE FOR MOOEL-II 



$20 00 
$30 OC 



DISCAT (DISKETTE CATALOG SYSTEM) 



THIS COMPREHENSIVE OI«Kl T TE CATALOGUING INDEXING UTIl ITY Al L OWS THE 
USER TO KEEP TRACK OF THOUSANDS OF PROGRAMS IN A CATEGORIZED LI- 
BRARY FILE INCLUDES PROGRAM NAMES AND EXTENSIONS PROGRAM LENGTH 
DISKETTE NUMBERS AND FREE SPACE ON EACH OlSKETTt KEEP A COMPLETE 
CATALOG OF THE DIRECTORIFS ON »L. yO'./R DISKf'ES IN ALPHABETICAL 
ORDER .SOR T ED ON EACH DISKETTE OR COMP.E'E a. phABE flCAl ..ST o> 
^ROGHAMS ON All YOJR DISKETTES) 



MODEL I VERSION 

MOOEl-iii VERSION 

MOOEl-H VERSION SEE MODEL -II L'Tili 



5b0tX) 



BLINK (BASIC LINK FACILITY) 

• ..INK FROM BASIC PROGRAM "O *NC 'HER SA.'NG Al_ . ABiaR.ES 

• t hE CHAINED PRCC.RAM MAY EITHER REPLACE The ORIGINAL PROGRAM OR CAN 
BE MERGED Bv S'A'EMEN' ViMI'fH 



VODFi -i /ERSiON 
VODEl III VERSION 
MODEL 'I VERS. ON SEE MC 



■ v PACKAGE 



$25 DO 
S3C0C 
SS3 0G 



INFINITE BASIC 



AODS OVER 80 COMMANDS TO HASH 

SORTING STRINGCENTERING ROTATION TRUNCATION JlJS t iF K.ATION OA'A 
COMPRESSION STRING T HANSI AT ion COPYING SCREEN [ISKAY SOROl . - 
ING MATRIX OPERATIONS SIMOI TANf-OUS EQUATIONS .THROUGH MATRIX 
INVERSIONi DYNAMIC ARRAY t'i SHAPING 



MOOEl I VERSION 

MODEL III VERSION 

NOT AVAILABLE ON MODEL II 



ISO 00 

SrtH 00 



INFINITE BUSINESS 



ADC CN PACKAGE "C INFINITE BASIC "f }..'-RES iNFiM'E- HA v 

ADDS PACKED DECIMAL ARi'hMETiC WITH 1?7 DIGIT ACCURACY i ■ " I 

complete prnter pagination controls auto headers footers and 

page numbers 

binary search of sorted and unsorted arrays ilnstant search of an 

Element within an array 

hash codes 



MODEL, i VERSION 

VODEl-mi VERSION 

NOT AVAILABLE ON MODEL-II 



$30 00 
$30 00 



REMODEL-PROLOAD 



'HE UL."IMA T E RENUMBER "•'". '• '« GRAM PENoMHERS A„ ' R PAH' . -I A PRO 
GRAM ALLOWS PAP'iA, ME-VMHf RING IN MIDDLE OF PROGRAMS 
PARTIAL OR COMPLETE MFRGI OF ' .Vc ' . .AsShTTt PROGRAMS 



MODE. I VERSION 

MODEL ill VERSION . 

NOT AVAILABLE ON MODEL-II 



$ Ih 00 
$ >b 00 



COPSYS 



COPY ANO VFRIFY A t L MACHINE I ANGUAGF iSVSTEMl TAPESWRIT TE N INSTAND 
ART) EOHMAT IF YOU BUY A MACHINE '. ANGUAGE PROGRAM COPSYS ALLOWS 
YOU TO EASILY COPY THE PROGRAM ONTO ANOTHER CASSF TT! AS A EiAC.KUP 



MODE . I VERS'ON 

MODEL -•'! VERSION 

NOT AVAILABLE ON MODEL-II 



FOR DEALER 
INFORMATION CALL: 



£■ RACET computes -^ 



1330 N GLASSEl SUITE M ORANGE CA 92667 
i 714! 997-4950 



MODEL II SPEEDUP— FAST DISK I/O 

THIS IS AN ENHANCEMENT FOR TRSOOS 2.0 THAT WILL 
RADICALLY DECREASE DISK ACCESS TIME. 



DISKS BOOT FASTER TO DOS 
■ IMPRC/E DISK I C UNDER BASIC 



MODEL II ONLY 



^9^ 



MODEL II FASTBACK — FULL DISK BACKUP 
IN 55 SECONDS 

IN BUSINESS TIME IS MONEY. ANO ONE BACKUP IS WORTH A THOUSANO TEARS. 

• WORKS ON SYSTEMS WITH 2 OR MORE DRIVFS 

• CAN RFE'l ACF YOUR FXISTING TRSDOS 1 ? or 2 BACKUP UTILITY 



MODEI M ONI Y 



575 00 



WSfc 



MODEL-II UTILITY PACKAGE 



EN T ER.NG A S.NGl 



ESSEN' A. FOR EVERY MOD-! OWNER 

RECOVER AND REPAIR =vES AND 0'Rt'" T ORiES 6' 

COMMAND 

XCOPY SIMILAR TO COPY BUT CAN COPY ANY N ;'.'BEf> c ~ lES AT ONE TIME 

FASTER AND MORE ACCURATE THAN COPY SINCE RECORDS ARE COPiED IN 

GROUPS RATHER THAN ONE RECORDS AT A TiMF USING xCOPY YOU CAN COPY 

FILES THAT CAN NOT BE COPIED USING THE COPY COMMAND 

S7AP PROVIDES THE CAPABILITY TO READ AND MODIFY ANY SECTOR ON A 

DISKETTE 

XMIT CAN BE USED TO REPAIR A DISKETTE DIRECTORY 

DCS DIRECTOR CATALOG SYSTEM lj A UTILITY FOR ThE MANAGEMENT OF USER 

D'SKE"ES SETS OF A MUL T IPLE DISKETTE DIRECTORY ' lE WITH uP TO '200 

INDIVIDUAL FILE NAMES' AiLOWS SELECTIVELY LISTED OR PRINTED LISTS OF 

DiRECORY FaES IN COMBINED SORTED ORDER FOR EXAMPLE - S^ED A l PmA 

bet'c Ali y by diskette or a composite alphabetical _iS' of all your 

diskettes 

debug il adds several ' ea'urls 'o the present tpsdos debug utility 

including single instruction cyci e auto loop. breakpoints sub 

routine- c.ai ; ing break-key detect" >n am: many others 



MODEL-II DEVELOPMENT SYSTEM 

• THIS PAi ,KAGE IS A MUST FOR ASSEMBl Y L ANGCAGE PROGRAMMERS 

• iNCiUDE - 'HE MICROSOFT EDITOR ASSEMBLER PLUS WI t h ENHANCEMENTS FO" 
'HE MODEL" 

• a compete disassembles 

• s L-fii^AP FOR READING AND MOD. Fy ANY SELECTOR ON A DISKETTE 



ON..' 



r;- .. 



MOp-ll BASIC CROSS REFERENCE UTILITY 

WlTH.N A F'ROGRAM 
• l 1ST OF PRINT ALL LINE NUMBERS CONTAINING A SPECIFIED STRiNG OF CHAR 

- .-•:••- 

MODEI II ONLY $b0 00 

*** ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE *" 



END USERS 

CALL: 



HOUR 
24 ORDER 
LINE 



iCflflPUTflCMCS; 

50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

NEW TOLL-FREE 

ORDER LINE 

(OUTSIOE OF N V STATE) 

(800) 431-2818 



Sfe 



(914) 425-1535 



DEALER INQUIRIES WELCOME 



ADD $3 00 FOR SHIPPING IN UPS AREAS 
ADO S4 00 FOR COO. OR NON-UPS AREAS 
ADO $$.00 TO CANADA ANO MEXICO 
AOD PROPER POSTAGE OUTSIDE OF U S . 
CANAOA ANO MEXICO 
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1040A 



Dapartmant ol th« Traasury — lntMn«l Rmnai Sar»rc« 

U.S. Individual Income Tax Return 



1B82 



•0; OMB Ho. 1545-0085 



Us* 
IRS 
labtL 
Ottaf- 



wtypt. 



Your (irtt mm aad initial (if joint ratwn, also (Km spoiiaa'a aaax and iaitiali 



Pratant home addrass (Dunbar and Uraat. including apartmaat Mmbar. or rural rout*) 



Your social security number 



Spouse's social security no. 



City, town or pott offica. Stita and ZIP coda 



Your occupation 



Spouse's occupation ► 



Pmidtfltial 

BjCPMI CliapmB v If joint return, do— your spouse want $1 to go to this fund? 



^ Do you want $1 to go to this fund? 



Yes 



Yes 



No 



No 



Note: Checking "Y«s" will 
net increast your tax or re- 
duce your rtfund. 



an 



micromatic TIQS-8C* Owners do rour own 

PROGRAMMING 
COMPANY 



Taxes Like An Expert with TAX/SAVER U™ 

on of Tandy Corp. 



TRS-M k J Ifidf arfc ol the Radio Shexk W» 



]jrn«* I 

I flU " I 



■-< «*X t '«■ 5W.T 



rOC MODEL I, !■** or MODEL III 

TAX/SAVER II'" — The tax help program (or the layman, the professional accountant or tax preparer. 

New and expanded. TAX SAVER IT* offers a different approach to preparing a tax return. Like the original, the new version has 
the tax regulations programmed in so it is more than lust a calculator Designed lor nor accountants, TAX SAVER II" asks you 
questions, just as an accountant does. Based on your answers, it leads you through the lax maze lo your lowest legal lax Then it 
tell* you how lo fill in your return, line by line, or it will output to a printer. 

TAX SAVER IP also has speed features for those domg more than one return. Optional program instruction and tax text make 
TAX SAVER II" the practical system for professional preparers as well TAX SAVER II" has lull disk storage of data files I with 
optional password protection I . 

The manual includes information on special lax areas, lists of possible deductions and a tax gkissary 

TAX SAVER II" compares itemized deductions to national averages; automatically computes certain limitations lor example, on 
medical deductions and contributions; checks for excess PICA; helps determine dependents Yet. TAX SAVER II" offers the 
privacy and convenience of home use. 

The user-oriented design with special screen formatting makes data entry, verification and correction easy Yet you are always in 
control. You can skip any help features or parts of the program that you don'l need. 

TAX/SAVER II" 

• Completes long and short forms (1040 & 1040A) 

• Itemized Deductions - Schedule A 

• Interest & Dividends - Schedule B 

• Tax Calculation - Tables, Rates 

• Tax Savings Methods - Income Averaging. Maximum Tax, Alternative Tax 

• Business Income Schedules C & SE 

• Capital Gains Schedule D 

• Allows you the privacy of your own home 

• Lets you help friends and relatives with their taxes 

• Has built in aids. Answers specific questions hke "Is my father my dependent?" and "Are my deductions reasonable' 1 " 

• Manual includes 1982 tax forms, information on special tax areas, lists of possible deductions and glossary of lax terms 

• Completes long and short forms including itemized deductions, excess FICA. earned income credit, community property . 
tax calculation fcomparing all possible filing statuses in one runl 

• Tax regulations are programmed in by our team of accountants. Just type in your figures & you've done your own tax return 

• Helps you find the lowest tax 

• Discounts on yearly updates 

• Prmls out on standard IRS forms overlays or plain tractor feed paper 

• Accepts totals from all other tax forms not listed here 



PROFESSIONAL TAX/FORECASTER T " 

TAX/FORECASTER", the quick tax estimator (with printout) for both 1982 and 1983 lets you revise itsestimate by merely changing one or moi 
together with TAX SAVER II" or by itself. TAX FORECASTER" lets you quxrkly ask all of your WHAT IF? Questions and instantly recalculates 
aid for both the layman and professional. Includes Income Averaging and disk storage of Client files 

• Bolh TAX SAVER 11" and TAX FORECASTER" are tax-deductible • Discounts are given on yearly updates • Free tax newsletter is 
With the combined package TAX'SAVER II" and TAX/FORECASTER", you can now have, at an affordable price, ihe power to predict, c i 



Jfam J MitA &<ntc«t: 
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REVIEWS: 








wri designed and easy • 


■ ..-. |i Lub* Creal .. C a 


.. . . 


; -■ 


TAX SAVER - -T..K. ..--■ 


well live up to ii» name' 






M I 
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ipulinq I 81 


CUSTOMERS: 








Fir :he nrxe it cant r* heal 


1 am kiokin.) lorward lo next v. 
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ihihis 
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PROFESSIONALS: 
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Us*- it jbjlrixp.ar.rwi eithe 
iixi s A great tax prepaid: x> 



□ TAX/SAVER II" (MOD 1 & III) $139.95 Manual Included 

D PROFESSIONAL TAX/FORECASTER" (MOD I & HI) $99.95 ($79.95 if purchased with TAX/SAVER 

D UPDATE for Registered TAX/SAVER II** Owners $83.95 

O TAX FORM OVERLAYS $19 95 

a TAX/SAVER II- Model II" Version $199 95 

O PROFESSIONAL TAX/FORECASTER" Model II** Version $129.95 



SYSTEM REQUIREMENTS 

□ TRS 80 Model I with 32K .ind 2 disk drives 
D TRS 80 Model 111 with J2K «md 2 disk drives 

□ TRS 80 Model II** with WK and 1 disk drive 
** Availability of Model II programs uncertain at pres 



•CQIflRJTOQNICS: 



SO N PASCACK ROAO 
SPRING VALLEY. NEW YORK 10977 

• 9 



ALL PRICES A SPECIFICATIONS SUBJECT TO CHANGE 
- DELIVERY SUBJECT TO AVAILABILITY 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY STATE) 

(800) 431-2818 
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FEEDBACK LOOP 



by Terry Kepner 



Send any questions or problems 
dealing with any aspect of TRS-80 mi- 
crocomputing to "Feedback Loop, " 
80 Micro, 80 Pine Street, Peterbor- 
ough, NH 03458. 

/would like to share some comments 
on Lazy Writer. Contrary to your re- 
sponse to T.B. of Hartford, CT (Feed- 
back Loop, September 1982), Lazy 
Writer does provide full proportional 
spacing for several printers, including 
theDWII. 

Also, about the reply to G.B. of 
Hopkins, MN (also September), Lazy 
Writer can save formatted text to disk 
as it would appear on paper; it also has 
built-in RS-232 communications. 

S.B. 
Frederick, MD 

You're right, Lazy Writer does pro- 
vide proportional spacing. But this is 
an optional extra ($29.95 for the DW 
II), which makes its price substantially 
more than NewScript ($124.95 versus 
$204.95). 

I didn't know Lazy Writer could for- 
mat text to the disk drives, or that it 
had an RS-232 driver built-in; for Mr. 
G.B., that makes it a worthwhile 
purchase. 



I'm writing in response to your an- 
swer to E.S. of Los Angeles (Septem- 
ber issue) concerning copying disk files 
from Model III double density to Mod- 
el I single density. I believe there's a 
fourth alternative besides the three you 
mention — Super Utility Plus. 

This utility allows the Model III 
double-disk user to separately format 
(in several different DOS configura- 
tions) each drive and copy files from 
one to the other. The program costs 
$49. 95 (cheap and includes many other 
powerful disk manipulation utilities). 

I'm not a machine-language pro- 
grammer, but I do appreciate Super 
Utility Plus's ease of operation. I've 
used it to correct disk errors, rename 
disks, and make back-ups of protected 
disks. 

T.B. 
Spokane, WA 

Super Utility Plus is definitely one of 
the most powerful disk utility pro- 
grams on the market for the Model I 




Problems 

and 
solutions 



and Model III computers. I agree with 
Paul Wiener, every serious user of a 
TRS-80 Model I or III should have it. 
But it won't necessarily transfer all 
programs from one DOS to another. 
Super Utility Plus is manufactured and 
sold by Powersoft (11500 Stemmons 
Fwy, Suite 125, Dallas, TX 75229, 
800-527-7432) for $74.95. The Alter- 
nate Source will be selling it at its origi- 
nal price ($49.95) until January 1, 
1983! 

/ read with interest the letter from 
P.D. of Nashville (September issue). 
Coincidentally, we have the same 
equipment — a Model II with a Line 
Printer III — and up until a year ago we 
had the same problem. 

Unfortunately, Radio Shack wasn't 
able to help me. I'm convinced the 
problem lies with the printer's design. 
Otherwise I think the LP III is an excel- 
lent machine. 

Here's what happens: When the 
printer is programmed to print a char- 
acter, tension is put on the ribbon. But 
when you 're form feeding, only line 
feeds go to the printer. When the form 
is feeding through, the ribbon is loose. 
The trouble comes when the perfora- 
tion between the forms passes in front 
of the print head, catches the loose rib- 
bon, and pulls it away from the print 
head. At $13 per ribbon, that's an ex- 
pensive problem. 

Once I understood the problem, the 
solution was easy. I program the 
printer to print a dot at column 80 one 
line before the perforation and one line 
after the perforation. This puts enough 
tension on the ribbon to keep it out of 



the way. I've added this feature to all 
our programs with 100-percent suc- 
cess. I can now leave my printer on all 
night long printing five-part forms 
with carbons. 

For unalterable canned programs, 
you have to devise a way to put enough 
tension on the paper so the perfora- 
tions don 7 pull the ribbon, while mak- 
ing sure the tension won 7 tear (he trac- 
tor-feed holes. 

T.S. 
Chicago, IL 

Sounds like an excellent, nontechni- 
cal solution for modifiable programs. 
Does anyone have a working solution 
for the nonmodifiable programs? 

In your reply to R.M. of Poland, 
OH, you listed two machine-language 
manuals for the 6809 chip. There's a 
third book available: 6809 Assembly 
Language Programming by Lance A. 
Leventhal, published by Osborne- 
McGraw Hill Publications. 

P.W. 
Jaffrey, NH 

Thanks for letting us know. 

/ am considering a switch from my 
Stringy Floppy and tape system to 
disks, but I need more information be- 
fore I will buy. Can you tell me the ad- 
vantages and disadvantages of 40 ver- 
sus 80-track drives, double-headed 
drives, and double-density drives. I in- 
tend to use the system for business ac- 
tivities such as inventory and accounts 
receivable. 

W.G. 
West Berlin, NJ 

The primary advantage of 80 over 
40-track drives is space — there's twice 
as much of it. The disadvantage is 
some incompatibility with software on 
35 and 40-track disks. Most of the in- 
compatibility problems come about 
because 80-track drives actually put 
two tracks in the same space normally 
occupied by only one track of a 
35-track disk. 

An 80-track drive would treat a 
40-track disk as if it were an 80-track 
disk where every other track was a du- 
plicate of the preceding track. This pre- 
sents a problem when you try to read a 
disk because the boot-up sector of a 
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disk usually tells the DOS where the 
directory track is located. The 40-track 
disk tells the DOS the directory is on 
track 17, so the 80-track drive skips 
over to its track 17 (actually track 8 of 
the 40-track disk) and gets lost trying 
to find the directory. 

Several DOSes on the market 
(MULTIDOS, DOSPLUS, to name 
two) include a command. Skip, that 
takes care of this problem, allowing 
you to read the 40-track disk. Writing 
to the 40-track disk is also okay if you 
don't try to read the disk in a 40-track 
drive later (which will read the new 
80-track information alongside the old 
40-track information, and get con- 
fused). 

The problem still remains for those 
programs on protected disks that can't 
be treated as data disks. These special 
DOS disks require that you boot them 
up in a 40-track drive. To leave your- 
self the most flexibility, I suggest you 
get one 40-track drive to use with those 
special programs. 

The double-headed drive's advan- 
tage is, once again, space. Double- 
headed drives store twice as much data 
in the same amount of space. The dis- 
advantages are that they cost more 
(single-sided disks can be used, but the 
second side isn't guaranteed to be good 
and you could experience lost data 
problems), and most DOSes let you use 
only three drives on a system with a 
double-sided drive, with the fourth 
drive line being used to switch between 
side A and side B (but who cares when 
you end up with 50 percent more room 
than a standard four-drive system). 

Double density lets you store almost 
twice as much information as with sin- 
gle-density drives. I don't know of any 
real disadvantages to double density. 
In fact a double-density board will im- 
prove the reliability of disk I/O in sin- 
gle density on a Model I just by being 
installed (double density requires the 
use of a data-separator circuit for the 
FDC chip controlling the disk drives). 
This data separator reduces, if not 
eliminates, DATA-LOST errors. 

If you were to get one double-sided, 
double-density, 40-track drive and two 
80-track double-sided, double-density 
drives, you would have about 1.4 
megabytes (18*40*2+18*80*4 = 5760 
sectors) of information on-line, com- 
pared with 400,000 bytes on a standard 
four-drive, 40-track, single-density 
system. 
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I've been considering buying the Ra- 
dio Shack PC-2 Pocket Computer. I 
haven 't because Tandy doesn 7 have an 
editor/assembler, or even an instruc- 
tion set, for Assembly-language pro- 
gramming — despite giving an example 
of a short machine-code routine in 
their manual. I was told their machine 
is identical to the Sharp Pocket Com- 
puter and that Sharp doesn 7 want to 
release the instruction set either. I ask- 
ed a Sharp salesman, but he didn't 
kno w anything. Can you shed any light 
on the matter? 

P.S. I'm a great fan of LCD dis- 
plays, and am curious to know about 
the possibility of pocket computers in 
the future with larger displays (more 
than one line of text). Maybe portable 
is a better word than pocket. 

J.W. 
Albuquerque, NM 

The PC-2 is the Sharp Pocket Com- 
puter with Tandy's label on it. The 
Sharp salesman can't be blamed for 
not knowing because deals of this na- 
ture are conducted at a higher level of 
management. 

An editor/assembler isn't available 
for either Pocket Computer. You are 
correct about why Tandy doesn't sell 
one for their PC-2. If Sharp, the licens- 
ing company, allowed them, Tandy 
most assuredly would sell an editor/as- 
sembler. After all, they've released one 
for all their other computers. 

Trade journals have been talking 
about new LCD multiline displays for 
microcomputers the past few months. 
It shouldn't be long before we see a 
portable computer similar to the 
Kaycomp or the Osborne 1 , except that 
it will have a light-weight LCD display 
instead of a 15 or 20-pound video 
monitor. 

My system is a Model I, Level II 
ALPS keyboard with I6K, an LNW ex- 
pansion interface with AeroComp 
Doubter, two MPI B-52 drives, and a 
Centronics 737 printer. 

I'm unable to read most disks for- 
matted on other systems. When I try to 
boot them, the disk spins, stops, and the 
screen retains its previous image. If I 
connect someone else 's drive to my sys- 
tem (using my power supply and ca- 
bling), one out of every five drives tried 
will load. Disks made on my system 
won't load on most other systems. I 
have swapped drives, power supplies, 
and cabling. The only item that seems to 



make a difference is the drive. 

I've used my drives and interface on 
other systems and they work just fine. 

I think there 's a tremendous disparity 
in the speed and head-alignment ad- 
justments for mini-drives. I haven't 
found anyone who can check and align 
my drives, so I don't have any real 
proof yet. Also, there seems to be some 
drive /interface interplay that I don't 
fully understand; they work fine sep- 
arated, but not together. 

M.B. 
Laguna Beach, CA 

Ouch! It does sound like your prob- 
lem is with the disk drives and their 
alignment. There are two commercially 
available programs that can help you 
identify the problem. The most versatile 
is Floppy Doctor by Dave Stambaugh 
(The Micro Clinic, 17375 Brookhurst, 
#114, Fountain Valley, CA 92708, 
$24.95/Model I, $29.95/Model III). 
Floppy Doctor is a complete diagnostics 
package. It thoroughly checks your 
computer system: RAM, ROM, and 
drives (35, 40, 77, and 80 track, single 
and double density). The drives are 
checked for proper motor speed, head 
alignment, read/write accuracy, head- 
seek accuracy, and several other impor- 
tant areas. If you don't already nave 
this program, get it. It will tell you if the 
problem is with your drives, disks (I test 
for flaws on any new disks I buy), com- 
puter, or software. Knowing which tests 
your drive fails can sometimes pin- 
point the exact cause for your drive's 
problems. 

The other diagnostic package is DDT- 
Disc Drive Timer from DiscoTech (1 150 
Coddingtown Center, P.O. Box 1 1 129, 
Santa Rosa, CA 95406, $29.95). This 
utility uses a graphic chart to show you 
your drive's rotation speed, and tells 
you how to adjust that speed to within 
normal system tolerances. 

There is another possibility — check 
your disk drives to see if they both have 
"the termination pullup resistor pack in- 
stalled. Only the last drive on your drive 
cable should have it. If you're not sure 
where the resistor pack is, take both 
drives to a computer repair center and 
have the technician tell you if the resis- 
tor pack is installed properly. 

I've been so flustered by Radio 
Shack's EDTASM that I've almost 
given up. I have a problem saving the 
object output from the assembly onto 
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TRS-80 Disk 
& Other Mysteries 

by H.C. Pennington 

This book is the definitive 
authority on data recovery 
for the TRS-80 Model I disk 
system. In almost every case, 
lost data can be recovered 
and this book tells you how 
to do it. From clobbered dir- 
ectories to parity errors, this 
profusely illustrated data 
recovery cookbook includes 
examples and step-by-step 
instructions for both begin- 
ners and professionals. 
132 pages. $22.50 



Microsoft BASIC Decoded 
& Other Mysteries 

by James Farvour 

This book is the only one of 
its kind. You will learn how 
the TRS-80 Model I BASIC 
interpreter works from 
power-up to power-down It 
has the complete disas- 
sembled Microsoft BASIC 
Level II interpreter with over 
1 3,000 lines of detailed com- 
ments in one volume. The 
math, arithmetic and utility 
routines are fully explained 
with examples on how to use 
them. An incredible learning 
aid for the beginner and a 
valuable reference for the 
professional. 
312 pages. S29.95 



The Custom TRS-80 
& Other Mysteries 

by Dennis Bathory Kitsz. 

A comlete hardware/soft- 
ware how-to-do- it like reverse 
video, high res graphics, aud- 
ible keystrokes, 8-track mass 
storage music synthesizer, 
and real time clock Dozens 
of project hints, tips, and fixes 
complete with the interface 
software. If you are a begin- 
ner, there are chapters on 
wire-wrap, soldering and con- 
struction methods. If you are 
a professional, there is a 
wealth of technical detail. 
332 pages. $29.95 



BASIC Faster and Better 
& Other Mysteries 

by Lewis Rosenfelder 

BASIC is not nearly as slow 
as you think! This book shows 
you how to make it faster and 
better with techniques and 
tricks thatyou neverdreamed 
of for Model I. II and III 
disk systems. You won't find 
trivial, poorly designed "check- 
book" programs here- only 
useful BASIC techniques 
and code ready for use in 
YOUR programs. Tutorial for 
the beginner, instructive for 
the advanced, and invaluable 
for the professional. All rou- 
tines are available on disk 

290 pages. $29.95 



Learn about your TRS-80 computer- it's as easy as 1-2-3-4. These books are easy to read and understand because they are 
written for you by people just like you. Here are answers and solutions without jargon There are no end of chapter" tests" - no 
incomprehensible math formulas- no textbook explanations- just straightforward, plain English. 

You will learn how to recover ' lost data" on disk, how the BASIC interpreter works, how to make BASIC run faster and better, and 
how to modify and interface your TRS-80. In other words, you will learn how to make your computer do all the things you want it to 
do. It's as easy as 1-2-3-4. 



Available at computer stores, B Dalton Booksellers and independent book 
dealers BASIC Faster and Better is also available at all RADIO SHACK Computer 
Centers and selected RADIO SHACK stores.(Cat. No 62-1002) If your dealer is out of 
stock order direct. Include $4.00 for shipping and handling. Foreign residents add 
$1 1 .00 plus purchase price, in U.S. funds. trs-80 trademark tandy Corp 
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With Help From Instant Software 



BUSINESS AND APPLICATIONS 

0222RD Electronic Breadboard 32K, Mod I & 

III. disk $59.95 

0228R Electronic Breadboard 16K. Mod I & 

III. tape $49 95 

0428AD Electronic Breadboard 32K, Apple. 

disk $5995 

0369RD3 Easy Calc 48K. Mod III only, disk $49.95 

0269RD Easy Calc 48K. Mod I only, disk $49 95 

0103R Personal Bill Paying 16K, Mod I & III. 

tape $14.95 

5005RD Master Directory 32K, Mod I only, 

disk $29.95 

0152RD Business Analysis 32K, Mod I & III, 

disk $9995 

0140R Business Analysis 32K, Mod I * III, 

tape $75.00 

038ORD Scriplr 48K. Mod I only, Disk $34.95 

EDUCATION 

0099R Typing Teacher 16K. Mod I & III. tape $17.95 
0100R Video Speed Reading 16K. Mod I & 

III, tape $14 95 

03O9R Triangle Trig 16K, Mod I & III. tape $19.95 
0071 RD Geography Explorer USA 32K. Mod I 

& III. disk $49.95 
0276RD Geography Explorer Mid East. 32K. 

Mod I & III, disk $49.95 

0111R Word Watch 16K. Mod I & III. tape $14.95 

0257R Math Master 16K. Mod I & III. tape $1 7.95 
0127R Surveyors Apprentice 16K, Mod I & III. 

tape $14.95 



GAMES 

0332R Space Shuttle 16K. Mod I & ill. tape $19.95 
0017R Air Flight Simulation 16K. Mod I & III. 

tape $14.95 

0148A Air Flight Simulation 16K. Apple, tape $14 95 

0159R Jet Fighter Pilot 16K, Mod I & III, tape $14 95 

0329AD Jet Fighter Pilot 32K. Apple, disk $24.95 

0223R Cosmic Patrol 16K, Mod I & III. tape $19.95 

0224RD Cosmic Patrol 16K. Mod I & III. disk $24.95 

0237R Danger in Orbit 16K. Mod I & III. tape $19 95 

0247RD Danger in Orbit 16K, Mod I & III. disk $24 95 
0051R Ball Turret Gunner 16K. Mod I & III. 

tape $14.95 
0240R Alien Attack Force 16K, Mod I & III, 

tape $14.95 

0171R Flight Path 16K, Mod I & III, tape $1495 

0043R Santa Paravia 16K. Mod I & ill. tape $14.95 

0229AD Santa Paravia 48K. Apple, disk $24.95 

0273TI Santa Paravia 16K, Tl 99/4. tape $14.95 

0174A Santa Paravia 48K, Apple tape $14.95 

0312R Swamp War 16K. Mod I & III. tape $14.95 

0141R Battleground 16K, Mod I & III. tape $14.95 

0378RD Master Reversi 16K. Mod I only, disk $24 95 

0117R Night Flight 16K, Mod I & III. tape $1495 

0183A Skybombers III 32K. Apple, tape $14.95 

0271 AD Skybombers II 32K. Apple, disk $24 95 
5020RC Tower of Fear 16K. Color Computer. 

tape $1995 

0084R Music Master 4K, Mod I & III. tape $14 95 

0106R Air Mail Pilot 16K, Mod I S III. tape $14.95 

0205RD Flying Circus 32K. Mod I only, disk $39.95 

0163AD Paddle Fun 32K, Apple, disk $19.95 



Instant Software 



0219R 



0325RD 
0387RD 



0386RD 
0161AD 



House of 30 Gables 16K Mod I & III 

tape 

Mission. Mud 32K. Mod I & III. disk 

Sparrow Commander 32K. Mod I & I 

disk 

Kitchen Sink 32K. Mod I & III, disk 

Apple Fun 32K. Apple, disk 



UTILITIES 

0230R TLDIS 16K. Mod I & III. tape 
0231RD DLOIS 32K. Mod I only, disk 
57O0RD Super»Terminal 32K, Mod I & III. 

disk 
5003R Ultra-Mon 16K. Mod I & III. tape 
0232R The Disassembler 16K. Mod I & III. 

tape 
0245R Programmer s Primer 16K. Mod I & I 

tape 
0139RD Disk Scope 32K. Mod I only, disk 
0184R TRS-80 Tests 16K. Mod I only, tape 



$14.95 
$19.95 

$1995 
$1995 
$19 95 



$1995 

■„■■ J!. 

$95 00 
$2495 

$14.95 

$14 95 
$2495 
$1495 



Peterborough. N.H. 03458 USA 
436 • 80 Micro, December 1982 



A subsidiary ol Wayne Green Inc. 



TO ORDER: 

See your local Instant Software dealer 

or call toll-free 1-800-258-5473 Dept. A -65 

In New Hampshire 1-603-924-9471 

Dept. A-65 

Mon.-Fri. 8:00 am-4:30 pm E.S.T. 
Include $2.50 lor Shipping & Handling 

•TRS-80 is a trademark of Radio Shack a division of 

Tandy Corporation 

"APPLE is a trademark of Apple Computer Inc. 

PRICES SUBJECT TO CHANGE 
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cassette. EDTASM works fine except 
for this one area. I have both Version 
1.0 and Version l.l for tape systems, 
but both have this problem. 

My system is a Level II, 16K com- 
puter with the dual cassette interface 
from Sel-tronics. I removed the inter- 
face from the system, but still have the 
problem. I tried the computer store, 
Fort Worth, and friends with no luck. 
I'm considering getting EDTASM Plus, 
but am worried about the cassette 
operation. 

B.B. 
San Jose, CA 

It sounds like the cassette interface in 
your keyboard is at fault. Most of the 
early Model Is had a flaw in the design 
of the cassette interface that made it 
very difficult for the computer to read 
from and write to cassette tape. For a 
time Radio Shack offered a free modifi- 
cation to the cassette interface that cor- 
rected this problem (the XRX cassette 
modification). The modification is still 
available, but now they usually charge a 
nominal fee for the parts and labor. 

Before you charge off to the nearest 
Tandy computer retail center, check 
these points out first: 

Are your tape recorder heads clean 
and properly aligned? Borrow a friend's 
recorder and see if you have better luck 
saving and loading. If you do, the prob- 
lem is most likely with your tape re- 
corder and not EDTASM or your com- 
puter. 

Have you tried using your copy of 
EDTASM on another computer (such 
as the local Radio Shack store's or a 
friend's)? If your EDTASM works on 
other computers, the problem is with 
your system. If the EDTASM fails to 
work at the store, show the salesman 
and get a replacement copy. 

If you have chronic problems with 
cassette I/O, regardless of the program 
or tape recorder you're using, the prob- 
lem is definitely with your cassette inter- 
face and should be taken to a repair 
center. 

/ have a PMC-80 with a built-in cas- 
sette recorder. In the August issue of SO 
Micro there's a game called Naval 
Wars. To connect the computers to- 
gether you need the mike, remote and 
earphone plugs exposed, which aren't 
available on the PMC-80. If you plug a 
plug into the computer a second tape 
player can be accessed by the normal 



I/O statements. Is it possible to convert 
the program to work on the PMC-80? 

D.H. 
Conway, PA 

After looking at the program, I don't 
see why you can't just replace the 
INPUT/M and PRINT*- 1 commands 
with INPUT#-2 and PRINT#-2 and use 
the second tape player plug on the 
PMC-80. If you're going to be playing 
with another PMC-80, both machines 
will need the modified program. If the 
other machine is a TRS-80, use the 
modified program in your machine only. 

/ have a Model III 48K cassette-oper- 
ated computer, with a Radio Shack LP 
VIII. I use the computer for word pro- 
cessing with Scripsit, which is where I 
have my problem. The LP VIII is capa- 
ble of changing type fonts, underlining, 
and printing boldface characters, none 
of which are supported by Scripsit. 

A friend told me about a cassette pro- 
gram, "Scrips Plus, " that corrects this 
problem, but I can 't find the software 
company. Quality Software, who's sup- 
posed to be one of your advertisers. 

Another problem I have is line re- 
numbering in Basic. On my PC- 1 this is 
easy to do. The need often arises to ei- 
ther replicate or duplicate some pro- 
gramming without retyping. I have seen 
renumbering mentioned in ads; are 
there any subroutines that you 've pub- 
lished in the past that can change line 
numbers easily? 

D.P. 
Houston, TX 

The Scripsit modifying program you 
want is called Scriplus, for Scripsit. The 
company that sells it has changed its 
name from Quality Software to Power- 
Soft (11500 Stemmons Fwy, Suite 125, 
Dallas TX 75229), which is why you 
couldn't find them in the magazine. 
Scriplus retails for $24.95 (cassette or 
disk) and lets you use all your printer's 
features: backspace, underline, 
boldface, and so on. 

There's another Scripsit-modifying 
program available called Scriptr. It's 
sold by Pioneer Software (1746 NW 
55th Ave., #204, Lauderhill, FL 33313) 
and retails for $40 (cassette and disk). 

For more details on both of these 
programs, read pages 101 and 102 of 
the September 1982 issue of 80 Micro. 

I think you have a slight misconcep- 
tion about renumbering programs. The 



PC-1 is unusual in its method of renum- 
bering Basic lines. Most Basic line- 
renumbering programs change the line 
numbers of your Basic program to a 
new sequence. They don't move or du- 
plicate the Basic lines. Several of the 
DOSes on the market (such as DOS- 
PLUS and MULTIDOS) include spe- 
cial commands in their DOS Basic that 
let you move or duplicate Basic lines. 
But since you don't have disk drives, 
that isn't a solution (and the only re- 
numbering program I can find in the 
magazine is in the March 1981 issue, 
page 256). 

What you can do is get a machine- 
language program that lets you use 
screen-editing techniques to duplicate 
Basic lines to new locations (almost ex- 
actly the same way the PC-1 duplicates 
lines. You just type a new line number 
over the old one, press enter, and 
you've duplicated it.) There are two of 
these available. The first one is called 
IRV and is sold by The Programmer's 
Guild, (P.O. Box 22, Peterborough, 
NH 03458 (603) 924-6065) and retails 
for $24.95 (Model I cassette version), 
$29.95 for disk. The Model III version 
is called Superkeys and retails for 
$49.95 (disk only). It's available from 
Advanced Operating Systems (450 St. 
John Road, Suite 792, Michigan City, 
IN 46360, (219) 879-4693). 

The second program is sold by Inter- 
pro (P.O. Box 4211, Manchester, NH 
03108, (603) 669-0477) and retails for 
$24.95 (specify disk or tape). It auto- 
matically adjusts itself to your comput- 
er's memory size (16K, 32K, or 48K), 
and computer type (Model I or III). 

Both programs let you assign mes- 
sages to the keyboard keys (so you 
can define the shift, D key combin- 
ation to print "Delete," the shift, 
X key combination to print Data 
*************** t and so forth) and let 
you use the standard Level II Edit com- 
mands together with their screen-editing 
capabilities to concatenate or change 
Basic lines on the screen. 

Of the two programs, Key Com- 
mander is more sophisticated and versa- 
tile; it's also easier to use. 

We 're looking for information on the 
Color Computer: books, programs, 
hardware, software, and computer 
clubs. We're also interested in a pro- 
gram called Smart Package, which is 
supposed to allow direct linking to other 
computers without the use of Compu- 
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Serve. Can you help? 



R.&K.J. 
Madera, CA 



Your best source of information on 
the Color Computer is 80 Micro (this 
isn't just a plug for this magazine, it's 
the truth). 80 Micro has more com- 
panies advertising products (books, 
programs, hardware, and such) for the 
Color Computer than either of the two 
publications specializing in the Color 
Computer (Color Computer News, and 
The Rainbow). Check September's 
Feedback Loop for two machine- 
language books on the Color Com- 
puter, and this month for a third one. 

One very good source is B. Dalton 
Books, located in many shopping malls. 
B. Dalton has the largest and most com- 
plete selection of computer books of 
any store I've ever been in, including 
computer stores. 

New computer club listings can be 
found in 80 Micro issues, with an up- 
dated list printed each year of all the 
clubs known. 80 Micro's November 
1981 issue included as complete a listing 
as possible. It will be updated in the An- 
niversary issue. In addition, the Radio 
Shack Computer Newsletter also lists 
new clubs. 

The Smart package is probably a 
communications program, although I 
can find none with that name. Several 
similar programs are available: 
Datapak (Cer-Comp, 5566 Richochet 
Ave., Las Vegas, NV 89110, $24.95 
cassette, $49.95 disk). Colorcom/E 
(Spectrum Projects, 93-15 86th Drive, 
Woodhaven, NY 11421, $49.95), 
Micro-Text (The Micro Works, P.O. 
Box 1 1 10, Del Mar, CA 92014, S59.95 
ROMPAK), Colorterm (Martin Con- 
sulting, 94 Macalester Bay, Winnipeg, 
Manitoba, R3T 2XT Canada, $34.95), 
and Super Color Terminal (Nelson 
Software Systems, P.O. Box 190%, 
Minneapolis, MN 55419, $39.95 tape, 
$49.95 ROMPAK, $69.95 disk). 

These programs make the world of 
telephone and computer communica- 
tions available to the Color Computer 
user. CompuServe, Timenet, and The 
Source are all data-base computer net- 
works you can tie into using a com- 
munications terminal program. When 
you buy the CompuServe package from 
Radio Shack, you get one hour of time 
on CompuServe and a rather primitive 
communications program. Compu- 
Serve isn't necessary to communicate 
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with other computers — only the ter- 
minal program (and a modem/phone 
hardware hookup) are needed for that. 
There are several hundred computer 
bulletin board services in the world. 
Many of their phone numbers have 
been listed in past issues of 80 Micro. 

I want to upgrade my TRS-80 Level I 
computer without paying Radio Shack 
prices. I've worked with electronics, 
but not computers. Is there any alter- 
native from another company, or a do- 
it-yourself ROM pack? I've put in my 
own 16K RAM. 

L.H. 
Cortland, NY 

The only source of Level II ROMs is 
Radio Shack, which sells them for $99 
and charges $25 to install them. If you 
don't mind voiding your Radio Shack 
warranty, you can buy the ROMs from 
Radio Shack's National Parts Division 
(900 East Northside Drive, Fort Worth, 
TX 76102, (817) 870-5662). The two- 
chip Level II ROMs cost $66.73 (the 
A-B chip, serial number AXX3031, is 
$41.58, the C chip, serial number 
AXX3030, is $15.15). If you have Mas- 
terCharge or Visa, you can call direct 
and order the parts by phone. There's 
also a $1.50 shipping and handling 
charge. 

/ bought my Model III in Novem- 
ber 1980, and after the warranty ex- 
pired, I upgraded it to 48K and then 
added a non- Radio Shack disk drive, 
all of which operate Jlaw/ess/y. The 
problem is with my keyboard. About 
eight months ago the I key stuck in 
the on position. A half hour with a 
screwdriver and ohm meter convinced 
me that the only problem was a stuck 
keyboard switch — one bad key 
module. I tried but couldn 7 get a 
replacement module. After several 
phone calls I gave up and swapped 
the failing key module with the period 
module from the numeric key pad. 

I continued looking, but couldn't 
find either a single key module or a key- 
board at any price. I was told that I 
could order a module, but after three 
months I gave up. Finally I was told 
that Radio Shack doesn 't sell keyboards 
over the counter; I would have to bring 
in my machine for service and they 
would replace the necessary parts. 

I'm a little leery of taking my ma- 
chine with its $700 dollars oj alien hard- 
ware to Radio Shack (I've heard the 



horror stories of people getting their 
computers back with their homebrew 
modifications in a bag). And why 
should I surrender my machine to a re- 
pair center and pay for parts and labor 
(not to mention down time), when I 
could easilv repair it mvself? 

R.C. 
Hyattsville, MD 

Yes, you can buy a new keyboard 
from Radio Shack. All you do is or- 
der it from National Parts (see 
previous letter for the address infor- 
mation). The Model III keyboard's 
serial number is AXX02O5, and costs 
$68.56. It shouldn't take more than 
two weeks for the part to be deliv- 
ered. (They usually promise store 
delivery in three work days.) 

I'm having a few minor problems 
with my TRS-80 Model I monitor. The 
image on my display shows a small rip- 
ple that travels slowly from the bottom 
of the screen to the top, and then starts 
again. Also, the whole image on the 
screen is shifted to the right approxi- 
mately 'A " to '/2 ", making the right- 
most part of the image fuzzier than the 
rest. Finally, the monitor sometimes 
squeals from the inside. The noise is 
similar to what you hear from a color 
tv, only louder. Can you help me with 
these? 

H.L. 
South Bend, IN 

Anyone having difficulties with a 
Model l/III computer system should 
buy Dennis Kitsz's book, The Custom 
TRS-80 & Other Mysteries (available 
from the 80 Micro Bookshelf, adver- 
tised in this magazine. Ask for catalog 
number BK1218). The book retails for 
$29.95. 

All three problems are covered in The 
Custom TRS-80, pages 253-254. The 
first problem isn't the fault of your 
computer, but is the result of radio fre- 
quency interference (RFI) from another 
device. The most common source of 
this problem is the triac used in light 
dimmers. The second most common 
source of interference comes from fluo- 
rescent light bulbs, followed by failing 
neon bulbs (usually stereo lights); in a 
business, check your copier. This is one 
of the hardest problems to eliminate 
because the problem originates from 
outside the computer. 

The second problem can be corrected 
by opening the keyboard unit (Warn- 




JPC PRODUCTS CO. 



Poor Man's 
Floppy 



HIGH SPEED CASSETTE SYSTEM 

Now for the TRS-80 Color Computer 



The JPC Products High Speed Cassette System, 
in operation for over 4 years, is now available 
for all versions of the Radio Shack Color Computer. 

• TC-8C 

The TC-8C plugs directly into the expansion 
port of your TRS-80 Color Computer. It is fully 
compatible with all versions of the Color Computer 
from the Standard 4K up to the Extended 
32K systems. 

• FAST 

The TC-8C saves and loads files at more than 
twice the speed of the built in Color Computer 
system. 

• RELIABLE 

All of JPC Products high speed cassette systems 
have a proven reliability of less than one 
error in a million bits. 

• TWO DRIVES 

The TC-8C fully supports two cassette 
drives. Save and load through either drive by 
simple software selection. You can use 
standard Radio Shack CTR-80A tape recorders 
or their equivalent. 

• ALL FILE TYPES 

The CCCOS operating system allows you to 
save, load, verify or run both BASIC and 
machine language files. Data files are 
also supported. 

• MOTOR CONTROL 

On board relays are provided for both cassette 
ports on the TC-8C. 

• SPARE EPROM SOCKET 

The TC-8C has a spare EPROM socket on 
the board. You can install either 2716 or 2732 
EPROM's. This memory space can be used for 
any of your application programs or you 
could install the optional JPC Products 
monitor program - JBUG. 

TC-8C 

JBUG (EPROM) 

JBUG (CASSETTE) . 



• JBUG MONITOR 

The JBUG Monitor is a 2K relocatable monitor 
program with fantastic features for the Color 
Computer user. 

• ASSEMBLER 

Line assemble any machine language program 
directly into memory using standard 6809 
assembly language mnemonics. 

• DIS-ASSEMBLER 
Dis-assemble any memory resident program 
(ROM or RAM) directly on the screen. 

• MEMORY MODIFY & LIST 

Modify memory directly or list memory in both 
HEX and ASCII. 

• BREAK POINT TRAPS 

Set, clear or continue from break points. 

• CASSETTE OR EPROM 

The TC-8C is not required in order to use the 
JBUG Monitor. It is available on cassette 
or a 2732 EPROM. 

• SUPERB DOCUMENTATION 

The TC-8C and the JBUG Monitor come with 
complete and extensive user manuals 
(JPC's documentation is praised almost as 
highly as our hardware and software). 
Complete command descriptions and 
background information are provided. 
Examples and sample programs are provided 
to help the novice and experienced 
individual take full advantage of the TC-8C 
and the JBUG Monitor. 

• READY TO GO 

The TC-8C comes completely assembled 
and tested with the CCCOS operating system. 
It is backed with a 30 day Money Back 
Guarantee and a 90 day Full Warranty. 



$129.95 

$34.95 

. $29.95 



Terms: Cash, Master Card or Visa 

Shipping & Handling $ 3.50 (US) 
$5.50 (Canada) $15.00 (Foreign) 

Technical Inquiries: Phone 5:00 - 6:00 PM MST 




• See List ol Advertisers on Page 451 



JPC PRODUCTS CO. 

Phone (505) 294-4623 
12021 Paisano Ct. N.E. 
Albuquerque, N.M. 87112 • 42 
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ing: Opening the computer will void 
your Radio Shack warranty) and ad- 
justing the horizontal and vertical con- 
trol potentiometers on the right side of 
the keyboard, facing down with respect 
to the normal operating position of the 
keyboard. 

The last problem is only a nuisance. 
The high-voltage lines are experiencing 
a slight arcing problem. The solution is 
to open the case (same warning as 
above), after letting it sit unplugged for 
an hour to let the power supply 
capacitors discharge safely, and clean 
the insides. If you find the hissing ir- 
ritating, take it to the repair shop and 
have them put more dope on the high 
voltage lines. If you know where these 
lines are yourself, and you have the 
right kind of dope, you can do this 
yourself. 

My TRS-80 screen starts to scroll and 
gets wavy when I fill it with graphics 
(i.e., white-out the screen). What's 
wrong? How can I fix it? 

J.H. 
Grosse Ponte Park, MI 

First, get Dennis Kitsz's book (the 
same one mentioned before). Second, 
the video monitor has to be modified to 
fix this problem . Unplug the monitor an 
hour before you begin. (Warning: Not 
only will opening the case void your 
warranty, but if you don't let the moni- 
tor sit unplugged for an hour before 
starting, the voltages you'll find inside 
could kill you.) After removing the 
case, locate the resistor marked R14 on 
the small circuit board closest to the side 
of the case (some monitors only have 
one). The resistor should be marked 
3.3K ohm (orange, orange, red bands 
marked on the resistor). Solder a 1.5K 
ohm resistor on top of the 3.3K resistor 
(making them parallel to one another). 
Put the cabinet back together. This 
should take care of your problem. 

While reading some 80 Micro back 
issues, I noticed several programs with 
different version numbers, such as Star 
Trek 4.0. How are the version numbers 
arrived at? 

M.C. 
Concord, NH 

They make them up. Star Trek 4.0 
was written several years before Adven- 
ture International's Star Trek 3.5. 
Generally, unless the program is written 

440 • 80 Micro, December 1982 



by the same author, the version number 
is meaningless. If the same author is us- 
ing different version numbers, the 
numbers correspond to the program's 
release sequence, thus Scripsit Version 
1.1 is an improvement of Scripsit Ver- 
sion 1.0 

My almost new, yet out of warranty, 
Radio Shack Modem I recently died. Re- 
pair charge: $56. 

Radio Shack claims the damage was 
caused by a power surge and is not the 
fault of their equipment. I would like to 
know if this is a plausible explanation or 
am I being sandbagged. Also, how can I 
prevent this from recurring? 

E.M. 
Birmingham, AL 

Yes, this is possible. I have had the un- 
fortunate luck to see most of a TRS-80 
computer destroyed by a line-voltage 
power surge. Radio Shack sells a power- 
line filter/multiple outlet box for $49 
that will limit the amount of ac power 
line interference your system gets. Many 
other companies, advertisers in this 
magazine, offer surge protectors and 
spike suppressors for your computer. 
Since you've already been zapped once, 
you'd better get one of these right away. 



I've decided to add lowercase capa- 
bility to my Model I, but I don V have 
any instructions or a schematic. I do 
have an SPST switch and a 2102 RAM 
chip. Can you help? 

I'm also considering upgrading my 
system to include disk drives and double 
density, but I'm worried about compat- 
ibility with other computers. If I have 
40-track, double-density drives, will I be 
able to exchange programs on disks 
with someone who has only Radio 
Shack 35-track, single-density drives? 
Would it help if both parties operated 
under the same DOS? 

H.S. 
Cincinnati, OH 

The Custom TRS-80 by Dennis Kitsz 
has the procedure on how to install low- 
ercase capability (as well as about half 
the questions in this month's column). 

Compatibility isn't a problem if you 
use 40-track drives and a DOS capable 
of reading and writing in single and 
double density. All you have to remem- 
ber to do is to format and write the ex- 
change disk as a 35-track, single-density 
disk. DOSPLUS. LDOS. NEWDOS- 



80, and MULTIDOS all read and write 
to both single and double-density, 35 or 
40-track disks. Of the bunch, MULTI- 
DOS offers the most advantages for its 
price: MULTIDOS is the only DOS that 
reads and writes to disks no matter what 
system they were written with (although 
NEWDOS80 is a problem if the direc- 
tory is more than one track in length). 
For the most compatibility, both 
operators should use the same DOS. 

lama blind freelance writer and have 
thus far been unable to use my hus- 
band's 48 K Model I tape-based com- 
puter. Our quest for help to get the 
computer to read out in an audio medi- 
um has been long and frustrating. Other 
blind users I know of use Apples. My 
ultimate goal is to have a word proces- 
sor I can use. 

Do you know of an easier way to ac- 
commodate an audio medium other 
than dissecting and modifying each pro- 
gram to be used with it? Can you sug- 
gest a way to turn our 80 into a word 
processor I can use? 

N.K. 
Forked River, NJ 



My first thought was to call IJG 
Computer Services (1260 West Foothill 
Blvd., Upland, CA 91786, (714) 
946-5805) and ask about the progress of 
Talking Pencil, a word processor for 
the visually handicapped. Unfortunate- 
ly, while they have plans to eventually 
release such a product, the processor is 
barely out of the planning stages. 

The next step was to call the Votrax 
Corp. (500 Stephenson Hwy, Troy, Ml 
48084, (313) 588-0341). Votrax makes a 
device called Type 'N Talk, which takes 
ASCII text input from an RS-232 port 
and converts it into speech (it works 
quite well). However, it requires soft- 
ware to direct the data to the RS-232 
from the main program (as well as con- 
trol codes to determine when and what 
to send). Unfortunately, again, the re- 
sults were negative; no one at Votrax 
was aware of a word processor using the 
Votrax unit. 

Other phone calls also failed to pro- 
vide a solution. Since 1 couldn't seem to 
help you, does anyone else know of a 
solution for N.K.'s problem? ■ 

Terry Kepner is a free-lance writer 
and programmer, and the vice president 
of Interpro. He's been writing about 
microcomputers since 1979. 
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HERE'S YOUR 

TICKET TO MANY 

THRILLING HOURS 

OF ENJOYMENT 



\ TWO BRAND NEW GRAPHIC ADVENTURES 
\ IN ONE PACKAGE — FOR YOUR TRS-80 

By Roger Schrag 



Horrors! A deranged madman has locked 
your unconscious form Inside of a deserted creep 
house at a crazy carnival. You awake to some 
sobering facts: a bomb is set to explode, and only 
30 real-time minutes stand between you and 
eternity. Somewhere, somehow you must locate 
and defuse the explosive — but we'd be less than 
honest if we thought you had more than a ghost 
of a chance! Brrrr — a real cliffhanger! 



TOXIC DUMPSITE 

Something's gone very, very wrong at the 
Toxic Dumpsite where the treatment and burial 
of deadly contaminants take place. The entire 
plant will explode like the Fourth of July in less 
than 30 minutes — unless you can avoid the 
many traps and protection systems and shut the 
plant down in time. Of course, time is the one 
luxury you haven't got. . . ! 



This is it — the blockbusting debut of the long-awaited Graphic Adventures! Now, your TRS-80 
can hobnob with the best of 'em. Over 50 full screens of sharp, quality graphics breathe a realism and 
vitality into Adventuring, the likes of which you've yet to see on the TRS-80. Both Graphic Adventures 
feature game save, extensive vocabulary, real-time action (yes — we said real-time!) and accept FULL 
sentences! Exclusive area showings brought to you by Adventure International. Now playing at a 
TRS-80 near you! 

TRS-80 48 K Models 1 & 3 disk 012-0164 — $39.95 



To order, see your local dealer. If he does not have the program, then 
call 1-800-327-7172 (orders only please) or write for our free catalog. 
, Published by ADVENTURE INTERNATIONAL 

a subsidiary of Scott Adams. Inc 
BOX 3435 • LONGWOOD, FL 32750 • (305) 830-8194 



INTERNATIONAL 



PRICES SUBJECT TO CHANGE 



MONEY DOS 



by J. M. Keynes 



I'm sure the options market was in- 
vented by brokerage firms because it 
allows those with small bankrolls to 
gamble. If you wish to trade options 
here are the rules. 

An option is the right to buy or sell 
100 stock shares at a set price called the 
"striking price." All listed options 
have an expiration date. At any time 
before the expiration date they may be 
bought and sold each market day. All 
options expire at 3 p.m. EST on the 
third Friday of the expiration month. 

A "call" is an option to buy 100 
shares of the stock. A "put" is an op- 
tion to sell 100 stock shares. 

An "exercise" converts an option to 
the actual stock. The option holder 
(buyer) can convert to stock at any 
time, provided he has the money to pay 
for it. For example, if you bought a 
November 30 call on XYZ last June for 
$200, and today XYZ is at $37 per 
share and you want to get the stock, 
your option, $3,000, plus a commis- 
sion gets you 100 stock shares. You 
have exercised your option. In prac- 
tice, few options are exercised. Most 
investors who own XYZ options on 
November 30 would sell in the market 
for about $700. 

"In the money" refers to an option, 
like the XYZ above, which has some 
tangible value. That is, the stock is 
above the striking price. 

"Out of the money" is an option 
with no tangible value; that is, the cur- 
rent stock price is below the striking 




price. The price it commands will de- 
pend on how much time is left before 
expiration and how close the stock 
price is to the exercise price. 

You are "covered" when you sell an 
option on a stock you own. This is the 
least risky investment in the market. 
(See one of my previous columns 
where I go into covered option writing 
in depth.) You are also covered if your 
options are properly spread. I'll get in- 
to that later. 

"Naked" is when you sell an option 
on stock you don't own, and if the 
holder exercises it, you are forced to 
buy the stock at the current market 
price in order to deliver to the option 
holder. Being naked implies unlimited 



Compare outright purchase of an option vs concurrently selling a higher priced one. 

The calculations assume equal dollar investment in each. Profit or loss at expiration. Cur- 
rent stock price 23, investment $200. 



AT EXPIRATION 
$25 PER SHARE 
$26 PER SHARE 
$27 PER SHARE 
$28 PER SHARE 
$29 PER SHARE 
$30 PER SHARE 
$31 PER SHARE 
$32 PER SHARE 
$33 PER SHARE 
$34 PER SHARE 
$35 PER SHARE 
$36 PER SHARE 



OUTRIGHT 
-200 
-100 


100 
200 
300 
400 
500 
600 
700 
800 
900 



SPREAD 

-200 
-40 
120 
2X0 
440 
600 
600 
600 
600 
600 
600 
600 



<"o STOCK GAIN 
8 

13 

17 
21 
26 
30 
34 
39 
43 
47 
52 
56 



Figure I 



risk. If you sell an option on ASA with 
a striking price of 30 and ASA goes to 
90, you are stuck. Of course, if you 
have any judgment, you will have cov- 
ered your naked position by buying the 
option back. 

The strategy of simply buying an op- 
tion is obvious. If you think a stock is 
going up, you buy a call. If you are 
bearish, you buy a put. Program 
Listing 1 assists you in determining if 
an option is over or underpriced. 

Another strategy that I employ fre- 
quently is "spreading." This is when 
you buy one option and sell another on 
the same stock. 

XYZ is at 23. You think it will go to 
30 by February, so you buy the Febru- 
ary 25 outright for about $200 per op- 
tion and concurrently sell the February 
30 for about $75. You put up the same 
$200 for the February 25, but you get 
back $75 from the sale of the February 
30, making your net risk $125. This is 
an example of "vertical spread." 

In many cases I prefer spreads. It is 
true that you give up the potential for 
an enormous move in a short time, but 
over many years, I have determined 
that few stocks rise more than 33 per- 
cent in any 90-day period. Therefore, I 
prefer the spread because I think the 
odds favor it. Figure 1 clearly shows 
the vast advantage spreading has for 
even a 45 percent move-up in the stock. 
Should the stock remain under 25, 
both calls will expire worthless. If you 
are considering buying a call that is 
way out of the money (buying a 50 call 
on a stock that is now at 40), the ver- 
tical spread portion of Fig. 2 will make 
spreading a compelling strategy. 

Using the "calendar spreads" strat- 
egy requires the least investment. An 
example would be selling a February 
(nearby) and buying a May (deferred) 
option. As this is written, there are 
over 25 stocks on which this can be 
done for under Vi or $50 per spread. 
For example: Today you can buy the 
Mesa Petroleum April 20 and sell the 
MSA January 20 for a debit of only V* 
or $25 per spread. MSA closed today at 
14. The risk is that what you put up as 
the April option must always be worth 
more than the January. Should MSA 
be at 20 on the third Friday of January, 
the option you sold would expire 
worthless while the one you bought has 



442 • 80 Micro, December 1982 



Quality Computer Services Presents ... 

5iz«i»ra run ?me 



20 Megabytes for 
Under $3500! 



Our Systems Are Compatible 
with Your 




TRS-80® Model 1, II, 


III, XVI 




Apple II® 1 


IBM® PC W J 


NEC™ * 


S-100 M 


Altos" /! 


NorthStar™ 




i^R* 


Superbraln™ 




^z 



Panasonic 



Epson 



Heath/Zenith 
and Others 




Now you can expand the capability of 
your microcomputer with cost-effective 
mass storage from Q„CS Our inte- 
grated family of 6-, 1 2-, 20-, and 
40-million-byte systems lets you operate 
your micro with the speed, convenience, 
and proven reliability of systems costing 
thousands of dollars more! And as your 
needs grow, Q„CS mass storage can 
grow too. You can start with an entry- 
level 6-million-byte system and expand 
80 million bytes ... without scrapping 
your existing programs or operating 
system. 

The completely assembled and 
tested system includes: 

■ Switching power supply 

■ Winchester drive 

■ Host adapter card 

■ Sealed case 




■ Expansion (enclosure, controller, and 
power supply designed for future 
backup hardware or increased storage) 

■ Software 

■ Auto-attach CP/M 

■ Hard disk utilities 

■ Realtime clock 

■ Formatting program (assigns 
alternates for any weak sectors 
detected during formatting — assuring 
the lowest possible error rate) 

■ Warranty (a full one-year warranty 
on all parts and workmanship) 

Also available: 

■ Attach program for TRSDOS 
and OASIS 

■ New CP/M dynamic generator: 

configured software, menu -driven for 
6-, 1 2-. 20-, 40-, 80-megabyte drives 



The following systems 
software can be utilized: 

TRS I, III— attach software for DOS 4.0,* 

LDOS 

TRS II, XVI— CP/M Racet for TRSDOS.* 

Turbo DOS OASIS 

TRS Models II and XVI use 6 Meg for 

CP/M and 6 Meg for TRSDOS 

Apple— CP/M and DOS 3.3 

NEC— CP/M 

S-100 CP/M 

Heath/Zenith - CP'M 

IBM— PC DOS USCD. etc 

• /WaitaWe at an additions 



See your local dealer or call 

QCS 



Quality 

Computer 

Services 



l /H Mam Street Me tucr>ea New Jersey 08840 
Teleph one 201 /548-2135 

Toll free number:j[800^631 :: 5944_ 

Quantity discounts available Distributor. 
Dealer and OLM inquiries invited 



Peripherals 
Unlimited.. 



FANTASTIC PRICES! 

OUR FAST SERVICE, PRODUCT 
SELECTION AND OUR CUSTOMERS' 
SATISFACTION MAKE US #1. 



Microsoft Z-80 Softcard 


$214 


Microsoft RAM CARD 


$129 


Z-90-64K DO 


$2588 


Z-1 9 Terminal 


$777 


Z-121 Monitor 12" 


$149 



ATARI COMPUTERS 




Atari 800 16K 


$649 


Atari 400 


$318 


Atari Interface Module 


$174 


Atari 810 Single Disk 


$444 


Atari 830 Modem 


$166 


Programmer 


$59 


Entertainer 


$84 


Star Raiders 


$34 


16K Mem. Exp. for Atari 


$74 


32K Mem. Exp. for Atari 


$114 



NEC PRINTERS 






7710/30 Spin writer R/O 
7720 Spinwriter KSR 
3510/30 Spinwriter R/O 




$2295 
$2649 
$1689 


NEC DOT MATRIX 
PC-8023 




$474 


Call for prices on ribbons, 


etc 





OKIDATA & MORE 




Okidata Microline 82A 


$459 


Okidata Microline 83A 


$699 


Okidata Microline 84 (P) 


$1069 


Okidata Microline 84 (S) 


$1099 


Tractor(OKI80&82only) 


$60 


Diablo 620 


$1349 


Diablo 630 


$1999 



AMDEK & NEC MONITORS 




Amdek 12" 300 GRN Phospor 


$149 


Amdek 13" Color I 


$319 


Amdek 13" Color II 


$739 


Amdek 13" Color III 


$429 


NEC JB1201 GRN Phosphor 


$149 


NEC JC1201 Color 


$339 



EPSON PRINTERS 




MX-80 w/Graphtrax Plus 


$469 


MX-80 FT (Friction & Tractor) 


$529 


MX-1 00 (15" Carriage) 


$699 


Grappler Interface 


$129 


Call for prices on 




Ribbons, Cables and Interfaces 


NEC- PC 8000 




Series Microcomputer 




PC-8001 A Computer w/32K 


$888 


PC-8012Aw/32K + Exp. Slots 


$588 


PC-8031A Dual Mini Disk 


$888 


PC-8032A Add-on Mini Disk 


$777 


Call for Software Prices 





FOR THE LOWEST 
PRICE CALL 

TOLL FREE 

1-800-343-4114 

ORDERING INFORMATION 

Our order lines are open 9AM to 6PM 
EST Monday thru Friday. Phone 
orders are welcome; same day ship- 
ment on orders placed before 10AM. 
Free use of Mastercard and VISA. Per- 
sonal checks require 2 weeks 
clearance. Manufacturer's warranty 
included on all equipment. Prices sub- 
ject to revision. C.O.D.'s accepted. 

For service, quality and delivery call: 

PERIPHERALS UNLIMITED 

(617)655-7400 
62 N. Main St.* Natick, MA 01 760 
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90 days to go and would be worth 
about 2 to 2Vi — a profit of perhaps 
1,000 percent. Even if MSA is only at 
17, the April 20 should be worth at 
least Vi for a 100 percent profit. If 
MSA is unchanged at 14, it is likely you 
will be able to recover most of your in- 
vestment. The program in Fig. 2 tells 
you what the option would be worth 
with 90 days to go if the stock is un- 
changed. 

Several times each year a situation 
develops that can provide the clever in- 
vestor with an opportunity for big 
profits with essentially zero risk. Ex- 
amine the following illustration. 
Teledyne recently sold for 75. For a 
brief period you could have bought 
one October 90 and one October 110 
and sold two October 100s for a net 
credit of 3/8. That is, the proceeds 
from the sale of the two October 100 
calls paid in full for the October 90 and 
110 with 3/8 left over, nearly paying 
the commission. You put up nothing. 
(Note: One of the October 100 calls is 
uncovered and requires margin money, 
or if you have any marginable securi- 
ties in your account, they will stand 
good for the margin required.) 

Check out this arithmetic. If on the 
third Friday of October, TDY sells for 
less than 90, all the options expire 
worthless. The investor lost nothing. If 
TDY is between 90 and 1 10, the inves- 
tor profits. The maximum profit is 
achieved at 100, for then the 100 and 
the 110 options are worthless and the 
90 is worth 10, or $1,000. If TDY is 
above 1 10, the investor loses only a 
commission as the combined value of 
the 90 and 1 10 equals the value of two 
100 options. 

You're not laughing now! The order 
to the broker was, "TDY, buy calls 1 
October 90 and 1 October 11 0. Sell 
calls 2 October 100 at 3/8 credit." This 
is one area where established brokers 
may get executions that the discounters 
can't touch. Your broker will be sur- 
prised that such opportunities exist. 

There is another strategy that 1 
have successfully employed. Today 
Warner Communications (WCI) 
closed at 37. There is an option (ac- 
tually a warrant on the American Ex- 
change) that gives one the right to buy 
one share of WCI at $55 per share 
anytime up to April 1, 1986. It closed 
at 13 3/8. The more conservative in- 
vestor might consider buying the 
stock and selling (shorting) the war- 



I'ronrum Listing 

15 FOR 1=1 TO 1800: NEXT 

20 CLEAR: REM IF YOU WANT ONLY THE VERTICAL SPREAD PROGRAM 

TYPE RUN 5000 

30 IF PEEK( 293)073 THEN POKE 16553,255: REM SEE IF MODEL 1 

40 POKEl6419,196: CLEAR1000: DIM A(300) : CLS: T$«="#M. #•" : Z=100 

: A(110)=t>: GG«1: DIM S$(100) 

50 INPUT "CURRENT PRIME RATE (14% AS 14) " ; I 

60 INPUT "CALENDAR SPREAD-1 VERTICAL SPREAD-2 ELSE ENTER" ;CS: 

CLS 

70 PRINT "COMPARE ESTIMATED PRICES WITH ACTUAL OPTION PRICES. 

80 INPUT "SYMBOL OF STOCK ";SS$ 

90 CLS: PRINT 84 59, "I'M LOOKING IN DATA BANK FOR ";SS$ 

100 READS$,V 

110 IFSS-"END" THEN CLS: PRINT SS$;" IS NOT IN DATA BASE, ENTER 

VOLITILITY.": PRINT "ENTER A NUMBER FROM 5 TO 60": PRINT "5 FOR 

UTILITIES UP TO 60 FOR MOST VOLATILE";: INPUT V: GOTO 130 

120 IFS$OSS$ THEN 100 

130 CLS: INPUT "ACTUAL PRICE OF FIRST OPTION. ";HP 

140 INPUT "ACTUAL PRICE OF SECOND OPTION"; LP 

150 PRINT "FIRST OPTION (LOWER STRIKING PRICE, OR LONGER OPTION 

) : " 

160 PRINT "TOUCH A 1 FOR PUT OR A 2 FOR CALL": GOSUB900 

170 IFVAL(Q$) >2,CLS: PRINT "BAD ENTRY, TRY AGAIN": GOTO 160 

180 A(105)=VAL(Q$) 

190 INPUT " t DAYS TO EXPIRATION ";D1: M=Dl/30 

200 INPUT " STRIKING PRICE ";A(101) 

210 PRINT "SECOND OPTION (HIGHER STRIKING PRICE, OR SHORTER OPT 

ION) : " 

220 PRINT "TOUCH A 1 FOR PUT OR 2 FOR A CALL": GOSUB900 

230 IFVAL(Q$)>2 THEN CLS: PRINT "BAD ENTRY, TRY AGAIN." 

240 A(106)=VAL(Q$) 

250 INPUT " t DAYS TO EXPIRATION ";D2: N-D2/30 

260 INPUT " STRIKING PRICE ";A(102) 

270 INPUT "CURRENT STOCK PRICE ";P 

290 INPUT "QUARTERLY DIVIDEND (40 CENTS AS .40) ";D: D-D* 4 

310 PRINT 

320 CLS: PRINT P410,"I'M THINKING" 

330 IF A(105)=l THEN A$="PUT " 

IF A(105)<>1 THEN A$="CALL" 

IF A(106)=l THEN B$="PUT " 

IF A(106)<>1 THEN B$="CALL" 
I=I/Z: V-V/Z: D=D/Z: T=M/12: U=N/12 
A(61)=T*.5: A(62)'=0 
A(60)»(T/A(61)-A(61) )*.5 

IF(A(60)=0)+(A(60)=A(62) )THEN420 

A(61)=A(61)+A(60) : A(62)=A(60): GOTO 390 

IF U=0 THEN A(63) =0 
A(63)=U*.5: A(62)=0: A(60) =(U/A(63) -A(63) ) *. 5 : GOTO 450 
A(60)=(U/A(63)-A(63) ) *.5 

IF(A(60)=0)+(A(60)=A(62)) THEN 470 
A(63)=A(63)+A(60) : A(62)=A(60): GOTO 440 

IF A(102)«0 THENA(102)«5 

IF A(101)=0 THENA(101)=5 

FOR J=101 TO 102 

IF A(J+4)=1 THEN Q=A( J) + (A( J) -P) 

IF A(J+4)=1 THEN A(30)=Q/A(J) 

IF A(J+4)<>1 THEN A(30)=P/A(J) 

IF J=102 THEN A(61)-A(63) 

IF J=102 THEN T-U 
A(36)=LOG(A(30) ) 
E=A(36)+(I-D+.5*V*V)*T 
E=E/(V*A(61) ) : F=E-V*A(61): A( 40) =(D*T) * (-1) : A(45)-EXP(A( 



340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

40)) 

580 

590 

600 

610 

620 

630 



A(48)=A(45) : A(50)=E 
GOSUB810 
IF A(J+4)=1 THEN 620 

A(J+2)=A(48)*P*A(52) : GOTO 630 

A(J+2)=A(48)*Q*A(52) 

A(40)=(I*T)*(-1) : A(45)=EXP(A(40)) : A(48)-A(45): A(50)-F 
640 GOSUB810 

6 50 A(J+2)»A(J+2)-A{48) *A(J)*A(52) 
660 IF A(J+4)=1 THEN A(J+2)=A(J+2)*.8498 
670 IF 11=1 THEN GOTO 980 
680 NEXTJ 

690 CLS: PRINT 9330, "OPTION EVALUATIONS ON STOCK SYMBOL ";SS$ 
700 PRINT §4 20, "ESTIMATED ACTUAL 

710 PRINT 8448,"";: PRINT " # 1 VALUE OF";Dl;"DAY, $"; A(101) > A$; 
" = $";: PRINT USING T$;A(103);: PRINT " ";: PRINT USING T$ 
;HP 
720 PRINT " # 2 VALUE OF";D2;"DAY, $" ; A( 102) ;B$; " = $";: PRINT 

USING T$;A(104);: PRINT " ";: PRINT USING T$;LP 
730 PRINT STRING$(64,131) 
740 X1=HP-A(103) : X2=LP-A(104) : O1=INT(100- ( (A(103) -Xl)/A(103) *1 

00) ) 

/ uling iimiinues 
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rant. You put up the difference (23 
5/8). As long as WC1 is above about 
24, you can't lose. Anything above 24 
is net profit. Maximum profit occurs 
at 55 or above. A similar situation ex- 
ists in American Express (AXP). 

If you want to buy a stock that has 
listed options, you may be able to arti- 
ficially create (so to speak) the stock by 
using options, and in the process, save 
money. Last week Teledyne TDY was 
at 79. The April 80 call and the put 
were selling for 12. I wanted 1,000 
shares of TDY, but rather than put up 
$79,000, 1 bought 10 April 80 calls and 
sold 10 April 80 puts. 1 have essentially 
all the profit potential and risk of own- 
ing the stock. The difference is that I 
put up no money. My $79,000 can be 
earning interest for the next eight 
months (about $6,300). At expiration, 
if I still want to own the stock, I can ex- 
ercise my call option and buy it for 80 
even though it may be at 1 10 (would 
you believe 130?). If I choose to sell the 
call I must pay capital gains taxes. 
There is no tax if I exercise. 



i 



FINALLY 

Your cassette based TRS-80* 
can handle data files! 



RAMFILE is the answer. It 
will allow you to write 
BASIC programs that will 
efficiently store data in the 
Random Access Memory of 
your computer. You will be 
able to sort and selectively 
retrieve, update and delete 
the data and store it on tape 
for future use, at a speed and 
efficiency that you never 
thought possible. RAMFILE 
runs with 16K or larger Level 
II or Model III BASIC. 

RAMFILE and demonstration 
BASIC program on cassette tape and 
manual. $59.95 

Postage paid in U.S.A. Foreign 
orders include $2.50. 111. Residents 
include 57 f sales tax. 

Send orders to: 

INDIVIDUAL SYSTEMS INC. 

P.O. BOX 343 

Downers Grove, Illinois 60515 

'Trademark ot Tandy Corp ^424 
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Listing continued 

750 O2=INT(100-( (A(104)-X2)/A(104)*100) ) 

760 IFO1>0 THEN R$=" OVERVALUED": GOSUB910 ELSE R$« "UNDERVALUED" : 

GOSUB910 
770 GG-GG+1: IFO2>0 THEN R$= " OVERVALUED " : GOSUB910 ELSE R$="UNDE 

RVALUED": GOSUB910 

7 80 IFM>3 OR N>3 THEN GOTO 970 

790 IFOP-1 THEN 930 

800 PRINT §975,"";: INPUT "PRESS ENTER TO CONTINUE"; E$: CLS: IPC 

S=2 THEN H=A(101): L=A(102) : A-P: GOTO 5100 ELSE 20 

810 A(53)=l/(1+.231642*ABS(A(50))) 

A(40)=-A(50)*A(50)/2: A(45) =EXP(A(40) ) : A(51) =.398942*A(45 



820 

) 

830 

6564 

840 

850 

) 

860 

87 

880 

890 



A(55)=l. 330027: A( 56) -1 .82126 : A(57) =1.78148: A(58)-.35 

A(59)=. 319382 
A(52)=(((A(55)*A(53)-A(56))*A(53)+A(57))*A(53)-A(58))*A(53 



A(52)=A(52)+A(59) : A(S2) =1-A(51) *A(53) *A(52) 
IF A(50) >=0 THEN890 

A(52)=l-A(52) 
RETURN 

900 Q$=INKEY$: IFQ$="" THEN 900 ELSE RETURN 

910 IF01>66 OR 02>66 THEN 0P=1 

920 PRINT "OPTION < ";GG;" IS ";R$;" BY " ; ABS(Ol) ; "%" : 01-02: RE 

TURN 

930 U$=INKEY$: IPU$»"" THEN PRINT §0,"ONE OVERPRICED BY MORE THA 

N 66%.": GOTO 940 ELSE IF CS-2 THEN H=A(101): L=A(102): A=P: GOT 

5100 ELSE 40 

940 PRINT "SOMEBODY THINKS THEY KNOW SOMETHING. . .TAKEOVER?????" 

950 PRINT "SPREAD OPPORTUNITY, OR PERHAPS AN EXCELLENT COVERED W 

RITE???" 

960 PRINT "TO CONTINUE TOUCH ANTICEY": GOTO 930 

970 IFM>3 THEN M-3 : N=3: T-M/12: Y$-"1ST": 11=1: GOTO 380 ELSE 

N=3: U=N/12: Y$="2ND": II-l: GOTO 380 

980 IF CS=1 THEN 11=0: PRINT §832, "WITH 90 DAYS LEFT THE ";Y$;" 
OPTION SHOULD BE WORTH "; ELSE 790 

990 IFY$="1ST" THEN PRINT USING T$;A(103) : GOTO 790 ELSE PRIN 

T A(104) : GOTO 790 

5000 REM 

LINE 5000 TO 5260 CAN BE A STAND ALONE PROGRAM FOR 
EVALUATING OUTRIGHT PURCHASES VS VERTICAL SPREADS 
IN CALLS PROFIT/LOSS WILL LESS FAVORABLE AS 



COMMISSIONS HAVE BEEN OMITTED 



5010 REM 



THE CALCULATIONS ASSUME AN EQUAL INVESTMENT IN 
BOTH THE OUTRIGHT AND SPREAD POSITION. IN 
PRACTICE THIS MAY NOT BE POSSIBLE BUT IS SHOWN 
FOR ILLUSTRATIVE PURPOSES. 

5020 CLEAR: CLS 

5030 PRINT "COMPARISON OF OUTRIGHT PURCHASE VS VERTICAL SPREAD" 

5040 PRINT "EG. BUY A 30 CALL AND SELL A 35 

5050 PRINT : INPUT "PRICE OF STOCK IN DECIMAL" ;A 

5060 INPUT "PRICE IN DECIMAL OF HIGHER PRICED OPTION"; HP 

5070 INPUT "STRIKING PRICE" ;H 

5080 INPUT "PRICE IN DECIMAL OF LOWER PRICED OPTION"; LP 

5090 INPUT "STRIKING PRICE" ;L 

5100 S3-HP-LP 

5110 U-HP-LP: U=HP/U 

5120 CLS: INPUT "WANT PRINT OUT OF OUTRIGHT VS VERTICAL ENTER A 

l";PO 

5130 CLS: PRINT "PROFIT/LOSS AT EXPIRATION. STOCK PRICE ";A;"INV 

ESTMENT $";HP«100: PRINT "THE CALCULATIONS ASSUME AN EQUAL INVES 

TMENT IN EACH STRATEGY 

5140 IFPO-1 THEN LPRINT "THE CALCULATIONS ASSUME EQUAL DOLLAR I 

NVESTMENT IN EACH.": LPRINT "PROFIT OR LOSS AT EXPIRATION. CURR 

ENT STOCK PRICE ";A;" INVESTMENT $";HP*100: LPRINT "." 

5150 PRINT §129, "AT EXPIRATION OUTRIGHT" , "SPREAD" , "% STOCK 

GAIN 

5160 IFPO-1 THEN LPRINT "AT EXPIRATION OUTRIGHT" , "SPREAD" 

,"% STOCK GAIN 

5170 FOR I=H TO H+ll 

5180 J=(I-A)/A*100 

5190 GOSUB5240 

5200 PRINT "$";I;" PER SHARE "; INT(O*100) ,INT(P*U*100) ,INT( J) 

5210 IFPO=l THEN LPRINT "$";!;" PER SHARE " ; INT(O*100) ,INT(P 

*U*100) ,INT(J) 

5220 NEXT 

5230 INPUT "GO BACK TO MAIN PROGRAM=l ANOTHER VERTICAL SPREAD-2" 

;V: IFV=1 THEN 40 ELSE 5020 

5240 0=Q-HP 

5250 IFKL+1 THEN P-Q-S3 

/ islmii continue-- 
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64KCP/M2.2 
FOR MODEL III 

$299. 




Now you can run WordStar. SuperCalc, 
SpellGuard. MailMerge and other CP/M 
based software on your TRS-80 Model III. 
And walk away with incredible savings 
Memory Merchant's new Shuffleboard 
III is the first and only 64K CP/M 2.2 
system available for your Model III. 

SOPHISTICATED DESIGN 

The Shuffleboard Ill's advanced design 
includes 16K of RAM. giving your Model 
III the power of full 64K CP/M 2.2, with- 
out interference of the ROM or the 
video memory. 

COMPLETE CP/M SYSTEM 

The Shuffleboard III is not a kit. nor a 
skeleton. tou will receive a top quality 
high performance system that is shipped 
to you completely assembled, burned-in. 
tested and insured with one of the 
industry's best warranties 

EASY INSTALLATION A USE 

Illustrated step-by-step instructions 
nsure fail-safe installation and reliable 
operation. No permanent modifications, 
cut traces or soldering is required. 

The Shuffleboard III easily plugs into 
two existing sockets inside your Model IN. 
Simple keyboard commands switch 
between CP/M and normal TRS-80 
operation. 

NO RISK TRIAL 

We are so convinced that you will 
be absolutely delighted with your 
Shuffleboard III system that we offer 
a no risk trial. After purchasing the 
Shuffleboard III system, you may return it 
ntact) for any reason within 1 5 days 
after shipment and we will refund the 
purchase price (less shipping). 

SHIPPED DIRECT FROM STOCK 

The Shuffleboard III is shipped to you 
direct from stock, normally within 48 
hours after receipt of your order 

INTRODUCTORY PRICE 

For a limited time. Memory Merchant 
s offering the Shuffleboard III with CP/M 
2 2 at an introductory price of only $299. 

1 YEAR LIMITED WARRANTY 

The Shuffleboard Ill's reliability through 
quality controlled production and proven 
performance, has enabled us to offer 
a full I year limited warranty. 

HOW TO ORDER 

Please send check, money order, VISA 
or MASTERCHARGE (add ICA ft) with 
your order Sorry, no C O D's Specify 
quantity desired. Shipping and handling 
charge is S5.00 per board ( $9.00 outside 
USA & Canada)* California residents 
add 6% or 6'?% Sales Tax where applicable 
Credit card purchases may be telephoned 
to (415) 483-1008. Order Today! 

OEM and DEALER inquiries invited. 

'Air MhiI sfwpments to ChOcKJ^ & ,<ll ottier court rtrs 



M 



memory 
merchant 



Ir.Orr.. 



P-KC 



14666 Doolittle Dr., San Leandro, CA 94577 
Telephone [415) 483-1008 „46i 

,' U-vjy r.-vpoi.it,-)n. VMflM^rgr Wxrttt.v'.ViicroPrr,. SuperCi c/Sofewn. Sp^llGt*ird/lW Inc CVM 2 ?/Dk]iMI "e«Mr(" 
tern I.WK1 spet ifti aliens ii'c iuUiec: to t'vigr \viuk_*,[ not cr 
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Listing continued 

5260 Q-Q+l: RETURN 

8080 REM 

DATA STATEMENTS CONTAIN NUMBERS WHICH CORRESPOND TO THE 

VOLATILITY OP THE STOCK. THESE DO NOT REMAIN CONSTANT 

FOR ALL STOCKS AS SOME INCREASE OR DECREASE WITH TIME 

HENCE, THE NUMBERS MUST BE UPDATED OCCASIONALLY 

8010 DATA AMP,45,ASA,51,ABT,40,AMD,55,AET,35,APD,32,ALD,38,AB,37 

,AA,30,AMX,52,AHH,58 r ABC,51,AMB,35,ABC r 34,AC,35,ACY f 35,AEP,5,AXP 

,28,ABP,30,AHS,35,AMI,51,T,9,AMP,30,AAC,55 

8020 DATA BUD, 42, APA, 60, ADZ, 40, AS, 35, AR, 45, ASH, 37, ARC, 34, ADD, 42, 

AV,34,AVT,40,AVP,32 

8030 DATA BKO,35,BDW,53,BLY,50,BAC,25,BCR,38,BOL,35,BAX,28,BRY,2 

3,BDX,28,BS,33 

8040 DATA BDK,30,BBL,30,BA,35,BCC,32,BMY,27,BPI,35,BC,38,BY,35,B 

NI,33,BGH,29,CBS,28 

8050 DATA CI,28,CSX,29,CCB,28,CAT,27,CZ,28,CEA,47,CBA,31,CHR,60, 

CMB,29,CHU,32,CMZ,35 

8060 DATA FNC,32,CS,40,CNV,33,CLX,31,CGP,57,KO,26,CL,27,COT,35,C 

SP,33,CBU,58,CWE,5,CQ,32,CMY,37,CSC,50,CVN,50,ED,5,CTC,5,CDA,35, 

CBE,30,GLW,29,CYR,50,ZB,32 

8070 DATA DKI,5,DGN,47,DPT,50,DPC,49,DH,28,DE,28,DAL,31,DEN,34,D 

IA,33,DEO,34,DEC,32,DIS,29,DGS,47,DGZ,47,DOW,31,DI,32,DD,29,DUK, 

5 

8080 DATA EGG,32,ESY,45,EFU,39,EK,27,ECK,29,ELG,33,EDS,34,EMR,26 

,EC,38,ENS,32,ESM,31,XON,25 

8090 DATA FDX,47,PCF,44,PLE,42,FGN,57,FLR,35,F,31,PWC,45,PTX,42, 

PQA,40 

8100 DATA GAF,42,GCA,55,GTB,23,GAO,43,GD,43,GE,24,GF,23,GRL,38,G 

M,27,GPC,28,GX,49,GP,30,GET,33,GS,27,GLM,49,GT,27,GLD,31,GRA,28, 

GWF,45,G,29,GW,31,GO,30 

8110 DATA HAL,32,HRS,33,HPC,32,HBL,29,HWP,29,HLT,35,HIT,30,HIA,4 

l,HM,49,HON,30,HCA,33,HI,27 f HNG,31,HT,35,HUM,43,EFH,47 

8120 DATA INZ,29,IBM,26,IFF,30,HR,3B,IGL f 29,IP,30,ITT,26,JNJ,25, 

JOY,32,KM,31,KAB,43,KMG,33,KPB,55,LTV,50,LSI,34,LVI,32,LMK,44,LL 

T,28,LIT,34,LK,54,LOR,35,LLX,33,LPX,35 

8130 DATA MAI, 46, MCA, 31, MCZ, 31, MAN, 34, MCA, 33, MHS, 33, ML, 31, MKY, 47 

,MAT,49,MDE,36,MCD,28,MD,36,MDT,36,MRK,27,MER,36,MSA,50,MSU,5,MM 

M,26,MND,48 

8140 DATA MOB,31,MDS,53,MTC,29,JPM,26,MOT,32,MUR,47,NCR,33,NL,35 

,NLT,42,DR,28,NME,44,NSM,45,NOM,40,NEM,42,NBL,45,NSC,29,NOC,43,N 

WA,35,NWT,31,NSI,28,NVO,49 

8150 DATA OAK,55,OXY,33,ODR,43,OCF,31,OI,29,PPG,30,PDN,49,PKD,45 

,PC,48,JCP,30,PZL,41,PEP,28,PKN,36,PTO,33,PFE,28,PD,42 

8160 DATA PSB,43,MO,27,P,33,PBI,30,PCO,35,PPP,41,PRD,41,PRM,57,P 

G,25 

8170 DATA RCA,31,RAL,27,RYC,34,RTN,32,RB,48,RTA,58,REV,31,RJR,25 

,RLM,31,ROK,33,RM,52,RDC,48,RD,26,RDR,35 

8180 DATA SAB,44,SA,25,SFF,31,SGP,29,SLB,31,SFA,37,SPP,32,SRL,33 

,S,27,SED,50,SUO,33,SGN,35,SMF,45,SKY,35,SII,35,SKB,29,SNE,34 

8190 DATA SO,5,SX,32,SRO,58,LUV,43,SY,29,SQB,31,SD,30,SN,31,SOH, 

35,STY,32,STK,52,SBK,35,SUN,33,SOC,39,SYS,32,SYN,33 

8200 DATA TIE,63,TRW,28,TAN,40,TEK,32,TDY,35,TGT,29,TSO,50,TX,27 

,TXN,30,TEI,58,TEZ,58,TXO,34,TDW f 53,TGR,45,TL,31,TOS,55,TOY,48 

8210 DATA TW,48,TA,28,TIC,30,TY,25,TYM,49 

8220 DATA UAL, 43, UK, 26 ,UCL,33,UNP,33,U,50,UH,48,X,31 ,UTX,30,UPJ, 

29,VLO,51,VIA,39,VEL,8 

8230 DATA WMT,33,JWC,30,WAN,50,WCI,34,WLA,27,WEN,48,WSN,47,WU,33 

,WX,30,WY,32,WKR,44,WMB,35,WMS,53,Z,30,XRX,28,ZOS,49,ZE,51 

8240 DATA END, 00 



FOR THE SIMSIM, INC. 

AfilV^Xl^ 214 North Main St.. Natick. Massachusetts 01760 U.S.V 

| jVy | JTJ (Lakewood Office Park; Junction of Routes 9 & 27) 

k , m ■*£* <3 §) CONTRpL DATA 

/SjOryi ^ Quality Leader in Flexible Disks 

^ C CW / A Limited Period Offer: 12 Disks/Pack 

I^Qj r-y 5V«" SS/SD $21.50 

^Zm^LI 5'A"SS/DD $28.00 

: WXW 8 - SS/DD $28.50 

^— A 8" SS/DD $34.50 

IN COMPUTER SYSTEMS Deakrs kfl"*** Invited 

1-800-343^090 In Massachusetts . Call coUect(617) 655-6415 



TDY goes on my books at 80 with a 
purchase date the same as the exercise 
date. If TDY declines below 80 (a 
ghastly thought), I am obliged to buy 
the stock at 80, but I was going to do 
that in the first place. In any case I'll be. 
many thousands ahead by using the 
above strategy. Such put/call combi- 
nations are available on most option- 
able stocks. 



"The key is knowing 

which options will 

outperform the market 

and which will be 

the laggards. 

I use a complicated 

system that ranks 

all options from one 

to five." 



There is one advanced strategy that 
has profited handsomely for five years 
and, you will find this hard to believe, 
it doesn't matter if the market goes up 
or down! Buy $10,000 worth of op- 
tions on a group of stocks that are like- 
ly to outperform the averages and con- 
currently sell $10,000 worth of options 
on a group that is likely to underper- 
form the market. If the market rises, 
the options you bought will rise faster 
than the options you sold. Should the 
market decline, all the options will 
probably expire worthless. By using 
the same strategy with puts, you can 
profit regardless of market direction. 

This strategy is most useful if you 
have marginable securities in your ac- 
count to meet the margin requirements 
for the naked options. The key is 
knowing which options will outper- 
form the market and which will be the 
laggards. I use a complicated system 
that ranks all options from one to five. 
For five years it has not had a losing 
quarter. The options ranked one have 
always vastly outperformed those 
ranked five. The computations are up- 
dated weekly. If you want a printout, 
send an S.A.S.E. to MONEYDOS. 

I have not covered all the strategies 
in trading options, but I hope you find 
MONEYDOS helpful. If you have sug- 
gestions for future columns write to me 
c/o 80 Micro. ■ 
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COLOR WORKS 



&$& 



Has 



NOW— create color 
graphics and play color 
games on your TRS-80 * 
MOD 1 & MOD 3. 
CHROMAtrs Kit 

only s 99* 




UNfCtOUCHED ROTO 



CHROMAtrs assembled & tested $ 169 



WITH 15 VIVID COLORS 



Now be first! CHROMAtrs lets you create color graphics with capabilities never before possible on 
TRS-80*. You'll be able to play color games with such brilliant effects your friends will be green with envy — 
or any other color of your choice — and all this on your own TRS-80" MOD 1 & MOD 3! 



CHROMAtrs works with: 



CHROMAtrs comes with: 



Routines to provide high speed color 

graphics capability through Basic 

Operating manuals 

One complimentary game 

16K RAM on board 



• 15 vivid colors 

• Transparent and high resolution graphics (192x256) 

• Atari 5 joystick and paddle interface 

• Audio and video outputs 

• 3 Dimensional simulation through 35 
prioritized display planes 

The TRS-80* memory is not used and there is no modification necessary (warranty not voided). This 
uncomplicated system is so simple to connect you'll be amazing your friends with your color powers immedi- 
ately. 

South Shore Computer Concepts, Inc. 



Please send 

D CHROMAtrs KIT *99 

CHROMAtrs assembled & tested . $ 1 69 
TRS-80* MOD 1 cable '12 

'TRS-80' is a product of Tandy Corp. 

South Shore Computer Concepts, Inc. 



: TRS-80" MOD 3 cable 

Modulator with cables & switch box 

Sub Total 

N.Y.S. residents sales tax 7 '.4% 

Handling & shipping 

Total amount order 



*14 
'25 



■5 



Check one: 

Check of MO enclosed 

Master Charge Visa 

Account # expiration 

S y.r wt 

Name (Printl 

Address 

City State 



Zip 



1590 Broadway, Hewlett, NY. 1 1557 • Phone Orders Taken (516) 569-4390 




■NEVE 



forgets: 



MORE THAN JUST ANOTHER PRETTY FACE. 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant™ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 



ELEPHANT. HEAVY DUTY DISKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 
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WdlBENEATH the KEYBOARD 



by Paul Wiener 



This month's "Notes from Beneath 
the Keyboard" is special. Kim Watt 
once told me what a luxury it was to 
work with Vernon Hester. He said you 
didn't need a disassembler with Vernon 
around, because Vernon could read a 
page of op-codes as easily as mnemonics. 
He also said, "Vernon Hester is the 
king of TRS-80 disk I/O. I know some 
people have attributed that honor to 
me, but Vernon's the real one." 

If you use any of Vernon Hester's 
software, you probably share my belief 
that Vernon is one of the grandmasters 
of TRS-80 disk I/O. This" month, I'm 
broadcasting the voice of the master. I 
think you'll agree that Vernon's pro- 
gramming perspicacity rivals his teach- 
ing talent. Vernon will tell us a hitherto 
unpublished method of disk I/O. At 
first glance, the technique might seem 
similar to other one-byte I/O tech- 
niques. However, Vernon's offering is 
unique because it uses ROM calls to 
eliminate the greatest stumbling block 
to compatibility with a variety of DOSes. 

Vernon: A lot of people have learned 
how to read and write sectors from disk. 
There has been a problem writing the 
last sector, or end-of-file (EOF) byte. 

That gets tricky when you're working 
with a multitude of DOSes. What no 
one has detailed is exactly how one who 
doesn't want to get too involved in a 
DOS can write a simple routine that will 
correctly write a file, byte for byte, from 
RAM to disk, or read a file from disk to 
RAM, with the proper end of file, and 
with the proper end byte. 

Those calls are available in the ROM. 
If you make those calls in the ROM, the 
particular DOS being used will do its 
own end-of-file and next-byte manipula- 
tion, and correctly write the proper end 
of file and end-of-file byte. 
Paul: When you talk about end of file, 
and end-of-file byte, you're referring to 
potential compatibility problems be- 
cause of the way in which different 
DOSes handle those things, right? 
Vernon: Right. 

Paul: Now , are those the major or only 
incompatibility problems? If someone's 
application program has disk I/O and 
those two things come out right, is it 
fairly certain everything else will? 
Vernon: Yes. What a lot of people have 
probably confused a one-byte read or a 
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Disk I/O 

with 
V. Hester 



one-byte write with is a logical record 
length of one. The programmer still has 
control over what his logical record 
length is. Unless you have a specific 
need, such as random files from Basic, I 
don't see why you shouldn't have a logi- 
cal record length of (256(?)). But other 
than that, most programs work on a 
logical record length of 256. 
Paul: Does a logical record length of 
256 ensure that a 256-byte buffer is 
filled before a sector is actually flushed 
to disk? 
Vernon: Yes. 

Paul: So that keeps things relatively 
quick. 

Vernon: Yes. 

Paul: Some people are concerned that 
this type of byte I/O is slow. You said 
once before that it does use system- 
verify automatically, so writes can take 
a little longer. But otherwise, it's about 
the same as any technique that writes a 
sector at a time. Is that correct? 
Vernon: Yes. It depends on what you're 
trying to read or write. If you're trying 
to read or write a file that fits in RAM, 
it's not going to take much time. Espe- 
cially reading it, because it only reads 
and writes full sectors; it doesn't read or 
write partial sectors. 

In other words, the way DOSes 
work, you can only read in a sector. 
What DOS does, in a one-byte read, is 
to read an entire sector the first time it 
accesses that sector. The accumulator 
will contain the sector's first byte. Then, 



if you call the one-byte read again, it 
doesn't read the sector again, it posi- 
tions the buffer pointer one byte up. 
Once that sector is finished being read 
in, DOS will read another sector. 

Paul: That's done automatically with the 
same ROM call. When you do the call, 
you don't have to know if the buffer 
pointer is in the middle of a sector or the 
end of a sector. You do it the same way? 
Vernon: You do it the same way. The 
DOS handles it. Every time you read a 
byte, although the accumulator con- 
tains that byte, it also contains a zero- 
flag condition. If the zero flag is not set 
by a read, you jump to a little routine I 
call End of File. If the accumulator con- 
tains a 1C hex, it's read in everything 
and you are at the end of file; otherwise, 
you have an error. 

What you do is call the one-byte read. 
You jump-relative if the byte read is 
nonzero to your get -error routine. Oth- 
erwise, you move the byte in the accu- 
mulator to wherever in memory you're 
reading. For example, I point the HL 
register at the memory I want to read. 
Then I load the target of the HL register 
(the location where the HL is pointing) 
from the accumulator, increment the 
HL, and jump right back to the one- 
byte read routine. When I end up with 
an error, I compare with 1C hex. If you 
have a lC hex, you have read in what 
you want to read in. Otherwise you can 
set bit 6 and jump to 4409 hex. That's a 
DOS error-handling routine. The only 
reason you set bit 6 is so you won't see 
DOS ERROR - error number. 
Paul: Do you get the DOS error mes- 
sage at all then? 

Vernon: If you jump to 4409 you will. 
Paul: With bit 6 set you get an error 
message but not the error number? 
Vernon: Right. If you don't have bit 6 
set, you'll get DOS ERROR -24. Most 
DOSes, when you're in the DOS ready 
mode and you input an illegal or bad 
file name before it jumps to 4409, will 
set bit 6. To set bit 6 I do an OR 40H. 
It's a little faster. 

I've written a routine that will both 
read and write a user program, text, or 
whatever. 

At line 14000 you have a label called 
Start: Define label FBUFplus20H. It's 
the first byte to write. Model III 
TRSDOS has a 50-decimal-byte DCB. In 



R Practical and Educational Gift 
The APl*PLUS 80 System. 




All you get when you buy some software systems is 
a thin manual and a handshake for good luck. 
STSC's APL* PLUS/80 System is different. We give 
you a set of documentation that's so complete you 
won't need to read another thing to develop and 
run solutions on your TRS-80 H Model III. 

We know that our APL* PLUS 80 System can improve 
your productivity- if you know how to use its power. We start 
you off with a beginner's operation guide, if you're new to APL 
and to the TRS-80, and a beginner's tutorial, if you're familiar 
with the TRS-80 but not with the language. Then we include 
the most widely used APL textbook, so that once you get a 
taste for APL, you can study it in detail. 

Challenge to BASIC 

Build a data file with 15 records of 21 random numbers between 1 and 
100 chosen without duplicates ( in a record ) and arranged in tables 
with '.\ rows and 7 columns. Write a subroutine that reads a specified 
record and prints the table with row and column totals in fields (> 
columns wide. Here is an APL solution: 

V HANVOMTABLES-.I 



[1J 'RTABLES' [VCFEATE 10 7*1 






[2] t:(3 loilTlOOKVAPPFlHD 10 
7 
9 SHOVTABLB S;H 


■»(!$ 


>>!•! 


oL 








[i] '/6' tw: V.[1W[1)WV,< 
RAKDOMTABLES SHOUTABLB 


flMVHUD 10 


V 


12 






89 1 IS 30 flu 


SO 


-."- 


399 


52 8 93 13 99 


no 


77 


38? 


» S9 29 96 3 


u» 


68 


323 


155 78 167 139 186 


130 


?»S 


11 On 



Here's your complete documentation package: 

• Introduction to the APL*PLUS 80 System.' 

• Product Overview: APL* PLUS Systems. 

• APL* PLUS 80 Computer Operation User's Guide. 
■ APL is Easy! 

• APL: An Interactive Approach, Leonard Oilman and Allen J. 
Rose (Wiley, 1974). 

• APL* PLUS HO Formatting Users Guide. 

• APL* PLUS 80 Shared Files User's Guide. 

• APL* PLUS 80 Programmer's Reference Manual. 

• Two APL* PLUS 80 Reference Cards. 

We don't want to scare you away with our extensive docu- 
mentation. You don't need to read all the manuals to write 



useful applications in APL, because APL is easy. APL is also 
fun and we're sure that when you know a little APL. you'll 
want to know a whole lot more-and that's why we're giving 
you the most complete set of documentation on the market. 

If you'd like to use APL on your TRS-80 Model III to develop 
and deliver solutions faster and better for yourself or for your 
clients, send for the APL*PLUS 80 Application Development 
System. Mail in the coupon with your payment and we'll send 
you everything you need to run APL on your TRS-80 right 
away. If you'd like more details, check the box on the coupon 
and we'll send you our free information package which in- 
cludes a detailed explanation of the Challenge to BASIC. 

We're STSC, Inc.. the leading supplier of APL software and 
services in the United States. Our APL* PLUS systems have 
been serving the business and professional world for more 
than 12 years. 

APL* PLUS 80 runs under TRSEK «» 1.3 or LLX )S* 5.1 on a 48K 
RAM TRS-80 Model III with two disk drives. The APL* PLUS 80 System 
comes with a custom APl.-character ROM and a self-adhesive key- 
board label set to convert your TRS-80 to the APL character set. 



Attn: APL* PLUS/80 Distribution 
STSC, Inc., 2115 East Jefferson Street 
Rockville, Maryland 20852 



• 266 



(301) 984-5000 (orders only) 



Yes, send me the APL* PLUS/80 System, postpaid. 

D My check for $295 is enclosed. *Add sales tax where applicable. 

□ Charge my MasterCard Account * 

Bank* 

□ Charge my VISA Account * 
Expiration date: 



•State sales tax applicable in MD (5%). FL (4%), and CT {1Vi%). 
I'd like to know more about the APL* PLUS/80 System. 

D Send me your free information package. 

Name 

Address 



City 
Phone C 



State 



Zip 



APL* PLUS is a service mark and trademark of STSC, Inc.. registered in the United States Patent and Trademark ( Hfice. 
TRS-80 and TRSIX )S are registered trademarks of Tandy Corporation. I IX )S is a registered trademark of Logical Systems Corporation. 
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that case you define that FBUF plus 32H. 
Paul: So, if you're not pressed to save a 
few bytes and you're not sure what 
DOS is going to be used, you can allow 
for a 50-byte DCB buffer and preserve 
all-around compatibility, right? 
Vernon: Right. At line 17000, we define 
the label Mode. Mode will tell you 
whether you want to read or write. 
When you enter this program, you 
jump to or call the label Disk. Before 
you do that, Mode must contain the 
proper value to specify a read or write. 
A few other locations must be correctly 
loaded as well. Start and Finish (lines 
14000 and 15000) must be loaded for a 
write, and Where (line 16000) must be 
loaded for a read. The name of the file 
to read or write must be set up in memo- 
ry. I'll get to all that as we follow the 
program flow. 

Line 18000 defines your I/O buffer. I 
arbitrarily used 5300H as one page 
above the file DCB buffer (the label 
FBUF, line 13000). 

At line 19000, 1 set the origin up. You 
have plenty of room here. The label 1 
have is Disk. Load DE with FBUF. 
That points DE at the DCB. Then we 
call FILK. That checks for a valid file 
name. 

Paul: Does the user have the file name 
in a buffer when this routine starts? 
Vernon: The file name can be anywhere 
in memory when he enters the routine. 
The HL had to be pointing at the file 
name's first character. The file name 
has to be terminated by 03 or 0DH. If 
HL contains 6000H, the name should 
be there (at 6000H) terminated by 03 or 
0DH. 

Paul: And that's what's getting checked 
when you call FILK? 
Vernon: Right. In other words, if HL is 
pointing to 1234567, that's an invalid 
file name. There would be a nonzero 
condition on return from FILK. 

The next instruction is jump-relative 
on nonzero to BADNAM. The com- 
ment there is "nonzero if bad name." 

The next instruction is load HL with 
the I/O buffer. That's where to read or 
write sectors from or to. I set that to 
5300H. 

Line 24000 is load B with zero. That 
sets a logical record length (LRL) of 256. 
Paul: What do you use for logical rec- 
ord lengths other than 256? 
Vernon: Whatever you want to use. 
Load B with 24 and you'll have a logical 
record length of 24. 
Paul: And loading B with one would 
454 • 60 Micro, December 1982 



give you a logical record length of one? 
Vernon: Yes. 

Paul: And 255 would be 255? 
Vernon: Right. There's a gotcha on 
LRLs other than 256, though. 
Paul: What's that? 
Vernon: You need two buffers. 
Paul: Maybe for simplicity, you should 
keep it as 256 then. 

Vernon: Okay. Load A with the con- 
tents of Mode to determine if you're go- 
ing to read or write. If it's a zero, you 
want to write. If it's a nonzero, you 
want to read. The way you check that is 
with the next instruction at 26000 and 
27000: Or A. Jump-relative to RDISK if 
A is nonzero. 
If you get to line 28000, you know 



you're going to write a file, so we call 
I NIT. That will initialize a (new) file, or 
overwrite an existing one (with the same 
file name). This is what the HL is origi- 
nally pointing to — this text (file name). 
You can have whatever valid file name 
you want. You can have file name, 
slash, extension, decimal point, pass- 
word, colon, and drive number if you 
wish. And if you don't have a drive 
number, it's going to search for the 
nonwrite-protected disks, starting at 
drive zero. 

The next instruction (at line 30000) is 
"jump-relative to UERR if nonzero." 
That occurs if there is an error. 

The next instruction is load HL with 
the contents of Start. That's the first 
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byte you want to write to. Start contains 
the address of the first byte to which 
you want to write. 

The instruction at 32000 loads the BC 
register with the contents of Finish. 
That's the last byte you want to write. 

Now you have a label. This label is 
More, and it's "load A with the con- 
tents of HL." The comment there is 
"Get the byte." 

The next instruction is call ROMWT 
(ROM Write). That puts it in the buffer. 

The next instruction (line 37000) is 
"jump-relative to UHRR if nonzero." 
If something went wrong, you go to the 
error-handling routine. 

Next you push HL to save the posi- 
tion to which you just wrote. Then at 
line 39000, subtract -with-carry the HL 
from BC. 

Paul: To see how much you have left? 
Vernon: Right — well if it's zero or not. 
Then you POP the HL to restore the 
pointer. Then increment the HL to posi- 
tion it at the next byte. Now remember, 
this increment HL does not affect the 
Hags at all. If I'd increment H or incre- 
ment L it would affect the flags. But in- 



crementing a full 16-bit register does not. 

At line 44000, jump-relative if non- 
zero to More. The zero flag is still in the 
state it was left by the subtract-with- 
carry in line 39000. So you'll go through 
this routine until the HL reaches the 
BC, or in other words, until I have writ- 
ten the last byte to write. And after that 
you jump to close. 

Paul: Let's see if I understand this. The 
user doesn't even have to break the data 
up into 256-byte chunks. It automati- 
cally gets transferred to the output buf- 
fer 256 bytes at a time? 
Vernon: I think it gets transferred to the 
I/O buffer one byte at a time. 
Paul: It gets flushed to disk and then the 
pointer gets reinitialized to the begin- 
ning of the I/O buffer? 
Vernon: Right. 

Paul: The user doesn't have to worry 
about any of that. 
Vernon: Not at all. 

Next (line 46000) you have the label 
BADNAM (Bad Name). Load A with 
13H. The comment there is "13H indi- 
cates an improper or illegal file name." 

The next label is UERR. The instruc- 



tion is OR 40H. That's so you won't 
have this DOS LRROR = xxx message. 
Paul: That's the bit 6 thing. 
Vernon: It's the same as setting bit 6. 
right. The next instruction is Jump to Er- 
ror, which will assemble as Jump 4409 H . 

Now, if you want to incorporate the 
routine into your own program instead 
of ORing with 40H, you OR with C0H. 
Then, whatever you've written can 
make a call to this routine. When it 
jumps to Error, it will display the error 
message and return. But if you OR with 
only 40 H (you don't have bit 7 set), it 
will jump to 402D and you'll be back at 
DOS Ready. That is internal in DOS's 
error-handling overlay. 
Paul: ORing C0H sets bit 7? 
Vernon: Yes, and bit 6. If you want to 
see DOS ERROR = xw and still return 
to the calling routine, you can OR S0H. 
That's the end of the error-handling 
routine. 

Now you go back to the label RDISK 
at line 50000. This time you're going to 
read from disk. Now before you £0[ 
here from above, you've already called 
FILK, which has positioned the file 
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Ebert Personal Rudputerb inir. 

* 99.95 



(until february28,1983) 
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REGULARLY $149.95 



THEY SAID IT COULDNT BE DONE ON A TRS-80 . BUT WE DID IT! 

Flnally-A fast, friendly, flaxlbla, raaponalva approach to ramota computar communications. Jam packed with 
faaturaa navar before seen on other Bulletin Board Systems costing 2-3 times our special Introductory price ot 
only $99.95. Some of the more exciting features Include: 



1. Word wrapping so that various screen sizes gel a smooth and properly 
formatted display no matter what screen size was used during text entry 
You- callers will love you tor it 1 

2. Complex or Simple Structures Up lo 20 levels ol Menu Nesting and UN 
LIMITED numbers ot menus may be utilized 'or those ol you sinister 
enough to force your users to traverse (he ' Twisty Passageways 

3. Electronic Mail Service plus up to 25 separate message boards. These 
boards can be configured lor either Private or Combined access or both. 
You can even authorize individual SYSOPS for each ol the message 
boards!' Each user may be given read only, read/write or no access lo 
each board 1 

4. Storage capacity and efficiency. TBBS utilizes V3 the disk space 
of competing systems' Maximum message capacity is 2500 messages' 
The userlog stores system configuration, access and privilege levels 
password and other important system intormalion for up to 65.535 sepa- 
rate users 

5. An system maintenance is easily accomplished with the provided utility 
programs Such tasks as removal of deleted messages, restoration of de 
leted messages. Userlog maintenance, menu creation/ed'ting. Configura- 
tion of system options, and system backup are easier than ever before' 

6. System security is enhanced by the optional use of a logon password 
check. 255 privilege levels, and 16 feature/command authorization flags 
These features provide an unprecedented flexibility in presenting TBBS to 
various users 
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SUPPORT 



7. Fully protected remote use o' DOS and Basic for games O' remote 
SYSOP (unctions is available it desired This may be restricted or public 
as desired 

S. Menus are composed using a Menu Editor allowing total tlexib'i-ly '" 
system appearance. TBBS may be made to look like a system you ve see- 
belore or like something totally new and unique 

9. Question and answer capability allows product ordering, vote taking. 
user surveys etc. 

10. Fast. Responsive, and fully protected!! 1200 baud on TBBS averages 
40% -120% faster throughput than competitive boards. TBBS responds 
instantly when a caller commands! Most other systems respond at the 
end of a line or series Of lines or al certain times not at all TBBS is ready 
tor a new caller in an average ot 5 seconds" Worst case with 2500 
messages on file is less than 45 seconds on a floppy based system TBBS 
also cleans up correctly after accidental loss of earner No hung systems' 
No lost messages' No forgotten deletes' Even when using remote DOS' 

11. To see what we are talking about call TBBS headquarters at 
(303)690-4566 TBBS has to be used to believe" 

12. System requires Model I and III (or equivalent). Auto-Answe' Modem. 
RS 232. and NEWDOS/80 V 2 Program will work on either model auto 
matically (NOTE 1200 baud requires a specially modified cable I 
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name from the target of the HL to the 
DCB pointed at by the DE. You've al- 
ready set the logical record length to 256 
by loading B with zero. Then you 
checked the mode. The mode was non- 
zero, so you jumped down to this label 
RDISK. What you do there is to call 
Open. 

If you're going to read a file, it has to 
already exist. So unlike INIT, Open 
won't create a new file for you. But it 
will find an old one with the given file 
name. The next instruction is "jump if 
nonzero to UERR." That means there's 
an error. Either the file doesn't exist, or 
something went wrong. The next in- 
struction is Load HL with the contents 
of Where. That gives the place to store 
the data that is read in. 

The next label, at line 53000, is 
GDISK. The instruction is Call 
ROMRD. That gets a byte. The first 
time the program encounters this in- 
struction, it will do two things: It will 
read in a sector to the I/O buffer, and it 
will put into the accumulator the first 
byte of the data read into the buffer. On 
subsequent calls, it will put into the ac- 
cumulator the next byte on queue in the 
buffer. 

The next instruction is "jump-rela- 
tive if nonzero to EOF." Nonzero can 
mean two things. It either means you 
read in everything, or you had an error. 
If you don't encounter a nonzero condi- 
tion, you fall through to line 55000 
where you load the memory location 
pointed to by HL with A. That puts the 
byte into your designated read-in area. 
Then you increment HL and jump-rela- 
tive back to GDISK. It keeps going 
through this loop until an error occurs 
or the EOF is reached. 

At line 59000, you have the label 



EOF: Compare 1CH. The comment is 
"IF 1CH Then Natural End of File." 
Then return if zero — go home if okay. 
Otherwise, jump-relative to UERR, the 
error-handling routine. That's it. 

Now let's talk about the program a 
bit. There are four labels that are very 
important to this program. I've estab- 
lished them at particular points, but 
they don't have to be there. They are 
Start, Finish, Where, and Mode. They 
are consecutive labels. 

The user, if he wants to write some- 
thing, has to know where he wants to 
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start writing it from, and where he wants 
to finish writing it from. He must put a 
value in Start, which is a 16-bit word. 
For example, Start can contain 0000 
and Finish can contain 2FFFH. Then 
we would write the ROM out to a disk 
file, provided Mode contains a zero. 
If, on the other hand, you want to 
read a disk file into RAM, you have to 
establish the Where address of where 
you want to start reading it into. This 
routine doesn't check for TOPMEM 
(HIGHS) or anything like that. You can 
do that another way. But, if you want to 
start reading something into 6000H, 
you'd put 6000H into the contents of 
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Where, and you'd put a nonzero into 
the contents of Mode. 

When you call this routine, as I've 
said, HL should point to the file name. 
What you can do is to put another label 
in here called FILNM (file name). The 
first instruction is to load DE with the 
file buffer: 

20000 ID DL.FBL'F 

You can then load HL with file name 

20500 LD HL. FILNM 

That's the only maintenance required. 
Paul: When I want to read in a file, do I 
have to specify the correct logical record 
length (LRL)? 

Vernon: It depends on the DOS. In this 
particular instance, B is loaded with 
zero before determining whether it's a 
read or write, so the LRL is fixed at 256. 
Paul: And if the file had been created 
with a different LRL, like a word-pro- 
cessing file with an LRL of one, what 
would happen? 

Vernon: It would open up the file with 
an LRL of 256 with any DOS except 
MULTIDOS. (Vernon laughs here.) 
Paul: MULTIDOS would open the file 
with a length of one? 
Vernon: Yes. 

Paul: And with other DOSes, what 
would be the result of trying to read the 
file after opening it with a wrong LRL? 
Vernon: All the other DOSes, I think, 
regardless of what the directory entry 
says the LRL of a file is, will open up 
the file with the LRL indicated by the B 
register. 

Paul: What would the result of that be? 
Would you get an error and jump to 
the... 

Vernon: No! You would just read it in 
as 256 bytes. 

Paul: So essentially, once it's loaded in- 
to memory, it's all the same anyway — it 
doesn't matter. 

Vernon: Right. If you followed this 
routine with NEWDOS80 and opened a 
file that had an LRL of one, it would 
read it in as LRL 256. The pattern on 
the disk isn't affected by the LRL. 
Paul: So everything would come out 
okay with any DOS? 
Vernon: Right. This subroutine is very 
short, not even one page. 
Paul: What is it, about 200 bytes? 
Vernon: Let's see. If you assemble it at 
5200H, it will go to 5284, inclusive— 
132 bytes. ■ 
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For serious business microcomputing, 

only one operating system 

exactly fits. 



Whether you're in business and do 
microcomputing, or in computing 
and sell to business, you'll like OASIS* 
Not a hobby or scientific system warmed- 
over for business use, 
OASIS is the only operating 
system designed from the 
ground up for business. 

SERIOUS BUSINESS 



available, type HELP' and the command 
function title — OASIS displays the syntax 
and options available. 
Of course it's all in your language — 
not computerese. (OASIS 
exact business fit #5. 
user-friendliness.) 




COMES IN ALL SIZES. 

Whatever your business 
need, OASIS has the 
operating system to match: 
8-bit or 16-, single-user or 
the multi-user system that 
professionals tell us makes 
micros run like minis. And 
that's even truer now with 
new OASIS-16." (OASIS 
exact business fit #7: 
choice.) 



st. most 

umentation 

packed 

;e 
vel train- . 
elephone: 
& sei 
ROL 

m 

ancial 
age; OASIS 
. (OASIS exact 
business fits #6 through #12.) 



n anW 



BUSINESS 



:ation 

leres 

nearly any job. 

it's top quality, too, because our 
inte^ted tools are top quality — and 
there are more of them. Like a high-level 
BASIC Interpreter'Compiler'Editop 
Debugger; ISAM/ Keyed/Direct/ 
Sequential Files; a smart Print Spooler; 
Automatic Record Locking (OASIS 
exclusives!); plus COBOL & C 
Languages. These tools are mandatory 
for high-quality business application 
program development— ask any 
developer. (OASIS exact business fit #2: 
high-quality application software.) 



i/are: OASIS system software com- 
pensates for differences. (OASIS exact 
business fit #3: portability) 

ACCURATE DATA & A SECURE 



SYSTEM REDUCE BUSINESS RISKS. 



Now you know why there's 
no reason to struggle trying 
to put a square peg in a 
round hole. For serious 
business microcomputing, 
there is one operating system that 
exactly fits: OASIS. Call or write us 
today for details. 

* For Z80 
* * Available for 8086/8088. Available soon 
for 68.000. 16.000 and others 



PORTABILITY PROTECTS BUSINESS 



SOFTWARE INVESTMENTS. 



OASIS is custom-fitted to manufac- 
turers' hardware so application soft- 
ware developed to run on one OASIS 
equipped machine can also run on 
others — and is upwardly compatible 
from 8-bit OASIS Single-User to Multi- 
User, on up to OASIS-16. This kind of 
application software portability is 
exclusive with OASIS. 

Device independence allows various 
printers and terminals to be used — 
with no modification to application 



Data integrity — a challenge for any 
multi-user system — is insured by 
OASIS File & Automatic Record Locking. 
With it, normally all users can view a 
record at the same time. BUT, if the record 
is being updated by one user, other users 
are automatically denied access until 
the update is complete. That means 
data is always accurate and up-to-date. 
It's still another _OAS|S_excl usi ve. 

For system security, there's OASIS 
Logon, Password & Privilege Level. 
User Accounting keeps track of who used 
the system, when. (OASIS exact business 
fit #4: data integrity /system security.) 

A F RIENDLY SYSTEM IS 

GOOD BUSINESS. 



For user-friendliness. OASIS sets new 
standards. Example: the EXEC Job 
Control Language is so smart it walks 
users through their applications — 
and around the operating system. 

With our 'HELP' feature, if you are 
unsure of the functions and options 





■ STRICTLY BUSINESS^ 

PHASE ONE SYSTEMS, INC. 

7700 Edgewater Drive. Suite 830 

Oakland. CA 94621-3051 

Telephone 415-562-8085 TWX 910-366-7139 

I'm serious about my business— 

please send me : 

D OASIS-16 Manual. $75 

U OASIS Manual, $60 

n Free Application Software Directory 

and put me on your mailing list 

(Add $3 lor shipping California residents add sales ta» ) 



Name 

St. (No Box*). 
City 



□ Check enclosed 

□ UPS CO D 

Card No 

Signature 



Zip- 



State 

□ VISA D Mastercharge 

□ American Express 

Exp. date 



'$•• List of Advertisers on Page 451 



80 Micro, December 1982 • 457 



COPERNICA MATHEMATICA 



by Bruce Douglass 



In an analysis of variance (ANOVA), 
you have two or more groups of data. 
The hypothesis you're testing boils 
down to the question, "Are any groups 
different from the others?" The hy- 
pothesis that all groups are the same is 
called the "null hypothesis." The hy- 
pothesis that at least one pair of groups 
differ from each other is called the "al- 
ternative hypothesis." But what do we 
mean by different? 

In the ANOVA test, you compare the 
means of the groups. However, just be- 
cause the means of the groups are not 
the same does not indicate that the 
groups are actually different. If you 
sampled height in New York and in 
Oregon, and the mean heights were 5' 
9" and 5' 10", are the heights in the two 
states actually different or was the sam- 
ple of people chosen so small that the 
difference can be explained by the 
chance occurrence of just talking to tall 
people in Oregon (the only ones with 
their heads above water), and just talk- 
ing to short people in New York (the 
ones below the smog)? 

So you see the problem of inferential 
statistics. You must infer a conclusion 
about the means of the total population 
of New York and Oregon on the basis 
of a small sample of people in each 
state. A small sample can be biased for 
a number of reasons, including random 
chance. In fact, it would be very surpris- 
ing if you got exactly equal numbers for 
the mean height even if the means were 
actually identical! 

The job of inferential statistics is 
to tell us whether the groups are dif- 
ferent, and also to give us a measure 
of the probability that our assessment 
is wrong. 

ANOVA does this by making two in- 
dependent measures of variability. The 
first is the average variability within 
each group, which we will call "within" 
variability. The second is the variability 
among the means of each group — the 
"between" variability. If the groups are 
the same (which implies that they origi- 
nate from the same population) then 
these two measures of variability ought 
to be the same. If they are not the same, 
then "between" ought to be bigger than 
"within." 

That is the essence of ANOVA and 
the F-ratio test used to determine how 
different the means are. The F-ratio test 
uses a measure of variability called 
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More 

about 

regression 



"sum of squares" for both "within" 
and "between." This sum of squares is 
then normalized by dividing by the de- 
grees of freedom for each, leaving the 
"mean square." The F ratio is the mean 
squares for "between" divided by the 
mean squares for "within." The task of 
determining whether the groups are dif- 
ferent then reduces to the problem of 
testing to see if the F ratio is different 
than 1. 



"Degrees of freedom is 

the number of items 

free to vary minus 

the restrictions 

placed on the data. " 



Degrees of freedom is the number of 
items free to vary minus the restrictions 
placed on the data. The more subjects 
you have, the greater the degrees of 
freedom. You might find it easier to 
think intuitively — the more subjects you 
have, the less the probability that your 
sample is biased by random chance, so 
the more reliable your conclusions 
drawn from your analysis will be. There 
are tables of F versus degrees of free- 
dom "within" versus degrees of free- 



dom "between." In our program, we 
will use a rational polynomial approxi- 
mation to the distribution of the F ratio 
(see my February 1982 column for a de- 
scription of approximation theory). The 
table and the approximation give you 
the probability that the F value you ob- 
served from the sample means was due 
to random chance variation and not to 
any real difference among the groups. 

F Ratio 

What about the job of computing 
this F ratio? Geoffrey Keppel has writ- 
ten an excellent notation for ANOVA 
computational formulae in his book 
Design and Analysis published by Pren- 
tice-Hall. Let's consider the notation 
and kind of data applicable for a while. 

By "score," I mean that you make a 
measurement on a number of subjects. 
For example, you might want to relate 
score on an IQ test to drinking coffee. 
In this case, you might have three 
groups of subjects: Group A would 
drink no coffee, group B would drink 
one cup one hour before taking the test, 
and group C would drink five cups 
within 30 minutes before the test. The 
results of the experiment — the F test de- 
noting difference among the groups- 
would indicate whether coffee affects 
scores on IQ tests. 

Note, by the way, the implicit as- 
sumptions of the test. You are assuming 
the groups' IQs are the same at the start 
of the experiment — you could ensure 
this by randomly assigning people to the 
groups. If the number of subjects is 
great enough, the probability of ran- 
dom bias to one or more groups de- 
creases. That is, with enough subjects, 
the number of high, medium, and low- 
IQ people should be about the same. 

You are also assuming that the only 
difference among the groups is the 
amount of coffee drunk. Any other dif- 
ference (like if some of the people did 
not have time to eat breakfast) would 
muddy your conclusions. 

Let's let "a" be the number of 
groups and "s" be the number of sub- 
jects. We will assume that all the groups 
have the same number of subjects. The 
total number of subjects in the experi- 
ment is a*s. We will use AS to denote a 
single score, and A to denote a group 
sum. To make the formulae less intimi- 
dating, we will make the following 
definitions: 



SUPER PRICES 



COMPUTEIS 

Complete MODEL III COMPUTER 

Model III with 48K memory. 2 disk 

drives. 370K storage, and ready to run with 

TRSOOS 13 and manual. 120 day Simutek warranty parts and 

labor. Compatible with all Radio Shack software 

Model III with 48K. 2 double sided 40 track disk drives with 750K 
storage Comes with MULTIOOS and manual. 120 day Simutek war- 
ranty parts and labor. Compatible with Radio Shack software Com- 
plete and ready lo run 

MODEL III INTERNAL DISK DRIVE KITS 

II you can use a phillips screwdriver, you can easily install 
Simutek s Model III disk drives and controller in less than an hour 
Absolutely NO SOLDERING. TRACE CUTTING OR TECHNICAL 
KNOWLEDGE REQUIRED! The J & M controller is the best on the 
market today. We've tried others and found J & Ms the linest and 
easiest to install. We warranty the J & M controller lor 120 days 
against delects in workmanship. 

ONE 40 TRACK TANDON DISK DRIVE WITH 185K STORAGE, and J 
& M controller. Radio Shack DOS, manual. No soldering or trace 

cutting required. Ready to install with instructions 

TWO 40 TRACK TANOON DISK DRIVES 370K STORAGE, with J & M 
controller Radio Shack DOS. manual. No soldering or trace cutting. 

Ready to install and run. Instructions 

TWO DOUBLE SIDED 40 TRACK DISK DRIVES with 750K storage 
and J & M controller MULTIDOS and manual and Model III DOS. No 
soldering or trace cutting. Ready lo install and run. Full instruc- 
tions 

MODEL III HARD DISK DRIVES 

FIVE MEGABYTE hard disk with LOOS disk operating system, all 

cables, connectors, ready to plug in 

TEN MEGABYTE Hard disk with LOOS, all cables, connectors ready 
to plug in 

PRINTERS 

DAISY WHEEL PRINTERS: 

NEW SMITH CORONA DAISY WHEEL 12 CPS 

NEW BROTHER DAISY WHEEL 16 CPS 

TRACTOR FEED FOR BROTHER 

C-ITOH STARWRITER II F 10. 40 CPS 

C-ITOH STARWRITER III F-10 55CPS 

TRACTOR FEED FOR STARWRITERS 

HIGH QUALITY DOT MATRIX: 

C-ITOH PROWRITER I 8510A 2K BUFF. . PRL. ONLY 

C-ITOH PROWRITER I 8510ACD 2K BUFF SER/PRL 

C-ITOH PROWRITER II 1550 15 INCH 3K BUFFER 

EPSON MX-80WITH GRAFTRAX 

EPSON MX-80/FT WITH GRAFTRAX 

EPSON MX-100 

OKIDATA MICROLINE 80. (80 CPS) 

OKIDATA MICROLINE 82A (125 CPS) W/TRACTOR 

OKIDATA MICROLINE 83A (125 CPS) W/TRACTOR 

OKIDATA MICROLINE 84 (200 CPS) W/TRACTOR 

PRINTER CABLE FOR MOD I EXPANSION INTERFACE OR MODEL 
III (SPECIFY) 

PROWRITER RIBBONS 

EPSON MX-80OR FT RIBBONS 

OKIDATA RIBBONS. (80. 82A. 83A) 




FREE SHIPPING 



CALL TOLL FREE to order: 



1-800-528-1149 — 

WE ACCEPT AMERICAN EXPRESS. VISA and MASTERCARD 

SURCHARGE FOR CREDIT CARD ORDERS! 

SORRY. PERSONAL CHECKS REQUIRE 4-5 WEEKS TO CLEAR 



DISK RRIVES 

MODEL I DISK ORIVES 

ONE TEC DISK DRIVE 40 TRACK DISK DRIVE with 5ms track to 
track access time, with power supply chassis, extender cable and 
shipping for TRS-80 One year warranty on parts and labor. Ten day 
money back guarantee. 
$1899.99 Model I or III $279.00 

ONE TEAC 40 TRACK DISK DRIVE. 30 ms track to track, with P/S 
and chassis, ready to run as drive 0-4. 10 day money guarantee. 

One year warranty $279.00 

$2195.99 0NE tanOON 40 TRACK DISK DRIVE, 5 ms track to track, with P/S 

and chassis, ready to run as drive 0-4 or Model III external 10 day 

money back warranty $279.00 

ONE 2 DRIVE cable for Model I or III (Specify) $25.00 

ONE 4 DRIVE cable lor Model I only $35.00 

ACCESSORIES/ 
SOFTWARMTC. 

$589.99 

16K MEMORY UPGRADE FOR MOD I, III OR COLOR 4K. 

UNCONDITIONALLY GUARANTEED FOR 2 YEARS $15.95 

$849.99 DISK OPERATING SYSTEMS 

NEWDOSB0VER.2 $139.95 

LDOS $129.95 

DOSPLUS $139.99 

MULTIDOS. BEST BUY! SPECIFY DOUBLE OR SINGLE DENS $79.95 

DOUBLE DENSITY MOD I 
$1799.99 PERCOM OOUBLER II (NEW LOW PRICE!) $139.99 

DISKETTE STORAGE 
S1999.99 SMOKED PLASTIC HOLDS 50 OISKETTES $21.95 

HARD BOX HOLD TEN $3.99 

■MP* MODEMS 

LYNX MODEM FOR MODI 

OR III $239.95 

$699.99 OMNITERM SMART TERMINAL 
$1199.95 ■ PROGRAM $99.99 

$250.00 H— — HlB. SUPER B00KS FR0M IJG 

$1649 99 ■ ffi . ' i M B HHB — 1 MICROSOFT BASIC DECODED 

$1999 ' 9g gg»™» y AND OTHER MYSTERIES $29.95 

' " B5SB ^ i ^ TRS-80 DISK AND OTHER 

SZ50.UO MYSTERIES $22.50 

BASIC FASTER ANO BETTER AND OTHER MYSTERIES $29.95 

BASIC FASTER AND BETTER PROGRAMS ON DISKETTE $19.95 

CUSTOM TRS-80 ANO OTHER MYSTERIES $29.95 

$479 99 MONITORS 

OLD MOO I SCREEN STARTING TO GIVE YOU HEADACHES? TRY 
$549.99 QNE 0F THESE H|GH RESOLUT |on MONITORS AT SUPER LOW 

$799.99 PRICES ... 

$369.99 ZENITH GREEN SCREEN 12' $139.95 

$499.99 BMC 12 INCH GREEN SCREEN $109.95 

$749.99 BMC 13 INCH COLOR $299.99 

$1199.95 AMDEK 12 BLACK AND WHITE $97.50 

OCI AMBER SCREEN MONITOR 12 $189.95 

$29 95 CABLE TO CONNECT MONITORS TO MODEL I COMPUTER $14.95 

$12.99 
(I If CO. OS $5 00 EXTRA NO CO OS FOR MODEL III COMPUTERS OR PAR 

.... CELS THAT CANNOT BE SHIPPED UNITED PARCEL SERVICE. ALL CODS 

REQUIRE CASH OR CERTIFIED CHECK AT TIME OF COLLECTION. 

SIMUTEK 

'M Computer Products Inc. 

TRS-80 TM ol Radio Shack a Tandy corp. 41*7 E. SPEEDWAY IIVD. . TUCSON. AZ 15712. I60Z) 323-I3S1 




COPERNICA MATHEMATICA 



****** ANALYSIS OF VARIANCE PROGRAM ******' 
WRITTEN BY" 
BRUCE POWEL DOUGLASS" 
1005 WEST MAIN" 
VERMILLION, SD 57069" 



80 
90 



130 
140 
150 



230 
240 
250 



10 DEFINT I-N 
20 CLS: PRINT" 
30 PRINT" 
40 PRINT" 
50 PRINT" 
60 PRINT" 
70 PRINT 

INPUT"ENTER THE NUMBER OF GROUPS" ; NG 
INPUT"ENTER THE NUMBER OF SCORES PER GROUP" ;NS 
100 DIM X(NG,NS) 
110 REM ****** DATA INPUT 
120 FOR 1=1 TO NG 

PRINT "GROUP #";I 

FOR J=l TO NS:PRINT"ENTER SCORE #";J;" : "; 

INPUT X(I,J) 
160 NEXT J, I 

170 REM ****** run ANALYSIS 
180 DIM SM(NG) ,SQ(NG) 
190 FOR 1=1 TO NG 
200 FOR J=l TO NS 
210 SM(I)=SM(I)+X(I,J) 
220 SQ(I)=SQ(I)+X{I, J) 12 
T=T+X(I,J) 

NEXT J 

AS=AS+SQ ( I ) : A=A+SM ( I ) I 2 

25 5 NEXT I:A=A/NS 

26 TL=T[2/NG/NS 

270 SB=A-TL:SW=AS-A:ST=AS-TL 

280 DB=NG-1:DW=NG*(NS-1) :DT=NG*NS-1 

290 MB=SB/DB:MW=SW/DW 

300 F=MB/MW 

1000 ZF=F:Dl=DB:D2=DW:GOSUB 1040:Pl=P 

1010 REM ** F RATIO PRINT FORMAT ** 

1020 CLS:PRINT" SOURCE"," SS"," DF","F RATIO" 

1030 F0RI«1T0127:SET(I,4) :NEXTI : PRINT: PRINT 

1031 PRINT"BETWEEN" ,SB,DB,F 

1032 PRINT"WITHIN" ,SW,DW 

1033 PRINT"TOTAL",ST,DT 

1034 PRINT 

1035 PRINT"P(F)=";P 

1036 END 

1040 'P(F) COMPUTATION 

10 50 IF ZF<1 THEN P-0: RETURN 

1060 A=2/9/Dl:B=2/9/D2 

1070 P=ABS( (1-B) *ZF[ (l/3)-l+A)/SQR(B*ZF[ (2/3) +A) 

1080 IF D2<4 THEN P=P* ( 1+ . 8*P [ 4/D2 [ 3) 

1090 P=.5/(l+P*( .196 854 + P*( .115194 + P*( . 000344+P* . 019527) ) ) ) [4 

1100 P=l-INT(P*4000+.5)/4000 

1110 RETURN 

Program Listing 1. ANOVA 



{T}=T7(a*s) 

{ A} = LV/s : A is the sum of each group here 

{AS}-KAS) : 

The sum of squares for the total 
SST= {AS} - {T}; the sum of squares 
between the groups, SSB = {A}-{T}; 
and the sum of squares within is defined 
tobeSSW = {AS}-{A}. By the way, 
you can check your arithmetic by the 
relation SST = SSB + SSW. Since the 
degrees of freedom is the number of ob- 
servations minus the number of restric- 
tions imposed by computation, the 
degrees of freedom for the "between" 
sum of squares is (a-1); we estimate 
the mean of the overall experiment 
(thereby imposing one restriction) and 
we have "a" groups. The degrees of 
freedom for the "within" sum of 
squares is computed easily as well. We 
have "s" subjects in each group, and we 
use these to calculate the mean. 



Therefore, each group contributes 
(s- 1) degrees of freedom. Since there 
are "a" groups, we have a*(s- 1) for 
the "within" degrees of freedom. The 
degrees of freedom for the total sum of 
squares is a*s (the number of samples) 
minus the restrictions placed on the data 
by our computing the mean, or a*s - 1 . 

We divide the sum of squares by their 
respective degrees of freedom to get the 
mean squares: MSB = SSB/DFB, and 
MSW = SSW/DFW. The F ratio is de- 
fined to be the ratio F = MSB/MSW, 
and it has (a-1) and a*(s- 1) degrees 
of freedom. We are now ready to write 
the program. 

The ANOVA program (see Listing 1 ) 
shows the simplicity of the method 
without the extra clutter of saving the 
data to disk, or editing the data files. 
When you use it, you will be asked for 
the number of groups and the number 
of scores in each (your groups must 



have equal numbers of scores). Then 
you type in the data, one group at a 
time. The program thinks a little bit (as 
per our discussion above) and grinds 
out the data. 

Regression 

Analysis of variance is a special case 
of regression. In regression, you have 
paired or matched observations in two 
or more groups. The object is to find a 
line that best fits the relationship among 
the data points. 

For example, there is a relationship 
between height and weight. The taller 
people are, the more they weigh. But 
that is not all there is to the subject — 
what about body fat and occupation? 
The amount of variability in one vari- 
able that is explained by another is 
called the correlation between them. 
This correlation is the relationship be- 
tween the variables. If there is a one-to- 
one correspondence between the vari- 
ables, then the correlation equals one; if 
there is no relationship (that is, the vari- 
ables are totally independent), then the 
correlation equals zero; finally, if the 
relationship is corresponding and in- 
verse, then the correlation is minus one. 
(This type is called a product-moment 
correlation.) 



"The amount of variability 

in one variable that is 

explained by another 

is called the 

correlation between them. " 



Regression uses the correlation to 
find the best-fitting line showing the re- 
lationship between the variables— 
"best" in terms of least-squares best fit. 
If Y, is the actual value of data point i, 
and Y,' is the value predicted by the re- 
gression line, then the least-squares best 
fit finds the minimum value for the 
function (Yi - Y,') 2 . The square of the 
difference between the real values and 
the predicted values is then a minimum. 
This assumes that the relationship be- 
tween the variables is a straight line. The 
less true that assumption is, the worse 
the fit of the line will be to the real data. 
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The basic equation for a simple bi- 
variate regression is Y' = aX + b. The 
slope of the line is "a," and "b" is the 
intercept, or the place where the line 
crosses the Y axis on a graph. Let's let 
"r" be the correlation between X and 
Y. Then the equation for r is: 

r = Ixy/SQR( Ix'ly 2 ) 
where 



Ix 2 = IX 1 - (ZXy/N (deviation sum of squares) 
Ixy = IXY-(IXKIY)/N (sum of cross prod- 
ucts) 



N = number of points 
X = raw data point for variable X 
Y = raw data point for variable Y 
XY = product of X, and Y ( 



The value r J is called the common 
variance. It is the percentage of the total 
variability in Y that is explained by the 
presence of variable X. Note that 1 - r 2 
is the variability that X and Y do not 
have in common; it is called the residual 
variance, and stands for the variance in 
Y that is not explained by the presence 
of variable X. 

In our regression equation, the line 
parameters "a" and "b" can be defined 
by: 

b = Xxy/Ix 2 
a=Y m -bX m 

where 

Y m = the mean of Y 
X„, = the mean of X 

An inference is usually associated 
with some test to give a measure of how 
likely it is that we are wrong in drawing 
that inference. A common one used for 
regression is the F test, defined above. 
The F ratio defined for the bivariate re- 
gression is: 

F = r"N/(l-r J ) 

So far, we have only discussed the 
case in which there is a variable to be 
predicted (the dependent variable Y) 
and a single predictor variable (also 
known as the independent variable X). 
The general case is called multivariate 
regression. In this case, there are many 
predictor variables and a single predict- 



;M: INPUT-NUMBER OF SCOR 



'MATRIX FOR SUM CROSS PRODUCTS 



Program Listing 2. Regress 

10 DEFINT I-N 

15 CLS 

30 PRINT"** WRITTEN BY BRUCE P0WEL DOUGLASS 1981 **' 

180 REM ****** INPUT ROUTINE 

190 INPUT"HOW MANY INDEPENDENT VARIABLES' 

ES PER GROUP" ;N 

200 DIM X(M,N) 

210 FOR K=l TO N 

220 PRINT, "Y("K")=X ("K")" 

230 FOR J=0 TO MrPRINT "INPUT X"J" ( "K") =";: INPUT X(J,K):NEXT J,K 

240 DIM P(M) ,SX(M) ,S(M,M) ,R(M,M) ,T(2*M,M) ,E(M) ,B(M) ,SB(M) ,G(M) ,H 

(M) ,Z(M+1,M+1) ,D(M) ,C(M) 'RUNTIME! 

250 FOR K=l TO N:FOR J=0 TO M 

260 P(J)=P(J)+X(J,K) :NEXTJ 

270 FOR L=0 TO M:FOR 1=0 TO M 

280 S(I,L)=S(I,L)+X(I,K)*X(L,K) 

290 NEXT I,L,K 

300 FOR I«0 TO M:FOR J=0 TO M 

310 S(I,J)=S(I,J)-P(I)*P(J)/N 

320 NEXTJ,I 

330 REM ****** BASIC STATISTICS GENERATION 

340 FOR J = TO M:P<J)=P(J)/N:SX(J)=SQR(S(J,J)/(N-1)) 

350 ' P=MEAN,SX=ST.DEV. ,NOTE THAT Y*X(0) 

36 NEXT J 

370 REM ****** CALCULATE R (CORRELATION) MATRIX 

380 FOR J=0 TO M:FOR 1=0 TO M 

390 R(I,J)=(S(I,J))/SQR(S(I,I)*S(J,J)) 

400 NEXT I, J: IF M=l THEN GOTO 460 

410 FOR J=l TO M:FOR 1=0 TO M 

420 Z(I,J)=R(I,J) -NEXT I,J:NQ=M 

430 GOSUB1550:' INVERT THE CORRELATION MATRIX & PUT IT INTO Z() 

440 FOR J=l TO M:E(J)=Z(Ml,J) 

450 B(J)=(Z(M1,J)*SX(M1))/SX(J) :NEXTJ 

460 AR=P(0):IF M=l THEN B( 1) =S( 1 ,0) /S( 1 , 1) : AR«AR-B( 1) *P ( 1) :GOTO 

480 

470 FORI=lTOM:AR=AR-B(I)*P(I) : NEXTI ' AR-INTERCEPT 

480 REM ****** R SQUARED =SS (REG) /SS(T) 

490 FOR 1=1 TO M:RG-RG+B(I)*(S(0,I)): 'RG=SS(REG) ,S(M1,M1)=SS(T) 

500 NEXT I:RS=RG/S(0,0) :IF M=l THEN RS=R( 1 , 0) [ 2: ' MULTIPLE VARIA 

NCE 

510 RM=SQR(RS):' MR=MULTI CORRELATION 

520 IF RS>=1 THEN SY=0 ELSE SY=SX ( 0) *SQR( 1-RS) :C1=1 . 96*SY:C2=2 .6 

1*SY 

530 IF RSO0 THEN F=RS* (N-M-l) / ( (1-RS) *M) ELSE F=0:' DF(REG)=M,D 

F(RES)=N-M-1 

540 ZF=F:D1=M:D2=N-M-1:G0SUB 1780:Pl=P 

550 CLS:'****** PRINT BASIC STATS 

560 FOR J=0 TO M:FOR 1=0 TO M:PRINT USING"#. ##t#" ;R( I , J) ; • PRINT" 

"; : NEXTI : PRI NT :NEXTJ: PRINT 
570 PRINT@832, "ABOVE IS THE CORRELATION MATRIX WITH XI THROUGH X 
"M"; 

NOTE THAT Y IS AT THE POSITION IN ROWS AND COLUMNS" 
580 INPUT"TO CONTINUE PRESS ' ENTER '" ; Z 
590 CLS:PRINT"SOURCE","MEAN","ST. DEV.","RY.X" 
600 F0RI=1T0127:SET(I,4) : NEXTI : PRINT: PRINT 
610 PRINT"Y",P(0) ,SX(0) ,RM 

620 FOR 1=1 TO M:PRINT"X("I")",P(I),SX(I) ,R(0,I) 

630 NEXT I: PRINT: PRINT: PRINT"NOTE THAT THE RY.X FOR Y IS THE MUL 
TIPLE CORRELATION" :PRINT"THE VARIANCE ACCOUNTED FOR BY THE REGRE 
SSION IS";RS 

6 40 PRINT"THE VARIANCE NOT ACCOUNTED FOR IS"; 1-RS 
6 50 PRINT: INPUT'TO CONTINUE, PRESS 'ENTER' ";Z 
660 GOSUB 1500 

670 PRINT"REGRESSION",RS,M,F 

680 PRINT"RESIDUAL",1-RS,N-M-1,"P(F)=";P1:PRINT 

690 PRINT"THE REGRESSION EQUATION IS" : PRINT"Y ■ =" ; : FOR 1=1 TO M:P 
RINT B(I)"X("I") + ";:NEXT I: PRINT AR 
710 END 

1380 REM ****** ROUTINE FOR ROW SWITCH 
1390 FOR K=0 TO M 

1410 W=E(K,J) :E(K,J)=E(K,J+1) :E(K,J+1)=W 
1420 NEXT K: RETURN 

1470 CLS: PRINT-SINGULAR MATRIX ENCOUNTERED. 
NO UNIQUE SOLUTION EXISTS" 
1490 END 

1500 REM ** F RATIO PRINT FORMAT ** 
1510 CLS:PRINT"SOURCE"," SS"," DF","F RATIO" 
1520 F0RI=lTO127:SET(I r 4) : NEXTI: PRINT: PRINT: RETURN 
153 END 
15 40 REM THIS IS THE ROW REDUCTION SUBROUTINE 

Listing 2 lommues 
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FOR TRS-80 MODEL I OR III 
IBM PERSONAL COMPUTER 



MORE SPEED 

'0-2C 1 •"•« '•»!« 



than interpreted BASIC 



MORE ROOM 

Very compact compiled coo* plus virtual MEMORY 
makes your RAM act lar-jer Variable nu*-6e' o' chock 
Putter* 3i-char unique wordname* use omy 4 t>»'es - 

-•*3«' 

MORE INSTRUCTIONS 

A33 »OUR C3--»-3» !0 ts '9 S'ASDARD uS 

instruction *ai 

Fa' mora complete then most Forth*: aingla 4 douBie 

pracialon. a"a»a it'iig-naiOling. clock, graphiea (IBM 

■o*-*et O'vas B VV ana 16 coc 0- 20C rnt co o' disc ay 

MORE EASE 

Exce< an 'ui scree- 1 Editor structured 4 modular 

programmes 

Word aaarcn utility 

THE NOTEPAD latter wite' 

Optimized 'or your TRS-80 c IBM *lth Keyboard repeats 

upper lower case disp'ay driver lull ASCII 

MORE POWER 

Forth operstirg system 

Concurrent 'nterpreter AND Corrpiler 

VIRTUAL I'O lor video end printer, d sk and tape 

■ tO-Megabyte hard disk available! 

Fu 80BC or 8088 Assam B er aboard 

Z80 Assembler also ava aDle 'o- T RS-80i 

->tarrni« 35- io BO-uacK d.sk or.ves 

BM can -ead «nte and 'jr M 3 3 s>s 
M 3 can -ead *• ta and run M i disks 



COPERNICA MATHEMATICA 




FORTH 



THE PROFESSIONAL FORTH SYSTEM 
FOR TRS-80 * IBM PC 

(Thousands ot Systems in use) 
MMSFORTh Disk System (requires 1 disk drive. 32K RAM 
V2 tor Radio Snack TRS-80 Model I or III t129.9S* 

V2 l 'or IBM Personal Computer (80 col screen! S249.IS* 

AND MMS GIVES IT PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest ve-sion 

P'og'amTing b'di f car provide advice, modifical ons and 

custom programs to til YOUR needs 



: lOA'ing POIN" 
n ,n- tiers Rectan 



MMSFORTH UTILITIES DISKETTE in 

MATH iBASlC ROM routines p us C< 

gular Polar coordinate convers.ons Degrees mode. more:, a 

powerful CROSS REFERENCER to list Forth words by block 

and line plus (TRS-80) a lull Forth style Z80 assembler 

(requires MMSFORTH V2 1 drive 4 32K RAMI 139 95* 

FORTHCOM communications package provides RS 232 
driver, dumb terminal mode, transfer o< FORTH blocks, and 
host mode to operate a remote FORThCOM system (requires 
MMSFORTH V2 0. t drive 4 32K RAM) 831.95' 

THE OATAHANOLER a very last database manager-em 
system operable by non programmers (requires MMSFORTH 
V2 0. 1 drive 4 32K RAM) 959 95' 

FORTHWRlTE fast powerful word processor w'eaty key 
strokes Help screens manual 4 demo files Full proportional 
wrtabs outdentmg include other blocks, documents, key 
board inputs. 4 OATAHANOLER fields— ideal for form letters 
(requires MMSFORTH V2 0. 2 drives 4 48K RAMI 1175.00' 

MMSFORTH GAMES DISKETTE real-time graphics 4 board 
games w/source coda Includes BREAKFORTH. CRASH 
FORTH. CRVPTOOUOTE. FREEWAY (TRS-80). OTHELLO 4 
TICTACFORTH (requires MMSFORTH V2 0. 1 drive 4 32K RAMI 

939.95* 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFOR'H USERS MANUAL * o Appendices 117.50" 

STARTING FORTH - best 1 815.95" 

THREADED INTERPRETIVE LANGUAGES advanced 
analysis of FORTH internals 

OROG°AM DESIGN 4 CONSTRUCTOR - info 
programming good for Forth 



818 95' 



FORTH SPECIAL ISSUE. BYTE Magazine (Aug 1980) - A col 
lector s item tor Forth mars and beginners 94.00* 

• - ORDERING INFORMATION So'tware prices include 
manuals and require sign ng ot a s.ngie computer license 'or 
one-person support Describe your hardware Add 82 0C SH 
plus 83 00 per MMSFORTH and Si 00 per additional book 
Mass orders add 5''. ta« Foreign orders add 20S UPS COO 
VISA and M/C accepted, no unpaid purchase orders or refunds 

Sen] SASf r r liee MMS'ORfM -nl(ymal,on 
Good aea»e'5 sougnr 



Get MMSFORTH products from your 
computer dealer or 



• 137 



MILLER MICROCOMPUTER SERVICES 

61 Lake Shore Road, Natick, MA 01760 

(617)653-6136 



I isitng 2 continued 

15 50 REM ROW REDUCTION ROUTINE 

1560 FOR 1=0 TO NQ:Z(I,NQ+1)=Z(I,0) : Z (NQ+1 , I) =Z ( , I) -NEXT 

1570 FOR J=l TO NQ:IF Z(J,J)>-0 THEN GOSUB 1380 

1580 A=Z(J,J):FOR 1=1 TO NQ+1 

1590 Z(I,J)=Z(I,J)/A:NEXT I 

1600 IF J=NQ THEN 1670 

1610 FOR T=J+1 TO NQ 

1620 IF Z(J,T)=0 THEN 1660 

1630 B=Z(J,T) :FOR 1=1 TO NQ+1 

1640 Z(I,T)«Z(I,T)-Z(I,J)*B 

16 50 NEXT I 
1660 NEXT T,J 

1670 FOR J=NQ TO 2 STEP-l:FOR T=l TO J-1:B=Z(J,T) 

1680 FOR I=NQ+1 TO J STEP-1 

1690 Z(I,T)=Z(I,T)-Z(I,J)*B 

1700 NEXT I,T,J 

1710 FOR 1=0 TO NQ:Z(I,0) =Z(I,NQ+1) : Z ( , I) =Z (NQ+1 , I ) : NEXT 

17 20 RETURN 

17 80 'P(F) COMPUTATION 

1790 IF ZF<1 THEN P=0:RETURN 

1800 A=2/9/Dl:B=2/9/D2 

1810 P=ABS( (1-B) *ZF[ (l/3)-l+A)/SQR(B*ZF[ (2/3) +A) 

1820 IF D2<4 THEN P=P* ( 1+. 08*P [ 4/D2 [ 3) 

1830 P=.5/(l+P*(.196 854+P*(.115194+P*( .000344+P* . 019527) )) ) [4 

1840 P=l-INT(P*4000+.5)/4000 

1850 RETURN 



ed variable. For example, weight may 
be predicted by height, fat percentage, 
and activity level. Weight would be the 
predicted variable, and the others 
would be used in predicting a weight for 
a given height, fat percentage, and ac- 
tivity level. The general regression equa- 
tion may be written: 

Y' = a,X, +a 2 X; + a,X, + . . . +b 

or Y* = ZA-Xj 

with an F ratio 

F = (P Vk)/(( 1 - R -)/(N - k - 1 )) 

where 

R = multiple correlation coefficient 

N = the number of scores 

K = the number a\~ independent variables 

The large R, the multiple correlation 
coefficient, is different from the small r. 
Each small r, or First-order correlation, 
stands for the covariability between X, 
and Y. But what if the correlation be- 
tween X; and Xj(i#j, of course) is non- 
zero? Then some of the same relation- 
ship explained by X, is shared by X,; 
they explain the same portion of the 
variability in Y. So you cannot just add 
up the variances. If the correlations 
among the independent variables are all 
zero, then R : = r, 2 + r 2 2 + r, 3 + . . . If the 
correlations are nonzero, this will over- 
estimate the multiple correlation. After 
all, in a multivariate regression we are 
interested in the total predictability of Y 
by all the Xs together, right? 

While I don't want to derive any of 
this, a straightforward computational 
method for obtaining the multiple cor- 
relation coefficient and the b-weights 



for the regression equation is presented 
by Guttman ("A New Approach to 
Factor Analysis," Mathematical Think- 
ing in the Social Sciences, 1954, Free 
Press). 

First, calculate all the first-order cor- 
relations among the Xs and Y (e.g., X, 
and X«, X, and Y, and so on). Put these 
in a matrix called RG. Invert the matrix. 
If r„ indicates the cell containing Y ver- 
susY in the inverted matrix RG, then 
R : = 1 - l/r». And the b weights are de- 
fined to be: 

Bi = - D*/ryy*S/Sj 
where 

S, = standard deviation of Y 
S, - standard dc\ iation of X, 

Although this probably seems a little 
mysterious, it works and is easy to pro- 
gram. You must know how to invert a 
matrix, but that is the only program- 
ming problem of any difficulty. 

The program Regress (see Listing 2) 
does all this. You input the number of 
scores and variables, and the program 
computes the regression equation and 
the multiple-correlation coefficient. 
Like ANOVA, Regress is a bare-bones 
program; it lacks the niceties of data 
I/O, data editing, and a number of 
other statistical measures often given 
with the regression statistics. 

I'm sure many of you will find the 
programs Regress and ANOVA suffi- 
cient for your needs, particularly if you 
add some simple data editing and file 
I/O routines. ■ 
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Drive down the high cost of disk drives 



DISKovery Unlimited is bringing you the best in 
microcomputer systems, drives, peripherals, and 
software for TRS-80 and other popular brands. This 
month, take advantage of special system and disk 
drive values like these: 

Complete TRS-80 Model III 
microcomputer system with disk drives 

Includes specially modified A.M. Electronics Model 
III with 48K RAM, two 40-track, double-density disk 
drives, A.M. Electronics controller board, DOS and 
manuals, complete and ready to run $1,695.00 

Same system as above, including RS-232C interface 
and MX82F/T dot matrix printer for correspondence- 
quality output $2,395.00 

(Prepaid shipping when order is prepaid) 

A.M. Electronics "Multiplier" 
for TRS-80 Model I systems 

Fed up with unreliable double-density disk drive 
operation? "Multiplier" lets you upgrade from single- 
density without doubling your problems $ 99.00 

"Multiplier" with NEWDOS 80 $199.00 



A.M. Electronics 
Mini Winchester hard disk drive 

Completely plug-compatible with your TRS-80 
system. Includes controller board and DOS Plus 4.0i. 
Delivers 6.7 megabytes of data capacity (unfor- 
matted). Typically uses one amp less than other hard 
disk drives. Excellent for word-processing, database 
management, financial planning, and other data- 
intensive applications $1595.00 

New! Two-inch, high-performance 
floppy disk drives 

Now you can save space and money. These drives are 
only two-thirds the height of conventional drives, and 
provide extras like door-lock solenoid control, selec- 
table write protect (protect with or without notch— 
your choice!) and disk change/activity indicators. 
Shipped complete and ready to run. 
Single-sided, 40-track 2" drive 

w/case & power supply $199.95 

Double-sided, 40-track 2" drive 

w/case & power supply $249.95 

Single-sided, 40-track 2" drive, packaged 

for TRS-80 Model I, including case, 

power supply, cable, TRSDOS & manual $249.95 



DISKovery 



UNLIMITED 

3366 Washtenaw Ave.. Ann Arbor, Ml 48104 (313) 973-2315 



' TRS-80 trademarx o' Tandy Corp. Shipping costs extra except where otherwise noted. Prices effective through tne 1 5tn of cover month 



RELOAD BD 



Good things come to those who wait, 
especially at Christmas. The first Color 
Load 80 cassette is out this month, 
covering the major Color Computer 
programs from 1982. It sells for $14.97 
and should warm any Color Computer 
owner's heart on Christmas morning. 

Color Load 80 cassettes will be avail- 
able every three months starting in 
March 1983. These 15-minute cassettes 
will pack a lot of material at 1500 Baud, 
and sell for only $9.97. A subscription 
plan will be announced in early 1983. 

Using Color Load 80 

The documentation for each Color 
Load 80 includes a list of the programs 
and a short description of how to use 
them. My phone number and address at 
80 Micro are supplied in case of tech- 
nical problems. The magazine, how- 
ever, is the source of documentation for 
the individual programs. If you don't 
read the article, you won't be able to use 
Color Load 80. 

Most programs on Color Load 80 are 
intended for a minimum system of 16K 
and Extended Color Basic, but a few 
may require only 4K Color Basic, and 
others 32K with disk drives. If the Key 
Box in the article doesn't list your sys- 
tem, then the program will not run cor- 
rectly. 

Model I and III Load 80s include As- 
sembly-language files instead of ma- 
chine-language. As of yet, no 
Editor/ Assembler has become a de fac- 
to standard for the Color Computer, so 
Color Load 80 tapes will include ma- 
chine-language files ready to load and 
execute using CLOADM. 

New Disk Operating System for 
MOD I/III 

Starting with December 1982, Model 
I and III Load-80 disks will be supplied 
on TinyDOS (TDOS), the DOSPLUS 
kernel. This operating system has been 
stripped to make enough room for the 
programs. 

Model 1 users can now use the Load 
80 disk in Drive 0. To use the Basic files, 
simply enter Disk Basic and run the pro- 
gram of your choice. Assembly-lan- 
guage files will still require and 
Editor/ Assembler. To make a backup, 
use the backup utility supplied on 
TDOS. If you have installed the 
LNDOUBLER 5/8 board in your ex- 
pansion interface you will have to use 
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Load 80 
goes 
color 



another operating system to backup, 
the disk. 

Load 80 disks are double-sided to 
allow more program room. Each side 
contains TDOS and can be accessed by 



simply flipping the disk. 

Model III owners must use the 
TRSDOS Convert utility before using 
the Load 80 disk. 

1 Make a backup of your TRSDOS 
disk and place it in Drive 0. 

2 Type Purge, and then your TRSDOS 
disk's master password. 

3 Answer Y for each file. It will be 
purged from the disk. 

4 Insert the Load 80 disk in Drive 1. 
Type Convert. 

5 Answer 1 for Source, for Destina- 
tion. The Load 80 programs will be 
copied onto the TRSDOS disk. 

6 Flip the Load 80 disk over and do 
steps 4-5. 

The Load 80 programs are ready for use 
on TRSDOS. 

Anniversary Load 80 

Model 1 and III tapes and disks are 
available for the Special Anniversary 80 



Month Page Article 



Program 



Type 



Feb. 


202 


Colorful Titrations 


TITRATE 


Education 


Mar. 


106 


Subchaser 


SUBCHASE 


Game 




142 


Is a Rose in Color Still a Rose? 


ARTIST 


Game 




142 


Is a Rose in Color Still a Rose? 


MAZE 


Game 




142 


Is a Rose in Color Still a Rose? 


3-D 


Game 




212 


COLORMON 


COLORMON 


Utility 


Aug. 


94 


The Colorful Computer (Part 1) 


THECOCOl* 


Graphics 




188 


Color Maze 


MAZE 


Game 




202 


Four in One Plus Another 


BRICKOUT 


Game 




202 


Four in One Plus Another 


POINDEXTER 


Game 




202 


Four in One Plus Another 


MATHTALK 


Game 




202 


Four in One Plus Another 


PIXPRINT 


Utility 




202 


Four in One Plus Another 


TANK-GUN 


Game 




260 


Space Duel 


SPCDUEL 


Game 




264 


Square Game 


SQRGAME 


Game 




268 


Color Breakaway 


BRKAWAY 


Game 


Sep. 


140 


Basic Word Processing 


WORDPROC 


Application 




230 


Joystick Paintbrush 


PAINTBRU 


Graphics 




238 


Conversion 


CONVRSNS* 


Game 


Oct. 


168 


Income Tax Estimator 


TAXCALC 


Application 


Nov. 


164 


More Color Conversions 


SUBDSTRY 


Game 




164 


More Color Conversions 


LLANDER 


Game 




164 


More Color Conversions 


MISSILES 


Game 




213 


Color Assembler 


ASSEMBLR 


Utility 




272 


Show the Score 


SHOWSCOR 


Utility 




304 


Test Patterns 


TVTEST 


Application 




308 


Music Marvel 


MUSIC 


Application 


Dec. 


388 


Picture-Editor 


PIC-ED 


Graphics 



All listings in the article are combined into one program. Each is accessed from a menu. 
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KILOBAUD KLASSROOM 

by George Young and Peter Stark 

Makes learning electronics fun and easy. First published as a series in Kilobaud Muroaimputinu,, the 
book combines the learning of essential theory with practical, hands-on experience. The course begins 
with basic electronic projects and culminates in the construction of your own programmable 
microcomputer. The direct instructional methods of authors Young 6t Stark make KILOBAUD 
KI.ASSHOOM a simple way for you to acquire a solid background in digital electronics. 

BK7386 (419 pages) $14.95 



$83* 



SELECTBIC INTEBFACE by George Young 

You need the quality print that a daisy wheel printer provides but the thought of buying one makes 
your wallet wilt. SELECTRIC™ INTERFACE, a step-in -step guide to interfacing an IBM Select ric 
I/O Writer to your microcomputer, will give you that qualit) at a fraction of the price ( ieorge Young. 
co-author oi Kilobaud Microcomputing magazine's popular "Kilobaud Klaxsroom" series, offers a 
low -cost alternative to buying a dais) whed printer SELECTRIC INTERFACE includes: step l>\ 
step Instructions, ti|>s on purchasing a used Selectric, information on various Sclectric models, in- 
cluding the 27 10. 29.S0. and Dura 1041, driver software for Z80 8080, and 8502 chips, rips on inter- 
lacing techniques \\ ith SELEC1 RIC INTERFACE and some background in electronics, you can 
lunea high-quality, low -cost, letter-quality printer. Petals not included 

BK738S ( 125 pages) $12.97 
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TEXTEDIT 

A Complete Word Processing System in Kit Form 
by Irwin Rappaport 

TEXTEDIT is an inexpensive word processor that can l>e adapted to suit your differing needs from 
form letters to lengths texts. Written in TRS-80 Disk BASIC, the system consists of several modules, 
permitting the loading and use of only those portions needed. A disk is also available which provides 
the direct loading of tl»e modules, however, the book is required for documentation. For Mood I and 
III with TRSDOS CONVERT. . one disk drive (2 disk drives or copy utility nwik-d to transfer to system 
disk). Runs under TRSDOS 2.2'2.3. May not function under other systems. 

BK7387 (book, 90 pages) $9.97 

DS7387 (disk) $19.97 

Disk Is manufactured bv Instant Software, a division of Wayne Green Inc. 




TEXTEDIT 

a complete 
wordjiroces^ng 
system in kit 
tgdm. 



by 
Irwin Rappaport 



A WAYNE GREEN 
PUBLICATION 




^S 



»«*•' 






ANNOTATED BASIC 

A New Technique for Neophytes 
Put youi BASIC knowledge to work for sou with this 2-volume set oi TRS-80 Level II BASK, pro- 
grams. Cain a better understanding of the elements and techniques involved In programming, AN- 
NOTATED BASIC'S unique!) designed format breaks each program down lor you t" include initial 
documentation and instruction, definitions of New BASIC Concepts, flowchart, annotations of sec- 
tions, showing ho« each part fits into the whole, and explaining win certain BASIC commands an 

chosen oxer similar ones 

Using the programs as the) arc or modifying them to sharpen your programming skills. ANNOTA1 
ED BASK, is a helpful tool for any BASIC programmer. 

BK7384 (Vol. 1.152 paces) $10.95 

BK7385 (Vol. 2,136 pages) $10.95 



■ 

Si 



COMPUTER CARNIVAL !>> Richard RameUi 

Your child can become a crackerjack computerist with the sivly TRS-80 I.e\el II pro- 
grams mCOMI'l.TER CARNIVAL. This large-type, spiral bound book tor beginners 
Ls a veritable Funhouse <>t games, graphics, quizzes and puzzles. Written b) 90 Micro 
columnist Hichard Hamella. tin- programs are challenging enough to ensure contin- 
ued learning, vet short enough to provide sour child with the immediate delight and 
reward <>f mastering basic computing skills. And for even greater enjoyment, yet the 
CARNIVAL COMPANION, a 30-mlnute cassette containing all the programs in the 
Ixxik. Eliminates tiresome Is ping and lets sour child spend more time enjoying the 
programs. 

BK7389 Book (218 pages) $16.97 

CC7388 Book & Cassette Carnival Companion" $24.97 




FOR TOLL-FREE ORDERING CALL 1-800-258-5473 
WAYNE GREEN BOOKS* PETERBOROUGH NH 03458 

Itemize your order on * separate piece of paper and mail to Wayne Green Books. Att Sales. Pe t erboro ug h, NH Q3458. Be sure to include cheek or 
credit card information i Visa. MC: or AMKX accepted. | No CO. I), orders accepted All orders add $1 .50 for the first book, postage and handling. $1 
additional book; $10.00 per book foreign air mail. Please allou 4-h weeks after publication for delivers Questions regarding sour orderf Please 
Customer Service at the above address. 



detailed 

.00 each 

write to 
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Serial Line 
Analizer 



Serial UneAnaHzer 

Plug* into TRS-80 color computer Rom 
Pack port. Displays EBCDIC. ASCII. Binary 
and HEX at 50. 75. 110. 134.5. 150. 200. 300. 
600. 1050. 1200, 1800. 2000. 2400. 4800, 9600. 
19200 Baud. Baud rates can be split over two 
channels. Analizer is async and supports 
computer/ modem/terminal/printer applica- 
tions or trouble shooting Industrial serial 
analizers sell for 3000 and up. New techno- 
logy allows us to sell it for $199. 

EPROM Programme* 

Read and program EPROM on the TRS-80 
color computer, for $90. 

EPROM Board 

Board with sockets and support chips allow 
you to plug in your own EPROM and execute 
them on the color computer, for $30. 

Tap* map utility 

Displays TRS-80 tape file information: File 
name, file type, gap information, start ad- 
dress, load address and data blocks, $15. 

Tapaaava utility 

4K color computers can save machine code 
or binary files on tape with this utility, $15. 

Music 1 

Simple note entry using joystick on TRS-80 
color computer. Supports whole notes 
through thirty-seconds and 11 keys. Can 
save music scores and recall them later to 
play or to change Easy to use, $30. 

Add $1.50 tor poet and handlg. Prleee subject 
to change. Wl residents add 9% sales tax. 



ONTROL LRAFT INC. 



P.O. Box 123 • Muskego. Wl 53150 
414-784-9027 



RELOAD BO 



Micro for $9.97 and $19.97. These tapes 


Reload 80 columns for 1982 will be pub- 


and disks are not part ol 


a regular Load 


lished int he January 1983 issue. Com- 


80 subscription. 




plete lists for 1981 and 1982 will be pub- 


An index to Load 8C 


programs and 


lished in the Anniversary Issue. ■ 


Program 


Title 


Page 


Comments 


1 


COPYRGHT/BAS 


— 


None 


2 


VOICE/BAS 


72 


None 


3 


MAKEGFTX/BAS 


118 


None 


4 


READGFTX/BAS 


118 


None 


5 


SPOOLER/SRC 


130 


Needs EDTASM 


6 


DSPOOLER/SRC 


130 


Needs EDTASM 


7 


UNIPOKE/BAS 


146 


None 


8 


LVL2SRCH/SRC 


194 


Needs EDTASM 


9 


DISKMAP/SRC 


236 


Needs EDTASM 


10 


SEARCH/SRC 


262 


Needs EDTASM 


11 


SEARCH 1/BAS 


262 


None 


12 


AUTOKEY/SRC 


280 


Needs EDTASM 


13 


AUTOKEY/BAS 


280 


None 


14 


POKEGPHS/BAS 


2% 


None 


15 


MAZE19/BAS 


341 


None 


16 


SCROLL/SRC 


370 


Needs EDTASM 
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13 dnmpilar 

The "LC" Compiler provides a 
substantial subset of the C 
programing language with: 
o Integer subset of C; has 

access to floating point 

ROM routines via functions 
o All statements supported 

except: SWITCH-CASE, GOTO, 

TYPEDEF, STRUCT, UNION. 
o All operators except "->", 

".", SIZEOf, (TYPENAME). 
o Standard 1/0 redirection 

with device Independence, 
o Input using FGETS or GETS 

functions support JCL. 
o Dynastic memory management, 
o Sequential files open for: 

READ, WRITE, and APPEND, 
o LC Generates Z-80 EDAS-IV 

source code as output, 
o Z-80 "source" libraries In 

I SAM- accessed POS files, 
o Compact, one-line coapiler 

invocation for easy use. 
o Compiled progress run on 

both Model I and Model III 
o IN/LIB accesses graphics 

and LD0S entry points. 

LC/LIB Includes: FPRINTF, 

PRINTF, ALLOC, FREE, SBRK, 

and String functions, 
o LC: The Mod I/I 1 1 version 

Includes: LC/CMD, LC/LIB. 

FP/LIB, IN/LIB, EDAS-IV. 

XREF, and acre than 200 

pages of documentation. 

Requires 2 -drive 48K LD0S. 
Mod 1*3 for LOOS: U50+S4SIH 




MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 

5 LOOS, Version 5.1 is the Ultimate in Operating H 

9 Systems for the TRS-80 Models I and III. g 

§£ MISOSYS is your East Coast Headquarters $ 

■s for LDOS, the documented system! Version jjS 

* 5.1 is priced at $129.00 + $5.00 S&H per !f 

> system Deduct $35 if ordering both. ~ 



IDE 5.1 



SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW 

Finally, user customized character sets for your 
MX-80 Graftrax and MX-100 printers. With GRAphlc 
Support Package you create character sets usable 
from any and all applications. Create character 
sets of single-width, double-width, & 12-pitch, 
using the GRASP character editor, ALTCHAR. 6RASP 
comes supplied with 7 character sets. Print Mod 3 
special characters on your Epson! Set MX options 
from your keyboard. Invoke underlining! Written 
by K.A.Hesslnger I S. A. Looser. GRASP: S50+J2SIH 




MISOSYS - Dept. M5 
P.O. Box 4848 
Alexandria, VA 22303-0848 
703-960-2998 

Dealer's Inquiry Invited 



MuetwCuidu 



inns-iu 

E0AS. Version IV is the most 

fantastic absolute address 

assembler, bar none! It has: 

o Assemble to disk or aemory 
froa multiple source files 
nestable to FIVE levels. 

o Assemble conditional code 
with IF, IFLT, IFEQ, IF6T, 
IFDEF, IFNOEF, IFREF to 16 
levels with IF-ELSE-ENDIF. 

o Automatic search of SOURCE 
subroutine libraries saved 
in ISAM-accessed structure 
to resolve references left 
undefined (requires PDS). 

o One-level MACROs support 
parameter substitution by 
position and by keyword. 

o Local labels in both MACRO 
expansions t PDS searches. 

o Supports ♦, -, *, /, .MOO. 
.AND., .OR., .NOT.. .XOR. 

o Constants can be declared 
as base 2, 8, 10, a 16 or 
string, with more than one 
value on a single line. 

o 15-char labels including 
special chars: 0, ?, S, _ 

o Extensive cross-reference 
utility & EQU generation. 

o Enter source in upper case 
or lower case. Line editor 
has COPY, CHANGE, and MOVE 

o Pseudq-OPs LORG. COM, PAGE 
TITLE, SUBTTL, SPACE. 

Model I/I 1 1 for LDOS: $110 

Model II for TRSDOS: $299 

Add $4 SUi ♦ 4» VA tax. 
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Sales Opportunity 

A few select territories available 



Join a fast growing company in- 
volved in the microcomputer in- 
dustry as a direct salesman 
Sales involve our wide selection 
of books, four publications and 
software. We are looking for a 
non-smoking individual with a 
good sales background and a ba- 
sic understanding of microcom- 
puters. An excellent career 
awaits the person who wants to 
be "on his own." It will be the re- 
sponsibility of our direct sales- 
man to become familiar with all 
makes of computers and their 
sales outlets, amateur radio and 
electronic stores, book stores, 
and other outlets for our prod- 
ucts in your given territory. We 
will also add other lines as they 
become available. Arrangements 
are being made to coordinate ef- 
forts with some other firms in the 



area, including a major printer 
manufacturer. We offer an excel- 
lent growth potential with a high- 
ly motivated, young corporation. 
If you or someone you know is in- 
terested in the opportunities 
available at Wayne Green Inc., 
please submit your background 
in detail, including sales experi- 
ence, recent work history, knowl- 
edge of the microcomputing in- 
dustry, educational background 
and references to: 



Sales Manager 
Wayne Green, Inc. 
Peterborough, NH 03458 



All replies will be immediately ac- 
knowledged and held in the strict- 
est of confidence. 




INC. 



WAYNE GREEN, 
(E-12) Pine Street 
Peterborough, N.H. 03458 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a 

single issue of 80 Micro 

Attach old label where indicated and print new address in 

space provided Also include your mailing label whenever 

you write concerning your subscription It helps us serve 

you promptly 

G Extend my subscription one additional year for only 

$2497 
□ Payment enclosed lZ Bill me 

Canadian and Mexican $27.97 1 year only US funds. Foreign $44.97 1 year only US 
funds, drawn on US bank. Please allow 6-8 weeks for delivery 
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// you have no label handy, print OLD address here. 



^ Name 

% 

-j 

>< Address 

< City 



State. 



Zip 



print NEW address here. 



Name, 



oo Address 
K 

3 City 



State. 



Z>P 



Do You Use a Printer 
or Modem? 

The average microcomputer "moves" data at 
120,000 characters a second. A typical disk drive 
transfers it at 27,000 CPS. Most printers however 
plod along at 100 CPS and many modems squeak out 
30 CPS. That's quite a drop in efficiency not to 
mention a waste of 
computing power! 




We've broken 
this bottleneck 
with a smart little 
"white" box called the PRINTER OPTIMIZER" that 
features a 64,000 to 256,000 character memory 
buffer. Now you can "print" your inventory in 2 
seconds instead of 10 minutes, and no longer will 
your computer be tied up transmitting or receiving 
modem transmissions. The OPTIMIZER is smart 
too. You'll notice a keypad and display in our 
picture. You can tell the OPTIMIZER to convert 
data, send control sequences, pause on cue, and 
more. For example: access all of your printer's 
capabilities (graphics, font size, forms control, 
special symbols) with the ease of selecting a 
station on a pushbutton car radio. Use it to adapt 
an XYZ printer to your ABC computer running a 
PDQ word processing program. Run a serial print- 
er or modem from a parallel port. If you can afford 
and justify a disk drive, then you certainly need 
our OPTIMIZER to bring your printer, plotter or 
modem "up to speed" with the rest of your system. 




I'D Box 981 • rarmingdale NV 117 17 



If You Need A Letter 
Quality Printer 

. . .then consider our affordable 
yet high quality alternative. Our MEDIAMIX ETI : 
converts an IBM Electronic Typewriter (and some 
other brands) into a computer printer. Every 
office needs a typewriter. So for example, you can 
buy an IBM Model 50 ET that costs about $1200 and 
have a superior typewriter, and then with our 
ETI 2 have a printer that produces probably the 
highest quality printed image available. You can 
even do typesetting like this ad! And for financial 
printing you can't beat a wide carriage IBM ET. 
It's a truly cost effective investment. There are a 
number of arguments in favor of choosing this 
route over a single use computer printer, and we 
have an article on this subject you should read. 

We apply technology creatively, with insight 
and with respect for the non-technical end user. 
Feel welcome to write or call our toll free number 
for more information . 

APPLIED 
CREATIVE 
TECHNOLOGY, INC. 

2723 Avenue E East. Suite 71 7 
Arlington. Texas 7601 1 
(817)-261-6905 
[800]-433-5373 



COPYWGKT W2 
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CALENDAR 



December 

6-7 



Future Computing Inc., 
Richardson, TX. Home Com- 
puter Market Forum Loews 
Antole, Dallas, TX. 



6-8 IEEE Computer Society, Silver 
Spring, MD. Winter Simulation 
Conference Holiday Inn at the 
Embarcadero, San Diego, CA. 



6-8 IEEE Computer Society, Silver 
Spring, MD. VLSI & Micro- 
computers: Today and Tomor- 
row (TENCON *82) Hong 
Kong. 



6-10 IEEE Computer Society, Silver 
Spring, MD. Tutorial Week 
West '82 San Diego, CA. 



7-8 The Yankee Group, Boston, 
MA. Strategy/Counterstrat- 
egy: The Network as a Corpor- 
ate Resource New York, NY. 



7-9 IEEE Computer Society, Silver 
Spring, MD. 1982 Real Time 
Systems Symposium Los 

Angeles, CA. 



7-9 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 
St. Louis, MO. 



10 IEEE Computer Society, Silver 
Spring, MD. Computer Net- 
working Gaithersburg, MD. 



9-12 National Computer Shows, 
Chestnut Hill, MA. The Second 
Annual Southeast Computer 
Show and Office Equipment 
Exposition Atlanta Civic 
Center. 



7-8 The Yankee Group, Boston, 
MA. Strategy /Counterstrat- 
egy: The Network as a Corpor- 
ate Resource Palo Alto, CA. 
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13-15 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 
Boulder, CO. 

January 

17-18 EM A Management Associates 
Inc., Richmond, VA. Using Small 
Computers in the Professional 
Design Firm Hyatt Kuilima Nor- 
thshore, Kahuku, HI. 



17-20 IEEE Computer Society, Silver 
Spring, MD. Optical Storage of 
Digital Data Lake Tahoe, CA. 



18-20 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 

Tallahassee, FL. 



31-2 Future Computing Inc., 
Richardson, TX. UCSD 
p-system Industry Forum Loews 
Anatole, Dallas, TX. 



February 

7-9 



Technical Education Research 
Centers, Cambridge, MA. 



Microcomputers in Education 

Washington, DC. 



14-17 IEEE Computer Society, Silver 
Spring, MD. Computer Science 
Conference Orlando, FL. 



16-18 IEEE Computer Society, Silver 
Spring, MD. International Solid 
State Circuits Conference New 

York, NY. 



17-19 Technical Education Research 
Centers, Cambridge, MA. 
Microcomputers in Education 

New York, NY. 



21-23 American Federation of Infor- 
mation Processing Societies 
Inc., Philadelphia, PA. Office 
Automation Conference Phila- 
delphia Civic Center. 



23-25 Future Computing Inc., 
Richardson, TX. Personal 
Computer Retail Forum Loews 
Anatole, Dallas, TX. 



25-27 Computer Expo 83 Orlando, FL. 



Coming 
Next Month 



To celebrate the new year, our 
January issue will include an incred- 
ible program— Creator, by Bruce 
Tonkin (see Proof Notes, p. 16 for 
more info). 

Also featured will be articles tell- 
ing you how to market your own 
software. Topics will include decid- 
ing on a publisher, copyrighting 



how-to, and documentation do's 
and don'ts. 

Of course, we will continue Philip 
Van Praag's "Hardware Hacker" 

series and Margaret Grothman's 
"API. Primer," and feature several 
timely reviews and Color Computer 
articles. ■ 



COLOR COMPUTER 




* • JOYSTICKS • • 

Tired of broken loyslicks? Ours are built to last, with 
good smooth pots, and a strong lever and internal 
mechanism These are superior to the Radio Shack 
design Get your joystick programs working the way 
they should! 

Up to 20% OFF on software. 

We stock selections from 

Prickley Pear, Tom Mix, Mark Data, 

and others. 

Write or call lor free catalog. 

Add $2 00 shipping on Joysticks. We pay shipping on 
'oftware $1.50 additional for COD 

ENDICOTT SOFTWARE ... 

P.O. Box 12543, Huntsvilla. AL 35802 "" !5J 



205/881-0506 



DO YOU HAVE 2 PRINTERS? 




Now you can have 2 PRINTERS ON-LINE at all times 
Our MODEL 80 LINE PRINTER SWITCH is designed 
for the TRS-80 computer to allow the user to easily 
select between two printers by means of a conven- 
iently located switch without changing cables Our 
compact module connects to the parallel printer port 
of your Model I. Model II. or Model III through a printer 
port extension cable and provides a card-edge con- 
nector for each of your two printers. Gold plated 
contacts ensure excellent connection reliability. Our 
Model 80 switch comes assembled, tested and ready 
to use for the low cost of $40 including shipping to 
any U.S. destination A printer port extension cable is 
available from us at a cost of $12.50 for the Model 
I 'III or $20 for the Model II Cal now for more informa- 
tion Request application note AN-821 for Model 
l/lll use or AN 8?? for Model II use. 

-409 



J \f\j\j\rhf signalling inc. — 

P.O. Box 17510. Kansas City. MO 64130 
MBH 1-816-931-4448 

----- TOLL FREE 1-800-831-4448 



Save Grief & Aggravation 

—Know Before You Buy— 

READ 

"Consumer Protection for 
the Microcomputer Owner" 

COVERS: 

1 Preliminary Considerations before Buying 

2 Legal Differences between Mail Order and 
Local Store 

3 Pitfalls and Protection of Paying by Cash. 
Check Credit Card etc 

4 What a Warranty Really Is 

5 Ho* to Complain Effectively 

6 How to Legally Reiect and Revoke 
Acceptance ot Goods 

7 Miscellaneous Hints and Suggestions 

ONLY $15 Poet Paid (COO $3 Extra) 

Send Check or Money Order lo 

L J. KUTTEN. ATTORNEY 

201 South Central 

P.O.Box 16185 

St. Louis (Clayton), MO 63105 

314-721-6644 
Mo. n««id*nta add ceiss uim iu 

CompuServe ID "70655.376 Source ID* TCK092 

,•444 



This publication 
is available 
in microform. 



University Microfilms 
International 

Please send additional information 
Name ___^^_ 



Institution 

Street 

City 

State 



Zip. 



300 North leeb Road 

r>pt PR 

Ann Arbor Mi 48106 

USA 



30 32 Mortimer Street 
Opt PR 
London wlh 7RA 
r nqland 



COLOR COMPUTER SOFTWARE 

16-K EXTENDED BASIC 

Adventure word games 

THE ALCHEMIST'S LABORATORY $14.95 

mn the ingredients yourself 
- LOKAR'S MAGIC STAFF $14 95 
five crystal statues the magic staff and a castle 
filled with wild animals 

NIGHT TOWER DESCENT $14.95 
ten floors o' danger treasure, and magic are be 
tween you and freedom 

■SQUEEZE $14.95 
arcade style game where aliens dose in from both 
sides at once 

GRAPHIC SCREEN EDITOR $16.95 
create pictures on the screen using |oyslicKs or 
arrow keys save on tape erase paint and many 
other features 

COLOR SHOW DISPLAYS $8.95 
five graphics programs that create endless chang 
mg patterns 

all programs 16-K extended basic cassette only 
Send for free catalogue We accept checks, money 
orders. Visa and Mastercharge (no C.O.D.s). 
Please add $1.00 for shipping. Send to: 

REAL SOFTWARE CO. 

P.O. BOX 401 
HOPEDALE, MA 01747 

(617) 393-6281 -345 

Mass residents add 5°c sales tax 
3eae r inquiries *e corned ' 



9 TRACK TAPE 

for TRS-80 Mod. 11/16 

ALDEVCO has available the AC- 
CESS II ANSIstd. 9 track mag. 
tape (1600 bpi) system tailored 
to the Radio Shack Model 11/16 
hardware and TRSDOS, provid- 
ing hard disk backup AND ac- 
cess to mainframe data bases. 
Other versions are available for 
the S-100 bus and CPM 



® 



ALDEVCO 

Q 5725 Dragon Way 
Cincinnati. Ohio 45227 
(513)561-7671 



*"»$" 



80 Micro does not keep subscription 
records on the premises, therefore 
calling us only adds time and doesn't 
solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

BOmicro 
Subscription Dept. 
PO Box 981 
Farmingdale, NY 11737 



Thank you and enjoy your subscription 



3SS 



JONELL SYSTEMS 

TRS 80* MOD I 



SEARATTIE: In assembler | ist . live-action, graphics oriented 

Same Play against another opponent or against computer 
lours of fun Req Min 16K Level II $15.95 

ilOKYTHM GENERATOR: Generate anyone's biorythm chart 
tor 6 mos W/16K. 1 yr. W/32K. Video or L/P output with 
simultaneous graphic sine-wave presentation of all 3 functions 
Flags critical days and much more. Req. mm 16K Level IIJ19.95 
K>* ACCOUNTING: Run your system like the bigguysl Menu 
driven program records and files slan and stop run times from 
i clock, elapsed lime, dollar value of time, user code, 
and job name. Prints user account statements, iredits 
payments and more In disk basic for 32K system $1495 

CMC 2 TAPf : Make level II basic system tapes trom CMD Disk 
Files Shows load and entry addresses Req 32K disk 
system j 14 95 

TAPE 2 CMD: Make disk CMD files from level II system tapes 
Shows load and entry addresses. Identifies non-system tapes 
Much simpler than tapedisk utility Req 32K Disk 
System $14 95 



Alt programs supp/reo* on tape. Add $S 00 In price tor dnk 
Printed instructions furnished for each program. Give systpm 
configuration when ordering 



JONELL SYSTEMS 

130 4th Street AJti/er 

Huntington. WV 2S705 

• Trademark of Tandy Corporation 



PUT YOUR COMPUTER 

TO WORK SAVING 88 

EVERY TIME YOU BUY 

GROCERIES!! 

QSORT 

is a fast, menu driven assembly 
language program that keeps track 
of up to 1 200 store coupons Enter 
your shopping list and C3SORT locates 
every usable coupon withm seconds 
A special filing system speeds 
physical retrieval of any coupon to a 
few seconds.. 
Comprehensive manual 
Satisfaction Guaranteed or your 
Money Back. 

Specify Model I or III 

cassette or disc S39.90 ppd 

[Caii' r«aiaant« add 6%) 

■V ENOINEEPINQ •" 74 

R Q EJOX 335 1 . RIVERSIDE CA 9S5 1 S 
(714) -7B1-02S2 



• See List of Advertisers on Page 45 1 
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NEW PRODUCTS 



edited by Eric Grevstad 



Project Management System 

The Demi-Plan Project Manage- 
ment System is now available for 
Model I and III computers with 48K of 
memory, one or more disk drives, and 
a printer. 

This program allows the user to 
define and maintain a file of project 
tasks and resources. This information 
is used to print various forms of Gantt 
charts, resource histograms, and task/ 
resource cross-reference printouts. The 
system determines the critical path of a 
project and allows the project manager 
to introduce "what if" data to show 
the effect of date and resource changes 
on completion date. 

The Demi-Plan disk sells for $49.95, 
with documentation alone available 
for $5. For more information, contact 
Demi-Software, 6 Lee Road, Med- 
field, MA 02052, (617) 359-4502. 

Reader Service ^580 

Fortran Programs for 
Scientists and Engineers 

Over 60 of the most frequently used 
scientific algorithms, along with their 
program implementations written in 
Fortran, are presented in Fortran Pro- 
grams for Scientists and Engineers. 
The material covered in this volume, 
including curve fitting, vector and 
matrix arithmetic, numerical integra- 
tion, random number operations, and 
statistical analysis, will be of practical 
use to any scientist or engineer, and the 




Fortran Programs for Scientists and Engineers 
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programs can be readily adapted to 
most applications. 

Each chapter contains exercises de- 
signed to test and extend reader com- 
prehension of the material presented. 
For the first-time Fortran user (and the 
veteran who needs a quick reference), a 
summary of the syntax, standard func- 
tions, and reserved words of Fortran is 
included in the appendices. 

Priced at $15.95, this book is avail- 
able from Sybex, 2344 Sixth St., 
Berkeley, CA 94710. 

Reader Service ^ 585 

Sell Your Programs 

Vendor-One is a Model I utility for 
program authors that permits your 
software to be sold on a custom-for- 
matted disk that both single- and mul- 
tiple-drive customers can use. The 
package includes a licensing agreement 
for unlimited distribution copies of 
your disk. 

A Model III version will be available 
soon. Vendor-One sells for $30 from 
Applied 80 Softwares, 4316 Vermont 
Court, Virginia Beach, VA 23456. 

Reader Service «^574 

One-Megabyte 
Minifloppy Drive 

The slimline minifloppy M4853 
from Mitsubishi is a double-headed, 
96-tpi, 5 '/a-inch standard drive. The 
unit has track-to-track access time of 3 
ms, head load time of 50 ms, and a set- 
tling time of 15 ms. 

The M4853 also includes a precision 
head load mechanism with all ferrite 
heads, a circular gimbal-type support 
for high data reliability and long media 
life, and an advanced direct-drive 
brushless motor that eliminates all con- 
cern for belt changes. Disk rotation 
starting time is 250 ms. 

The drive's dimensions are 1.61 by 
5.75 by 8 inches. Its price is $450. For 
additional information, contact Inflo 
Inc., 244 Mill Road, Yaphank, NY 
11980, (516)924-9229. 

Reader Service ^566 

Very Micro Computers 

CompuGift Inc. (P.O. Box 1408, El 
Toro, CA 92630, (714) 768-8223) has 
introduced a line of desktop gift prod- 
ucts in the shape of a 4 1 /2-by-4'/2-by-6- 
inch computer terminal. The Com- 
puter Caddy is a pen and pad holder, 




CompuGift 

while the Computer Planter and Com- 
puter Bank provide a place for flowers 
and coins. 

The screen of each CompuGift 
forms a frame for your favorite pic- 
ture. All items are individually gift 
boxed, and available in light grey, dark 
grey, yellow, and magenta high-quality 
plastic. Each is $8.99 plus $2 postage 
and handling. 

CompuGift is the idea of a Califor- 
nia systems analyst and his wife, a 
computer specialist. The company 
predicts first-year sales of $100,000, 
saying, "Everybody is computer crazy 
nowadays; who wouldn't like a gift 
like this?" 

Reader Service »^550 

Z80 System Reference Card 

A new 16-page, $4.95 card summar- 
izes and captures the entire language of 
the Z80 microprocessor chip for easy 
reference. 

The card provides clock periods and 
microseconds for every instruction. A 
formula on the front page lets you cal- 
culate your own timing, regardless of 
your machine's MHz. In addition, all 
instructions are completely listed in op- 
code sequence for PEEKing, and mne- 
monic sequence for POKEing. A con- 
dition code chart and hex-to-decimal 
chart make programming easier. The 
undocumented op-codes found on 
some chips are included, as are decimal 
equivalents for every instruction. 

The Z80 System Reference Card is 
available from Nanos Systems Corp., 
P.O. Box 24344, Speedway, IN 46224. 

Reader Service ^572 



THE MAGIC 
IS AT YOUR FINGERTIPS. 



Dosplus II magic. 
For you and your business. 



The TRS-80 model II was created to help you take care of your business. DOSPLCIS II was 
created to help your TRS80 help you and your business even more. 

DOSPLUS II replaces your O.EM, dos with an ultra- sophisticated operating system that is 
incredibly faster, more reliable and is totally compatible with all standard business oriented 
software designed for use with the model II. The result is a computer/operating system that far 
exceeds manufacturer' s specs — with more potential and more capacity to be of service to you. 

DOSPLCIS II operating systems are available for either yout floppy or hard disk drives. The hard 
drive operating system is compatible with Radio Shack, QuCeS. Corvus Micro Mainframe, VR 
Data and other popular hard drive sub-systems. 

DOSPLUS II...AII the quality and dependability you d expect from DOSPLUS. 



DQ5PW5II 



DOSPLUS first in quality! 
First in the industry! 



A Division ol Hree/e QSD ln< 
1 1 500 Stemmons Twv Dallas. Texas 7V29 
To order call toll tr«! I 800 527 7432 
for produt I inlormalion (2 14) 484 29/6 



4.J0I 18 OakOtde 

Boia Raton. R 31431 

To order < ,)ll toll tree I 800-327 8724 

Tor product information (305) 983-3390 



TRS-80 and Radio Shack are registered trademarks of Tandy Corporation. Inc. 



^ See list ot Advertisers on Page 451 
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NEW PRODUCTS 



Farm Weather Center 

Specialized software for deriving in- 
dividual crop and field estimates of 
crop development and soil moisture 
balance is now available for the 48K 
Model III with one disk drive. 

With simple rain gauge observations 
and daily readings of maximum/mini- 
mum temperature as input, the pro- 
grams yield graphic displays of results 
along with summary reports and 
statistics through menu selections. 

Prices start at $125 for one crop (ei- 
ther corn, soybeans, or spring wheat), 
while all three are available for $200. 
For more information, write Climate 
Assessment Technology Inc., 11550 
Fuqua St., Suite 355, Houston, TX 
77034. 

Reader Service »^584 

Port Expanders 

A series of software-controllable 
port expanders from Advanced Sys- 
tems Concepts Inc. allow single-port 
units to interface with multiple periph- 
erals or computers. 

The port expanders are compatible 
with computers, printers, plotters, ter- 
minals, and modems that have an RS- 
232C or Centronics-compatible inter- 
face. The Model QS11 allows a single 
port to talk to one of four output de- 
vices. The Model MO 11 allows four 
computers, modems, or terminals to 
share a common unit, such as a letter- 
quality printer. 

Each unit weighs two pounds and 
comes in a 13.5-by-7-by-2-inch enclo- 
sure. They use CMOS technology and 
consume negligible power. Each retails 
for $450 from Advanced Systems Con- 
cepts Inc., P.O. Box Q, Altadena, CA 
91001, (213)684-5461. 

Reader Service ^562 



reformaTTer 

CONVERSION SOFTWARE 

TRSDOS- CP/M 




TTER 

VERSION SOFTWARE 

TRSDOS- DEC 




Reformatter 



Bytewriter 



The Bytewriter is a letter-quality, 
daisy- wheel printer/typewriter. It fea- 
tures a built-in Centronics-compatible 
parallel interface. All you do is connect 
it to your computer. 

The Bytewriter has 44 alphanumeric 
keys plus 12 function keys, a 12-char- 
acter buffer memory, a switchable sec- 
ond keyboard with foreign grammar 
symbols, memory erase of the past 10 
characters, a half-space key, and auto- 
matic repeat on any key. Character 
densities of 10, 12, or 15 cpi are switch 
selectable. 




ASCI Port Expander 



This product sells for $795. For 
more information, contact Bytewriter, 
125 Northview Road, Ithaca, NY 
14850, (607)272-1132. 

Reader Service *-* 590 

DEC and CP/M 

Conversion Software 

Model II users can now exchange 
data files and source programs with 
CP/M or DEC RT-11 systems using 
Reformatter conversion software from 
MicroTech Exports Inc. 

TRSDOS to CP/M reads and writes 
single-density CP/M disks, and 
TRSDOS to DEC reads and writes sin- 
gle-density RT-1 1 disks. A third pro- 
gram, TRSDOS to IBM, is available 
exclusively from Tandy Corporation 
through Radio Shack stores. 

Each version runs on a single-drive 
Model II and provides full facilities for 
file reorganization and directory main- 
tenance on the target disk. In addition 
to bidirectional transfer of files be- 
tween the two operating systems, the 
program provides complete file statis- 
tics for the target disk, and permits the 
user to delete or rename files, alter user 
numbers, and convert TRSDOS disks 
to the target disk. 



472 • 80 Micro, December 1982 



DOUBLE YOUR MONEY 
EVERY MONTH??-? HA 



IF * TOLD YOU YOU COULD DOUBLE YOUR HOCY 

EVERY MONTH, YOU WOULD CALL US LIARS. 

IF MI TOLD YOU YOU COULD DOUBLE YOUR HONEY 

EVERY THREE MONTHS, YOU MOULO PROBABLY CALL 

US LIARS AGAIN. 

SO HE'LL JUST TELL YOU THAT YOU CAN HAKE HORE 

HONEY IN THE STOCK MARKET THAN YOU ARE MAKING NOW. 

ASTUTE STOCK MARKET INVESTORS MAKE HONEY IN 

THE STOCK HARXET BY BUYING WHEN THE PRICE OF 

STOCK IS LOU AND SELLING MHEN IT IS HIGH. 

EVEN WISER INVESTORS UNDERSTAND THAT NO CAPITAL 

GAINS NEED BE PAID ON STOCK DIVIDENDS UNTIL 

THEY ARE SOLD. 

STOCKDIV ASSISTS THE SMARTEST INVESTOR 
IN REAPING THE BENEFITS OF BOTH PHILOSOPHIES. 
EVEN IF YOU KNOW NOTHING ABOUT THE MARKET. 

LET YOUR TRS 81 PAY FOR ITSELF ! ! ! 

STOCKDIV HAS A DATA BANK OF OVER 
1011 COMPANIES THAT HAVE EITHER SPLIT OR PAID 
STOCK DIVIDENDS HORE THAN TWICE SINCE 1777 

YOU PICK THE HONTH, THE MINIMUM DIVIDENDS, THE 
COMPANY YOU ARE INTERESTED IN, OR THE NUMBER OF 
YEARS YOU WISH TO RESEARCH FOR PAST PERFORMANCES. 

YOU BUY WHEN THE STOCK IS LOW AND SELL MHEN THE 
STOCK IS HIGH 

THE INITIAL PRICE OF STOCKDIV IS »M.95 
ANNUAL UPDATES ARE 19.95 
FULLY TAX PEDUCTABLE 

STOCKDIV IS AVAILABLE ON DISC FOR 
TRS-81 HOD KLEVEL 2), AND MOD m, 24K 
FULLY TAX DEDUCTAflLE 

ORDER STOCKDIV FROM 

DIGFORENSICS 
P.O. BOX 1733 

ORANGE PARK, FL 32173 .403 



No Shipping or 
Handling Charges! 

DRIVES TAN DON TEAC 

Bare Complete Bare Complete 

40TkSS $216 $248 $216 $248 

40 Tk DS 289 345 309 359 

SOTkSS 289 345 309 359 

80 Tk DS 379 429 419 459 

MODEMS 

HAYES Smartmodem $229 

HAYES Smartmodem 1200 559 

HAYES Chronograph 219 

Signaiman Mark I DC 95 

UDS103OALP 169 

UDS 103 JLP 205 

PRINTERS 

Epson MX80 FT $559 

Epson MX100 749 

Microhm 82A 479 

ORCHESTRA 85 90 99 

Orchestra Software Call 

COMPUTERS 

Model 111 with 2 Tandon Drives $1785 
Model III with 2 Tandon 

Drives and RS232 1880 

LNW80Modell 1475 

LNW80 Model II 2050 

TIDEWATER DATA SYSTEMS 

14 PARKVIEW AVENUE 
PORTSMOUTH. VIRGINIA 23704 
(804) 397-9636 ^338 

All prices discounted for cash. 

Charge order* 4% additional 

We accept MasterCard and Visa 

Virqima Residents Please Add 4% Sales Tax 



Pl'/Tik announces two great new 
machine language arcade games w/sound 
for TRS-80 MOD I or III, disc or tape 





Play fast paced indoor soccer against a 
friend or the computer Dribble, pass, steal the 
ball, use the boards-control the whole team!! 
When you're done, lay down-exhausted ^ 324 



PO Box i.i; «. 

SOl'IHAMPTON 

i • \r.A • • .. , 



* Scecif» Mod I 

o» lac 

* *oe $2 00 b< 

* p- ■ - ci mail 

* :.*■•■. ■: 

* Pa res.danii 



• III. diac (32) 
pa (16k) 
s'aga and handling 

± 4 -5- KC*« 



New! 




MBC-1000 micro 

tm 

• 64K RAM • CP/M & SBASICD 

•80 x 25 GREEN PHOSPHOR CRT 

• 5 FUNCTION KEYS • GRAPHICS 

• RS-232C & CENTRONICS PORTS 

•SINGLE 328K DISK 

List 4t* *4 *r\ a r\ 

$1905 $ 1 640 delivered 



software/MODEL 1 & m 

32K, 1 Disk Reqd. 



FOOTMATH 



$99.95 



Calculate lineal measure without decimal conv. 
Input/output in english written form 
1 Print, store, edit, append files 



MENURITE 



$24.95 



Generate BASIC menus without programming 
Drives up to 21 programs with 3 exit options 
Automatically spaces & centers display 



Send check or money order and we ship PREPAID. COD's shipped collect. 

$250 deposit required for COD computer orders, 
pi Texas residents add 5% sales tax. 

MicrowarG mail orders: p -°- Box 3834 

^ Texarkana, Texas 75501 

showroom: 4120 McKnight Road 

.326 Wake Village, Texas 75501 



can: (214) 832-4211 



• See List ol Advertisers on Page 451 
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Priced at $249 for each version, Re- 
formatter software is available from 
MicroTech Exports Inc., 467 Hamil- 
ton Avenue, Palo Alto, CA 94301, 
(415)324-9114. 

Reader Service *^561 

Macro Assembler and 
Editor For Color Computer 

Macro-80c is a macro assembler, 
screen-oriented editor, and machine- 
language monitor for the Color Com- 
puter disk system. 

The assembler features local labels, 
conditional assembly, page headers, 
and symbol-table cross-reference list- 
ings. The full standard 6809 instruc- 
tion set is supported, along with many 
additional pseudo-ops such as SET, 
ASK (for keyboard input during as- 
sembly), and even PEEK and POKE. 
There is a stack available for writing 
structured macros, and complete docu- 
mentation on the assembler's support 
of such techniques as embedding 
machine language into Basic programs 
or writing programs that checksum 
themselves. 

The text editor may be used on any 
type of text file, but is designed specifi- 
cally for quick and easy editing of 
Assembly-language source flies. It re- 
quires no line numbers, so you can use 
the arrow keys to position the cursor 
anywhere in the file. There are single- 
letter commands for insert, delete, 
change, move block, copy block, 
search, global change, and so on. An 
automatic repeat feature saves 
repetitive keystrokes. 

A machine-language monitor is in- 
cluded, which allows display and mod- 
ification of memory using a formatted 
hex display. Memory may be dumped 
to a printer or a text file. Breakpoints 
may be set, blocks of memory set or 
moved, and so forth. 

Example programs on disk are in- 
cluded, as are 75 pages of documenta- 
tion. Macro-80c requires a 16K or 32K 
Color Computer with disk drive; mul- 
tiple drives are supported. Priced at 
$99.95, it is available from The Micro 
Works, P.O. Box 1110, Dd Mar, CA 
92014, (714) 942-2400. 

Reader Service »*555 

Finding Kindred Spirits 

The Personal Computer Owners Di- 
rectory can help you find people with 
the same interests or computer who are 
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Touch-Tone Modem 



willing to trade information. The 
Models I and HI and the Color Com- 
puter are listed, as are popular micros 
from Apple, Atari, Commodore, 
IBM, and others. 

The directory lists 59 different inter- 
ests, ranging from adventure and aero- 
space to utilities and word processing. 
Others are physics, commercial appli- 
cations, education, data-base manage- 
ment, games, law, income tax, 
robotics, and many more. 

For a free, permanent listing in the 
directory, send your name, address, 
computer type, interests, and whether 
you are willing to trade information to 
Personal Computer Owners, Dept. IF, 
P.O. Box 426, Feeding Hills, MA 
01030. To receive the current issue and 
the next issue with your listing, send 
$9.95 and the above information. 

Reader Service »^557 

Adventure Trilogy 

Colorquest, a division of the Softlaw 
Corporation, has introduced a new line 
of fantasy games featuring full color, 
machine-language 3-D graphics, and 
sound. 

The Adventure Trilogy takes you to 
the World Under the Cimeeon Moon 
to engage in ritual battle with tooa- 
moath and narthokcs, then to Daz- 
mor's Underworld of Doom to capture 
the Eye of Dazmor, and Anally 
through the Ugrek Mountains to the 
Forsaken Gulch to restore the Eye to 
the Idol. Survivors are invited to try 
the sequel, Beyond the Cimeeon 
Moon, which involves a voyage to 
outer space. 



The Adventure Trilogy and Beyond 
the Cimeeon Moon are available on 
disk for the Color Computer. Price is 
$29.95 each from Colorquest, P.O. 
Box 19096, Minneapolis, MN 55419, 
(612) 827-4703. 

Reader Service ^576 

Touch-Tone Decoder Modem 

The Touch-Tone Decoding Host 
Modem is a device for converting stan- 
dard telephone Touch-Tones to ASCII 
equivalents. The modem has provision 
for a Bell 103 (300 baud) or BeU 202 
(1 ,200 baud) data output response. An 
audio port for voice response is avail- 
able as an option. 

This product connects the direct-dial 
telephone network with any host com- 
puter capable of asynchronous com- 
munications via an RS-232 port. 

The modem also features auto- 
answer circuitry. When called, it goes 
off-hook and awaits suitable input for 
two minutes. If no input is received, 
the modem automatically resets to on- 
hook, awaiting the next call. 

When one of the 16 valid Touch- 
Tone pairs is received, it is converted to 
ASCII and sent in a serial stream to the 
host. The outbound responding data, 
from the RS-232 port, is used to 
modulate a frequency shift keyer 
(FSK). This permits transmission over 
the telephone network to the calling 
terminal. 

Communication with the host RS- 
232 is at 300, 600, or 1,200 baud (de- 
pending on the model selected), via a 
standard DB-25 connector. Since the 
same baud rate is used for incoming 



TRS-80 
MOD III 

48K — 2 Drive 
— DISK III 
TRSDOS & 
Manuals 

$1775 




EXTERNAL FLOPPIES 

for MOD I 4*Q7R 

Fully compatible, 120 day warranty 
80 TK or 2 sided $395 

80TK&2sided $515 



Winchester External Hard 
Disk III beginning at 



Optional HD III: 
9.5 meg $2099 

19 meg 2799 

2 x 6.3 meg 2899 

2x9.5 meg 3199 

2x19 meg 4399 



CHECK THESE GREAT BUYS ON OTHER PRODUCTS: 



Epson MX-80 w/graphtrax $475.00 C.ITOH & Diablo Ribbons 



Epson MX-80 ft 
Epson MX- 100 
MX-80 Ribbons 
MX-100 Ribbons 
Epson Graphtrax 
C.ITOH F-10 40 cps 
Tractor 

NOW OPEN 



575.00 DC Hayes Smart Modem 

750.00 DC Hayes Micro Model II 

12.50 OKIDATA Microhne 80 

30.00 OKIDATA Mtcroline 82A 

75.00 OKIDATA Microline 83A 

1.695.00 OKIDATA Tractor 

200.00 Lexicon Modem 

— VR DATA COMPUTER CENTER 



595 
259.00 
33900 
359.00 
52900 
799 00 
75 00 
125 00 

616 Baltlmof Plk«, Springfield, Pa. (Delaware County) 



Novation Cat Modem 
Novation D Cat Modem 
Percom Doubler II 
Percom Data Separator 
Paper 9 Vj x 11 (Fanfold) 
Paper 14^ x 11 (Green Bar) 
Verbatim 5V«" Diskettes 
Maxell 5'V Diskettes 
Nashua 8' Diskettes 



175.00 
19900 
169.00 
29.95 
29.95 
34.95 
26.90 
39.00 
42.95 



Drive Extender Cable 12.00 

Head Cleaning Kit 5%" 14.95 
Disk & Other Mysteries Book 19 95 
Basic & Other Mysteries 

Book 27.50 

NEC Ribbons (Min. 6) 5.95 

Printer Cable 25.00 

LDOS Operating Sys 129.00 

DOSPLUS Operating Sys. 149.00 



DISK III 

SINGLE DRIVE $599 



Disk III Dual Drives 
Disk III No Drives 
TRSDOS & Manual 
DOS PLUS & Manual 
LDOS & Manual 



$864.00 

435.00 

21.90 

149.00 

129.00 



MODEL III 
COMMUNICATIONS 



2 Sided or 80 Track Drives add $120. ea. 
2 Sided & 80 Track Drives add $240. ea. 



VR-RS232 
$80 

Direct Replacement For 
R.S. RS232, Fully Tested 
& Burned-ln. Easy 
Installation, 120 Day 
Warranty, Programmable 
Pinout, Prototype Area 



D-CON 
$299 

Integral Modem, NEEDS 
NO RS232 - Direct 
Connect, Programmable 
Dialing, AUTO ANSWER/ 
ORIGINATE, Easy 
Installation 




IF YOU DONT SEE IT ADVERTISED 
CALL US AND ASK FOR IT. 



data 



MasterCard 

I I 


VISA 



111 Henderson Boulevard N-6 

Folcroft PA 19032 1 215 1 161 -5300 

■See List ol Advertisers on Page 451 



Call Toll-Free 

800-345-8102 

ALL VR DATA PRODUCTS CARRY A 120-DAY 
WARRANTY INCLUDING PARTS & LABOR 

Published prices reflect cash discount All prices are subject 
to change without notice TRS 80 and TRSDOS are trademarks 
ot Tandy Corp. DISK III is a trademark of VR Data Corp 
8 30AM 7PM EST Mon En Sat 10AM-3PM 
CABLE ' VRDATA TELEX 84S 1?4 
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ACT Winchester Drive 

and outgoing data, no special split 
baud rate software is required. 

Priced at $500, the Decoding Host 
Modem is available from Micro- 
Peripheral Corp., Koll Business Cen- 
ter, 2643 151st Place N.E., Redmond, 
WA 98052, (206)881-7544. 

Reader Service ^578 

Down Under Disks 

The ACT Winchester Disk Drive, 
produced by the Australian Computer 
and Telecommunications division of 
Australian Protection Industries, New 
South Wales, offers five- and ten- 
megabyte storage capacity for Model 

II and III computers. 

The hard-disk package includes a 
Winchester-type 5'/4-inch drive with 
five megabytes of formatted mass stor- 
age and a microsequencing controller 
card with complete floppy-like inter- 
facing. The controller end of the pack- 
age has been designed to run a second 
5 Vi-inch hard disk, if desired. 

Two Winchester hard-disk inter- 
faces are also available: the TRS-80 
Model II, designed to work with any 
Model II system and the ACT con- 
troller package, and the TRS-80 Model 

III for any 48K Model III system and 
the controller package. Both interfaces 
are fully software supported with a 
CP/M 2.2 operating system, and arrive 
fully assembled and tested for instant 
plug-in use. 

Price and other information is avail- 
able from the Office of the Australian 
Trade Commissioner, 636 Fifth Ave- 
nue, New York, NY 10111. 

Reader Service ^582 

Disk Listmaker 

Disk Listmaker is an upgraded ver- 
sion of Manhattan Software's popular 
16K tape program. It can store 500 
names or items plus five-digit codes in 
32K, or 1 ,000 names and codes in 48K. 

In addition to fast machine-lan- 
guage alphabetical sorting, the pro- 
gram features selection and display or 
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printout of names in any full code, or 
names in any group of codes. Any 
name or code may be edited, and any 
entry deleted. 

Reported uses of the original pro- 
gram have included school pupil track- 
ing, real-estate listing information, rec- 
ord and book cataloging, and many 
others. 

The Disk Listmaker is available for 
Models I and III for $20 from Manhat- 
tan Software, P.O. Box 1063, Wood- 
land Hills, CA 91365, (213) 704-8495. 

Reader Service *^588 

Consolidation System 
For VisiCalc Users 

VIZ.A.CON for the Models I and 
III adds a third dimension to VisiCalc. 
You can combine multiple pages of 
VisiCalc data from a model for hierar- 
chical consolidations (for example, de- 
partment, division, company, and so 
on) or for summations over periods of 
time (for example, month, quarter, or 
year-to-date). 

Typical uses are to combine weekly 
payroll data into monthly, quarterly, 
and yearly reports and to combine de- 
partment budget data into division, re- 
gion, and company-level reports. 

A special system layout form helps 
you organize your consolidation sys- 
tems. With the filled-in information, 
you can create a complete network 
during a question-and-answer session 
that allows you to define an unlimited 
number of interrelated consolidation 
processes. These definitions can then 
be stored for later use. 

VIZ.A.CON gives you the ability 
to set up special formulas (such as 
ratios or percentages) that can be re- 
calculated after a consolidation pro- 
cess. You can customize titles, row 
and column headings, footnotes, and 
so on for each report created. Reports 
can be automatically saved in stan- 
dard ASCII form that can be used 
with a word processor. 

Priced at $89.95, the program is 
available from Abacus Associates, 
Suite 240, 6565 W. Loop South, Bell- 
aire, TX 77401, (713) 666-8146. 

Reader Service «^564 

Advice For Small Businesses 

Understanding and Buying a Small 
Business Computer is a handbook of 
realistic, practical advice for small- 
business owners and managers inter- 



ested in possible computerization. 
Written by consultant Susan Blumen- 
thal, the $8.95 volume ranges from 
"Introducing an Average Computer" 
to determining whether your business 
needs a computer in the first place. 

In addition, the book provides gen- 
eral information on microcomputers, 
minicomputers, and their peripherals' 
performance, operating costs, and 
maintenance and repair requirements. 
Other chapters help you decipher com- 
puter sales pitches, avoid employee 
hostility, and evaluate computer con- 
sultants. 

It is available from Howard W. 
Sams & Co. Inc., 4300 W. 62nd St., 
P.O. Box 7092, Indianapolis, IN 
46206,(317)298-5400. 

Reader Service »^552 

Computer Care Kit 

The RSI Computer Care Kit con- 
tains three useful products for main- 
taining a word processor and comput- 
er. The kit includes one eight-ounce 
bottle each of anti-static spray; print- 
wheel cleaner for removing ink and 
carbon build-up on Wang, Diablo, and 
Qume print wheels; and one spray bot- 
tle of screen and terminal cleaner. Also 
supplied are five foam-covered clean- 
ing swabs, five lint-free cloths, and a 
print- wheel cleaning case. 

The kit is available for $9.95 from 
Repair Service Inc., 4738 N. Ardmore, 
Milwaukee, WI 5321 1, (414) 963-0603. 

Reader Service »^573 

Name That Song 

Name That Song is a game in which 
the player must guess the first word of 



I 



tei ?ss *SJ 

j&j. urn gps 




Computer Care Kit 
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the title of a well-known song. The 
player chooses a hard clue (fewer 
notes) or easy clue (more notes) for 
each song, and then hears the notes 
that allow him to identify it. The play- 
er must contend with a timer as well. 
Hard clues are worth 15 points and easy 
clues are worth 10 points, up or down. 
Two hundred points win the game amid 
great fanfare and dancing notes. 

The game comes on cassette in two 
versions: Name That Song 1 — Chil- 
dren's Songs, and Name That Song 
II — Popular Hits. Each contains 72 
familiar songs appropriate to the ver- 
sion. They are for a 16K Color Com- 
puter with Extended Color Basic and 
sell for $10 each. 

For more information, contact 
Computer Island, 227 Hampton 
Green, Staten Island, NY 10312. 

Reader Service *^568 

TRS-80 
Communications Program 

Term/Host is a self-contained com- 
munications program for cassette or 
disk-based Model I or III systems with 
48K of memory. The same version runs 
on all configurations. 

The program handles all types of 
files in binary or ASCII modes. It sup- 
ports complete remote operation of the 
user's system. As a host you may run 
machine-language or Basic programs, 
or up/download files from any remote 
terminal or system. 

This menu-driven program comes 
with a 27-page user's guide for $34.95. 
For more information contact Free- 
dom Financial Enterprises of Wash- 
ington Inc., 3601 Carriage Drive, Ra- 
leigh, NC 27612, (919) 787-8082. 

Reader Service »^567 

Block Graphic 
Character Generator 

MX-Graphic is a machine-language 
custom printer driver for the Models I 
and III with either an Epson MX-70 or 
MX-80 with Graftrax-Plus. 

MX-Graphic generates standard 
TRS-80 graphic characters using the 
printer's bit-image mode and prints 
them in printer power-up configura- 
tion at between 1 and 2 cps. Normal 
text printing is not affected and graph- 
ics and text can be mixed as desired. 

The block-character generator can 
be switched in and out by software to 
allow other printer configurations and 



use of the bit-image mode. NEWDOS- 
80 JKL and Model HI screen-dump 
functions are supported. 

The program is available for all stan- 
dard tape and disk configurations. In 
addition, versions are provided for 
Model Is with a Memory Sidecar man- 
ufactured by Displayed Video. Memo- 
ry overhead is less than 800 bytes and 
the program is self-protecting in Basic 
operation. 

With documentation included, MX- 
Graphic sells for $19.95 (U.S.) or 
$24.95 (Canadian) plus $2 postage and 
shipping. For more information, con- 
tact CMD Micro Computer Services 
Ltd., 10546-106 St., Edmonton, 
Alberta, Canada T5H 2X6, (403) 
423-3919. 

Reader Service *s 570 

Computer Carnival 

Computer Carnival by Richard 
Ramella contains 60 Level II Basic pro- 
grams, written primarily for children 
but useful to beginners of all ages. It 
includes both games and educational 
programs, arranged in order of diffi- 
culty. Most of the programs are short, 
making them easy to enter. Some can 
be entered by an experienced key- 
boarder and then used by children too 
young to read. 

Each chapter has an illustration by 
the author, a short description of 
the program and how to use it, and a 



program listing. The games range from 
favorites like keno and bingo to orig- 
inal games and simulations, as well 
as graphic games. The educational 
games include math, letter guessing, 
and word games; a program teaching 
states and capitals; and even a Morse- 
code tutor. 

Computer Carnival costs $16.97 at 
computer stores or directly from the 
publisher, Wayne Green Books, Peter- 
borough, NH 03458. A package con- 
taining the book and the programs on 
cassette is available for $24.97 and the 
cassette alone for $9.97, although the 
book is required for documentation. 

Reader Service »^556 

Expanded Disk Storage 
For Models I and III 

A series of floppy-disk drives for 
both internal and external mounting, 
offering up to four megabytes of un- 
formatted storage for the Model III 
and two megabytes for the Model I, is 
now available from Interface Inc. 

For internal storage on the Model 
III, there are four drives available. 
These include a single-sided drive with 
40 tracks and 250K of unformatted 
storage for $215, a single -sided drive 
with 80 tracks and 500K for $335, a 
double-sided drive with 40 tracks and 
500K for $335, and a double-sided 
drive with 80 tracks and one megabyte 
of unformatted storage for $435. A 




Interface Disk Drives 
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maximum of two drives can be in- 
stalled internally. 

There are also four drive types 
available for external storage with the 
Models I and III, including color-co- 
ordinated cabinet, power supply, and 
cable. These drives are single sided 
with 40 tracks and 250K for $315, sin- 
gle sided with 80 tracks and 500K for 
$435, double sided with 40 tracks and 
500K for $435, and double sided with 
80 tracks and one megabyte of stor- 
age for $535. 

Cabinet colors include computer 
blue, standard off-white, lime green, 
dark green, bright orange, brilliant yel- 
low, black, or chrome. 

All drives are TRS-80 compatibility 
tested before shipment and have a 
90-day warranty. For more informa- 
tion, contact Interface Inc., 7630 Ala- 
bama Ave., Unit 3, Canoga Park, CA 
91304, (213)341-7914. 

Reader Service ^ 565 

Single-Entry Ledger System 

The Single-Entry Ledger System 
provides a menu-driven, easy-to-use 
general-ledger package for a cash-ba- 
sis accounting system. This product 
maintains its own data files and pro- 
vides a variety of reports. The pro- 
grams, written in Extended Basic, are 
available for the Model III and the 
Color Computer. 

The system's data files can contain 
any number of accounts and transac- 
tions, limited only by the size of the 
storage medium. Files may be added, 
deleted, or edited at any time. Reports 
include accounts in numerical order, 
comparison of year-to-date values with 
previous year, transactions by account 
number, and many more. 

Priced at $95, the Ledger System is 
available from Universal Data Re- 
search Inc., 2457 Wehrle Drive, Buffa- 
lo, NY 14221,(716)631-3011. 

Reader Service i^551 

Dual-Mode Joystick 

A new plug-in joystick for Color 
Computer games offers both tradition- 
al spring-center return and a faster, 
more versatile free-floating mode. 

A linear potentiometer translates the 
movement of the gimbal to electrical 
impulses, providing more accurate cur- 
sor control and faster motion. External 
switches allow players to shift back and 
forth between modes as often as they 
like, while cursor centering tabs on top 
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of the unit permit fine tuning for pre- 
cise response. 

The joystick is available for $64.95 
from Kraft Systems Co., 450 W. Cali- 
fornia Ave., Vista, CA 92083, (714) 
724-7146. 

Reader Service ^586 

Faster Disk Thesaurus 

Refware Thesaurus 2.0 is a faster 
and expanded synonym-finder that re- 
places the first Refware Thesaurus 
published in 1981. 

Compared to the earlier program, 
Thesaurus 2.0's ZBasic 2.2 machine 
language and new index feature al- 
low it to respond more than 10 times 
faster — on the Model III, only seven 
seconds from the time a user asks 
about a given word until the program 
supplies a group of synonyms or 
related words. Vocabulary has been ex- 
panded to 24,800 entries, providing 
nouns, adjectives, verbs, and adverbs 
for all types of writing. 

Thesaurus 2.0 requires two disk 
drives and 48K of memory, and is 
available in three formats: a four-disk 
set for Model III, 40-track, double 
density; a five-disk set for Model I, 
35-track, double density; and a nine- 
disk set for Model I, 35-track, single 
density. The price of each is $89.95 
plus $3 for shipping. 

Through December 31, 1982, regis- 
tered purchasers of Thesaurus 1 .0 can 
exchange their disks for the new pro- 
gram for a $30 service fee and $3 ship- 
ping. For more information, contact 
Refware, David C. Whitney Associates 
Inc., P.O. Box 451, Chappaqua, NY 
10514, (914)238-88%. 

Reader Service »^ 579 

Camp Management System 

EZ-Camp is an integrated set of pro- 
grams designed exclusively for camp 
management. The system was devel- 
oped and field tested in conjunction 
with several camps using the Model II, 
and requires no programming knowl- 
edge or programmer support. 

Besides maintaining complete camp- 
er information, the system can produce 
mailing lists, medical records, birthday 
or bunk lists, and many other reports 
required in camp management. Users 
can select standard reports, create their 
own, or use the system's word proces- 
sor for personalized letters, application 
forms, newsletters, and the like. In ad- 
dition to standard financial applica- 




Computex Communications Board 

tions, EZ-Camp also has capabilities 
aimed specifically at camps — like can- 
teen supervision and cash advances 
for staff. 

A demonstration disk can be ob- 
tained for $50. For more information, 
contact EZR Micro Inc., 11 Conwell 
Drive, Maple Glen, PA 19002. 

Reader Service »^560 

Model III Internal 
Communications Board 

The M3CB1 communications board 
provides an RS-232C serial interface 
and a complete direct-connect modem 
all on one card slightly larger than the 
Radio Shack RS-232 interface. Totally 
software and hardware compatible 
with the Model III computer, the 
M3CB1 installs in less than 30 minutes 
in the same location as the Radio 
Shack RS-232 board. 

The RS-232 supports asynchronous 
serial transmissions and conforms to 
the industry-standard EIA RS-232C 
interface. Baud rates from 50 to 19,200 
baud are software selectable. 

The 300-baud, full-duplex, direct- 
connect modem uses FSK modulation 
techniques and supports both originate 
and answer modes of operation. 

The assembly and installation man- 
ual provides step-by-step assembly in- 
structions written for the first-time 



DOES STRING COMPRESSION HAVE YOU 
TIED UP IN KNOTS? 

LET TRASHMAN CLEAN UP THE MESS! 

TRASHMAN is a machine language utility for the TRS-80 Models I and III. It was written by Glenn 
Tesler, the author of FASTER, and can reduce BASIC'S string compression time by 95% (see table below) 

WHAT'S STRING COMPRESSION? 

When a BASIC program changes a string (words, names, 
descriptions), it moves it to a new place in memory, and leaves a hole in 
the old place. Eventually, all available memory gets used up and BASIC 
has to push the strings together to free up some space. This takes 
time. Lots of time. The computer stops running for seconds or minutes, 
and you may even think it's "crashed". The keyboard won't work, and 
until all the strings have been collected, you just have to sit and wait. 
Then things run for a while, until string compression is needed again. 
And again 

If you're using your computer for business, that wastes your money If 
you're using it personally, it wastes your time. 



WHAT'S THE SOLUTION? 

As soon as you start using TRASHMAN, those delays almost 
disappear It uses less than 600 bytes of memory, plus 2 bytes for each 
active string It works with other machine language programs and with al 
major operating systems. It's easy to use. comes with complete 
instructions, and can be copied to your own disks. 

WHAT'S THE CATCH? 

If a BASIC program uses only a few strings, very little time is wasted 
in string compression, and TRASHMAN won't be helpful But. if 
hundreds of strings, including large string arrays, are used. TRASHMAN 
is just what you need. 

Ask your software dealer for TRASHMAN. or order 
directly on our toll-free number. The price is just $39.95 
(plus sales tax in California). 



(All timings done on TRS-80 Model I. Model III 15% faster, but pet. improvements identical Listing of timing program available on request. 




# 


SECONDS DELAY 


PERCENT 


STRINGS 


NORMAL 


TRASHMAN 


IMPROVEMENT 


250 


11.8 


0.7 


94 


500 


45.8 


1.6 


96.5 


1000 


179.6 


3.5 


98 


2000 


713.2 


7.8 


98.9 



AMAZING PROGRAM SPEEDS UP BASIC ERRjplC ^IgK DllP^S 




Your time is valuable, so why 
waste it on slow-running BASIC 
programs? PROSOFT's 

"FASTER" will analyze those 
programs while they run, then 
show you a simple change (usu- 
ally one new line) that can re- 
duce run-times by up to 50%. 

Accounting systems, financial models, engineering and scien- 
tific programs all run taster; so do games. Large, complex pro- 
grams improve the most, and "FASTER" is easy to use. 

THIS ISN'T A COMPILER! Your BASIC programs remain read- 
able and can be changed later on. While your programs run, 
"FASTER" counts how often each "variable" is used, then shows 
you the correct sequence for these variables. Afterwards, the 
computer finds them sooner, so your programs run faster. 

Does it really work? Yes! Personal Computing said so in their 
May, 1981 issue (p. 116); we've received many letters from cus- 
tomers who've gotten 20-50% improvements; and we will make 
you this offer: 

Order "FASTER" now. Try it on your bread-and-butter pro- 
grams. If you don't get an overall run-time reduction of at least 
20%, return it within 30 days for a prompt and cheerful refund. 
"FASTER runs on TRS-80 Models I and III, 16 48K, tape or disk 

•29.95 



RPM measures the rotational speed and 
variation of your disk drives, and reveals a 
common cause of unexplained errors. 
Simple one-key operation, runs under any 
DOS, interchangeable between Models I 
and III. Shows current and average 
speeds, plus fluctuation history. Recovers 
from severe errors. Documentation ex- 
plains how to adjust drives. Use RPM 
monthly for best results. 32-48K Model I or III disk 924.95 




TO ORDER. CALL NOW. TOLL FREE 

(800) 824-7888. Operator 422 

CALIF: (800) 852-7777, Oper. 422 

ALASKA/HAWAII: (800) 824-7919 

FOR TECHNICAL INFORMATION CALL: 

(213) 764-3131, or write to us. 



QUICK COMPRESS 



Small (276 bytes), fast (processes 800 
lines in under 3 seconds) utility removes blanks and remarks from 
your BASIC programs. Produces smaller, faster programs, and 
doesn't alter the original logic. 



PRom 



16-48K Model I or HI, tape or disk. 
SPECIAL FASTER f QUICK Compress; 



919.99 



Dept. G Box 560 "' 
$39.95 N or th Hollywood, CA 91603 



TERMS: We accept VISA. Mastercard, checks Money Orders COD and over, cash We pay shipping via 

surface UPS inside U.S.A. Please aaa S3.00 ior Blue Label. 6% tax in California, and 15% outsiae North America .air shipment). 



NEW PRODUCTS 




Datasori 



kit builder and includes installation 
pictures for each major step, theory 
of design, user information, and 
much more. 

The M3CB1 is available as just the 
printed circuit board and manual (you 
supply components and assembly) for 
$34.95, or as the complete kit for 
$129.95. The RS-232 is also available 
assembled and tested for $69.95, while 
the complete RS-232 and direct-con- 
nect modem comes partially assembled 
(you must insert one IC into a socket) 
for $169.95. For more information, 
contact Computex, 17321 El Camino 
Real, Houston, TX 77058, (713) 
488-8022. 

Reader Service ^553 

Disk Menu and Directory 

Most disk directories show only the 
filespecs and some seldom-needed 
other information. The Disk Menu 
and Directory by International Com- 
puter Products displays detailed de- 
scriptions of each program on the disk, 
as well as filespecs, date of creation, 
and more useful data. 

The directory works without modifi- 
cation on Models I and III with 
TRSDOS, NEWDOS+, or other op- 
erating systems. Priced at $29.95 plus 
$1 .50 shipping and handling, it is avail- 
able from International Computer 
Products, 346 N. Western Ave., Los 
Angeles, CA 90004. 

Reader Service ^577 

Reading Skills Lab 

Reading Skills Lab is a new product 
for the Model III that offers a variety 
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of exercises for improving basic read- 
ing skills, as well as short stories for 
reading practice. The complete lab 
contains 63 programs on six disks and 
three teacher's manuals with complete 
documentation. 

The set was designed by a certified 
reading specialist, and the stories 
were written by professional chil- 
dren's authors. The core vocabulary 
lists for each grade level were taken 
from a list of words introduced in the 
most widely used basal reading series 
in schools today. 

Exercises include word recognition, 
sight vocabulary, definitions, vocabu- 
lary in context, recall of detail, infer- 
ence, main idea, sequence of events, 
and many other skills. Most programs 
include an optional printer module 
that allows preparation of worksheets 
for desk use. Each grade level also has 
at least one word game using the core 
vocabulary list to spark interest and re- 
inforce skills. 

The complete Reading Skills Lab, 
with exercises for students in grades 
1-9, sells for $1 ,000. The programs can 
also be ordered in smaller groupings: 
Lab A (grades 1-3), Lab B (grades 
4-6), and Lab C (grades 7-9), priced at 
$350 each. They can be ordered from 
NTS Software, 680 N. Arrowhead 
Ave., Rialto, CA 92376. 

Reader Service *^571 

"Cardboard Computer" 

Datasort, a "cardboard computer," 
allows you to store and retrieve infor- 
mation in any category combination 
you choose. 

The system consists of a hand 



punch, a small rod (like a knitting nee- 
dle), and file cards with numbered 
holes around all four edges. You 
develop your own category list in- 
dicating what you want the numbered 
holes to mean, then use your hand 
punch to clip away the tops of holes 
that apply to the information on each 
punchcard. To retrieve information, 
insert the rod at any category hole. 
When you lift the rod and shake the 
stack, cards notched for that category 
will fall off the rod. 

To cross reference, all you need do is 
take the cards just retrieved and poke 
the rod through a hole for any other 
category. 

The Datasort system is designed for 
medium-sized projects requiring up to 
5,000 cards. Its cross-referencing capa- 
bility can save up to 80 percent of the 
time usually spent duplicating and 
scanning, and 100 percent of the time 
spent refiling. 

The system weighs less than three 
pounds and is priced at under $30. For 
more information, write or call In- 
decks Inc., Dept. 523, Arlington, VT 
05250, (802) 362-3464. 

Reader Service i^589 

Loan Sales/Purchase 
Analysis Program 

A new program for analyzing the 
sale or purchase of a loan is available 
on disk for the Model I or III with 48K. 

The program will calculate either the 
return on investment or the value of 
loans of any amount, at any interest 
rate or due date. It allows both buyer 
and seller to make knowledgeable deci- 
sions when purchasing or liquidating 
loans. 

The printout shows the loan amount, 
original interest rate, the number of 
months until due, the yield to the buyer 
(return on investment), the discount in- 
terest rate, the discount amount, and 
the value of the loan (price paid to 
seller). Loans in foreign currencies as 
well as U.S. dollars can be analyzed. 

The program sells for $50 from 
Realty Software Co., 1116 'E' 8th St., 
Manhattan Beach, CA 90266, (213) 
372-9419. 

Reader Service »^554 

Cables and Light Pen 

Five new cables for the Color Com- 
puter are available from Spectrum 
Projects. 





3 Easy Steps 
To Better Computing 



1. Find the LOAD 80 dealer nearest you. 

2. Visit his store. 

3. Buy LOAD 80. 



Once you discover how much time and money you can save using LOAD 80 — and just 
how easy it is to use — you may never want to keyboard another program as long as 
you live. 



• Leominster New* 
eMmumAn 
Leominster. MA 01453 
6)7534-8237 



' N.»th Eastern lump I 
463MuudvSt 

Wjllhiim MAOIIW 
617699-3540 



Vineyard Electronic* 

>.lalr K; 

Vineyard Haven. MA 02988 

0,7.693-5600 



' Tuft's Radio 
61 LuweflRd 
Hudson. NH 03061 



Radio Shark 
148 Key Rd 
Keene. NH 03431 
603-3570100 



Comer News 
Railroad Square 
Kerne. NH 03431 
803-357-4686 



• Win Hoti Aasjoctation 
31 RaynrsAvc 
Portsmouth. .NH 03801 
803-4317438 



Computer Dynamics 

1 1 Portland Hill 
Georgetown CT 08829 

203-23S0543 



Alban. Inc. 

1 1 Portland Hid 

Georgetown. CT 06829 

203-5449236 



' Computer Servlce&'DANB 



Software Man 
352 Bloomnrld Ave 
CaMwell. NJ 07008 
201 228-4949 

The Computet Hook 
Pine firook Pkua. Pit 46 
Pine Brook. NJ 070S8 
201 575 1192 



Computer Dlincnsjoni 
I 16 Elm St 
WettTield. NJ 07090 
201 233-8300 



Computer Comer of N J 
439 Route 23 
Pompton Plains NJ 07444 
201 835-7080 



Computer Orarouni of A 

Wen Mlllcrd Mall 
West Mil lorn NJO7460 
101 7204080 



' Software C.i> 
147 X Ki m erkarnack Rd 
Monivak SJ 07645 

201 :K)l-0O3l 



' Software Ocv 
161 Cedarland 
Teanerk. NJ 07868 

201 892B298 



Computer Madness 
Summcnon Shopping Cli 
EngllalMown. NJ 07726 

201 482 9696 



Mr. RUk Burden 
94 Pnncelon Ave 
Dover. NJ 07801 



Compulrr Encounter 
PnrKcton N Shop Co 
Princeton NJ 08540 
8U9-92467S7 



Bargain brothers 

2 16 Scotch Rd 

W Trenlon NJ 0M62H 

609-883-3060 



Rl 21 Rd 3. 8n» 370 
Whllehouae Slallon. NJ 08889 
201 3342732 



30 1 852-6676 



P*prrtwrk BontLsmilh 
Korkawav Town Sojuarr 
Horkawav NJ 07886 
301 3613400 



Hippy Hnnkrr 
Morm County Marl 
Cedar Knoll! NJ 07927 
20 1 339-4240 



Morns County Sustlone 
Chrsler Springs Shop. Ci 
(healer. NJ 07930 
301 879-5776 



Computer Workshop 

)200 HaCderflelrJ Rd 
Cherry Hill. NJ 08002 
60Nfi6S44O4 



Radw Shark 
Chcny Hdl Mall 
Chrnv HMI SJ 08034 



Dtglbvtr 

31 E 31st 

New York NY 10016 

312 889-11130 



RI> Internal kma 
455 V,' 43rd SI 
New York. NY I 
3I2 307O366 



Programs Liutd White 

While Mains NY 10601 
914 7619383 



Program* l;nhd kw 
30A Jrn. ho Tumpihr 
Jerahu NY 11753 
M6-997R6S8 



Thr ti a npustr Shupur 
283 Medtord Ave Rle 
Patrhouur NY 11772 
SI&75M6SS6 



Compuierland 
46-50 Main SI. 
Masaens. NY 13683 
115 76a 997 I 



Red Ten Radio Shark 
139 E 4lhSt 
Walklna (Slen. NY 14891 
80* 5352233 



Personal Sotlwsrr 
Rtc 33 • Rle 343 
EKeraon. PA I9330 
313 386-9864 



Wills Computet Store 
44 10 Sump Rd 
Mariow Hgls . Ml) 30U3I 
301 423-4525 



Penlagon Bookstore 
The Concourse 
Washington. DC 30301 

2O2895087O 



Bowes Books 

7 .8 Ores I Mills Rd 

LemnAlon. Ml) 3U6S3 

30 1 863 6200 



The Comm Center. In 
9834 Ft Meade Rd 
Laurel. MO 20810 
301 953 9353 



H Dahon Buufcsrllrrs 
Rls 1-370* MDBS 
Frederick. MD 31701 



Hancock Techtna 
33 w Mam SI 
Hanrork. Ml) 217 
30I«7»«X>0 



Arcade Eire I rank* IN 
7026-28 Columbia Pake 
Annandalr VA 3300:1 



' Community Electron*-* 
238 Broadview Ave 
Warrentun. VA 33186 
703-347 1339 



Mr. Robert U. Brooks 
9701 Meadow View Rd 
Richmond VA 33239 



KaSNrwsland 
1 249 Corporation Pkwy 
WInsion Salem. NC 2711)7 
919734 7537 



King Elcrlranxs 
Town A Count n, Shop ' 
Aberdeen NC 28315 
919-944-2800 



Sound Mia 

Sksrum Shopping Cee 
Harctork. NC 28532 
919-447-5988 



Kayburn Ma-ru-Elect 
27 E Mam SI 
Syh-a. NC 28779 
704-586-8133 



Megairon.Radio tHark I) 
Heritage Plaia 
lllllnn Head Plan St' 3H92N 
803 785-9630 



' Altania Computer Man 
5091 BBukxdHwy 
Atlanta GA 30362 
4044554)647 



1 Software To-Born 
HSMCasdy <* 
Savannah GA 31406 
912-927-2017 



(ape New. Co 
70OCkrarlakrRd 
Coras. PL 33933 
813 870 1970 



J.HJ5 Ponce de Leon Blid 
306-884 2305 



I 8 H Hobby Sale* 
131 S Tamiami Tn 

areola FL 33581 
13 933 77 1 1 



Paurruui-k rksiksmiih 
8311 1 s r.nuaml Trail 
Sarawit.1 FL 33SH.I 
HI3U23-S369 



14932 N Florida Hwy 
Tampa. FL .13612 
n;:\ SHI -5269 



1 Maill*tin IkxAs 
HOOKS Madison Pike 
Mh.Ii-.ii AL 35758 
305 773 9250 



lirmprr Electronic Supp 
495 Ristrnburg Ayr 
llil..«. MS 39531 



Cllubrthlown Electron 
Eoxabet Morn Phaza 
Elliabcihiown. KY 42701 
502 76S5070 



Jerry s Computers 

Eurad Arradr 

< h-vrland. OH 441 15 

216-5790648 



4930 Airway 
Dayton OH 45431 
313353 1613 



♦ Suppliers of Load 80 Disks 



Pamper yourself. 

Pamper your computer. 

Use LOAD 80 cassettes and disks 



A subsidiary of Wayne Green I nc. 
Peterborough, N.H. 03458 USA 
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NEW PRODUCTS 



The Disk Interface/ROMpak Ex- 
tender ($29.95) is a 40-pin ribbon cable 
that plugs into the ROMpak port and 
terminates with a female connector for 
disk interfaces and ROMpaks. Con- 
nectors are gold plated to eliminate 
corrosion. This three-foot cable elimi- 
nates disk I/O errors and makes ar- 
ranging your components easier. 

Three 10- foot extension cables let 
you place your joysticks, printer/mo- 
dem, and tape recorder at convenient 
distances from the computer. They are 
$14.95 each. The last cable, a joystick 
Y adapter ($19.95), lets you hook in 
line a joystick and Spectrum's new 
low-cost light pen ($14.95). 

These products can be ordered from 
Spectrum Projects, 93-15 86th Drive, 
Woodhaven, NY 11421, (212)441-2807. 

Reader Service *^569 



Files and Labels 

Management System II, a filing pro- 
gram featuring machine-language 
"lightning sort" of any column, is now 
available for Model I or III tape-based 
systems. 

File presentation is a maximum of 
two horizontal lines (100-plus charac- 
ters) with one to nine vertical columns. 
Column titles are easily created, and 
files may be added, updated, listed, 
deleted, or saved to tape or printer. 

A labels command provides printer 
output of any or all columns for pro- 
duction of mailing labels, file labels, 
stock bin tags, or any similar home or 
office application. A merge feature 
consolidates files previously saved on 
tape, and a keyed selective-search 
function lists files based on the number 
of characters input. 

All commands are executed by sin- 
gle-letter entry for faster and easier op- 
eration. The program sells for $26.95 
from Micro-80 Inc., 2665 E. Busby 
Road, Oak Harbor, WA 98277. 

Reader Service »^583 



Animation Stand 
Move Calculator 

Animcalc is a program designed to 
enable the users of hand-cranked ani- 
mation stands to produce the same 
smooth, tapered moves generated on 
the new breed of computer-driven 
stands. Given the starting and ending 
482 • 80 Micro, December 1982 



settings of up to six different coordi- 
nates, and the frame number at the 
start and end of the move, Animcalc 
computes the coordinate settings for 
each frame within the move, including 
table rotation (clockwise or counter- 
clockwise). 

Each coordinate can be assigned its 
own taper style (no taper, taper start, 
taper end, or taper both ends), and dif- 
ferent lengths of taper can be assigned 
to each coordinate. The results can be 
output to a line printer or the video 
screen for copying to the animation 
frame chart. 

The program is available in CP/M 
or Basic for Models I and III. It is 
priced at $49.95 (disk or cassette). For 
more information, write Animcalc, 
895 NE 90th Ave., Portland, OR 
97220. 

Reader Service *^559 



First Down 

NFL Pro Football allows play be- 
tween any NFL teams in either manual 
or automatic mode. It uses actual NFL 
rosters and team statistics that may 
easily be updated as the season pro- 
gresses. A predict mode produces 
amazingly accurate forecasts. Fast ma- 
chine-code graphics add excitement to 
the game. 

This game runs on a 48K Model I or 
III. Priced at $34.95, it is available 
from M-P-Software, Route 2 Box 533, 
Cumming, GA 30130, (404) 887-6814. 

Reader Service »^575 



Bulletin Board 

SPS-BBS is a low-cost bulletin- 
board system for the Models I, II, and 
III. The system sells for $79.95 
($1 19.95 for the Model II) and includes 
a host utility, message system, packed 
disk files, six functions that can be de- 
fined by the system operator, chat 
mode, and many more. 

For more information contact Small 
People Software Corp., P.O. Box 732, 
College Park, MD 20740, (301) 
937-4339. 

Reader Service ^587 



Library Management System 

The Library Support Option file- 
management system provides the 
capability to create and maintain 



libraries for logical organization of 
files and programs. 

The system is compatible with the 
DOS, user, and application programs. 
Regular DOS commands can be used 
to list, print, kill, copy, load, or save 
files directly to or from libraries. It 
supports regular as well as library files, 
and includes faster file handling, one 
sector minimum file size, and text com- 
pression. 

Priced at $79, the Library Support 
Option is available on disk for the 
Models I and III from XYZT Comput- 
er Dimensions Inc., 2 Penn Plaza, 
Suite 1500, New York, NY 10121, 
(212)244-3100. 

Reader Service ** 563 

Koupon Keeper 

Koupon Keeper is a record-manage- 
ment system for the Models I and III 
that catalogs cash-off coupons in any 
order and displays them, at your re- 
quest, by brand name, product type, 
amount, or expiration date. This prod- 
uct helps you make better, more effec- 
tive use of store coupons than is 
possible using the traditional filing 
techniques. It also greatly reduces the 
amount of time necessary to maintain 
your coupon file. 

Priced at $9.75, it is available from 
Kensoft, 2102-50th St., Kenosha, WI 
53140,(414)654-2722. 

Reader Service »^558 

Graph Paper for 
Your Word Processor 

Word-Processor Graph Paper is a 
software product that produces screen 
formats of standard graph paper grids 
compatible with word processor stor- 
age formats. 

By selecting one of over 30 stored 
formats, the user need only enter data 
points and graph titles. The graph then 
becomes part of the text file and is edit- 
ed and printed as a normal page. 

For more information, send word- 
processor or computer type to ATC 
Software, RT 2 Box 448, Estill Springs, 
TN 37330. 

Reader Service »^591 



New Products listings are based on 
information supplied in manufactur- 
ers' press releases. 80 Micro Has not 
tested or reviewed these products and 
cannot guarantee any claims. 



HOW TO USE YOUR EPSON 

WITHOUT WASTING 

COMPUTER 








Your computer is capable of sending data 
at thousands of characters per second but 
the Epson can only print 80 characters per 
second. 

This means your computer is forced to 
wait for the printer to finish one line before it 
can send the next. A waste of valuable time. 

THE NEW MICROBUFFER 

ACCEPTS DATA AS FAST AS 

YOUR COMPUTER CAN SEND IT. 

Microbuffer stores the data in its own 
memory buffer and then takes control of 
the printer. This frees your computer for 
more productive functions. 

PARALLEL OR SERIAL. 

Microbuffer model MBP-16K is a 
Centronics-compatible parallel interface 
with 16,384 bytes of on-board RAM for 
data buffering. 

The MBS-8K is a full-featured RS-232C 
serial interface with both hardware and 
software (X-On/X-Off) handshaking, baud 
rates from 300 to 19.000 and an 8,192 byte 
RAM buffer. 

SIMPLY PLUG IT IN. 

Either model fits the existing auxiliary 
interface connector inside the Epson MX-80, 
MX-80 F/T or MX-100 without modification, 
and is compatible with standard Epson 
cables and printer control software, 
including GRAFTRAX-80. 

JUST $159.00* 

When you think how much time Microbuffer 
will save, can you afford not to have one? 
Call us for your nearest dealer. 



PRACTICAL PERIPHERALS, INC. 

31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CA 91362 • (213) 991-8200 




O 



See Us Al 

NOV. 28-O.c 2. 1982 

I 




* Suggested retail price for either model 




A GALAXY of featutes /nakes the L.^ 

remarkable, computer. As you explore the 

L. LNW80, you will find the most complete, 

[ powerful, ready to run, feature-packed per- 
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UALITY CONSTRUCTION - Instrumenta- 
tion quality construction sets LNW80 com; 
s apart i&ro all the rest. Integrated into 
"Sel case of the LNW80 is a 
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f- one compact solid unit. 
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icludes a twelve key Qumeric keypad. 

1IQH RESOLUTION GRAPHICS* COLOR- 

he stunning 480 X 192 resolution gives you 

.• total .cAsplay control - in color or black and 

white,' The choice of display formats is yours; 

80, 64, 40 and 32 columns by 24 or 1 6 lines in - 

any combination of eight colors. 

IFORMANCE- Lift-off wiUva4MHz Z80A 
I for twice the performance. The LNW80 
>ertorms all computers in its class. 
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MODEL I CO 

fully hardware and soft 
the Model I. Select from 
accessories and software 
space games, your LNWLv 
into a new world of computin 

FULLY 



•mpatible with 
sejof hardware 
m VisiCalc" to 
will launch you 
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• - A full payload i 
_ ... _, . ._ ... 



controller for 5 W^JJnd 8" single or double 
sided disk drives. RS2.32C communications 
port, cassette and parallel printer interfaces 
are standard features and ready to go. All 
memory is fully installed - 48K RAM,* 16K 
graphics RAM and 12K ROM complete with 
Microsoft BASIC. 
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Monitor and vrsfc'dritfas 
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